颜色两个单元格表现出VBA

Question

我的代码当前在范围(" n2：n86"(中颜色值，每当我在该范围内插入一个值时。但是，每当在范围内输入一个值时，我想添加颜色或突出显示上述列范围(" M2：M86"(的代码(" N2：N86"(。

时

因此，例如，如果我将N2中的1个值放置，我希望N2和M2都被突出显示为红色。谢谢

Dim rCell As Range
Dim inRng As Range
Dim rRng As Range
Set myRng = Range("N2:N86")
myRng.Locked = True
If Range("R4") < 0 Then
    For Each rCell In myRng
        If rCell.Value > 0 Then
            If rRng Is Nothing Then
                Set rRng = rCell
            Else
                Set rRng = Application.Union(rRng, rCell)
            End If
        End If
    Next
    rRng.Locked = False
    rRng.Interior.ColorIndex = 3
End If

Answer 1

我不是100％确定您的要求，但这是您可以测试的东西。(n列中的单元格值变化时，两列中的颜色行(

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("N2:N86"), Target) Is Nothing Then
    Target.Interior.ColorIndex = 36
    Target.Offset(, -1).Interior.ColorIndex = 36
End If
Application.EnableEvents = True
End Sub