把 CalculateNetSales 指派到計算按鈕,一次完成 Net Sales 與 Status 判斷。
Qty × Unit Price × (1-Discount)。原始案例的 Net Sales 與 Status 欄位為空白;按下計算按鈕後,由來源巨集填入 I4:I13 與 J4:J13。
| OrderID | Qty | Unit Price | Discount | Net Sales | Status |
|---|---|---|---|---|---|
| SO-1501 | 5 | 180 | 5% | 855 | High |
| SO-1502 | 12 | 35 | 0% | 420 | Normal |
| SO-1503 | 20 | 18 | 2% | 352.8 | Normal |
| SO-1504 | 3 | 260 | 10% | 702 | Normal |
| SO-1505 | 8 | 45 | 0% | 360 | Normal |
| SO-1506 | 4 | 180 | 5% | 684 | Normal |
| SO-1507 | 2 | 260 | 8% | 478.4 | Normal |
| SO-1508 | 10 | 35 | 3% | 339.5 | Normal |
| SO-1509 | 25 | 18 | 0% | 450 | Normal |
| SO-1510 | 6 | 45 | 4% | 259.2 | Normal |
來源 VBA:
Sub CalculateNetSales()
Range("I4:I13").Formula = "=F4*G4*(1-H4)"
Range("J4:J13").Formula = "=IF(I4>=800,""High"",""Normal"")"
End Sub
將此 Macro 指派到「計算 Net Sales」按鈕。
10 筆 Net Sales 合計為 4,900.9。只有 SO-1501 = 855 達到來源門檻 800,因此 Status = High;其餘皆為 Normal。
按鈕可把「計算」與「分類」綁成單一步驟,減少使用者漏做其中一項。但門檻 800 是來源案例的固定規則,不能自行解讀成一般商業標準。
請依 Net Sales = Qty × Unit Price × (1-Discount) 驗證 10 筆訂單,並以 Net Sales >= 800 標示 High,否則 Normal;再檢查來源 VBA 是否會涵蓋新增資料列。