[[20080926103344]]　『カレンダーの振り替え休日』（セリ) 　ページの最後に飛ぶ

『カレンダーの振り替え休日』（セリ)

 いつもこちらにはお世話になっています。

 現在データを抽出した際に該当データなしの場合も
 プリントアウトしておりますが、紙がもったいないということで
 チェックシートを作ることになりました。

 過去ログ等参考にし、休日表示もされるようにはなったのですが
 振り替え休日の設定方法ができず悩んでいます。
 (そこまでこだわらなくても・・・という感じもあるのですが、せっかくなら勉強にもなるので作ってみたいというのが本音です)

 *参照*
 過去ログ　
[[20030921090345]]『曜日を自動で』
 サイト 
http://www.eva.hi-ho.ne.jp/ohtake/excel/calender2.htm

 私の作っているチェックシートのファイルをアップできれば一番お見せしやすいのですがレイアウトをご紹介します。

 シート１
 過去ログをほぼそのままに作ってあります

　　　A　　B　　C　　 E　　 F　　 G　　 H　 I　　　J　　L　　N　　M　 O

  1___________________________________________________________________________
  2
  3 チェックシート　9月分
  4
  5 2008　9月　曜日　担当　時刻　件数　報告　9月　曜日　担当　時刻　件数　報告
  6　　　 1日　 月　　　　　　　　　　　　　16日　 火
  7　　　 2日　 火　　　　　　　　　　　　　17日　 水
  8　　　 3日　 水　　　　　　　　　　　　　18日　 木
  9　　　 4日　 木　　　　　　　　　　　　　19日   金
 10　　　 5日　 金　　　　　　　　　　　　　20日　 土
 11　　　 6日   土　　　　　　　　　　　　　21日　 日
 12　　　 7日　 日　　　　　　　　　　　　　22日　 月
 13　　　 8日   月　　　　　　　　　　　　　23日   火
 14　　　 9日　 火　　　　　　　　　　　　　24日　 水
 15　　　10日　 水　　　　　　　　　　　　　25日　 木
 16　　　11日　 木　　　　　　　　　　　　　26日　 金
 17　　　12日   金　　　　　　　　　　　　　27日　 土
 18　　　13日　 土　　　　　　　　　　　　　28日　 日
 19　　　14日　 日　　　　　　　　　　　　　29日　 月
 20　　　15日　 月　　　　　　　　　　　　　30日　 火
 21　　　　　　　　　　　　　　　　　　　　(31日)
 22____________________________________________________________________________

 D列K列は非表示になっております。
 B5セルには入力規則で1～12まで選べます
 B6セルには =DATE($A$5,B5,1) 
 B7セルには =B6+1 
 C6セルには =TEXT(B6,"aaa") 
 I19セル =IF(MONTH(I18+1)>B5,"",I18+1)
 I20セル =IF(I19="","",IF(MONTH(I19+1)>$B$5,"",I19+1))
 I21セル =IF(I20="","",IF(MONTH(I20+1)>$B$5,"",I20+1))
 が入っています。

 シート２には参照したサイトの祝日・休日テーブルが入っています。
 そのまま使用した場合何箇所か適用されなかったので付け加えをしてあります・・・。

 手動で祝日・休日テーブルに振り替え休日をいれておけば、しっかり動くとは思うのですが、
 自分が忘れやすいという事もあり自動で振り替え休日と表示されればと思っております。

 すみませんが、どなたか教えてください。

 *プレビューで列A～O調整してるのですがずれてしまって見づらくてすみません・・・

 参考にしてください。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=221;id=FAQ
 (Jaka)

 すみません、職場では規制がかかってみることができませんので
 帰宅してから確認してみます。

 (セリ)

 Jakaさま
 ありがとうございました、おかげでうまく表示できるようになりました。

 (セリ)

コメント返信：

[ 一覧(最新更新順) ]

[[20080926103344]] 『カレンダーの振り替え休日』（セリ) ページの最後に飛ぶ

[[20080926103344]]　『カレンダーの振り替え休日』（セリ) 　ページの最後に飛ぶ