09-程序流程控制—>if語句的介紹

excel交流

1、if—then語句
　　這個(gè)句式相當(dāng)于中文里面的“如果.......那么”。
　　格式：
　　　　if  邏輯表達(dá)式 then
                              語句塊
             end if
   　解釋：如果邏輯表達(dá)式的結(jié)果為true，則執(zhí)行語句塊里的所有語句，否則執(zhí)行end if后面的語句。語句塊可以是一句指令或多條指令，也可以調(diào)用一個(gè)或多個(gè)過程，當(dāng)然，也可以為空，就是沒有語句。
　　如：要判斷A1單元格是否已輸入內(nèi)容，設(shè)計(jì)程序：

1. 
   
2. Sub test1()
   
3.   If [a1] = "" Then
   
4.       MsgBox "A1單元格沒有輸入任何內(nèi)容！"
   
5.   End If
   
6. End Sub
   

復(fù)制代碼

　2、 if—then—else語句　　
　　這個(gè)語句相當(dāng)于中文里面的“如果......那么......否則......”句式。
　　格式：

　　　　if  邏輯表達(dá)式 then
                              語句塊1
　　　　else
                              語句塊2
              end if

       解釋：如果邏輯表達(dá)式的結(jié)果為true，則執(zhí)行語句塊1里的所有語句，如果邏輯表達(dá)式的結(jié)果為Flase則執(zhí)行語句塊2里的所有語句。
　　如：要判斷A1單元格是否已輸入內(nèi)容，設(shè)計(jì)程序：

1. 
   
2. Sub test2()
   
3.   If [a1] = "" Then
   
4.         MsgBox "A1單元格沒有輸入任何內(nèi)容！"
   
5.   Else
   
6.         MsgBox "A1單元格已經(jīng)輸入了內(nèi)容！"
   
7.   End If
   
8. End Sub
   

復(fù)制代碼

　3、if—then—elseif語句
　　這就相當(dāng)于中文里面的若“如果…那么…否則如果…那么…否則”語句，當(dāng)然，可以有多句“否則如果.......”
　　格式：
　　　　If  邏輯表達(dá)式1 Then  
                              語句塊1
                  ElseIf  邏輯表達(dá)式2  Then
                              語句塊2
                  ElseIf  邏輯表達(dá)式3Then
                              語句塊3
                   …
                 Else
                             語句塊n
                 Eed If
　　解釋：若邏輯表達(dá)式1的結(jié)果為True，則執(zhí)行語句塊1，接著繼續(xù)執(zhí)行EndIf后面的語句；若邏輯表達(dá)式1的結(jié)果為False，則檢查邏輯表達(dá)式2的結(jié)果，若為True則執(zhí)行語句塊2，接著繼續(xù)執(zhí)行EndIf后面的語句.......一直到所有結(jié)果的條件都不滿足時(shí)，才執(zhí)行Else后面的語句塊n。
　　如：要判斷A1單元格的數(shù)是否能被2、3、5其中之一整除，設(shè)計(jì)程序：

1. 
   
2. Sub test3()
   
3.    If [a1] = "" Then
   
4.        MsgBox "A1單元格沒有輸入任何內(nèi)容！"
   
5.    ElseIf [a1] Mod 2 = 0 Then
   
6.        MsgBox "A1單元格的數(shù)能被2整除！"
   
7.    ElseIf [a1] Mod 3 = 0 Then
   
8.        MsgBox "A1單元格的數(shù)能被3整除！"
   
9.    ElseIf [a1] Mod 5 = 0 Then
   
10.        MsgBox "A1單元格的數(shù)能被5整除！"
    
11.    Else
    
12.        MsgBox "A1單元格的數(shù)不能被2、3、5其中之一整除！"
    
13.    End If
    
14. End Sub
    

復(fù)制代碼