我們?cè)诠ぷ髦谐３Ｐ枰谝延袛?shù)值的單元格中再增加或減去另一個(gè)數(shù)。一般是在計(jì)算器中計(jì)算后再覆蓋原有的數(shù)據(jù)。這樣操作起來(lái)很不方便?？荚嚧缶庉嬐扑]一個(gè)小技巧，可以有效地簡(jiǎn)化老式的工作過(guò)程。
(1).創(chuàng)建一個(gè)宏：
選擇Excel選單下的“工具→宏→錄制新宏”選項(xiàng)；
宏名為：MyMacro；
快捷鍵為：Ctrl＋Shift＋J(只要不和Excel本身的快捷鍵重名就行)；
保存在：個(gè)人宏工作簿(可以在所有Excel工作簿中使用)。
(2).用鼠標(biāo)選擇“停止錄入”工具欄中的方塊，停止錄入宏。
(3).選擇Excel選單下的“工具→宏→Visual Basic編輯器”選項(xiàng)。
(4).在“Visual Basic編輯器”左上角的VBA Project中用鼠標(biāo)雙擊VBAProject(Personal.xls)打開(kāi)“模塊→Module1”。
注意：你的模塊可能不是Module1 ,也許是Module2、Module3。
(5).在右側(cè)的代碼窗口中將Personal.xls－Module1(Code)中的代碼更改為：
Sub MyMacro( )
OldValue = Val(ActiveCell.Value)
InputValue = InputBox(“輸入數(shù)值，負(fù)數(shù)前輸入減號(hào)”,“小小計(jì)算器”)
ActiveCell.Value = Val(OldValue＋I(xiàn)nputValue)
End Sub
(6).關(guān)閉Visual Basic編輯器。
編輯完畢，你可以試試剛剛編輯的宏，按下Shift＋Ctrl＋J鍵，輸入數(shù)值并按下“確定”鍵。(這段代碼只提供了加減運(yùn)算，借以?huà)伌u引玉。)
(1).創(chuàng)建一個(gè)宏：
選擇Excel選單下的“工具→宏→錄制新宏”選項(xiàng)；
宏名為：MyMacro；
快捷鍵為：Ctrl＋Shift＋J(只要不和Excel本身的快捷鍵重名就行)；
保存在：個(gè)人宏工作簿(可以在所有Excel工作簿中使用)。
(2).用鼠標(biāo)選擇“停止錄入”工具欄中的方塊，停止錄入宏。
(3).選擇Excel選單下的“工具→宏→Visual Basic編輯器”選項(xiàng)。
(4).在“Visual Basic編輯器”左上角的VBA Project中用鼠標(biāo)雙擊VBAProject(Personal.xls)打開(kāi)“模塊→Module1”。
注意：你的模塊可能不是Module1 ,也許是Module2、Module3。
(5).在右側(cè)的代碼窗口中將Personal.xls－Module1(Code)中的代碼更改為：
Sub MyMacro( )
OldValue = Val(ActiveCell.Value)
InputValue = InputBox(“輸入數(shù)值，負(fù)數(shù)前輸入減號(hào)”,“小小計(jì)算器”)
ActiveCell.Value = Val(OldValue＋I(xiàn)nputValue)
End Sub
(6).關(guān)閉Visual Basic編輯器。
編輯完畢，你可以試試剛剛編輯的宏，按下Shift＋Ctrl＋J鍵，輸入數(shù)值并按下“確定”鍵。(這段代碼只提供了加減運(yùn)算，借以?huà)伌u引玉。)