シンプルなForループ/ Ifステートメントシナリオ

Question

私は非常に単純なことをするためにコードを工夫してきました。これに関する助けを誠実に感謝します。 「その行の「STATUS」というラベルの付いた列のセルが言う

ループを行をしている場合： Screenshot

は、私は何をしようとしています： -

シナリオ下のスクリーンショットを参照してください。 DUE SOON "を選択すると、STATUS後のセルのデータはクリアされます。これらのセルは、データがない場合は黄色になるようにフォーマットされています。交互に、 "C"がある場合、それらは灰色のままです。つまり、STATUSセルにDUE SOONがあると、空のセルの書式設定によって次の10セルが黄色に変わります。

また、 "REMAINING"列セルを使用しようとしましたが、その数が15未満であれば同じことが起こるはずです。どちらのシナリオでも動作します。

私はセルをクリアする方法と、forループを使って行をループする方法を理解していますが、このタスクは限られたプログラミングスキルよりも少し複雑です。

Answer 1

私はこれがあなたが望むことをしていると思います。

Sub Deleteif() 


Dim iCntr As Long 
Dim iLastRow As Long 
    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row 
Range("A1").Select 

For iCntr = iLastRow To 1 Step -1 
    If Cells(iCntr, "COLUMN NUMBER FOR THE COLUMN CONTAINING STATUS").Value = "DUE SOON" Then 
     ActiveCell.Select 
     ActiveCell.Offset(0, 1).Select 
     Range(ActiveCell, ActiveCell.Offset(0, 10)).Select 
     Selection.Value = "" 
     Cells(iCntr, 1).Select 
    End If 
    Next 

End Sub