50.Excel中累加小技巧

　　在使用 Excel時(shí)，常常需要在已有數(shù)值的單元格中再增加或減去另一個(gè)數(shù)。一般是在計(jì)算器中計(jì)算后再覆蓋原有的數(shù)據(jù)。這樣操作起來很不方便。這里有一個(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) 打開“模塊→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ù)值并按下“確定”鍵。

 << 上一頁  [11] [12]