VBA突出显示单元格多个条件

Question

我试图在电子表格中创建一个代码，当满足单元格 E13="Country" 和 F13="State" 上的 2 个不同条件时，将突出显示单独的单元格范围 (A28:D28)，F13 具有验证依赖项关于 E13 上的值，它也有数据验证。到目前为止，我有这段代码，我认为这根本没有意义。

Set A = Range("E13")
    If Not Intersect(Target, A) Is Nothing Then
    If A = "Country" Then
        For Each A In Range("E13")
        If A.Offset(0, 1) = "State" Then
        A.Interior.ColorIndex = 5
        End If
    End If
End If

此代码将用于跨多个部分的多个组合以突出显示多个范围，但我想我可以设法复制粘贴和更改范围，我很抱歉说我的 VBA 技能不是那么好。 当在一组单独的范围上满足某些条件时，所有这些都在返回 MsgBoxs 的代码之后进行。

谢谢！

Answer 1

这是完成工作的非常基本的代码行：

Sub temp()

    If Range("E13").Value = "Country" And Range("F13").Value = "State" Then Range("A28:D28").Interior.ColorIndex = 5

End Sub

如果您需要在 E13 更改时运行代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E13")) Is Nothing Then
    If Range("E13").Value = "Country" And Range("F13").Value = "State" Then Range("A28:D28").Interior.ColorIndex = 5
    'Copy and past the line above with the other criteria you may need
End If

End Sub

如何在运行填充颜色之前清除整个颜色范围并检查E13或F13是否发生变化：

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E13:F13")) Is Nothing Then
    Range("A28:D38").Interior.Pattern = xlNone 'replace A28:D38 with your range 
    If Range("E13").Value = "Country" And Range("F13").Value = "State" Then Range("A28:D28").Interior.ColorIndex = 5
    'Copy and past the line above with the other criteria you may need
End If

End Sub