我想A2:C2
根据cell的值更改单元格的背景颜色D2
。
这也适用于第3、4和5行中的相对像元。
如果单元格中的D#
值为1,我希望使用颜色x。如果值为2,我想要颜色y,如果值为3,我想要颜色z。
如果有所不同,则目标范围(A2:D6
)将采用表格格式。
我希望在打开工作簿时执行此子例程。我知道在哪里放置该子例程,所以不要出汗指导我。
我已经使用条件格式完成了此操作,但是最好有一些VBA可以将其复制到以后的报表中。
您应该使用条件格式,但这可以:
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句