|
こんばんは。
シートのレイアウトが分からないので・・・
A B C D F
1 月日 曜日 項目1 項目2 項目3 …
2 1/1 日 ・ ・ ・ …
3 1/2 月 ・ ・ ・ …
4 1/3 火 ・ ・ ・ …
5 1/4 水 ・ ・ ・ …
6 1/5 木 ・ ・ ・ …
7 1/6 金 ・ ・ ・ …
8 1/7 土 ・ ・ ・ …
9 1/8 日 ・ ・ ・ …
10 1/9 月 ・ ・ ・ …
このようになっていると仮定して
A列は、シリアルで表示でm/d、B列はWeekday関数で、表示でaaaとしているものとします。
こんな感じでしょうか?
Sub test()
Dim myR As Range
Dim r As Range
Application.ScreenUpdating = False
Set myR = Range("B2", Range("B65536").End(xlUp))
For Each r In myR
Select Case r.Value
Case 1: r.EntireRow.Interior.ColorIndex = 3
Case 7: r.EntireRow.Interior.ColorIndex = 5
End Select
Next
Application.ScreenUpdating = True
End Sub
|
|