您的位置：首页> 正文

请问这段VBA代码该怎么理解,帮忙加个注释啊,看不懂啊

发布网友发布时间：2024-10-24 09:52

共1个回答

热心网友时间：2024-10-27 19:20

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'这段代码表示设置A6：B6字体颜色是红色
Sub Macro1()
    Range("A6:B6").Select
    Selection.Font.ColorIndex = 3
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'这段代码是判断B2：B6单元格内的值是否和Range("b7", Range("b7")里面的值相等。如果不相同
'就把该单元格的字体颜色变成红色
Sub 按钮3_单击()
    Dim rngB As Range
    Dim rngTemp As Range
    Dim blnIsExist As Boolean
    For Each rngTemp In Range("b7", Range("b7").End(xlDown).Address)
        blnIsExist = False
        For Each rngB In Range("b2:b6")
            If rngB.Value = rngTemp.Value Then
                blnIsExist = True
            End If
        Next rngB
        If blnIsExist = False Then
            rngTemp.Font.ColorIndex = 3
        End If
    Next rngTemp
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

请问这段VBA代码该怎么理解,帮忙加个注释啊,看不懂啊

最新推荐

猜你喜欢

热门推荐