请问这段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
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@