1、 新建一张电子表格，在A列输入除法规则，在B列中输入一些数据，我们将通过VBA代码来实现这些规则。
2、 单击菜单栏“开发工具”——“录制宏”，打开“录制新宏”对话框，在对话框中输入红名“除法”，输入快捷键“Ctrl+Shift+N”，并保存到个人宏工作薄。单击确定。
3、 现在单击菜单栏“开发工具”——“停止录制”按钮，这时候按钮变成了“录制宏”，使得该宏处于停止编辑状态。
4、 单击“开发工具”——VisualBasic，打开VBA编辑器，如图所示。双击“模块6”，在出现的代码框中有以下代码：
Sub 除法()
' 除法 Macro
' 快捷键: Ctrl+Shift+N
End Sub
5、 现在我们来输入除法计算器的代码：
Sub 除法()
' 除法 Macro
' 快捷键: Ctrl+Shift+N
p = Val(ActiveCell.Value)
q = InputBox("请输入数值", "计算器")
ActiveCell.Value = Val(p / q)
End Sub
6、 现在回到EXCEL工作表中，选择B1单元格，按住“Ctrl+Shift+N”，出现“请输入数据”对话框，在对话框中输入“20”，单击确定，可以看到B1中的数据由200变成了10.
7、 用同样的方法，在B列中运用A列中的规则，现在可以把B列中的数据进行变换，现在计算器就制作好了。
