• ベストアンサー

エクセルで一日の予定表を作っています

エクセルで一日の予定表を作っています 今は1日づつ日付を入れて印刷していますが 1ヶ月分を連続して印刷、日付を印刷するたびに進ませ1か月分をボタン1つで印刷したいのですが 良い方法をご指南ください。

質問者が選んだベストアンサー

  • ベストアンサー
  • ziziwa1130
  • ベストアンサー率21% (329/1547)
回答No.1

一例です。まず、セルA1に日付(日付シリアル値)が入っているものとします。以下のマクロを実行すれば良いですよ。 Sub Macro1() Dim I As Integer, Y As Integer, D As Integer Range("A1").Select Y = Year(ActiveCell) M = Month(ActiveCell) If M = 2 Then If Y Mod 400 = 0 Then D = 29 Else If Y Mod 100 = 0 Then D = 28 Else If Y Mod 4 = 0 Then D = 29 Else D = 28 End If End If End If Else If M = 4 Or M = 6 Or M = 9 Or M = 11 Then D = 30 Else D = 31 End If End If For I = 1 To 12 ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveCell.FormulaR1C1 = ActiveCell + 1 Next End Sub

tompapa56
質問者

お礼

ありがとうございました 色々と試行錯誤、悩んでいましたが  おかげさまですっきり解決いたしました

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excelで予定表をつくるとき

    Excelで予定表を作るとき曜日や日付を入力せずに土日のところだけ色がかわる年間予定表はつくれますか?

  • エクセルで年間予定表

    エクセルで年間予定表をつくっていますが、日付や祭日は年月を指定して関数で変更できるようにしていますが予定も年月指定で表示できるようにしたいのですが・・・・ 表は1ヶ月予定表です。 簡単なやり方がありましたら教えて下さい。 宜しくお願いします。

  • エクセルで表を作っていますがある曜日の日付を

    エクセルで表を作っていますがある曜日の日付を 欄に連続入力する方法はありますか?1週間置きの金曜日の日付を欄に連続入力したいのですが。

  • エクセルの表をひとつにまとめるにはどうしたらいいでしょうか?

    よろしくお願いします。 複数あるエクセルの表を日付順に1ページにまとめたいのですが、効率のいい方法があったら教えてください。 具体的にお話しますと、エクセルに日付、乗車駅、下車駅が表になってあります。 表は全部で20行しかないのですが、毎日電車を利用するため一番上に新しい日付と乗車駅、下車駅が表示されていきます。 そして、20行からはみ出ていく古いデーターは消えていきます。 このデーターは毎日見るわけでなく、2~3日に一回です。 データーを取ったエクセルデーターが12月分だけで12ファイルほどあります。 2~3日に一回ファイルを保存するので、重複する日付がでてきます。 なので、今まではコツコツ日付を照らし合わせて、ファイルからファイルへコピペをしていましたが、このようなデーターを日付順に1ページにするとしたら、他に効率の良い方法はあるでしょうか? また、新しいデーター(日付)は上に足されていくのですが、1ページ(1か月分)にまとめた時には上は1~31日という順番にしたいのですが、日付だけ昇順になり、乗車駅、下車駅は一緒に移動してくれませんでした。 この方法も教えてください。 よろしくお願いします。

  • エクセルで関数を使って予定表を作りたいのですが・・・

    エクセル2000で予定表を作成する課題があります。 C3に西暦、D3に月、A6~A36まで日にちを入力しています。 (1)B6~B36まで曜日、C列には祝日の何の日かを表示させるにはどうしたらいいですか? (2)土曜、日曜、祝日は日付、曜日の文字を赤色にするにはどうしたらいいですか? (3)常に2か月分のカレンダーを表示させるにはどうしたらいいですか? お願いします。

  • エクセル予定表のリンク

    エクセルで年間予定表シートと月予定表シートをリンクさせています。 年間シートは,A3から1年分の日付が縦1列に並んでおり,A1に西暦を入力すると曜日が変化する万年歴になっています。B列にその日の予定を入力しています。 月予定表シートは,4月がA列B列,5月がC列D列,・・・と並んでおり,日付も予定も年間シートからリンクしています。 ここまでは,「=年間予定表!B7」というような式で十分だったのですが,2月が閏の場合に月予定表の3月1日のセルが年間予定表の2月29日を参照してしまいます。 年間予定表のA337が3月1日の場合はそのまま参照し,2月29日の場合は次のセルを参照する関数はないでしょうか。

  • Excel「別表の休日表に基づいて予定表に網掛け」

    Excelで仕事の予定表をつくっています。 予定表自体は、あるセルに西暦と月を入れると 自動で日付などが表示されるようにつくってあります。 別シートに休日一覧表をつくり、それに準じて予定表の該当日付行に 丸ごと網掛けをするようにしたいのですが、 うまく条件付書式が設定できません。 「別シートの表に一致する日付がある場合、その行に網掛け」という事なのだと思いますが、 ・・・表の名前定義を使うところでしょうか? よろしくお願いいたします。

  • Excelで月間予定表を作成したのですが。。。困っています(>_<)

    ヘルパーさんの月間予定表を作成しました。 全体予定表シートにすべての予定を入力し、 別シートで担当者別、もしくは同一シートで担当者別に予定表を表示できないものかと。。 担当者別で配布が必要なため。。。 全体予定表シートの作りは、 カレンダータイプ(日始まり土曜日)で、 A5~C5(結合セル)→曜日(日曜日) A7~C7(結合セル)→日付(1日) A8~A20行先(リスト選択・別のマスタシート参照)  B8~B20→時間(手入力) C8~C20→担当(リスト選択・別のマスタシート参照) ↑上記が1日分とみなし、予定が12回分まで入力できる形で作成し、横に7日分、下に5日分 合計35日分で1ヶ月分の月間予定表です。 何か方法があれば、教えてください。 よろしくお願いいたしますm(__)。

  • 印刷時に週間予定表の日付を自動で

    お世話になります。Excel2010です。単純な週間予定表です。手書きで使っています。 Sheet1に1枚だけ作り、例えば半年分30枚印刷などしています。画像 このような表に、日付を自動で印刷することはできないでしょうか。 印刷開始ページの最初の日付をどこかに書いておくと日付が表示され、 2枚目を印刷するときには翌週の日付が印刷される、というようなことです。 差し込み印刷など調べてみましたが、順次日付が変わる辺りがわかりませんでした。 日付を自動で表示させる方法はなんとなくわかりましたが、 それだと1年分、Sheet60まであらかじめ作らなければなりませんよね? 1Sheetに60週分つなげて作ることはできそうですが、A4最大に印刷しているので、 うまくページが分かれてくれるのかどうか。改ページでやればできるのか。 もし方法があれば、1Sheetで印刷時に日付が変わるといいのですが。 祝日は自分で印をつけますからなくてもいいです。 マクロはわかりません。

  • 巡回予定表を作りたい

    エクセル2007で表を作り訪問管理?をしています。 毎月決まったお宅を檀家周りします。 一覧表に訪問した日付けを記入していき、記入できていない所をメモして持ち出しそれを見て巡回しています。 この持ち出すメモを自動的に一覧表にしたいのですが難しくない方法でやり方を教えて下さい。 訪問済みの所は日付けを入れるのですが、 if文で日付けのセルが空欄ならば未訪問のセルに檀家名を残し、日付が入っていれば未訪問のセルから該当のお宅を消す。までは簡単にできますが、未訪問の一覧表にするのに訪問済みのセルを詰めて未訪問だけの所を連続して表示したいのです。 考え方や式だけでも教えていただければありがたいです。よろしくお願いいたします。

このQ&Aのポイント
  • ブラザープリンターのインク交換でLc-12は合っていますか?
  • お使いの環境や接続方法について詳しく教えてください。
  • 関連するソフトや電話回線の種類も教えてください。
回答を見る