需求:於同一儲存格反覆輸入數值,自動累加總和。可錄製巨集並編輯 VBA 代碼實現。
MyMacroVBAProject (Personal.xls) ► 雙擊 模組\Module1(名稱可能為 Module2/3)。Sub MyMacro()
OldValue = Val(ActiveCell.Value)
InputValue = InputBox("輸入數值,負數前輸入減號", "小小計算機")
ActiveCell.Value = Val(OldValue + InputValue)
End Sub
應用:適合快速累加零散數值(如發票金額、庫存盤點),無需額外輔助欄。