根据另一个单元格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循环的信息。