vba if語句為判斷語句。根據(jù)條件的值，可使用 If...Then...Else 語句運(yùn)行指定的語句或一個語句塊。If...Then...Else 語句可根據(jù)需要嵌套多級。
但是，為了代碼的可讀性，建議使用其余的語句，比如 Select Case 語句而不使用多層嵌套的vba中的 If...Then...Else 語句。
vba if語句用法解釋：
當(dāng)條件為 True 時，若只要執(zhí)行一個語句，則可以使用單行的 If...Then...Else 語法。
使用 If...Then...Else 語句可以定義兩個可執(zhí)行的語句塊：其中一個塊會在條件為True 時執(zhí)行；而另一個塊會在條件為 False 時執(zhí)行。
vba if語句執(zhí)行流程如下：
vba if語句實(shí)例剖析
vba if語句練習(xí)題以論壇的練習(xí)題《VBA IF語句答題練習(xí)》來加以解釋。
此題共兩段代碼：第一段：
Sub 隨機(jī)數(shù)()
[a1].Value = Int(Rnd * 20)
[c1].Value = Int(Rnd * 20)
End Sub
解釋：A1、C1單元格的值為隨時生成的20以內(nèi)的整數(shù)。Rnd是VBA中的隨機(jī)函數(shù)，也可以使用excel工作表中的公式來取代上一段代碼，如下：
Sub 隨機(jī)數(shù)()
Range("A1,c1").Formula = "=Int(Rand() * 20)"
End Sub
第二段：
Sub 答題()
If [e1].Value = "" Then
MsgBox "還沒有輸入答案"
Else
End If
If [e1].Value = [a1].Value + [c1].Value Then
MsgBox "答對了，你真棒！"
Else
MsgBox "答錯了，繼續(xù)努力！"
End If
Call 隨機(jī)數(shù)
End Sub
代碼解釋：第一個IF語句：如果E1單元格為空，提示消息框：還沒有輸入答案。
第二個IF語句：如果E1的值等于A1+C1，提示消息框：答對了，你真棒！，否則返回答錯了，繼續(xù)努力。最后用call關(guān)鍵字調(diào)用第一段代碼。
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(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管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.oesoe.com/
本文標(biāo)題：vba if語句解釋和實(shí)例
本文網(wǎng)址：http://www.oesoe.com/html/support/11139216012.html
相關(guān)文章
