將 CreateRegionSummary 指派到摘要按鈕,自動依 Region 彙總 Net Sales。
使用者完成 Net Sales 後,希望一鍵建立 North、South、East、West 的區域摘要,而不必手動分類加總。
| Region | Total Net Sales |
|---|---|
| North | 1665 |
| South | 1363.2 |
| East | 831.2 |
| West | 1041.5 |
來源 VBA:
Sub CreateRegionSummary()
Range("L9").Value = "Region Summary"
Range("L10:M10").Value = Array("Region", "Total Net Sales")
Range("L11:L14").Value = WorksheetFunction.Transpose(Array("North","South","East","West"))
Range("M11:M14").Formula = "=SUMIF($C$4:$C$13,L11,$I$4:$I$13)"
End Sub
將此 Macro 指派到「建立區域摘要」按鈕。
North 1,665;South 1,363.2;East 831.2;West 1,041.5。四區總和 = 4,900.9,與 10 筆訂單 Net Sales 合計一致。
North 為來源案例四區中最高,占總 Net Sales 約 33.97%;East 最低,約 16.96%。更重要的是摘要總和應與明細總和完全一致,可作為巨集執行後的控制檢查。
請用來源四區 Net Sales 建立管理摘要,計算各區占總額比例,並檢查四區加總是否等於明細總額 4,900.9。