![6d3ff25dd22d199ddf7fbc09ac1bb6de.png](https://i-blog.csdnimg.cn/blog_migrate/b109362f6aab7a395c9527ea5fc2a7fe.jpeg)
萌二笔记分类目录及书单
一、If-Then语句
说明:条件判断,如果......那么......例1:A2单元格的成绩大于等于60,则弹出对话框提示“及格”。
Sub 判断成绩()
If Range("A2") >= 60 Then MsgBox "及格"
End Sub
操作过程:
![2785850a44b75ede81aee108d9918510.gif](https://i-blog.csdnimg.cn/blog_migrate/ea9c4b9e5ad982dab1d036ed21d318f8.gif)
二、If-Then-Else语句
说明:条件判断,如果......那么......否则......例2:使用按钮(窗体控件)判断A2单元格的成绩,大于等于60则弹出对话框提示“及格”,否则弹出对话框提示“不及格”。
Sub 判断成绩()
If Range("a1") >= 60 Then
MsgBox "及格"
Else
MsgBox "不及格"
End If
End Sub
操作过程:
![4bb5ac3863cc6dcb32799dd1dfb27fed.gif](https://i-blog.csdnimg.cn/blog_migrate/9820805886ee0489571fb6eb53c38dd2.gif)
三、For-Next语句
例3:判断A列成绩,在B列对应单元格一次性返回全部结果,大于等于60“及格”,反之“不及格”。
![1cd7484b9e34b682686308aa3201ca87.png](https://i-blog.csdnimg.cn/blog_migrate/39ffcf13f20fe58b6c57f7a33533216c.jpeg)
①常规公式法:
![3a0645aa2500b140ddc79773a338f226.png](https://i-blog.csdnimg.cn/blog_migrate/ad9a3a4150552b7a73c0bf726d76f8fc.jpeg)
②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
![635a77bff6c1ea6fee8309d2fbd96a48.png](https://i-blog.csdnimg.cn/blog_migrate/7415a4630b61ca30aab2c0d39efba86c.jpeg)
操作过程:
![7236fc2ac4f7195b99deb2edb1b07734.gif](https://i-blog.csdnimg.cn/blog_migrate/5c5f228f8fb0494817fcfe465da87b38.gif)
四、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
![2801bb22fe09ef759a0d35d2d1510426.png](https://i-blog.csdnimg.cn/blog_migrate/bff957d5f7c1ba0484f5bae54d7d26d5.jpeg)
操作过程:
![3283446563a3f77e08875bef7d9fa106.gif](https://i-blog.csdnimg.cn/blog_migrate/ec30bf3790a1b6c22326b628e9802347.gif)
![fdf0b02c8368228b86ab1e30ee766927.gif](https://i-blog.csdnimg.cn/blog_migrate/814825bc14a2e9dfd581198d11cc5497.gif)
把文件“另存为”EXCEL启用宏的工作簿(*.xlsm):
![c2a15257bb00139bd923e5f35fc93640.png](https://i-blog.csdnimg.cn/blog_migrate/7d7d2b988afba8b610703906d51ef772.jpeg)
【原文链接:EXCEL中VBA基础语句(1)】
![7a997efe0e6e125c58a4030e720afc4a.png](https://i-blog.csdnimg.cn/blog_migrate/52b27be02acd08d9332a7213862d0605.jpeg)