2006-01-19 ■ 授業 メモ Dim xcell As Range For Each xcell In Range("B2:D2") If xcell.Value < Range("E2").Value Then xcell.Interior.ColorIndex = 6 Else xcell.Interior.ColorIndex = xlNone End Next xcell