エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1239 for カレンダー (0.001 sec.)

[[20101231121034]]: #score: 6129; @digest: fae3d210ba5e7865f62db6382b59238a; @id: 52676; @mdate: 2011-01-03T12:19:20Z; @size: 4468; @type: text/plain; #keywords: ー専 (18488), カレ (8134), ーコ (5939), userform1 (5694), レン (5062), トロ (4550), イセ (4508), ンダ (4463), ダー (4135), 付属 (3557), ム内 (3159), 作動 (3094), ーフ (2871), textbox (2821), ォー (2136), ロー (2111), コン (2106), access (1927), ーム (1888), フォ (1759), ル自 (1726), よ!! (1588), 、カ (1584), 専用 (1532), ー内 (1463), ール (1359), 日付 (1249), ichinose (1239), ント (1185), ンス (1160), ユー (1150), 初期 (1143); 『テキストボックスで日付入力』（はせぴぃ）
Excel2003にて VBAのフォーム内のTextboxに日付を入力したいのですが、 カレンダーコントロールをどのように使用すればよろしいのでしょうか? 希望としてはTextbox内にデフォルトで入力日が表示され、（yyyy/mm/dd）Textboxをクリックするとカレンダーが表示され、 カレンダー内の日付をクリックすると、 Textbox内の日付が変わるようにしたいです。別にカレンダー専用のフォームを作成しなくてはいけないのでしょうか? ---- >VBAのフォーム内のTextboxに日付を入力したいユーザーフォームのテキストボックスに日付を入力したいということですね!! 方法は、同じユーザーフォーム内に非表示でカレンダーコントロールを配置しておいて必要なときに表示させるという方法。 >別にカレンダー専用のフォームを作成しなくてはいけないのでしょうか? この二つが考えられますねえ・・・。私なら、カレンダー専用のユーザーフォームを作成にすると思います。そのように作っておけば、別の機会に再利用できそうですからね!! 別のユーザーフォーム（Userform1)には、 カレンダーコントロールだけを配置します。オブジェクト名 UserForm1 機能 カレンダーコントロールを使って日付を管理する。メソッド show ----- ユーザーフォームを表示し、カレンダーを表示するプロパティ value ---- 指定された日付を格納します。初期設定日としては、Showメソッドの前に指定します。省略すると、本日の日付が設定されます日付の確定は、ダブルクリックで確定してくださいユーザーフォームが閉じます。ユーザーフォームの閉じるボタンをクリックするとユーザーフォームが閉じますが、valueプロパティには、Emptyが設定されます使用例 Sub test() Load UserForm1 With UserForm1 .value = Date - 5 '初期値として、本日より、5日前を指定 .Show 'カレンダーフォーム表示 If Not IsEmpty(.value) Then '日付が指定された? MsgBox Format(.value, "yyyy/m/d") End If End With Unload UserForm1 'カレンダーフォームを退避 End Sub 上記のコードが正常に作動するようなUserform1を考えて見てください ichinose ---- ichinoseさん、ありがとうございます。さっそく、下記のように試してみました。 Sub Private Sub TextBox1_Change() ' Load UserForm1 With UserForm1 .value = Date - 5 .Show If Not IsEmpty(.value) Then MsgBox Format(.value, "yyyy/mm/dd") End If End With Unload UserForm1 ' End Sub しかし、うまくいきません。初期値（現在の日付）も表示されません。私が勘違いしているのでしょうか? また、カレンダーコントロールを参照していない（できない）PCではこちらはうまく作動しないでしょうか? （はせぴぃ） ---- >カレンダーコントロールを参照していない（できない）PCではこちらはうまく作動しないでしょうか? カレンダーコントロールは、Excelの付属コントロールではなく、Accessに付属しているコントロールですから、 Accessのない環境では通常は、コントロール自体がインストールされていません。コントロール自体がなければ、大前提がひっくり返ります。作動しませんし、 Accessのない環境にこのカレンダーコントロールだけインストールするのは、ライセンス違反ですよ!! よって、Accessのない環境では、カレンダーコントロールは使えません。 >私が勘違いしているのでしょうか? はい、勘違いしています。私が投稿したようなコードで作動するような仕様のUserForm1を作成してみてください。と申し上げただけでUserForm1に関しては、ご自分で作成するのですよ!! これもライセンスがあればの話ですが、 カレンダーコントロールには、 Private Sub Calendar1_DblClick() End Sub ダブルクリックすると、イベントが発生しますから、上記のプロシジャーにダブルクリック時に、日付が取得できるようなコードを作成するのですよ!! この辺りの知識がないのなら、少し研究が必要です。また、UserForm1の閉じるボタンクリック時の処理は、 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) End Sub というイベントプロシジャー内にコードを作成します。これもこれだけで作動するわけではないですよ、中にご自分で仕様にあうようなコードを作成するのですよ!! 日付を渡す変数は、このUserForm1のモジュールに public value as variant と宣言して運用できるように考えてください ichinose ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201012/20101231121034.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