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

2019-12-06 06:56:13

如果在EXCEL計算單元格除法的時候在EXCEL表格和計算器之間進行切換操作，顯然費時又費力，用EXCEL函數有沒有祈禱切實可靠的作用，面對這種情況我們改如何應對呢？這裡可以有效的利用VBA程式碼來實現一個簡單的除法計算器，這樣可以簡單快捷的完成除法運算，讓EXCEL顯示出他強大的計算功能。

新建一張電子試算表，在A列輸入除法規則，在B列中輸入一些資料，我們將通過VBA程式碼來實現這些規則。

單擊選單欄「開發工具」——「錄製巨集」，開啟「錄製新巨集」對話方塊，在對話方塊中輸入紅名「除法」，輸入快捷鍵「Ctrl+Shift+N」，並儲存到個人巨集工作薄。單擊確定。

現在單擊選單欄「開發工具」——「停止錄製」按鈕，這時候按鈕變成了「錄製巨集」，使得該巨集處於停止編輯狀態。

單擊「開發工具」——VisualBasic，開啟VBA編輯器，如圖所示。雙擊「模組6」，在出現的程式碼框中有以下程式碼：

Sub 除法()

' 除法 Macro

' 快捷鍵: Ctrl+Shift+N

End Sub

現在我們來輸入除法計算器的程式碼：

Sub 除法()

' 除法 Macro

' 快捷鍵: Ctrl+Shift+N

p = Val(ActiveCell.Value)

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

ActiveCell.Value = Val(p / q)

End Sub

現在回到EXCEL工作表中，選擇B1單元格，按住「Ctrl+Shift+N」，出現「請輸入資料」對話方塊，在對話方塊中輸入「20」，單擊確定，可以看到B1中的資料由200變成了10.

用同樣的方法，在B列中運用A列中的規則，現在可以把B列中的資料進行變換，現在計算器就製作好了。