- 締切済み
任意の日付をカレンダーから入力する
Excellにて、任意の日付をできるだけ簡単に入力したいと思ってます。そこで、「セル内の右側の方に▼を表示させて、そこをクリックするとカレンダーが表示され、そこの日にちをクリックすると、その日が入力される。」というような入力方法を設定させる方法を教えてください。よろしくお願いします。
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- DoragonFang
- ベストアンサー率41% (91/221)
↓のMicrosoftDate and Time Picker Control 6.0 ですが、 >そこにActiveCell = DTPicker1.Textを入れる。 >結果 >Private Sub DTPicker1_CloseUp() >ActiveCell = DTPicker1.Value >End Sub >にする で、DTPicker1.Textは間違いです。 その下にあるように .value が正しい。 で、任意のセル(たとえばA1セル)に日付を入力するためには、 Private Sub DTPicker1_CloseUp() Range("A1").Value = DTPicker1.Value End Sub と書けば、出来るはずです。
- imogasi
- ベストアンサー率27% (4737/17069)
http://okweb.jp/kotaeru.php3?q=1102129 とほぼ同じ質問です。 そう言うコントロール(部品)があります。しかし MicrosoftDate and Time Picker Control 6.0 が質問者の場合見つかるかどうか。
補足
回答ありがとうございます。このコントロールは見つかりましたので、さっそくやってみました。…が、どうもうまく動きません。カレンダーは表示されて任意の日付も取得できるのですが、その日付を所望するセルに入力することができません。また、説明では「DTPicker1.Text」と言いながら、その下では「DTPicker1.Value」と言っておりこれも意味不明でした。この方法じゃ目的は達成できませんでした。残念。 8.そこにActiveCell = DTPicker1.Textを入れる。 結果 Private Sub DTPicker1_CloseUp() ActiveCell = DTPicker1.Value End Sub にする。
お礼
カレンダーは出るのですが、それを任意のセルに もっていくことができません。この方法は諦めて 代替え手段で対応しました。どうも、コメント ありがとうございました。