Excel中的宏應(yīng)用講解學(xué)習(xí)課件

Excel中的宏應(yīng)用Excel中的宏應(yīng)用Excel2007中找到宏組件2003中的宏組件可在“工具”欄下找到，而在2007版中需。要在“開發(fā)工具”欄下找到。見圖1。

圖1Excel2007中找到宏組件2003中的宏宏的安全性設(shè)置

如果不對宏的安全性進行設(shè)置，你所錄制的宏可能無法應(yīng)用。這時，需要點擊圖1中的“宏安全性”，彈出圖2，進行設(shè)置。選“宏設(shè)置”，點擊“啟用所有宏”，點擊確定。有時可能仍無法使用上次開發(fā)的宏。這時可推出excel，再次打開excel，就可以使用上次開發(fā)的宏了。宏的安全性設(shè)置如果不對宏的安全性進行設(shè)置，你所宏的錄制

錄制宏的目的是為了調(diào)用宏，調(diào)用宏的目的是為了讓電腦解決一系列重復(fù)的問題，并形象地表示出來。所以在錄制宏之前必須先解決上面的問題。先舉一個簡單的例子。已知方程：

求該方程在不同a、b值時的解，求取a=0-10間隔0.5，b=1、2、3的共21×3個解。宏的錄制錄制宏的目的是為了調(diào)用宏，調(diào)用宏的目的宏的錄制

錄制前，先根據(jù)要解決的問題，建立excel

表格，如下：這里，x、a、b的初值可以任意給定，一般建議給定1為好，F(xiàn)項是公式，和VB編程相當(dāng)。為了保證錄制正確的宏，一般先將需要錄制的宏操作一遍。此問題是單變量求解問題。宏的錄制錄制前，先根據(jù)要解決的問題，建立excel宏的錄制

單變量求解：點擊“數(shù)據(jù)”，“假設(shè)分析”，“單變量求解”，如圖3所示。圖3

系統(tǒng)彈出圖4：宏的錄制單變量求解：點擊“數(shù)據(jù)”，“假設(shè)分析”，“單變量求宏的錄制目標(biāo)單元格選D2,目標(biāo)值輸入0，可變單元格選A2,點擊“確定”，可得A2單元格的值為6.64453，為方程解，如果小于點過多，可將A列向右拉，就會增加小于點。圖4宏的錄制目標(biāo)單元格選D2,目標(biāo)值輸入0，可變單元格選A2,宏的錄制

做完了前面的準(zhǔn)備工作，將X值先恢復(fù)到1，點擊圖1中的“錄制宏”系統(tǒng)彈出圖5。

默認(rèn)宏名為Macro1,輸入快捷鍵為a,點擊“確定”，將原來的單變量方程求解過程重復(fù)一遍。圖5宏的錄制做完了前面的準(zhǔn)備工作，將X值先恢復(fù)到1，點擊圖1宏的錄制

得到方程解后，再點擊“開發(fā)工具”，點擊停止錄制，完成一個宏的完整錄制過程。圖6宏的錄制得到方程解后，再點擊“開發(fā)工具”，點擊停止錄制，完宏的調(diào)用

單擊“開發(fā)工具”，點擊“插入”，出現(xiàn)“表單控件”，點擊“表單控件”中的第一個按鈕（窗體按鈕），出現(xiàn)”+”號。圖7宏的調(diào)用單擊“開發(fā)工具”，點擊“插入”，出現(xiàn)“表單控件”宏的調(diào)用將出現(xiàn)的”+”號移動至適當(dāng)位置，如圖按鈕7（原來沒有的左上角，按住拖動成一定大小的矩形，此時系統(tǒng)自動產(chǎn)生“按鈕7”字樣及“指定宏”對話框，注意“7”不一定，也有可能是1、2、3，跟前面已輸入的按鈕有關(guān)。圖8宏的調(diào)用將出現(xiàn)的”+”號移動至適當(dāng)位置，如圖按鈕7（原來沒有宏的調(diào)用

