質問: Range("P" & rowNo).Value 'セルに色を付ける End Sub’ コードも掲載しておきます。
回答: 下記のように変更すれば良いとうことでしょうか? それとも違うことをやりたいのでしょうか? ※既存のプログラムを理解していれば容易に到達できる気がしますが。 ``` If (enddate - Date) < 60 Then Range("O" & Format(i)).Interior.Color = RGB(200, 200, 200) Else Range("O" & Format(i)).Interior.Color = RGB(元の色) End If '色なしならこっちかな Range("O" & Format(i)).Interior.ColorIndex = xlNone ```