セルの色付けvba excel

Question

私は、フォーマットがow、ol、odではない列Dのすべてのセルを色付けするコードを記述しようとしました。しかし、私のコードは、セルの値に関係なく、すべてのセルを着色しました。私はあなたの助けが必要です。

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は着色されません。他のすべての場合において、それは可能である。

これがあなたが探しているものでない場合は、あなたの目標を詳述してください。