根据另一个单元格excel 2016的单元格颜色更改单元格颜色

Question

我有一个独特的情况，我在=$H$7:$H$76 范围内应用条件格式，现在应用了三个格式条件，如下图所示。

现在，我想要的是，根据=$H$7:$H$76 范围的颜色，=$g$7:$g$76 范围的颜色应该会发生变化

我怀疑是否有任何方法可以通过 vba 或任何其他技术来做到这一点？ 如果有的话，请建议，怎么做？ 谢谢。

Answer 1

这是你需要的代码

Sub PaintCells()
Dim r As Range

For Each r In Range("H7:H76")
    Select Case r.Interior.Color
        Case 1 '' replace numbers 1, 2, 3 and 4 with the desired color here and below, it may be set up as RGB(), number or keyword
            r.Offset(0, -1).Interior.Color = RGB(0, 0, 0) ' this is black
        Case 2
            r.Offset(0, -1).Interior.Color = 65535 'this is yellow
        Case 3
            r.Offset(0, -1).Interior.Color = vbGreen ' this is green
        Case 4
            r.Offset(0, -1).Interior.Color = 4 ' you may add as much conditions as you want
    End Select
Next

End Sub

为了更好地理解你将不得不阅读Ranges、Select Case和For...Next循环。