|
こんにちは。かみちゃん です。
>F列は結合7:8 9:10 のように結合してます。有無べつに色わけ(I7〜am8)しています。
>で、F7以降セルに有か無が入っているまでマクロを実行するようにしたいのですがどこにemptyを入れればいいかよくわかりませんので教えて下さい。
有無別に色わけというより、「無」の場合は、背景色とパターンを変え、
そうでない場合は、背景色とパターンは「自動」にするということでいいでしょうか?
Option Explicit
Sub 色変え()
Dim RowNo As Long
RowNo = 7
Do Until Range("F" & RowNo & ",F" & RowNo + 1).Value = ""
Range("I" & RowNo & ":AM" & RowNo + 1).Select
If Range("F" & RowNo & ",F" & RowNo + 1).Value = "無" Then
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Else
With Selection.Interior
.ColorIndex = xlNone
.Pattern = xlNone
End With
End If
RowNo = RowNo + 2
Loop
End Sub
|
|