萌二筆記分類目錄及書單

一、If-Then語句

說明：條件判斷，如果......那么......例1：A2單元格的成績大于等于60，則彈出對話框提示“及格”。

Sub 判斷成績()

If Range("A2") >= 60 Then MsgBox "及格"

End Sub

操作過程：

二、If-Then-Else語句

說明：條件判斷，如果......那么......否則......例2：使用按鈕（窗體控件）判斷A2單元格的成績，大于等于60則彈出對話框提示“及格”，否則彈出對話框提示“不及格”。

Sub 判斷成績()

If Range("a1") >= 60 Then

MsgBox "及格"

Else

MsgBox "不及格"

End If

End Sub

操作過程：

三、For-Next語句

例3：判斷A列成績，在B列對應單元格一次性返回全部結果，大于等于60“及格”，反之“不及格”。

①常規公式法：

②VBA法，for-next循環語句：

說明：循環語句，定義變量i（第一個要判斷的單元格行號為2，最后一個行號為15）

Sub 判斷成績()

Dim i As Integer

For i = 2 To 15 Step 1

If Range("A" & i) >= 60 Then

Range("B" & i).Value = "及格"

Else

Range("B" & i).Value = "不及格"

End If

Next i

End Sub

操作過程：

四、Do-While語句

還是上面例3。

③VBA法，do-while循環語句：

說明：定義變量i（初始值為2），A列單元格不為空時按條件“判斷成績”，遇到空格則停止判斷。這樣不需要看最后一行是多少，增減數據不用更改代碼。

Sub 判斷成績3()

Dim i As Integer

i = 2

Do While Range("A" & i).Value <> ""

If Range("A" & i) >= 60 Then

Range("B" & i).Value = "及格"

Else

Range("B" & i).Value = "不及格"

End If

i = i + 1

Loop

End Sub

操作過程：

把文件“另存為”EXCEL啟用宏的工作簿(*.xlsm)：

【原文鏈接：EXCEL中VBA基礎語句(1)】

總結

以上是生活随笔為你收集整理的vba 不等于_EXCEL中VBA基础语句(1)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。