Excel-中的宏應(yīng)用2016

1、Excel 中的宏應(yīng)用宏的定義 宏是一系列操作的組合,是指程序員事先定義的特定的一組“指令”，這樣的指令是一組重復(fù)出現(xiàn)的代碼的縮寫，此后在宏指令出現(xiàn)的地方，系統(tǒng)總是自動(dòng)的把他們替換成相應(yīng)定義的操作或代碼塊。Excel 2007中找到宏組件 2003中的宏組件可在“工具”欄下找到，而在2007版中需。要在“開發(fā)工具”欄下找到。見圖1 。 圖1宏的安全性設(shè)置 如果不對(duì)宏的安全性進(jìn)行設(shè)置，你所錄制的宏可能無法應(yīng)用。這時(shí)，需要點(diǎn)擊圖1中的“宏安全性”，彈出圖2，進(jìn)行設(shè)置。選“宏設(shè)置”，點(diǎn)擊“啟用所有宏”，點(diǎn)擊確定。有時(shí)可能仍無法使用上次開發(fā)的宏。這時(shí)可推出excel，再次打開excel，就可以使用上次

2、開發(fā)的宏了。宏的錄制 錄制宏的目的是為了調(diào)用宏，調(diào)用宏的目的是為了讓電腦解決一系列重復(fù)的問題，并形象地表示出來。所以在錄制宏之前必須先解決上面的問題。先舉一個(gè)簡(jiǎn)單的例子。已知方程： 求該方程在不同 a、b值時(shí)的解，求取a=0-10 間隔 0.5，b=1、2、3的共213個(gè)解。03003bxax宏的錄制 錄制前，先根據(jù)要解決的問題，建立 excel 表格，如下：這里，x、a、b的初值可以任意給定，一般建議給定1為好，F(xiàn)項(xiàng)是公式，和VB編程相當(dāng)。為了保證錄制正確的宏，一般先將需要錄制的宏操作一遍。此問題是單變量求解問題。宏的錄制 單變量求解：點(diǎn)擊“數(shù)據(jù)”，“假設(shè)分析”，“單變量求解”，如圖3所示。

3、 圖3 系統(tǒng)彈出圖系統(tǒng)彈出圖4：宏的錄制目標(biāo)單元格選D2, 目標(biāo)值輸入0，可變單元格選A2,點(diǎn)擊“確定”，可得A2單元格的值為為6.64453，為方程解，為方程解，如果小于點(diǎn)過多，如果小于點(diǎn)過多，可將可將A列向右拉，就會(huì)增加小于點(diǎn)列向右拉，就會(huì)增加小于點(diǎn)。 圖圖4宏的錄制 做完了前面的準(zhǔn)備工作，將X值先恢復(fù)到1，點(diǎn)擊圖1中的“錄制宏”系統(tǒng)彈出圖5。 默認(rèn)宏名為默認(rèn)宏名為Macro1,輸輸入快捷鍵為入快捷鍵為a,點(diǎn)擊點(diǎn)擊“確確定定”，將原來的單變量，將原來的單變量方程求解過程重復(fù)一遍。方程求解過程重復(fù)一遍。圖5宏的錄制 得到方程解后，再點(diǎn)擊“開發(fā)工具”，點(diǎn)擊停止錄制，完成一個(gè)宏的完整錄制過程。圖

4、6宏的調(diào)用 單擊“開發(fā)工具”，點(diǎn)擊“插入”，出現(xiàn)“表單控件”，點(diǎn)擊“表單控件”中的第一個(gè)按鈕（窗體按鈕），出現(xiàn)”+”號(hào)。圖7宏的調(diào)用將出現(xiàn)的”+”號(hào)移動(dòng)至適當(dāng)位置，如圖按鈕7（原來沒有的左上角，按住拖動(dòng)成一定大小的矩形，此時(shí)系統(tǒng)自動(dòng)產(chǎn)生“按鈕7”字樣及“指定宏”對(duì)話框，注意“7”不一定，也有可能是1、2、3，跟前面已輸入的按鈕有關(guān)。圖8宏的調(diào)用 點(diǎn)擊圖8中的“Macro1”,圖8中的“指定宏”轉(zhuǎn)變成圖9，表明剛才插入的“按鈕7”已和我們錄制的宏“Macro1”綁定，點(diǎn)擊確定出現(xiàn)圖10圖9將圖10中的“按鈕7”3個(gè)字刪除，輸入“單變量方程求解”7個(gè)字，如無法操作時(shí)，可通過點(diǎn)擊右鍵，在功能菜單單中

