以 CalculateTax(baseSalary, taxRate) 將 Base Salary × Tax Rate 封裝成 Function Procedure。
10 位員工皆使用 12% 稅率。若逐列重寫公式,邏輯重複且不利維護,因此建立可重用的稅額函數。
| Name | Base Salary | Tax Rate | Tax Amount |
|---|---|---|---|
| Raja | 52000 | 12% | 6240 |
| Suman | 42000 | 12% | 5040 |
| Kuldeep | 61000 | 12% | 7320 |
| Beena | 75000 | 12% | 9000 |
| Seema | 68000 | 12% | 8160 |
| Deepak | 55000 | 12% | 6600 |
| Neena | 39000 | 12% | 4680 |
| Pankaj | 47000 | 12% | 5640 |
| Andre | 72000 | 12% | 8640 |
| Sujay | 50000 | 12% | 6000 |
來源指定邏輯:TaxAmount = Base Salary × Tax Rate。VBA Function 接收 baseSalary 與 taxRate,回傳乘積,再由 Sub 寫入欄位。
10 筆 Tax Amount 如表;例如 Raja = 52,000 × 12% = 6,240,Beena = 75,000 × 12% = 9,000。
Function 的價值是把單一計算規則集中管理。若稅率或算法改變,只需修改函數邏輯,而不是逐列改寫公式。
請依 CalculateTax(baseSalary, taxRate) 設計 VBA Function,並用來源 10 筆 Base Salary、12% Tax Rate 驗證 Tax Amount。
**問題:**Raja 稅率若改為 15%,Tax Amount 為多少?