在使用Excel時(shí)，常常需要在已有數(shù)值的單元格中再增加或減去另一個(gè)數(shù)。一般是在計(jì)算器中計(jì)算后再覆蓋原有的數(shù)據(jù)。這樣操作起來(lái)很不方便。這里有一個(gè)小技巧，大家不妨一試。

1.創(chuàng)建一個(gè)宏。

選擇Excel選單下的“工具→宏→錄制新宏”選項(xiàng);

宏名為：MyMicro;

快捷鍵為：Ctrl+Shift+J(只要不和 Excel本身的快捷鍵重名就行);

保存在：個(gè)人宏工作簿(可以在所有 Excel 工作簿中使用)。

2.用鼠標(biāo)選擇“停止錄入”工具欄中的方塊，停止錄入宏。

3.選擇Excel選單下的“工具→宏→Visual Basic 編輯器”選項(xiàng)。

4.在“Visual Basic 編輯器”左上角的VBAPRoject中用鼠標(biāo)雙擊VBAProject (Personal.xls) 打開(kāi)“模塊→Module1”。

注意：你的模塊可能不是Module1 ，也許是Module2、Module3。

5.在右側(cè)的代碼窗口中將Personal.xls-Module1(Code)中的代碼更改為：

Sub MyMicro( )

OldValue = Val (ActiveCell.Value )

InputValue = InputBox ( “輸入數(shù)值，負(fù)數(shù)前輸入減號(hào)”,“小小計(jì)算器”)

ActiveCell.Value = Val (OldValue + InputValue)

End Sub

6.關(guān)閉Visual Basic編輯器。

編輯完畢，你可以試試剛剛編輯的宏，按下Shift+Ctrl+J鍵，輸入數(shù)值并按下“確定”鍵。