学习日志 | VBA判断语句IF

评论296字数 175阅读0分35秒阅读模式

判断VBA代码

学习日志 | VBA判断语句IF

Sub 判断()
    Dim i
    Worksheets(2).Activate '激活表2
    For i = 4 To 8 '在4行到8行循环
        If Range("A" & i) = "有" And Range("B" & i) >= 20 Then
            Range("c" & i) = "符合"
        Else
            Range("c" & i) = "不符合"
        End If
        
    Next
    MsgBox "执行完毕!" '对话框
        
End Sub

部分文章来源于网络  如有侵权请告知本人立即删除!

站长邮箱447800330@qq.com

匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定