エクセルにてカレンダー自動日付入力

質問

エクセルにてカレンダーを作成しておりますが、手入力ではたいへんですので、たとえば、１月と入力すると通常のカレンダーの配置で日付を入力させたいのですが、やりかたがわかりません。
　ご存知の方はよろしければ、ご指導いただけるとうれしいです。

回答No.11

Nouble · ベストアンサー

基本当年当月表示で相対的に一ヶ月後とか1ヶ月先とかに簡単操作で変えられ
1クリックで全て非表示にできるというものでも構わないでしょうか？

こういうものを作ってみました

以下の「書式設定→」と書かれているところは
前回同様セルを右クリックして現れるメニュー内より「セルの書式設定」を選択し
「セルの書式設定」ウインドウを表示させて
「表示形式」タブ内、左方の「分類」一覧より「ユーザー定義」を選択する
同タブ内、右方にある「種類」下方の入力欄に「→」以降の文字を入れることにより設定を行ってください

ではいきます

まずエクセルのウインドウ情報の「表示」プルダウンメニュー内「ツールバー」から「フォ－ム」にチェックが入っている状態にしてください
此で「フォーム」ツールバーが表示されている状態だと思います

A1:G2を選択して書式設定→"";"";"";""

先程の「フォーム」ツールバーより「スピンボタン」を選択
カーソルが大きい十字に変わるのでD1の右側でクリック
すると▲と▼が複合した「スピンボタン」が現れますので
此を右クリックして「コントロールの書式設定」を出します
「サイズ」タブから高さ・幅共に0.6を入力
「プロパティー」タブから「セルに合わせて移動するがサイズ変更はしない」を選択
「コントロール」タブから
「現在値」に13
「最小値」に0
「最大値」に25
「変化の増分」に1
「リンクするセル」に$D$1
「3－D表示」にチェックを入れて
右下方の「OK」ボタンで確定させて
テキストテキストボックス内の余分な文字を削除後D1の右側に配置してください

同様に

先程の「フォーム」ツールバーより今度は「チェックボックス」を選択
カーソルが大きい十字に変わるのでD1の右側でクリック
すると四角い枠の例の「チェックボックス」が現れますので
此を右クリックして「コントロールの書式設定」を出します
「色と線」タブより
「塗りつぶし」は塗りつぶしなしに
「線」の項目「色」も線なしに

「サイズ」タブから高さ・幅共に0.6を入力
「プロパティー」タブから「セルに合わせて移動するがサイズ変更はしない」を選択
「コントロール」タブから
「値」をオフに
「リンクするセル」に$E$1を入力
「3－D表示」にチェックを入れて
右下方の「OK」ボタンで確定させて
テキストテキストボックス内の余分な文字を削除後E1の左側に配置してください

B5をクリックし「データ」プルダウンメニューから「入力規則」
開いた「データの入力規則」ウインドー内の設定タブ中程の「入力値の種類」下方のプルダウンメニューより「リスト」を選択
選択することにより現れる「元の値」の下方の入力欄に
「月,火,水,木,金,土,日,　」と入力(注、入力時に「」は省く、最後は凵（空白）を入力)
最下方の「OK」ボタンを押し確定させる

F1に1を入れ
書式設定→"調整値";"調整値";"調整値";"調整値"

G1に
　=IF(E1,"",MOD($A$2-"2005/1/1"+$F$1,12))
と入力

A1に
　=IF($E$1,"",DATE(YEAR(TODAY()),MONTH(TODAY())+D1-13,1))
と入力し
書式設定→[$-411]ggge"年度"

B2に
　=IF($E$1,"",TEXT(A1,"mm")&"月３勤勤怠表")
と入力し
書式設定→@

A2に
　=IF($E$1,"",DATE(YEAR(A1),MONTH(A1),1))
と入力

B2に
　=IF($E$1,"",DATE(YEAR(A1),MONTH(A1)+1,1)-1)
と入力

C5:H5を範囲選択し、数式
　=LOOKUP(MATCH(B3,{0,"","月","火","水","木","金","土","日"},0),{1,2,3,4,5,6,7,8,9},{"","","火","水","木","金","土","日","月"})
と記入、「CONTROL」+「ENTER」で確定

A6:A35を範囲選択し、数式
　=IF($E$1,"",CHOOSE(MOD(ROW()-2,5)+1,"A","B","C","D",IF(ISNUMBER(H1),H1,-1)))
と記入、「CONTROL」+「ENTER」で確定
書式設定→"";"";"";@"勤"

B6:H35を範囲選択し、数式
　=IF($E$1,"",IF(ISNUMBER($A6),IF(A6<0,IF(WEEKDAY($A$2)=MAX(COUNTIF(B5,{"日","月","火","水","木","金","土"})*{1,2,3,4,5,6,7}),1,-1),IF(A6<DAY($B$2),A6+1,-1)),IF(OFFSET(B6,-MOD(ROW()-1,5),0,1,1)<1,"",CHOOSE(MOD(OFFSET(B6,-MOD(ROW()-1,5),0,1,1)+MOD(ROW()-1,5)*3+$G$1,12)+1,3,3,3,"公",2,2,2,"公",1,1,1,"公"))))
と記入、「CONTROL」+「ENTER」で確定
書式設定→0;"";"";@

２～４行目を非表示にしたら完成です。

使い方ですが
B5のセルをクリックするとセルの右に「▼」が現れますので
それを更にクリックします
するとプルダウンメニューが現れますので
その中よりカレンダーとして表示させたい先頭の曜日をお選びください

D1が13の時は当月のカレンダーを表示しています
「スピンボタン」の▲をクリックする度にこの数字が1ずつ増え
翌月・翌々月…　とカレンダー表示する日時が
１月毎に未来に進んでいきます

逆に
「スピンボタン」の▼をクリックする度にこの数字が1ずつ減り
先月・先々月…　とカレンダー表示する日時が
１月毎に過去に遡っていきます。

表示を消す際は
E1に配した「チェックボックス」にチェックを入れて
E1とB5の内容を「DELETE」キーで消せば
配したボタンは残りますが
ほぼ全て表示が消えます。

導入当初や大型連休の前後では
スケジュールがずれると思いますが、
そう言う時は０～１１の範囲で何か数値を入れて頂ければ、
１増える毎に順次スケジュールがずれますので
此で調整してください。

後、何か不都合などありましたら
お申し付け頂けましたら順次対応させて頂きます。

忌憚なくお申し出ください。

ところで、
作ってみたものの、
余り効果を感じません…　ヾ（ーー；）

カレンダーは週単位では最大６週必要ですが
１週に３勤４交代制ですから日付行と併せて５行必要となります
詰まり諸々で３３～３５行ほどは絶対に必要！
と、なると思うのですが、

３５行まで使うということは
フツーに縦一列に日付を並べても収まってしまいます　(-_-)

此では見た目だけの問題となってしまいますが
見た目すら改悪となってしまってます。　（～　～；）ヾ

お礼

こんな大作をありがとうございます＞＜作成することができました。エクセルすごい詳しい方なんですね。尊敬します＾＾インストラクターの資格は持っておりますが、こんな複雑なことはできませんので。エクセルのさらなる勉強をしないといけないなって思います＾＾
　作成に当たりいろいろたご苦労おかけいたしました。たいへん助かりました。ありがとうございます＾＾