如果有人能帮我找出这段代码的问题,我将不胜感激。假设每次在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