|
F G H I 〜 AM
7
8 有or無 日付 名
9
10 〃
11
12 〃
F列は結合7:8 9:10 のように結合してます。有無べつに色わけ(I7〜am8)しています。
で、F7以降セルに有か無が入っているまでマクロを実行するようにしたいのですがどこにemptyを入れればいいかよくわかりませんので教えて下さい。
f7:f8の色は変えることができたので とりあえず乗せておきます。
Sub 色変え()
If range("f7,f8").Value = "無" Then
range("I7:AM8").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
ElseIf range("f7,f8").Value = "有" Then
range("f7:am8").Select
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
ElseIf range("f7,f8").Value = "" Then
range("f7:am8").Select
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
End If
End Sub
|
|