vba - 多次粘贴时不显示颜色

Question

如果有人可以帮助我确定此代码的问题，我将不胜感激。假设每次在 A 列中插入“西类牙”时，代码都会将 O 列变为红色。即如果 A2 是“西类牙”，则 O2 变为红色。当我在 A2 中编写“西类牙”时，下面的代码完成了这项工作。但是，如果我将“西类牙”从 A2 复制粘贴到 A10，那么只有在 O 列中变为红色的单元格将是单元格 O2。

为什么细胞 O3 到 O10 也不会变红？我怎样才能做到这一点？必须赞赏。

Sub columnO(d As Long)

    If Cells(d, "A") = "Spain" And Cells(d, "O") = "" Then
    Cells(d, "O").Interior.Color = RGB(255, 0, 0)
    Else
    Cells(d, "O").Interior.Color = RGB(1000, 1000, 1000)
    End If

    End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Range("A5:O10"), Target) Is Nothing Then
       columnO Target.row
    End If

Answer 1

作为替代方案，这可以通过使用条件格式在没有任何 VBA 的情况下完成。使用公式创建新的条件格式规则并应用于所需的范围(在本例中为 $O$2:$O$10):

=AND($A2="Spain",$O2="")