エクセルVBA ユーザーフォームのTextBoxを日付にしたい

いつもいつも　皆様からのお返事を心待ちにしておりますNannyです。

VBAのユーザーフォームでTextBoxを日付専用入力にしたいのです。

で、入力方法が　20050219　というような形で入力して、2005/02/19という形か、平成17年2月19日というような形に持って行って、セルに貼り付けしたいのです。

出来なさそうな予感満載なのですが、皆様お返事の程宜しくお願い致します。
（出来ないのであればあきらめられるので、出来るかどうかのお返事も期待しております。

宜しくお願い致します。

No.2 ベストアンサー 回答者： WWolf 回答日時： 2005/02/19 17:30

下記はTextBox1に20050219としCommandButton1をクリックするとシート1のA1に2005/2/19と出力します。

Private Sub CommandButton1_Click()
Worksheets(1).Range("A1").Value = Format(TextBox1.Text, "0000""/""00""/""00")

End Sub

この回答へのお礼

ばっちり成功いたしました＾＾
お返事ありがとうございました。

お礼日時：2005/02/19 17:54

No.1 回答者： AloneAgain 回答日時： 2005/02/19 16:38

こんにちは。

こういうこと↓でしょうか？
---------------------------------------------------------
Range("F1") = Format(TextBox1.Text, "0000""/""00""/""00")
---------------------------------------------------------

この回答へのお礼

ありがとうございます　早速やってみます

お礼日時：2005/02/19 17:53