『カレンダーの作成』（きんめい）

[[20040518154753]]『カレンダーの作成』（hide）

VBAを使ってカレンダーを作るにはどうしたらいいのでしょうか？ 

 上の質問を見ました
土曜日を青に、日曜を赤のフォントにするには？
についてお教え下さい。色々調べましたが
　1　VBAでなくてもという回答
　2　別コードの教示
　3　VBAの本で見つけられませんでした
　
　宜しくお願いします。

WindowXP
Excel2002
----
 下記の検索結果の中に合うものはあるでしょうか。（余分なもの、重複もあるでしょうけど）

【土　日　色　条件付書式】

http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%E5%9C%9F%E3%80%80%E6%97%A5%E3%80%80%E8%89%B2%E3%80%80%E6%9D%A1%E4%BB%B6%E4%BB%98%E6%9B%B8%E5%BC%8F&perpage=100&attr=&order=@uri+STRA&clip=-1

【土　日　色　マクロ】

http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%E5%9C%9F%E3%80%80%E6%97%A5%E3%80%80%E8%89%B2%E3%80%80%E3%83%9E%E3%82%AF%E3%83%AD&perpage=100&attr=&order=@uri+STRA&clip=-1

(みやほりん)(-_∂)b
----
[[20040518154753]]のVBAにフォントの色を変更する条件を追加してみました。(Hatch)
Sub Sample()
 Dim myDay As String
 Dim i As Long
 Rows("1:4").Clear
 myDay = Application.InputBox("年月を入力して下さい。　(入力例） 2003/01" _
          , "年月入力", Format(Date, "yyyy/mm"), Type:=2)
    Range("A1").Value = Format(myDay, "yyyy年")
    Range("A2").Value = Format(myDay, "mm月")
    
    For i = 1 To 31
        Cells(3, i).Value = i & "日"
        Cells(4, i).Value = Format(myDay & "/" & i, "aaa")
        '---ここから
        If Cells(4, i).Value = "土" Then
            Range(Cells(3, i), Cells(4, i)).Font.Color = vbBlue
        End If
        If Cells(4, i).Value = "日" Then
            Range(Cells(3, i), Cells(4, i)).Font.Color = vbRed
        End If
        '---ここまで
        If Day(CDate(Format(myDay & "/" & i, "yyyy/mm/dd")) + 1) = "1" Then Exit For
    Next
    Columns.AutoFit
 End Sub


----
みやほりんさん・Hatchさんありがとうございました
実はこのコード、2004年1月拝見以来の課題でしたので、
　解決してとてもうれしいです。
今後とも宜しくお願いいたします。Byきんめい