Data Validation تاریخ در VBA

[Amir Ghasemiyan]

بله چک کردم کد من ناقص بود
این کد اصلاح شده خدمت شما

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
a = Split(TextBox5.Text, "/")
If UBound(a) = 2 Then
If Len(a(0)) <> 4 Or Len(a(1)) <> 2 Or Len(a(2)) <> 2 Then MsgBox "error"
If IsNumeric(a(0)) = False Or IsNumeric(a(1)) = False Or IsNumeric(a(2)) = False Then MsgBox "error"
Else
MsgBox "error"
End If
End Sub

[a.dal65]

ممنون امیر جان درست شد.
حالا چطور توی دکمه ذخیره هم بیارم که اگه تاریخ اشتباه باشه نتونه ذخیره کنه ؟

[Amir Ghasemiyan]

ممنون امیر جان درست شد.
حالا چطور توی دکمه ذخیره هم بیارم که اگه تاریخ اشتباه باشه نتونه ذخیره کنه ؟

خواهش میکنم
میتونین کدهای داخلش رو کپی کنید.
با توجه به اینکه شما میگین میخواین دابل چک بشه من پیشنهاد میکنم بصورت یک فانکشن استفاده کنید. به این صورت:
این فانکشن شما:

Function DateCheck(tarikh As String) As Boolean
DateCheck = True
a = Split(tarikh, "/")
If UBound(a) = 2 Then
    If Len(a(0)) <> 4 Or Len(a(1)) <> 2 Or Len(a(2)) <> 2 Then DateCheck = False
    If IsNumeric(a(0)) = False Or IsNumeric(a(1)) = False Or IsNumeric(a(2)) = False Then DateCheck = False
Else
    DateCheck = False
End If
End Function

هر جا خواستین استفاده کنید مثل این کد عمل کنید. مثلا الان برای تکست باکس 5 مینویسم:

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If DateCheck(TextBox5.Text) = False Then MsgBox "Error"
End Sub