vba - 根据单元格值VBA更改范围颜色

Question

我试图让我的代码正常工作，因此如果用户在单元格 D19 内键入“1”，则单元格 F2 和 F3 的背景颜色变为红色，如果他们键入“2”，则颜色变为黄色。我不明白为什么我的代码不起作用，有什么帮助。谢谢。

Sub ColorColumns()
   Dim r1 As Range, r2 As Range
      Set r1 = Range("D19")
      Set r2 = Range("F2:F3")
      If r1.Value = 1 Then r2.Interior.Color = vbRed
      If r1.Value = 2 Then r2.Interior.Color = vbYellow
End Sub

Answer 1

我还建议使用条件格式。但是，要回答所问的问题:将其放入具有这些范围的工作表的工作表模块中。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D19")) Is Nothing Then
        Select Case Range("D19").Value
            Case 1
                Range("F2:F3").Interior.Color = vbRed
            Case 2
                Range("F2:F3").Interior.Color = vbYellow
        End Select
    End If
End Sub

我已经测试了这段代码，它运行良好。如果 D19 的值想要去除着色既不是 1 也不是 2，那么您可以包含 Case Else声明也。