VBA 作業済み　チェック　判定

VBA

Sub colorCheck() ' ・値が入っていなかったら　塗りつぶしなし　・入っていたら　「黄色」

Dim i As Long

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If Range("H" & i).Value = "" Then

Range("B" & i).Interior.ColorIndex = 0 ' 塗りつぶしなし

Else

Range("B" & i).Interior.ColorIndex = 6 ' 黄色にする　完了の目印

End If

Next i

End Sub