當前位置:編程學習大全網 - 編程語言 - Excel 關於VBA中IF多條件語句的用法,虛心求教

Excel 關於VBA中IF多條件語句的用法,虛心求教

1、if語句的含義:if語句字面意思就是如果的意思,如果條件為真,那麽就執行if語句裏面的程序,這個程序,壹般指then後面的,壹個if語句可以沒有end if,但絕對不能沒有then,這壹點是要註意的。

2、if……then……結構

該結構壹般用於比較簡單的判斷語句執行,下面以壹段實例程序來講解。

實例:如果第壹個單元格不為空,那麽就彈出壹個提示框“單元格不為空”。

程序: ?

Sub 判斷語句()

If Cells(1, 1) <> "" Then MsgBox "單元格不為空"

End Sub

3、if……then……end if結構

該結構用於單選擇判斷語句執行,具體用法看下面實例。

實例:對於第壹列的第壹行到第十行單元格,作如下判斷,如果單元格為空值了那麽在相應的第二列單元格輸出“VBA教研室”。

程序:

Sub 判斷語句()

Dim i As Integer

For i = 1 To 100

If Cells(i, 1) = "" Then

Cells(i, 2) = "VBA教研室"

Exit For

End If

Next

End Sub

4、if ……then……else……end if結構

該結構用於事件只有兩個可能的情況先選擇的判斷語句,具體見下面實例分析。

實例:對於第壹列的第1,2行兩個單元格做判斷,如果單元格值為空,則在相應的第二列單元格輸出false,否則輸出Ture。

程序:

Sub 判斷語句()

Dim i As Integer

For i = 1 To 2

If Cells(i, 1) = "" Then

Cells(i, 2) = "false"

Else

Cells(i, 2) = "True"

End If

Next

End Sub

5、if ……then……elseif……then……else……end if結構

該結構用於多條件判斷語句執行,具體見下面實例分析

實例:對三名同學的成績作出判斷,大於等於80分的為優秀;60到80之間的為及格;0到60分之間的為不及格;0分為考試無效。

程序:

Sub 判斷語句()

Dim i As Integer

For i = 2 To 7

If Cells(i, 2) >= 80 Then

Cells(i, 3) = "優秀"

ElseIf Cells(i, 2) < 80 And Cells(i, 2) >= 60 Then

Cells(i, 3) = "及格"

ElseIf Cells(i, 2) < 60 And Cells(i, 2) > 0 Then

Cells(i, 3) = "不及格"

Else

Cells(i, 3) = "考試無效"

End If

Next

End Sub

6、if語句嵌套使用

if語句可以靈活的嵌套使用的,如下面這套程序

Sub 判斷語句()

Sub 判斷語句()

If Cells(1, 1) <> "" Then

If Cells(1, 1) = "VBA教研室" Then

MsgBox "OK!"

Else

MsgBox "NO!"

End If

End If

End Sub

參考資料:

百度經驗-Excel VBA中if語句的用法

  • 上一篇:豐田大佬發話:皇冠將走向“國際化”,賣了13年的陸巡明年換代
  • 下一篇:VB編程步步高-表單篇
  • copyright 2024編程學習大全網