VBA-根據特定單元格中的值更改單元格的顏色

Question

我想根據單元格D2的值更改單元格A2:C2的背景顏色。

這也適用於第 3、4 和 5 行中的相關單元格。

如果單元格D#值為 1，我想要顏色 x。 如果值為 2，我想要顏色 y，如果值為 3，我想要顏色 z。

如果有所不同，目標范圍 ( A2:D6 ) 將采用表格格式。

我希望在打開工作簿時執行此子例程。 我知道把那個子程序放在哪里，所以不要費力地指導我如何。

我已經使用條件格式完成了這項工作，但是如果有一些 VBA 可以將面食復制到未來的報告中，那就太好了。

Answer 1

您應該使用條件格式，但這有效：

Sub ColorMeElmo()
   Dim i As Long, r1 As Range, r2 As Range

   For i = 2 To 5
      Set r1 = Range("D" & i)
      Set r2 = Range("A" & i & ":C" & i)
      If r1.Value = 1 Then r2.Interior.Color = vbRed
      If r1.Value = 2 Then r2.Interior.Color = vbBlue
      If r1.Value = 3 Then r2.Interior.Color = vbYellow
   Next i
End Sub