5、選擇“編輯文字”，光標(biāo)移出按鈕，點(diǎn)擊，出現(xiàn)圖11。圖10圖11 注意圖10，11中的a,b的系數(shù)已變?yōu)?，3，這時(shí)我們?cè)谡{(diào)試單變量方程計(jì)算過程中改變的數(shù)字，不會(huì)影響宏的應(yīng)用，現(xiàn)在我們可以任意改變a,b的值，當(dāng)然需要保證方程：03003bxax 有實(shí)數(shù)根，否則無解。，現(xiàn)輸入a=10,b=2，點(diǎn)擊“單變量方程計(jì)算”，見圖12。如果宏的應(yīng)用到此為止，那么，還沒有充分發(fā)揮宏的威力，只不過減少了一些步驟，可以方便地求出但變量方程的解，但是如果能夠?qū)赀M(jìn)行編輯，那么，宏的威力將帶給你無窮的威力。圖12宏的編輯 回到原問題：已知方程： 求該方程在不同 a、b值時(shí)的解，求取a=0-10 間隔 0.5，b=1、

6、2、3的共213個(gè)解。如果利用圖12中的宏的調(diào)用，需要改變63次a、b的值，同時(shí)點(diǎn)擊63次“單變量方程求解”按鈕，同時(shí)需要及時(shí)將所求的根轉(zhuǎn)移至其他單元格，否則所求的根就會(huì)被新根替代。03003bxax宏的編輯 在EXCEL的宏編輯中，最關(guān)鍵的要素是單元格的定義， EXCEL表中的每一格可以用CELLS(I,J)定義，如圖12中的X的根3.0858所在的單元格為CELLS(2,1),2表示第二行，1表示第A列,依次類推，可以定義所有的單元格。圖12宏的編輯 現(xiàn)在要利用宏的編輯，直接產(chǎn)生63個(gè)根，并將對(duì)應(yīng)的數(shù)據(jù)放在第5行至第67行，第A列至第D上，其程序編輯過程如下。圖12宏的編輯圖13單擊圖13

7、中的“查看宏”，彈出圖14圖14宏的編輯點(diǎn)擊圖14中的編輯，彈出圖15圖15 刪除綠色部分代碼，有時(shí)會(huì)有紅色部分代碼，這是一些宏錄制過程中多余或錯(cuò)誤的操作記錄，刪除。并按題目要求編輯宏代碼。宏的編輯Sub Macro1()For j = 1 To 3 For i = 1 To 21 Cells(2, 2) = (i - 1) * 0.5 a的值用循環(huán)語句來賦值 Cells(4 + (j - 1) * 21 + i, 1) = (i - 1) * 0.5 a的值新放置位置 Cells(2, 3) = j b的值用循環(huán)語句來賦值 Cells(4 + (j - 1) * 21 + i, 2) = j

8、 b的值新放置位置 Range(D2).GoalSeek Goal:=0, ChangingCell:=Range(A2) 方程求解 Cells(4 + (j - 1) * 21 + i, 3) = Cells(2, 1) 將方程的根保存起來 Cells(4 + (j - 1) * 21 + i, 4) = Cells(2, 4) 將方程的偏差保存起來 Next iNext jEnd Sub宏的編輯編輯好上述代碼后，返回EXCEL界面，單擊“單變量方程計(jì)算”按鈕，不到1秒鐘系統(tǒng)自動(dòng)計(jì)算好63個(gè)方程的根，見圖16。圖16宏的編輯圖12345678910024681012xx谷物發(fā)酵穩(wěn)態(tài)模擬優(yōu)化求

9、解器Sub Macro3()Dim iDim j For i = 0.1 To 1 Step 0.1 Range(C6).Select ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 ActiveCell.FormulaR1C1 = 0.3 Cells(6, 3) = i Range(D14).Select ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 For j = 1 To 8 Solv

10、erSolve (True) Next j Cells(22 + i * 10, 14) = i Cells(22 + i * 10, 15) = Cells(22, 15) Cells(22 + i * 10, 16) = Cells(9, 3) Cells(22 + i * 10, 17) = Cells(10, 3) Cells(22 + i * 10, 18) = Cells(11, 3) ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 ActiveWin

11、dow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Next iEnd Sub谷物發(fā)酵穩(wěn)態(tài)模擬優(yōu)化求解器摩擦系數(shù)宏求解Sub Macro2() Dim i, j 改變 粗糙度For i = 0 To 10 Cells(2, 2) = Cells(6, 2) + Cells(8, 2) * i 改變雷諾數(shù) For j = 0 To 20 Cells(2, 1) = Cells(6, 1) + Ce