點擊圖8中的“Macro1”,圖8中的“指定宏”轉(zhuǎn)變成圖9，表明剛才插入的“按鈕7”已和我們錄制的宏“Macro1”綁定，點擊確定出現(xiàn)圖10圖9宏的調(diào)用點擊圖8中的“Macro1”,圖8中的將圖10中的“按鈕7”3個字刪除，輸入“單變量方程求解”7個字，如無法操作時，可通過點擊右鍵，在功能菜單單中選擇“編輯文字”，光標(biāo)移出按鈕，點擊，出現(xiàn)圖11。圖10將圖10中的“按鈕7”3個字刪除，輸入“單變量方程求解”7個

圖11注意圖10，11中的a,b的系數(shù)已變?yōu)?，3，這時我們在調(diào)試單變量方程計算過程中改變的數(shù)字，不會影響宏的應(yīng)用，現(xiàn)在我們可以任意改變a,b的值，當(dāng)然需要保證方程：有實數(shù)根，否則無解。，現(xiàn)輸入a=10,b=2，點擊“單變量方程計算”，見圖12。

圖11注意圖10，11中的a,b的系數(shù)已變?yōu)?，如果宏的應(yīng)用到此為止，那么，還沒有充分發(fā)揮宏的威力，只不過減少了一些步驟，可以方便地求出但變量方程的解，但是如果能夠?qū)赀M行編輯，那么，宏的威力將帶給你無窮的威力。圖12如果宏的應(yīng)用到此為止，那么，還沒有充分發(fā)揮宏的威力，只不過減宏的編輯回到原問題：已知方程：

求該方程在不同a、b值時的解，求取a=0-10間隔0.5，b=1、2、3的共21×3個解。如果利用圖12中的宏的調(diào)用，需要改變63次a、b的值，同時點擊63次“單變量方程求解”按鈕，同時需要及時將所求的根轉(zhuǎn)移至其他單元格，否則所求的根就會被新根替代。宏的編輯回到原問題：已知方程：宏的編輯

在EXCEL的宏編輯中，最關(guān)鍵的要素是單元格的定義，EXCEL表中的每一格可以用CELLS(I,J)定義，如圖12中的X的根3.0858所在的單元格為CELLS(2,1),2表示第二行，1表示第A列,依次類推，可以定義所有的單元格。圖12宏的編輯在EXCEL的宏編輯中，最關(guān)鍵的要素是宏的編輯

