excel累加公式当a1数值是8时，b
创建一个宏：
选择Excel选单下的“工具→宏→录制新宏”选项；
宏名为：MyMicro；
快捷键为: Ctrl＋Shift＋J(只要不和 Excel本身的快捷键重名就行)；
保存在: 个人宏工作簿(可以在所有 Excel 工作簿中使用)。
2。用鼠标选择“停止录入”工具栏中的方块，停止录入宏。
3。选择Excel选单下的“工具→宏→Visual Basic 编辑器”选项。
4。在“Visual Basic 编辑器”左上角的VBAProject中用鼠标双击VBAProject (Personal。 xls) 打开“模块→Module1”。
注意：你的模...全部
创建一个宏：
选择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键，输入数值并按下“确定”键。
这段代码只提供了加减运算，我是从网上淘来的。
收起
