TOP > Up > Today


Date:  Thu, 9 Apr 2009 03:03:47 +0900
From:  no@ann.co.jp
Subject:  [pasml 319113] Re: Excel でカレンダー
To:  pasml@ann.co.jp
Message-Id:  <200904081803.n38I3lZZ020657@ns.pas2.jp>
X-Mail-Count: 319113

名前: 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 &amp; &quot;週&quot;)
Range(&quot;A2&quot;).Activate
For x = 1 To 6
ActiveCell.Value = Range(&quot;A1&quot;) + x
ActiveCell.Offset(1, 0).Activate
Next x
Worksheets(y &amp; &quot;週&quot;).Copy After:=Worksheets(y &amp; &quot;週&quot;)
ActiveSheet.Name = Format(y + 1 &amp; &quot;週&quot;)
Range(&quot;A1&quot;).Activate
For z = 7 To 13
ActiveCell.Value = Range(&quot;A1&quot;) + 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