カレンダーで日付をワンタッチ入力したい

デイリー業務で１日１枚日付入りの申し込み書を作成しています。（お弁当の申し込み書）
日付を入れるのが面倒な為カレンダーを表示させておきカレンダーの”日”をクリックするのみでEXCELシートの左上あたりに月日と曜日が入る様にしたいです。
　（ホテル、飛行機、ゴルフ場などの申し込みWEBサイトで
　　良く使われているものです）
どなたか方法を教えて下さい。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2004/11/27 13:26

後半でおっしゃっているのは、カレンダーコントロールと言います。

プログラム（機能）と画面の表示が一体となった、ソフトの部品です。色々な言語で使えるようになっており、プロが作るソフトには良く出てきます。エクセルVBAでもVBと同じように使えるはずですが、一般の方のコントトールには入っていません。ですから部品の入手とインストールのやり方を知っているレベルの人でないと出来ません。
あとは人（プロ）が作った、これに限定特定した、エクセル向けの小ソフトを探すことです。VBやアクセスVBAでも版（PROとスタンダードなど）によって付属してないとかあります。フォームに７ｘ５の３１個のラベルを並べて、紛いものを作ることも出来ますが、VBAが出来ないト出来ないで
す。
=TODAY()関数で我慢してください。１日１枚１日付でしょう。カレンダは毎伝票に異なる日付など入れるときは便利ですが。

この回答へのお礼

imogasiさん
　ありがとうございます。
　お金をかけてまで楽をするつもりはありません。
　=TODAY()関数で我慢で我慢します。
　ありがとうございました。

お礼日時：2004/11/27 19:20

No.5 回答者： imogasi 回答日時： 2004/11/27 15:25

＃４のBLUEPIXYさんに教えていただいた、事をやって見ました。

エクセル２０００でも出来そうです。
１．ワークシートのメニュバーの余白部で右クリック。
２．コントロールツールボックスをクリック。
３．ツールバーがでる。金槌とスパナの交叉したアイコンをクリック
４．リストに沢山のオブジェクト名が出るがスクロールボタンでスクロールして、MicrosoftDate and Time
Picker　Control　6.0を見つけてクリックする。
ここで見つからない場合は諦めてください。
５．マウスポインタを、ワークシート上に持っていくと
ポインタが＋になるので、シート上のデータ入力の邪魔にならない位置で、左上から右下方向に擦る。
すると日付と▼が出る。
６．そこでダブルクリックする。VBE画面に飛ぶ。そして
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub
が出る。

７．右上側のDeclaration部（CallbackKeyDownと出ている）の▼をクリックして、
CloseUpをクリックして選ぶ。
８．そこにActiveCell = DTPicker1.Textを入れる。
結果
Private Sub DTPicker1_CloseUp()
ActiveCell = DTPicker1.Value
End Sub
にする。
９．VBE画面で、メニューの実行ーデザインモードの終了をクリック
１０．ワークシート上で、日付けを入れたいセルをクリックし、デートピッカーの▼をクリックして、日付をクリックすると、指定したセルに日付がセットされる。

この回答へのお礼

imogasi 一般人さん
　　ありがとうございました。
　　自宅のPCでトライしてみたところ
　　MicrosoftDate and Time・・・・
　　がありませんでした。
　　多分VBAがインストールしてないからだと思います
　　時間をかけトライしてみます。
　　懇切丁寧な説明をして頂き大変感謝します
　　ありがとうございました。

お礼日時：2004/11/27 19:37

No.4 回答者： BLUEPIXY 回答日時： 2004/11/27 13:46

＃２、３の方がおっしゃるように

セルの書式設定で
m"月"d"日（"aaa")"
の様にして
=today()
するのが簡便でよいと思います。
また、ＣＴＲＬ＋：でもその日の日付の入力ができます。
＃３でいわれているカレンダーコントロールは、
ＶＢＥでフォームの挿入からフォームを挿入すると
現れるコントロール「ツールボックス」から「その他のコントロール」を選んで
表示される一覧の中に
Microsoft Date and Time Picker …
があればチェックをつけることで利用できます。
Private Sub DTPicker1_Change()
Range("A1").Value = DTPicker1.Value
End Sub

Private Sub DTPicker1_Click()
Range("A1").Value = DTPicker1.Value
End Sub
というような感じで使用することができます。
Private Sub Workbook_Open()
UserForm1.Show
End Sub
とでもしておけば
ワークブックが開いた時にフォームが表示されます。

この回答へのお礼

BLUEPIXY 一般人さん
　ありがとうございます
　私のパソコン知識ではとても難しそうなので
　セルの書式設定で
　　m"月"d"日（"aaa")"
　　の様にして
　　=today()
　とします。
　又、会社のPCにVBAが入っていないかも知れないので・・
　あろがとうございました。

お礼日時：2004/11/27 19:25

No.2 回答者： kuma-ku 回答日時： 2004/11/27 12:53

こんにちは

その日の日付であれば、関数[=TODAY()]で可能です。

こんなソフトもあります↓

インストールし起動させるとタスクバーに常駐します。
常駐したアイコンを右クリックし、設定＞＞日付取得 で取得する日付の形式を設定します。
後は、デスクトップにある、カレンダーの日付をクリック(特にメッセージは表示されません)し、貼り付けるだけです。

参考URL：http://homepage1.nifty.com/chibipage/softchibis. …

この回答へのお礼

Kuma-Kuさん
　　ありがとうございます。
　　ちょっと難しそうなので時間をかけて使えるかか
　　どうか検討させて頂きます。

お礼日時：2004/11/27 19:15

No.1 回答者： cha-chako 回答日時： 2004/11/27 12:45

ヘッダーを利用すれば毎日の日付は自動で入りますよ(^^♪

ファイル→ページ設定→ヘッダー→ヘッダーの編集
で左側に日付を指定。

アレ？曜日はなかったかな？(~_~;)

日付関数をマクロしか無いかも？

この回答へのお礼

cha-chakoさん。ありがとうございました。
　おっしゃる通り曜日は無かったです。
　しかし他の業務で使えそうです。
　それと説明不足でしたがお弁当は翌日分を注文するシステムの為、”TODAY"の日付は使えないんです。
ヘッダーの編集で”TODAY"+1日とか出来ればいいんですがね。（金曜日は月曜日の分注文の為＋３日とか）　　　　回答頂いたヘッダーでもう少し考えて見ます。

お礼日時：2004/11/27 18:33