我们在工作中常常需要在已有数值的单元格中再增加或减去另一个数。一般是在计算器中计算后再覆盖原有的数据。这样操作起来很不方便。这里有一个小技巧,可以有效地简化老式的工作过程。
(1).创建一个宏:
选择Excel选单下的工具→宏→录制新宏选项;
宏名为:MyMacro;
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)快捷键为:Ctrl+Shift+J(只要不和Excel本身的快捷键重名就行);
保存在:个人宏工作簿(可以在所有Excel工作簿中使用)。
(2).用鼠标选择停止录入工具栏中的方块,停止录入宏。
(3).选择Excel选单下的工具→宏→Visual Basic编辑器选项。
(4).在Visual Basic编辑器左上角的VBA Project中用鼠标双击VBAProject(Personal.xls)打开模块→Module1 。
注意:你的模块可能不是Module1 ,也许是Module2、Module3。
(5).在右侧的代码窗口中将Personal.xls-Module1(Code)中的代码更改为:
Sub MyMacro( )
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)OldValue = Val(ActiveCell.Value)
InputValue = InputBox(输入数值,负数前输入减号,小小计算器)
ActiveCell.Value = Val(OldValue+InputValue)
End Sub
(6).关闭Visual Basic编辑器。
编辑完毕,你可以试试刚刚编辑的宏,按下Shift+Ctrl+J键,输入数值并按下确定键。