Private Sub TextBox1_Change()
'範囲を指定して8ケタを認識
If TextBox1.Value >= 20000101 And TextBox1.Value <= 20991231 Then
TextBox1 = Format(DateSerial(Left(TextBox1.Value, 4), Mid(TextBox1.Value, 5, 2), Right(TextBox1.Value, 2)), "yyyy/mm/dd")
End If
End Sub
コードの解説
では上記のコードの解説をしていきます。
Private Sub TextBox1_Change()
If TextBox1.Value >= 20000101 And TextBox1.Value <= 20991231 Then
まずイベントはTextBoxの【Change】を使用して、入力されるたびにデータを認識します。
そして【If TextBox1.Value >= 20000101 And TextBox1.Value <= 20991231 Then】で数値内であるのかを確認することにより。8桁の数値であるのかを認識します。
コメントを残す