現(xiàn)在要利用宏的編輯，直接產(chǎn)生63個根，并將對應(yīng)的數(shù)據(jù)放在第5行至第67行，第A列至第D上，其程序編輯過程如下。圖12宏的編輯現(xiàn)在要利用宏的編輯，直接產(chǎn)生63個根，并將對應(yīng)的宏的編輯圖13單擊圖13中的“查看宏”，彈出圖14圖14宏的編輯圖13單擊圖13中的“查看宏”，彈出圖14圖14宏的編輯點擊圖14中的編輯，彈出圖15圖15刪除綠色部分代碼，有時會有紅色部分代碼，這是一些宏錄制過程中多余或錯誤的操作記錄，刪除。并按題目要求編輯宏代碼。宏的編輯點擊圖14中的編輯，彈出圖15圖15刪除綠色宏的編輯SubMacro1()Forj=1To3Fori=1To21Cells(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'b的值新放置位置

Range("D2").GoalSeekGoal:=0,ChangingCell:=Range("A2")'方程求解

Cells(4+(j-1)*21+i,3)=Cells(2,1)'將方程的根保存起來

Cells(4+(j-1)*21+i,4)=Cells(2,4)'將方程的偏差保存起來

NextiNextjEndSub宏的編輯SubMacro1()宏的編輯編輯好上述代碼后，返回EXCEL界面，單擊“單變量方程計算”按鈕，不到1秒鐘系統(tǒng)自動計算好63個方程的根，見圖16。圖16宏的編輯編輯好上述代碼后，返回EXCEL界面，單擊“單變量方宏的編輯圖12宏的編輯圖12

谷物發(fā)酵穩(wěn)態(tài)模擬優(yōu)化求解器

SubMacro3()DimiDimjFori=0.1To1Step0.1Range("C6").SelectActiveWindow.ScrollColumn=2ActiveWindow.ScrollColumn=1ActiveCell.FormulaR1C1="0.3"Cells(6,3)=iRange("D14").SelectActiveWindow.ScrollColumn=2ActiveWindow.ScrollColumn=3ActiveWindow.ScrollColumn=4Forj=1To8SolverSolve(True)Nextj

Cells(22+i*10,14)=iCells(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=3ActiveWindow.ScrollColumn=2ActiveWindow.ScrollColumn=1ActiveWindow.ScrollColumn=2ActiveWindow.ScrollColumn=3ActiveWindow.ScrollColumn=4ActiveWindow.ScrollColumn=3ActiveWindow.ScrollColumn=2ActiveWindow.ScrollColumn=1NextiEndSub

谷物發(fā)酵穩(wěn)態(tài)模擬優(yōu)化求解器

SubMacro3()Ce谷物發(fā)酵穩(wěn)態(tài)模擬優(yōu)化求解器

谷物發(fā)酵穩(wěn)態(tài)模擬優(yōu)化求解器

摩擦系數(shù)宏求解SubMacro2()Dimi,j'改變粗糙度Fori=0To10Cells(2,2)=Cells(6,2)+Cells(8,2)*i

'改變雷諾數(shù)

Forj=0To20Cells(2,1)=Cells(6,1)+Cells(8,1)*jCells(2+j,6)=Cells(2,1)'單變量方程求解

Range("C2").GoalSeekGoal:=0,ChangingCell:=Range("D2")Cells(j+2,i+7)=Cells(2,4)//保存摩擦系數(shù)NextjNextiEndSub摩擦系數(shù)宏求解SubMacro2()摩擦系數(shù)宏求解摩擦系數(shù)宏求解人有了知識，就會具備各種分析能力，明辨是非的能力。所以我們要勤懇讀書，廣泛閱讀，古人說“書中自有黃金屋。”通過閱讀科技書籍，我們能豐富知識，培養(yǎng)邏輯思維能力；通過閱讀文學(xué)作品，我們能提高文學(xué)鑒賞水平，培養(yǎng)文學(xué)情趣；通過閱讀報刊，我們能增長見識，擴大自己的知識面。有許多書籍還能培養(yǎng)我們的道德情操，給我們巨大的精神力量，鼓舞我們前進。人有了知識，就會具備各種分析能力，Excel中的宏應(yīng)用講解學(xué)習(xí)課件此課件下載可自行編輯修改，僅供參考！

感謝您的支持，我們努力做得更好！謝謝此課件下載可自行編輯修改，僅供參考！

感謝您的支持，我們努力Excel中的宏應(yīng)用Excel中的宏應(yīng)用Excel2007中找到宏組件2003中的宏組件可在“工具”欄下找到，而在2007版中需。要在“開發(fā)工具”欄下找到。見圖1。

圖1Excel2007中找到宏組件2003中的宏宏的安全性設(shè)置

如果不對宏的安全性進行設(shè)置，你所錄制的宏可能無法應(yīng)用。這時，需要點擊圖1中的“宏安全性”，彈出圖2，進行設(shè)置。選“宏設(shè)置”，點擊“啟用所有宏”，點擊確定。有時可能仍無法使用上次開發(fā)的宏。這時可推出excel，再次打開excel，就可以使用上次開發(fā)的宏了。宏的安全性設(shè)置如果不對宏的安全性進行設(shè)置，你所宏的錄制

錄制宏的目的是為了調(diào)用宏，調(diào)用宏的目的是為了讓電腦解決一系列重復(fù)的問題，并形象地表示出來。所以在錄制宏之前必須先解決上面的問題。先舉一個簡單的例子。已知方程：

求該方程在不同a、b值時的解，求取a=0-10間隔0.5，b=1、2、3的共21×3個解。宏的錄制錄制宏的目的是為了調(diào)用宏，調(diào)用宏的目的宏的錄制

錄制前，先根據(jù)要解決的問題，建立excel

表格，如下：這里，x、a、b的初值可以任意給定，一般建議給定1為好，F(xiàn)項是公式，和VB編程相當(dāng)。為了保證錄制正確的宏，一般先將需要錄制的宏操作一遍。此問題是單變量求解問題。宏的錄制錄制前，先根據(jù)要解決的問題，建立excel宏的錄制

單變量求解：點擊“數(shù)據(jù)”，“假設(shè)分析”，“單變量求解”，如圖3所示。圖3

系統(tǒng)彈出圖4：宏的錄制單變量求解：點擊“數(shù)據(jù)”，“假設(shè)分析”，“單變量求宏的錄制目標(biāo)單元格選D2,目標(biāo)值輸入0，可變單元格選A2,點擊“確定”，可得A2單元格的值為6.64453，為方程解，如果小于點過多，可將A列向右拉，就會增加小于點。圖4宏的錄制目標(biāo)單元格選D2,目標(biāo)值輸入0，可變單元格選A2,宏的錄制

做完了前面的準(zhǔn)備工作，將X值先恢復(fù)到1，點擊圖1中的“錄制宏”系統(tǒng)彈出圖5。

默認(rèn)宏名為Macro1,輸入快捷鍵為a,點擊“確定”，將原來的單變量方程求解過程重復(fù)一遍。圖5宏的錄制做完了前面的準(zhǔn)備工作，將X值先恢復(fù)到1，點擊圖1宏的錄制

得到方程解后，再點擊“開發(fā)工具”，點擊停止錄制，完成一個宏的完整錄制過程。圖6宏的錄制得到方程解后，再點擊“開發(fā)工具”，點擊停止錄制，完宏的調(diào)用

單擊“開發(fā)工具”，點擊“插入”，出現(xiàn)“表單控件”，點擊“表單控件”中的第一個按鈕（窗體按鈕），出現(xiàn)”+”號。圖7宏的調(diào)用單擊“開發(fā)工具”，點擊“插入”，出現(xiàn)“表單控件”宏的調(diào)用將出現(xiàn)的”+”號移動至適當(dāng)位置，如圖按鈕7（原來沒有的左上角，按住拖動成一定大小的矩形，此時系統(tǒng)自動產(chǎn)生“按鈕7”字樣及“指定宏”對話框，注意“7”不一定，也有可能是1、2、3，跟前面已輸入的按鈕有關(guān)。圖8宏的調(diào)用將出現(xiàn)的”+”號移動至適當(dāng)位置，如圖按鈕7（原來沒有宏的調(diào)用

點擊圖8中的“Macro1”,圖8中的“指定宏”轉(zhuǎn)變成圖9，表明剛才插入的“按鈕7”已和我們錄制的宏“Macro1”綁定，點擊確定出現(xiàn)圖10圖9宏的調(diào)用點擊圖8中的“Macro1”,圖8中的將圖10中的“按鈕7”3個字刪除，輸入“單變量方程求解”7個字，如無法操作時，可通過點擊右鍵，在功能菜單單中選擇“編輯文字”，光標(biāo)移出按鈕，點擊，出現(xiàn)圖11。圖10將圖10中的“按鈕7”3個字刪除，輸入“單變量方程求解”7個

圖11注意圖10，11中的a,b的系數(shù)已變?yōu)?，3，這時我們在調(diào)試單變量方程計算過程中改變的數(shù)字，不會影響宏的應(yīng)用，現(xiàn)在我們可以任意改變a,b的值，當(dāng)然需要保證方程：有實數(shù)根，否則無解。，現(xiàn)輸入a=10,b=2，點擊“單變量方程計算”，見圖12。

圖11注意圖10，11中的a,b的系數(shù)已變?yōu)?，如果宏的應(yīng)用到此為止，那么，還沒有充分發(fā)揮宏的威力，只不過減少了一些步驟，可以方便地求出但變量方程的解，但是如果能夠?qū)赀M行編輯，那么，宏的威力將帶給你無窮的威力。圖12如果宏的應(yīng)用到此為止，那么，還沒有充分發(fā)揮宏的威力，只不過減宏的編輯回到原問題：已知方程：

