Excelでカレンダー
◇-?Excelでカレンダー-hachitaro-04/08-01:20(283)-No.474787 ┗?!Re:Excelでカレンダー...-elm-04/09-03:03(258)-No.474834
▲このページのトップに戻る
▲このページのトップに戻る
| 474787 | Excelでカレンダー | hachitaro | 2009/04/08-01:20 |
メーカー名：自作PC 自分で製作 OS名：WindowsXp Professional パソコン名：自作機 トラブル現象：ソフトの使い方がわからない -- Excelで、1シートに1週間のカレンダー（予定表）を作りたいと思います。つまり、約48週分のシートが必要になります。 それを毎年作成したいので、できるだけ簡単に作成できるようにしたいと考えています。 理想は、1週目のシートに初日の年月日を入れると残りのシートにも自動で日付が入ると良いなと思っています。 (1)かつては、オートフィルで48週分の日付を入れてましたが、面倒な作業でした。 (2)DATE関数で週の最初の日付だけを入れるというのも試してみましたが、やはり、48週分は面倒です。 (3)調べているのですが、うまくいかないこととして、 1週目は、A1が4月１日だとすれば、A2は=A1+1、A3は=A2+1・・・と7日分作成しました。 次に1週目のシートをコピーして2週目を作成し、A1に=１週目!A1+7、同じく、A2は=A1+1、A3は=A2+1・・ と7日分作成し、２週目まではうまくいきました。 しかし、次に、２週目のシートをコピーして、３週目のシートを作成しても参照先は、１週目（絶対参照）になり、 まるっきり２週目と同じものになってしまいます。 一つ前のシートのA1の年月日を参照してコピーができれば良いのですが、どうすればできるのでしょうか？ 話しがまとまらなくなりましたが、上記の方法以外でなくてもいいので、何か簡単に週カレンダーができるアイディアがありましたら、 教えていただきたいと思います。 | |||
▲このページのトップに戻る
| 474834 | Re:Excelでカレンダー | elm | 2009/04/09-03:03 |
記事番号474787へのコメント hachitaroさんは No.474787「Excelでカレンダー」で書きました。 マクロを使用してはどうでしょう？ １週目のシートの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 ６〜１０行は１週目のシートに「１週」と名前を付けて、２日目以降の日付を入力。 １２行〜は１週目シートをコピーして、「２週」と名前を付けて日付を入力。 これを４７回繰り返して、４８週分のシートを作ります。 | |||
何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決 ○：参考になった ×：参考にならなかった ！：アドバイスあり
| 参考 | 回数 | 投稿日時 | 何か一言 |
|---|---|---|---|
| 検索 | 投稿あり | 2009/05/06-10:57 | 左記[投稿あり]クリックにて検索(逆リンク調査)します同様の質問へのリンクとなっています |
