エクセルでカレンダー表示

質問

エクセルのセルを選択すると、カレンダー（月単位）が表示されクイックした日付を入力したいのですが、機能としてあるのでしょうか？
ご存知の方、教えてください。

回答No.1

muscatel · ベストアンサー

ＵＲＬを貼ります。
ご参考になるとよいのですが。

参考URL：

http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm

お礼

ありがとうございました。
大変、参考になりました。アクセスがあると結構簡単にできるんですね。

回答No.2

imogasi

カレンダーコントロールが使えない。＃１でご紹介のＵＲＬ参照。
同一月の日付が多いときなどの場合に下記は使えると思う。
Ｓｈｅｅｔ２にカレンダー（単月）を造る。
造り方は後述。
カレンダー専用シートにする。
使い方。
Ｓｈｅｅｔ１で日付をセットするセルをクリック。（１動作）
Ｓｈｅｅｔ２のタブをクリック（１動作）
Ｓｈｅｅｔ２で望む日付をクリック（１動作）
（Ｓｈｅｅｔ１をアクチベイトされる）
以上でカレンダーコントロールと同じ動作ステップ数で日付セットを実現。
そのために
Ｓｈｅｅｔ２のシートモジュールに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Sheet1").Activate
ActiveCell = Target
End Sub
を入れておく。
ーーー
カレンダーの作り方
Ｃ１に２００６（年を入れる）
Ｄ１に３を入れる（月の数字を入れる）
Ａ３：Ｇ３に
日 月 火 水 木 金 土
を入れる。
Ａ２に=WEEKDAY(DATE($C$1,$D$1,1))　　年初の曜日。文字色を白にして見えないようにするとか。
Ａ３に=DATE($C$1,$D$1,1)-$A$2+(ROW()-4)*7+COLUMN()
Ａ３をＧ３まで式を複写。（＋ハンドルを引っ張る。）
Ａ３：Ｇ３をＡ８：Ｇ８まで式複写。（＋ハンドルを引っ張る。）
Ａ３：Ｇ８のセルの書式をユーザー定義「ｄ」にする。
Ａ３：Ｇ８の書式ー条件つき書式ー数式が、で数式に
=NOT(AND(YEAR(A4)=$C$1,MONTH(A4)=$D$1))
といれ、文字色を白に設定。それで当月外の日付は見えなくなる。
ーー
なおＳｈｅｅｔ２のＤ１の月を変えると、瞬時にその月のカレンダーに内容が替わる。これはカレンダーコントロールでも同じ１動作が必要。

お礼

ありがとうございます。
大変、役に立ちました。