資源描述：
《excelvba編程24學(xué)時(shí)教程06》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、ExcelVBA編程24學(xué)時(shí)教程06本文由water335貢獻(xiàn)pdf文檔可能在WAP端瀏覽體驗(yàn)不佳。建議您優(yōu)先選擇TXT，或下載源文件到本機(jī)查看。6學(xué)時(shí)條件邏輯在前一學(xué)時(shí)中，學(xué)習(xí)了如何提示用戶(hù)進(jìn)行響應(yīng)并且將用戶(hù)的響應(yīng)保存在變量中。這些變量可以用來(lái)干什么呢？你將用這些響應(yīng)來(lái)進(jìn)行判斷。你需要做的是如何處理用戶(hù)對(duì)你的提示可能做出的各種響應(yīng)。通過(guò)條件邏輯可以做到這一點(diǎn)，而這正是本學(xué)時(shí)的重點(diǎn)。本學(xué)時(shí)的重點(diǎn)包括：?如何控制應(yīng)用程序的流程?使用If語(yǔ)句?使用SelectCase語(yǔ)句?怎樣顯示Excel內(nèi)置的對(duì)
2、話(huà)框6.1控制應(yīng)用程序的流程新術(shù)語(yǔ)當(dāng)應(yīng)用程序顯示一個(gè)包括“是”和“否”按鈕的消息框時(shí)，需要決定：如果用戶(hù)選擇了“是”，應(yīng)用程序應(yīng)當(dāng)執(zhí)行什么操作；如果用戶(hù)選擇了“否”又應(yīng)當(dāng)如何。換句話(huà)說(shuō)，應(yīng)當(dāng)根據(jù)用戶(hù)的選擇執(zhí)行不同的語(yǔ)句。通過(guò)條件語(yǔ)句可以實(shí)現(xiàn)這種功能。條件語(yǔ)句可以判斷一個(gè)條件是True還是False，并且根據(jù)判斷的結(jié)果執(zhí)行一條或者多條語(yǔ)句。你將發(fā)現(xiàn)可能會(huì)在你的應(yīng)用程序中頻繁地使用條件語(yǔ)句。新術(shù)語(yǔ)在條件語(yǔ)句中，你將使用條件邏輯來(lái)控制程序流程。條件邏輯可以根據(jù)變量值、用戶(hù)的響應(yīng)、函數(shù)計(jì)算或者設(shè)置的屬性
3、選擇不同的程序路徑。當(dāng)使用條件邏輯時(shí)，需要先創(chuàng)建一個(gè)檢測(cè)判斷，在根據(jù)檢測(cè)的結(jié)果讓程序執(zhí)行不同的操作。新術(shù)語(yǔ)例如，如果過(guò)程顯示一個(gè)輸入框，并提示用戶(hù)輸入他的工作區(qū)域，通過(guò)條件邏輯可以實(shí)現(xiàn)：如果用戶(hù)工作在南部地區(qū)，程序執(zhí)行一組語(yǔ)句；如果用戶(hù)工作在北部地區(qū)，程序會(huì)執(zhí)行另一組語(yǔ)句。另一個(gè)例子是，如果你有一張包括所有雇員創(chuàng)造的銷(xiāo)售額的工作表，可以創(chuàng)建一個(gè)過(guò)程，根據(jù)雇員在公司工作的時(shí)間計(jì)算他們的傭金。如果一個(gè)雇員的工作時(shí)間少于兩年，則他可以得到2%的傭金；如果雇員的工作時(shí)間大于兩年，那么他可以得到4%的傭金
4、。要進(jìn)行這類(lèi)判斷，需要使用比較運(yùn)算符。用比較運(yùn)算符進(jìn)行檢測(cè)的結(jié)果或者為T(mén)rue（意味著滿(mǎn)足測(cè)試條件）或者為False（意味著不滿(mǎn)足檢測(cè)條件）。通過(guò)對(duì)某些Excel函數(shù)（例如If函數(shù)）的使用，你也許已經(jīng)對(duì)比較運(yùn)算符很熟悉了。表6-1列出了可用的比較運(yùn)算符。有時(shí)，需要檢測(cè)某個(gè)數(shù)值是否滿(mǎn)足多重條件。例如，你也許需要檢測(cè)一個(gè)雇員的工作時(shí)間是否超過(guò)5年，并且是否是管理人員，以計(jì)算他的休假時(shí)間。要做到這樣，可以用邏輯運(yùn)算符來(lái)合并需要檢測(cè)的條件。表6-2列出了VBA中的邏輯運(yùn)算符。表6-1比較運(yùn)算符比較運(yùn)算符
5、=<>>>=<<=意義等于不等于大于大于或等于小于小于等于第6學(xué)時(shí)條件邏輯使用51表6-2邏輯運(yùn)算符邏輯運(yùn)算符AndOrNotXor意義如果兩個(gè)條件為真，則結(jié)果為真如果兩個(gè)條件中有一個(gè)為真，則結(jié)果為真如果條件表達(dá)式為假，則結(jié)果為真；如果條件表達(dá)式為真，則結(jié)果為假如果一個(gè)且僅有一個(gè)條件為真，則結(jié)果為真；如果兩個(gè)條件均為真，或均為假，則結(jié)果為假6.2If語(yǔ)句將學(xué)習(xí)的第一條條件語(yǔ)句是If……Then……Else……語(yǔ)句。這條語(yǔ)句的語(yǔ)法如下：IfconditionThen[statements][Els
6、eIfcondition-nThen[elseifstatements]……[Else[elsestatements]]EndIfcondition是語(yǔ)法中必須的一部分，可在此處輸入要檢測(cè)的條件。如果條件檢測(cè)的結(jié)果是True，將執(zhí)行在Then之后的語(yǔ)句。如果希望在同一條If語(yǔ)句中檢測(cè)第二個(gè)條件，可以向If語(yǔ)句中添加一條或者多條ElseIf從句。VBA首先檢測(cè)If后的條件，如果檢測(cè)的結(jié)果是False，VBA將檢測(cè)ElseIf從句后的條件，并重復(fù)檢測(cè)，直至某個(gè)條件檢測(cè)的結(jié)果為T(mén)rue。如果所有條件檢
7、測(cè)的結(jié)果都是False，VBA將執(zhí)行EndIf語(yǔ)句，除非具有Else從句。如果If語(yǔ)句中所有條件檢測(cè)的結(jié)果都是False，那么將執(zhí)行可選的Else從句后的語(yǔ)句。在下面的練習(xí)中，將學(xué)習(xí)使用If語(yǔ)句：1）打開(kāi)一個(gè)新的工作簿。2）創(chuàng)建一個(gè)如圖6-1所示的工作表。圖6-1本工作表是新的應(yīng)用程序的基礎(chǔ)52使用中文Excel2000編程24學(xué)時(shí)教程www:6ago.net3）在單元格B6中輸入公式B3+B4以計(jì)算總額。4）按下Alt+F11鍵打開(kāi)VisualBasic編輯器。5）用鼠標(biāo)右鍵單擊工程資源管理器
8、中的“ThisWorkbook”。6）選擇“插入”“模塊”向工作簿中添加一個(gè)模塊。、7）創(chuàng)建一個(gè)新的名為Shipping的過(guò)程。8）為Shipping過(guò)程輸入如下代碼：DimiResponseAsIntegeriResponse=MsgBox("Doesthissaleneedtobeshipped?",vbYesNo)IfiResponse=vbYesThenRange("B4").Value=10ElseRange("B4").Value=0EndIf9）回到在第二步中創(chuàng)建的工作表。10）向
