excel累加小技巧

excel累加小技巧

我們?cè)诠ぷ髦谐３Ｐ枰谝延袛?shù)值的單元格中再增加或減去另一個(gè)數(shù)。一般是在計(jì)算器中計(jì)算后再覆蓋原有的數(shù)據(jù)。這樣操作起來很不方便。這里有一個(gè)小技巧，可以有效地簡(jiǎn)化老式的工作過程。

(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)打開“模塊→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ù)值并按下“確定”鍵。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。