[EXCELマクロ] シートタブに自動で色をつけるには？

シートが、1日～31日まであり、シート内は31枚とも全て同じで、
例えば、セルA1　に、日付（平成19年7月18日と表示）があったとき、
その日付を参照して、土曜日なら青色、日曜日なら赤色、というふうに
自動で31枚全てのタブの色を変更してくれるようにしたいのですが、
可能でしょうか？
また可能であれば、どのようにマクロを組めばいいでしょうか？

Excel2003を使用しています。
よろしくお願い致します。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2007/07/18 10:55

全シートのセルA1に日付が入っている場合でのサンプル。

Sub test()
　　Dim sh As Worksheet
　　Dim hi As Integer
For Each sh In Worksheets
　　With sh
　　　　　Select Case Weekday(.Range("A1").Value, vbMonday)
　　　　　　　　　Case 6
　　　　　　　　　.Tab.ColorIndex = 41
　　　　　　　　　Case 7
　　　　　　　　　.Tab.ColorIndex = 3
　　　　　　　　　Case Else
　　　　　　　　　.Tab.ColorIndex = xlColorIndexNone
　　　　　End Select
　End With
Next
End Sub
日付以外が入っている場合は、修正が必要かもしれません。
ご参考程度として下さい。

この回答へのお礼

ありがとうございました。

今のところ日付しか入っていないので、
修正もなく、上記のマクロで希望どうりの色分けをすることができました。

お礼日時：2007/07/18 13:05