在Excel中累加的小技巧

在使用Excel时，常常需要在已有数值的单元格中再增加或减去另一个数。一般是在计算器中计算后再覆盖原有的数据。这样操作起来很不方便。这里有一个小技巧，大家不妨一试。

1.创建一个宏。

选择Excel选单下的工具→宏→录制新宏选项;

宏名为：MyMicro;

快捷键为：Ctrl+Shift+J(只要不和 Excel本身的快捷键重名就行);

保存在：个人宏工作簿(可以在所有 Excel 工作簿中使用)。

2.用鼠标选择停止录入工具栏中的方块，停止录入宏。

3.选择Excel选单下的工具→宏→Visual Basic 编辑器选项。

4.在Visual Basic 编辑器左上角的VBAProject中用鼠标双击VBAProject (Personal.xls) 打开模块→Module1。

注意：你的模块可能不是Module1 ，也许是Module2、Module3。

5.在右侧的代码窗口中将Personal.xls-Module1(Code)中的代码更改为：

Sub MyMicro( )

OldValue = Val (ActiveCell.Value )

InputValue = InputBox ( 输入数值，负数前输入减号,小小计算器)

ActiveCell.Value = Val (OldValue + InputValue)

End Sub

6.关闭Visual Basic编辑器。

编辑完毕，你可以试试刚刚编辑的宏，按下Shift+Ctrl+J键，输入数值并按下确定键。