EXCEL技巧——製作簡單資料累加計算器

2019-12-06 10:41:52

在平時的EXCEL資料處理中，經常要對資料進行修改，如果要對資料進行簡單的加減法運算，我們往往是先用計算器進行加減後，然後再用複製貼上的方式吧原來的資料替換掉，操作起來要對EXCEL表格和計算器進行頻繁的轉換，很不方便，如果能把計算器整合到EXCEL中，計算起來就方便多了。

新建一張表格，單擊「開發工具」——錄製巨集，開啟「錄製新巨集」對話方塊，在巨集名稱中輸入「計算器」，快捷鍵輸入Ctrl+Shift+M，儲存在個人巨集工作薄，單擊確定。

單擊選單欄中的「停止錄製」，單擊「開發工具」——VisualBasic，開啟VBA程式碼編輯器，雙擊「模組6」，開啟程式碼編輯器，在編輯器中出現程式碼：

Sub 計算器()

' 計算器 Macro

' 快捷鍵: Ctrl+Shift+M

End Sub

現在在程式碼編輯器中對程式碼進行修改，把原來程式碼用現在的程式碼進行代換：

Sub 計算器()

m = Val(ActiveCell.Value)

n = InputBox("請輸入數值", "計算器")

ActiveCell.Value = Val(m + n)

' 計算器 Macro

' 快捷鍵: Ctrl+Shift+M

End Sub

選擇A1單元格，單擊「執行」——執行子過程/使用者表單，現在彈出對話方塊「請輸入數值」，在輸入框中輸入「1」單擊確定，你會看到A1單元格中填入了資料1.

現在關閉VBA編輯器，選擇A1單元格，按住「Ctrl+Shift+M」，彈出對話方塊，在對話方塊中輸入「15」，單擊確定，可以看到A1單元格中變成了16.

現在我們看看減法行不行，選擇A1單元格，按住「Ctrl+Shift+M」，彈出對話方塊，在對話方塊中輸入「-20」，單擊確定，可以看到A1單元格中變成了-4.現在我們的累加計算器就製作好了。