|
皆さんの意見を参考にして下記きの記述で動作しました。
ありがとうございます。
Private Sub Worksheet_Calculate()
Dim i As Integer
Dim j As Integer
For j = 2 To 58
For i = 2 To 17
If Cells(18, j) = "" And Cells(i, j) = "" Then Cells(i, j).Interior.ColorIndex = xlColorIndexNone
Next i
For i = 2 To 17
If Cells(18, j) = "" And Cells(i, j) <> "" Then Cells(i, j).Interior.ColorIndex = 35
Next i
For i = 2 To 17
If Cells(18, j) <> "" And Cells(i, j) <> "" Then Cells(i, j).Interior.ColorIndex = xlColorIndexNone
Next i
For i = 2 To 17
If Cells(18, j) <> "" And Cells(i, j) = "" Then Cells(i, j).Interior.ColorIndex = 6
Next
Next
注)条件が若干違っています。
条件1.A1が未記入(ブランクセル)→A18
条件2.A2が未記入(ブランクセル)→A2〜A17
又よろしくお願いいたします。
|
|