• 締切済み

任意の日付をカレンダーから入力する

Excellにて、任意の日付をできるだけ簡単に入力したいと思ってます。そこで、「セル内の右側の方に▼を表示させて、そこをクリックするとカレンダーが表示され、そこの日にちをクリックすると、その日が入力される。」というような入力方法を設定させる方法を教えてください。よろしくお願いします。

みんなの回答

回答No.2

↓の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 と書けば、出来るはずです。

zuntac
質問者

お礼

カレンダーは出るのですが、それを任意のセルに もっていくことができません。この方法は諦めて 代替え手段で対応しました。どうも、コメント ありがとうございました。

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.1

http://okweb.jp/kotaeru.php3?q=1102129 とほぼ同じ質問です。 そう言うコントロール(部品)があります。しかし MicrosoftDate and Time Picker Control 6.0 が質問者の場合見つかるかどうか。

zuntac
質問者

補足

回答ありがとうございます。このコントロールは見つかりましたので、さっそくやってみました。…が、どうもうまく動きません。カレンダーは表示されて任意の日付も取得できるのですが、その日付を所望するセルに入力することができません。また、説明では「DTPicker1.Text」と言いながら、その下では「DTPicker1.Value」と言っておりこれも意味不明でした。この方法じゃ目的は達成できませんでした。残念。 8.そこにActiveCell = DTPicker1.Textを入れる。 結果 Private Sub DTPicker1_CloseUp() ActiveCell = DTPicker1.Value End Sub にする。

関連するQ&A