Question

我尝试编写代码来为D列中的所有单元格着色，这些单元格的格式不是ow，ol，od。然而，无论细胞值如何，我的代码都会着色所有细胞。我可能需要你的帮助。

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个连续单元格具有值＆＃34; OW＆＃34;，＆＃34; OL＆＃34;

您的代码检查（我甚至测试过它）和＆＃34; OA＆＃34;。例如，如果D1 =＆＃34; OW＆＃34; ，D2 =＆＃34; OL＆＃34;和D3 =＆＃34; OA＆＃34;然后细胞D1不会变色。在其他任何情况下都会。

如果这不是你想要的，那么试着详细说明你的目标。

细胞着色vba excel

1 个答案: