vba if語(yǔ)句為判斷語(yǔ)句。根據(jù)條件的值,可使用 If...Then...Else 語(yǔ)句運(yùn)行指定的語(yǔ)句或一個(gè)語(yǔ)句塊。If...Then...Else 語(yǔ)句可根據(jù)需要嵌套多級(jí)。
但是,為了代碼的可讀性,建議使用其余的語(yǔ)句,比如 Select Case 語(yǔ)句而不使用多層嵌套的vba中的 If...Then...Else 語(yǔ)句。
vba if語(yǔ)句用法解釋?zhuān)?/STRONG>
當(dāng)條件為 True 時(shí),若只要執(zhí)行一個(gè)語(yǔ)句,則可以使用單行的 If...Then...Else 語(yǔ)法。
使用 If...Then...Else 語(yǔ)句可以定義兩個(gè)可執(zhí)行的語(yǔ)句塊:其中一個(gè)塊會(huì)在條件為T(mén)rue 時(shí)執(zhí)行;而另一個(gè)塊會(huì)在條件為 False 時(shí)執(zhí)行。
vba if語(yǔ)句執(zhí)行流程如下:
vba if語(yǔ)句實(shí)例剖析
vba if語(yǔ)句練習(xí)題以論壇的練習(xí)題《VBA IF語(yǔ)句答題練習(xí)》來(lái)加以解釋。
此題共兩段代碼:第一段:
Sub 隨機(jī)數(shù)()
[a1].Value = Int(Rnd * 20)
[c1].Value = Int(Rnd * 20)
End Sub
解釋?zhuān)篈1、C1單元格的值為隨時(shí)生成的20以?xún)?nèi)的整數(shù)。Rnd是VBA中的隨機(jī)函數(shù),也可以使用excel工作表中的公式來(lái)取代上一段代碼,如下:
Sub 隨機(jī)數(shù)()
Range("A1,c1").Formula = "=Int(Rand() * 20)"
End Sub
第二段:
Sub 答題()
If [e1].Value = "" Then
MsgBox "還沒(méi)有輸入答案"
Else
End If
If [e1].Value = [a1].Value + [c1].Value Then
MsgBox "答對(duì)了,你真棒!"
Else
MsgBox "答錯(cuò)了,繼續(xù)努力!"
End If
Call 隨機(jī)數(shù)
End Sub
代碼解釋?zhuān)旱谝粋(gè)IF語(yǔ)句:如果E1單元格為空,提示消息框:還沒(méi)有輸入答案。
第二個(gè)IF語(yǔ)句:如果E1的值等于A1+C1,提示消息框:答對(duì)了,你真棒!,否則返回答錯(cuò)了,繼續(xù)努力。最后用call關(guān)鍵字調(diào)用第一段代碼。
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴(lài)品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:vba if語(yǔ)句解釋和實(shí)例
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139216012.html