引用单元格的颜色（Excel，VBA）

Question

如果我有一列参考数字，并且我想在右键单击后自动为参考单元着色，那么如何在VBA中参考参考单元。在示例中，我在[O]列中具有引用的值。在[O4]，我的值是[= $ G $ 12]。如果我单击[O4]，我想将其与加湿单元G12一起着色。我还要为[G12]上方的单元格上色是一个额外的步骤。我试图将其插入公式中：

REPLACE（SUBSTITUTE（FORMULATEXT（$ O $ 4），“ $”，“”），1,1，“”）] >>

这会在没有等号的普通excel表格中返回参考单元格[G12]，但脚本无法使用它。

谢谢您的支持！

Select Case Target.Address
        Case "$O$4" '<~ if cell A1 is clicked, highlight cells C5-C9 yellow
          Cancel = True
          If .Range("O4,G11:G12").Interior.Color = RGB(255, 153, 0) Then
             .Range("O4,G11:G12").Interior.Color = RGB(255, 255, 255)
             .Range("O4,G11:G12").Font.Bold = False
        Else: .Range("O4,G11:G12").Interior.Color = RGB(255, 153, 0)
              .Range("O4,G11:G12").Font.Bold = True
          End If
End Select

如果我有一列参考数字，并且我想在右键单击后自动为参考单元着色，那么如何在VBA中参考参考单元。在例子中，我有...

Answer 1

请尝试这种方法，请：

Answer 2

您可以使用Precedents对象的Precedents属性：