| |
例えばこんなやり方をしたら？
一応、UserFormのTextBoxのBeforeUpdateイベントで考えて見ました
年の部分を仮にDate（システムの日付 今日）引っ張ってきて
日付の体裁にしてIsDataで調べています
また、必要ないかも知れませんがOkなら、TextBoxにOkの文字列を戻しています
ただ、年の部分をDateで取得しているので、
今年が閏年で無いと0229は日付と見とめられませんが？
Private Sub TextBox1_BeforeUpdate(ByVal Cancel _
As MSForms.ReturnBoolean)
Dim strTmp As String
With TextBox1
If .Value <> "" Then
strTmp = Year(Date) & "/" _
& Left(.Value, 2) _
& "/" & Mid(.Value, 3)
If Not IsDate(strTmp) Then
Beep
MsgBox "日付と認識できません"
Cancel = True
Else
.Value = strTmp
End If
End If
End With
End Sub
|
|
Hirofumi
- 03/6/15(日) 11:57 -
