[[20060228115649]]　『カレンダー』（お台場）　ページの最後に飛ぶ

『カレンダー』（お台場）

どこでもいいのですが、仮にA1に＊月を入力する（リストから選ぶ）。
するとA２以下にその月のカレンダーがダーっと出力される。
土日とかも考慮されたらいいかなと思っています。
よろしくお願いします。

 これは参考になりませんか？
[[20060222175727]]
 (poo)

 マクロなど使わないでも出来ると思います。

 旧祭日用の祝日シートを作って下記のような感じに予め旧祭日表を作っておく。
 祝日、振替の関数については、下記参照。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=37;id=FAQ

 旧祭日の年号、A1（カレンダーを作るシートを参照しても良い。）

  　  A　    　　　　　　B　　　　　　　　C
 1  2006　　　　　　　　　　　　　　　　出勤日
 2  ２００６年の祝日（固定）　　　　　　2006/7/8
 3  元日　　　　　　　2006/01/01
 4　  〃　振替　　　　2006/01/02
 5  成人の日　　　　　2006/01/09
 6  建国記念の日　　　2006/02/11
 7  　〃　振替
 8  春分の日　　　　　2006/03/21
 9 　 〃　振替
 10 みどりの日　　　　2006/04/29
 11 　〃　振替　　
 12 憲法記念日　　　　2006/05/03
 13 みどりの日　　　　2006/05/04
 14 こどもの日　　　　2006/05/05
 15 　〃　振替
 16 海の日　　　　　　2006/07/17
 17 敬老の日　　　　　2006/09/18
 18 9月の国民の休日
 19 秋分の日　　　　　2006/09/23
 20 　〃　振替
 21 体育の日　　　　　2006/10/09
 22 文化の日　　　　　2006/11/03
 23 　〃　振替
 24 勤労感謝の日　　　2006/11/23
 25 　〃　振替
 26 天皇誕生日　　　　2006/12/23
 27 　〃　振替

   ２００６年の休暇
 31 年末年始　　　　　2006/01/03
 32 　〃　　　　　　　2006/01/04
 33 　〃　　　　　　　2006/12/29
 34 　〃　　　　　　　2006/12/30
 35 　〃　　　　　　　2006/12/31
 36 夏期休暇　　　　　2006/08/14
 37 　〃　　　　　　　2006/08/15
 38 　〃　　　　　　　2006/08/16
 39 予備 
 40 予備

 カレンダーを作るシート
 A列を祝日判定フラグとして使用。

 B1に年号、C1に月を入力するとして
 （表示　→　フォーム　のスピンボタンを使った方が楽。
 　他、入力規則を使っても良いし）

 A2（A32までフィル）
 =IF(COUNTIF(祝日シート!$D$3:$D$13,Sheet1!B2)>0,"",IF(COUNTIF(祝日シート!$B$3:$B$40,B2)>0,1,IF(WEEKDAY(B2)=1,1,IF(WEEKDAY(B2)=7,2,""))))

 B2
 =DATE(B1,C1,1)

 B3（B32までフィル）
 =IF(B2="","",IF(MONTH(B2+1)=$C$1,B2+1,""))

 B2～B32セルを選択して
 条件付書式
 =A2=1　　　　祝日、日曜の色
 =A2=2　　　　土曜の色
 に設定すれば良いです。

 尚、年度によって祝祭日の基準が違っている、これから更に変わるかも知れない事に付いては考慮してません。
 (Jaka)

参考にさせていただきます。
ありがとうございました。（＾0＾）

 修正
 列がづれてました。
  　  B　    　　　　　C　 　　　　　　　D
 1  2006　　　　　　　　　　　　　　　　出勤日
 2  ２００６年の祝日（固定）　　　　　　2006/7/8
 3  元日　　　　　　　2006/01/01
 4　  〃　振替　　　　2006/01/02

 たびたびすみません。
 こんな感じにＢ２が空白だったら、空白にするを追加してください。3/1 9:10

 A2（A32までフィル）
 =IF(B2="","",IF(COUNTIF(祝日シート!$D$3:$D$13,Sheet1!B2)>0,"",IF(COUNTIF(祝日シート!$B$3:$B$40,B2)>0,1,IF(WEEKDAY(B2)=1,1,IF(WEEKDAY(B2)=7,2,"")))))
 (Jaka)

コメント返信：

[ 一覧(最新更新順) ]

[[20060228115649]] 『カレンダー』（お台場） ページの最後に飛ぶ

[[20060228115649]]　『カレンダー』（お台場）　ページの最後に飛ぶ