单元格着色vba excel

Question

我尝试编写代码为 D 列中所有非 ow,ol,od 格式的单元格着色。但是，无论单元格值如何，我的代码都为所有单元格着色。我可能需要你的帮助。

Data Column D

Sub colour()

For Z = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(Z, 4) = "OW" And Cells(Z + 1, 4) = "OL" And Cells(Z + 2, 4) = "OA" Then
    Else
    Cells(Z, 4).Interior.ColorIndex = 7
  End If
Next Z

End Sub

Answer 1

If Cells(Z, 4) = "OW" And Cells(Z + 1, 4) = "OL" And Cells(Z + 2, 4) = "OA"

您的代码检查（我什至测试过）列中的 3 个连续单元格是否具有值“OW”、“OL”和“OA”。例如，如果 D1 = "OW" ， D2 = "OL" 和 D3 = "OA" 则单元格 D1 不会被着色。在其他所有情况下，它都会。

如果这不是您想要的，请尝试详细说明您的目标。