I want to change the background colors of cells A2:C2
based on the value of cell D2
.
This also applies to the relative cells in rows 3,4, and 5.
If the value in cell D#
is 1, I'd like color x. If the value is 2, I'd like color y, if the value is 3, I'd like the color z.
If it makes a difference, the target range ( A2:D6
) will be in a table format.
I'd like this subroutine to execute upon opening the workbook. I know where to put that subroutine so don't sweat instructing me how.
I've done this with conditional formatting, but it'd be nice to have some VBA I can copy-pasta into future reports.
You should use Conditional formatting, but this works:
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
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.