在使用Excel時,常常需要在已有數(shù)值的單元格中再增加或減去另一個數(shù)。一般是在計算器中計算后再覆蓋原有的數(shù)據(jù)。這樣操作起來很不方便。這里有一個小技巧,大家不妨一試。
1.創(chuàng)建一個宏。
選擇Excel選單下的“工具→宏→錄制新宏”選項;
宏名為:MyMicro;
快捷鍵為:Ctrl+Shift+J(只要不和 Excel本身的快捷鍵重名就行);
保存在:個人宏工作簿(可以在所有 Excel 工作簿中使用)。
2.用鼠標(biāo)選擇“停止錄入”工具欄中的方塊,停止錄入宏。
3.選擇Excel選單下的“工具→宏→Visual Basic 編輯器”選項。
4.在“Visual Basic 編輯器”左上角的VBAProject中用鼠標(biāo)雙擊VBAProject (Personal.xls) 打開“模塊→Module1”。
注意:你的模塊可能不是Module1 ,也許是Module2、Module3。
5.在右側(cè)的代碼窗口中將Personal.xls-Module1(Code)中的代碼更改為:
Sub MyMicro( )
OldValue = Val (ActiveCell.Value )
InputValue = InputBox ( “輸入數(shù)值,負(fù)數(shù)前輸入減號”,“小小計算器”)
ActiveCell.Value = Val (OldValue + InputValue)
End Sub
6.關(guān)閉Visual Basic編輯器。
編輯完畢,你可以試試剛剛編輯的宏,按下Shift+Ctrl+J鍵,輸入數(shù)值并按下“確定”鍵。
本文來自編程入門網(wǎng):http://www.bianceng.cn/Office/excel/201011/20370.htm