VBA FOR & IF & Select Case

最新推荐文章于 2024-01-25 22:40:51 发布

EricZHAOedu

最新推荐文章于 2024-01-25 22:40:51 发布

阅读量597

点赞数

本文链接：https://blog.csdn.net/zhaoleiedu/article/details/111311457

版权

VBA FOR & IF & Select Case

测试内容

栗子
id	course	score	MARK
JOHN	ENG	1	
MARY	MATH	59	
ERIC	CHI	65	
MIKE	PE	100

for 代码:

Sub shishi()
Dim i As Integer
Range("d2:d10").ClearContents   '清除内容
For i = 2 To 10 Step 2  '步长2
    If Range("a" & i) = "" Then
        Exit For    '如果满足某个条件退出循环
    Else
        Range("d" & i) = "not empty"
    End If
Next
End Sub

if 代码:
一般if和for循环联合使用
Sub shi2()
Dim i As Integer
For i = 2 To 5
    If Range("c" & i) > 60 And Range("c" & i) < 99 Then
        Range("d" & i) = "及格啦"
    ElseIf Range("c" & i) = 100 Then
        Range("d" & i) = "满分耶"
    Else:
        Range("d" & i) = "要加油哦"
    End If
Next
End Sub

也可以通过select case来实现
Sub shi3()
Dim i As Integer
For i = 2 To 5
    Cells(i, 5).ClearContents
    Select Case Cells(i, 3)
        Case 60 To 99
            Cells(i, 4) = "及格啦"
        Case 100
            Cells(i, 4) = "满分耶"
        Case Else   '注意case else的语法
            Cells(i, 4) = "要加油哦"
    End Select
Next
End Sub