|
こんにちは。かみちゃん です。
>H6〜AM6には1〜31までの数が順に入っていて今日の日付分があった場合、
>例えばH6が今日の日付と一緒だったならH列のセルの色を変える。みたいなマクロを作りたかったのです。
追加の質問とはいえ、そういうことは、最初にはっきり書いてくださいね。
場合によっては、別案が使える場合がありますから。
ということで、Loopを使うのであれば、次のようになります。
Sub Macro1()
Dim ColumnNo As Integer
ColumnNo = 8
Columns("H:AM").Interior.ColorIndex = xlNone
Do Until Cells(6, ColumnNo).Value = ""
If Cells(6, ColumnNo).Value = Day(Now()) Then
Columns(ColumnNo).Interior.ColorIndex = 15
Exit Do
End If
ColumnNo = ColumnNo + 1
Loop
MsgBox "終了〜"
End Sub
ところが、今回の場合は、Loopを使わなくても、次のようなコードで十分かと思います。
Sub Macro2()
Columns("H:AM").Interior.ColorIndex = xlNone
Columns(7 + Day(Now())).Interior.ColorIndex = 15
MsgBox "終了〜"
End Sub
|
|