TOP > Up > Today
名前: elm BBSから
質問:http://pasokoma.jp/47/lg474787#474834
携帯:http://pasokoma.jp/m?num=474834&ope=v
--
hachitaroさんは No.474787「Excelでカレンダー」で書きました。
マクロを使用してはどうでしょう?
1週目のシートのA1に日付を入力して、下記マクロを実行
(予めA列の書式は日付の表示形式を設定しておく)
Sub カレンダー作成()
Dim x As Integer
Dim y As Integer
Dim z As Integer
For y = 1 To 47
ActiveSheet.Name = Format(y & "週")
Range("A2").Activate
For x = 1 To 6
ActiveCell.Value = Range("A1") + x
ActiveCell.Offset(1, 0).Activate
Next x
Worksheets(y & "週").Copy After:=Worksheets(y & "週")
ActiveSheet.Name = Format(y + 1 & "週")
Range("A1").Activate
For z = 7 To 13
ActiveCell.Value = Range("A1") + z
ActiveCell.Offset(1, 0).Activate
Next z
Next y
End Sub
6〜10行は1週目のシートに「1週」と名前を付けて、2日目以降の日付を入力。
12行〜は1週目シートをコピーして、「2週」と名前を付けて日付を入力。
これを47回繰り返して、48週分のシートを作ります。
--
== 掲示板URL: http://pasokoma.jp/bbs ==
配信の停止: http://pasokoma.jp/taikai
本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today