OldValue = Val(ActiveCell.Value)
InputValue = InputBox(“输入数值，负数前输入减号”,“小小计算器”)
ActiveCell.Value = Val(OldValue+InputValue)
End Sub
(6).关闭Visual Basic编辑器。
编辑完毕，你可以试试刚刚编辑的宏，按下Shift+Ctrl+J键，输入数值并按下“确定”键。
OldValue = Val(ActiveCell.Value)
InputValue = InputBox(“输入数值，负数前输入减号”,“小小计算器”)
ActiveCell.Value = Val(OldValue+InputValue)
End Sub
(6).关闭Visual Basic编辑器。
编辑完毕，你可以试试刚刚编辑的宏，按下Shift+Ctrl+J键，输入数值并按下“确定”键。