محدودیت در Textbox (فقط عدد 4 رقمی)

[a.dal65]

با سلام خدمت اساتید
من میخوام در Textbox خودم فقط بتونم عدد 4 رقمی وارد کنم .
کمتر یا بیشتر خطا بده.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

از کد ذیل استفاده کنید

Private Sub CommandButton1_Click()
If Len(TextBox1) <> 4 And Not IsNumeric(TextBox1) Then
MsgBox "not ok"
Else
Range("a1") = TextBox1

End If
End Sub