[[20040518154753]]　『カレンダーの作成』（hide）　ページの最後に飛ぶ

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

VBAを使ってカレンダーを作るにはどうしたらいいのでしょうか？
条件としては年月をInputBoxで入力し、あらかじめセルに日付を入力していてその日付
の下に曜日を表示するものです。
誰か教えてください。お願いします。

 詳しい仕様が分からないので、サンプルを掲載しておきます。
 適当に変更して利用して下さい。

 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 Day(CDate(Format(myDay & "/" & i, "yyyy/mm/dd")) + 1) = "1" Then Exit For
    Next

    Columns.AutoFit
 End Sub

  (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20040518154753]] 『カレンダーの作成』（hide） ページの最後に飛ぶ

[[20040518154753]]　『カレンダーの作成』（hide）　ページの最後に飛ぶ