在使用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键,输入数值并按下“确定”键。