EXCEL技巧——如何製作乘法計算器

2019-12-06 14:57:18

在日常對EXCEL資料的處理中，有時要對資料進行乘法運算，但是這麼多的資料，有數又不一樣，用公式就不能統一，這時候就只能用計算器來完成了，但是在計算器和表格之間頻繁互換，難免有些麻煩，這種情況下，我們可以考慮用VBA程式來完成。

新建EXCEL表格，現在我們要使A列中的資料按照B列中的規則進行變換，顯然在EXCEL函數中是沒有這種函數的，下面我們就用VBA來編輯一個乘法計算器，來快速完成這個計算。

單擊選單欄中「開發工具」——錄製巨集，開啟「錄製新巨集」對話方塊，如圖所示，在「巨集名」中輸入「乘法」，在「快捷鍵」中輸入「Ctrl+Shift+C」，儲存在「個人巨集工作薄」，單擊確定。

單擊選單欄中的「開發工具」——「停止錄製」按鈕，使巨集處於停止錄制狀態。

單擊「開發工具」——VisualBasic，開啟VBA程式碼編輯器，雙擊「模組6」，代開程式碼編輯框，如圖在其中有一些程式碼：

Sub 乘法()

' 乘法 Macro

' 快捷鍵: Ctrl+Shift+C

End Sub

現在我們來輸入以下程式碼：

Sub 乘法()

' 乘法 Macro

' 快捷鍵: Ctrl+Shift+C

t = Val(ActiveCell.Value)

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

ActiveCell.Value = Val(t * x)

End Sub

現在我們對剛才編寫的巨集進行偵錯，選擇A1單元格，單擊「執行」——執行子程式/使用者表單，在EXCEL工作表中彈出「請輸入數值」對話方塊，在輸入框中輸入「20」，單擊確定，我們可以看到A1資料變成了300。

現在我們選擇A2單元格，按住「Ctrl+Shift+C」，開啟「請輸入數值」對話方塊，在輸入框中輸入「-21」，單擊確定，我們可以看到A1資料變成了-420.

現在用同樣的方式，利用右面的規則把A列中其他資料進行計算，結果如圖所示，乘法計算器就只做完成了。