求該方程在不同a、b值時的解，求取a=0-10間隔0.5，b=1、2、3的共21×3個解。如果利用圖12中的宏的調(diào)用，需要改變63次a、b的值，同時點擊63次“單變量方程求解”按鈕，同時需要及時將所求的根轉(zhuǎn)移至其他單元格，否則所求的根就會被新根替代。宏的編輯回到原問題：已知方程：宏的編輯

在EXCEL的宏編輯中，最關(guān)鍵的要素是單元格的定義，EXCEL表中的每一格可以用CELLS(I,J)定義，如圖12中的X的根3.0858所在的單元格為CELLS(2,1),2表示第二行，1表示第A列,依次類推，可以定義所有的單元格。圖12宏的編輯在EXCEL的宏編輯中，最關(guān)鍵的要素是宏的編輯

現(xiàn)在要利用宏的編輯，直接產(chǎn)生63個根，并將對應(yīng)的數(shù)據(jù)放在第5行至第67行，第A列至第D上，其程序編輯過程如下。圖12宏的編輯現(xiàn)在要利用宏的編輯，直接產(chǎn)生63個根，并將對應(yīng)的宏的編輯圖13單擊圖13中的“查看宏”，彈出圖14圖14宏的編輯圖13單擊圖13中的“查看宏”，彈出圖14圖14宏的編輯點擊圖14中的編輯，彈出圖15圖15刪除綠色部分代碼，有時會有紅色部分代碼，這是一些宏錄制過程中多余或錯誤的操作記錄，刪除。并按題目要求編輯宏代碼。宏的編輯點擊圖14中的編輯，彈出圖15圖15刪除綠色宏的編輯SubMacro1()Forj=1To3Fori=1To21Cells(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'b的值新放置位置

Range("D2").GoalSeekGoal:=0,ChangingCell:=Range("A2")'方程求解

Cells(4+(j-1)*21+i,3)=Cells(2,1)'將方程的根保存起來

Cells(4+(j-1)*21+i,4)=Cells(2,4)'將方程的偏差保存起來

NextiNextjEndSub宏的編輯SubMacro1()宏的編輯編輯好上述代碼后，返回EXCEL界面，單擊“單變量方程計算”按鈕，不到1秒鐘系統(tǒng)自動計算好63個方程的根，見圖16。圖16宏的編輯編輯好上述代碼后，返回EXCEL界面，單擊“單變量方宏的編輯圖12宏的編輯圖12

谷物發(fā)酵穩(wěn)態(tài)模擬優(yōu)化求解器

SubMacro3()DimiDimjFori=0.1To1Step0.1Range("C6").SelectActiveWindow.ScrollColumn=2ActiveWindow.ScrollColumn=1ActiveCell.FormulaR1C1="0.3"Cells(6,3)=iRange("D14").SelectActiveWindow.ScrollColumn=2ActiveWindow.ScrollColumn=3ActiveWindow.ScrollColumn=4Forj=1To8SolverSolve(True)Nextj

Cells(22+i*10,14)=iCells(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=3ActiveWindow.ScrollColumn=2ActiveWindow.S