|
Application.EnableEvents = False ’イベントを発生させなくする
Cnt = Range("b1").CurrentRegion.Rows.Count ’B列のデータが入力されている行数を数える
For i = 1 To Cnt ’iに1ずつ足してCntになるまで繰り返す
If Cells(i, 2) = "0" And Not Cells(i, 3) = "0" Then ’i行のB列が0で、i行のC列が0以外のものはi行のA列に◎を入力
Cells(i, 1) = "◎"
ElseIf Not Cells(i, 2) = "0" And Not Cells(i, 2) = "0" Then ’i行のB列もC列も0以外のものはi行のA列に◎を入力
Cells(i, 1) = "△"
ElseIf Cells(i, 2) = "0" And Cells(i, 3) = "0" Then ’i行のB列もC列も0の場合は☆を入力
Cells(i, 1) = "☆"
End If
Next i
Application.EnableEvents = True ’設定を戻す
|
|