ユーザーフォームのテキストボックスについて

質問

ユーザーフォームのテキストボックスを使ってシートにデータを転記しています。
テキストボックスに日付を5/10のような形式で入力し、表示をＨ22.5.10と変換させるようにしています。
Private Sub TextBox1_AfterUpdate()
x = TextBox61Text
TextBox1.Text = Format(x, "ge.m.d")
End Sub
これを転記した時に、そのまま文字列として貼り付けられるため、シリアル値として入りません。
これをシリアル値として入れるためにはどのようにすればいいでしょうか？

回答No.2

Wendy02

>これを転記した時に、そのまま文字列として貼り付けられるため
以下のようにしたらどうでしょうか。

Private Sub TextBox1_AfterUpdate()
Dim x As Variant　'テキスト値
Dim d As Date 'シリアル値
　x = TextBox1.Text
　If IsDate(x) Then
　　x = CDate(x)
　　d = x
　　If Abs(Year(Date) - Year(x)) < 20 Then　'20年以内なら、問題ない
　　　TextBox1.Text = Format(x, "ge.m.d")
　　End If
'セルの入力
　　Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = d　'A列
　End If
End Sub

それと、前回(#6244563)回答した者ですが、それはそのままになっているようですが、どうしたものでしょうね。ここの掲示板では、前回の私のマクロのスタイルについて、こういうエラー処理の考え方を余計なお世話だと否定する入門レベルの人も多いようですから、とやかく言っても始まりません。コードは短くて簡単なら、それでOKだとする人もいます。

こちらが、日付を入力しても、正しい日付と認識しない時は弾くということを当たり前と考える考え方とは、相反する考え方の人もいます。PCの日付設定には、MM/dd/yyyy という方式の人もいますし、かつては、それが普通だったこともあります。だから、私は、なるべくエラー入力をしない方式を取っています。

回答No.1

myRange

＞x = TextBox61Text
TextBox６１Text、なんですか？
恐らく、ＴｅｘｔＢｏｘ１のタイプミス??

下記のように変数、ｘ　をモジュール変数で宣言する方法もあります。

'-------------------------------------------------
Option Explicit

　　Dim x　　　　'●モジュール変数として宣言する

'------------------------------------------------

Private Sub TextBox1_AfterUpdate()
　　x = CDate(TextBox1.Text)
　　TextBox1.Text = Format(x, "ge.m.d")
End Sub

'----CommandButtonでセルＡ３へ転記------

Private Sub CommandButton1_Click()
　　Range("A3").Value = x
　　Range("A3").NumberFormatLocal = "ge.m.d"
End Sub

'-------------------------------------

以上です。