|
▼年寄り さん:
おはようございます。
>TextBox1の入力値を日付に限定したい。日付は以下の3通りを許可したい。他の入力がされたらエラーメッセージを出す。
>04/10/1
>2004/10/1
>平成16年10月1日
厳密にやれば出来そうですけど・・・、面倒なので、
日付に変換できるか否かを調べて出来るデータのみを
ある形式で表示するに仕様を変更されたら如何ですか?
例は、日付として認識できるデータは、YYYY/M/D形式で表示する例です。
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If IsDate(.Text) Then
.Text = Format(.Text, "yyyy/m/d")
Else
MsgBox "no good"
.SelStart = 0
.SelLength = Len(.Text)
Cancel = True
End If
End With
End Sub
とっかかりとして、参考にして下さい。
それと・・・、
Exitイベントは、便利にみえますが、仕様によっては、問題も多々あります。
色々試してから、お使いください。
|
|