EXCEL技巧——制作简单数据累加计算器

1、    新建一张表格，单击“开发工具”——录制宏，打开“录制新宏”对话框，在宏名称中输入“计算器”，快捷键输入Ctrl+Shift+M，保存在个人宏工作薄，单击确定。

2、     单击菜单栏中的“停止录制”，单击“开发工具”——VisualBasic，打开VBA代码编辑器，双击“模块6”，打开代码编辑器，在编辑器中出现代码：

Sub 计算器()

'

' 计算器 Macro

'

' 快捷键: Ctrl+Shift+M

'

End Sub

3、   现在在代码编辑器中对代码进行修改，把原来代码用现在的代码进行代换：

Sub 计算器()

    m = Val(ActiveCell.Value)

    n = InputBox("请输入数值", "计算器")

    ActiveCell.Value = Val(m + n)

' 计算器 Macro

'

' 快捷键: Ctrl+Shift+M

'

End Sub

4、   选择A1单元格，单击“运行”——运行子过程/用户窗体，现在弹出对话框“请输入数值”，在输入框中输入“1”单击确定，你会看到A1单元格中填入了数据1.

5、  现在关闭VBA编辑器，选择A1单元格，按住“Ctrl+Shift+M”，弹出对话框，在对话框中输入“15”，单击确定，可以看到A1单元格中变成了16.

6、  现在我们看看减法行不行，选择A1单元格，按住“Ctrl+Shift+M”，弹出对话框，在对话框中输入“-20”，单击确定，可以看到A1单元格中变成了-4.现在我们的累加计算器就制作好了。