پرسش شرط تعداد عدد برای اجرای دستور (بدون شمارش صفر در ابتدا) (در كد ملی)

[ظهور 313]

سلام و عرض ادب خدمت اساتید محترم
برای ثبت كد ملی، از این كد استفاده میكنم تا اگر تعداد ارقام كد ملی كمتر از 9 یا بیشتر از 10 باشه، پیغام خطا بده If Len(TextBox1) < 9 Or Len(TextBox1) > 10 Then

حالا مشكل اینجاست كه اگر كسی یك صفر در ابتدا بزنه و بعدش هشت رقم وارد كنه، كد ملی ثبت میشه. چه طوری میشه از این كار جلوگیری كرد. یعنی صفر ابتدایی در شمارش ارقام، اصلا به حساب نیاد؟

[iranweld]

با سلام

کد ملی استان تهران اکثرا با یک یا دو صفر در ابتدا شروع میگردد در این صورت چطور میتوانید این نوع کد ملی را وارد کنید؟

[ظهور 313]

ممنون بابت تذكرتون
اما بازم به اون كد نیاز دارم
اگه لازم باشه بین 8 و 10 رقم تنظیمش میكنم

[iranweld]

این کد را تست کنید

If left(TextBox1,1)<>"0" and  Len(TextBox1) < 9 and Len(TextBox1) > 10 than 

[ظهور 313]

این کد را تست کنید

If left(TextBox1,1)<>"0" and  Len(TextBox1) < 9 and Len(TextBox1) > 10 than 

ممنون استاد ولی این كد اگر كد ملی ابتداش با صفر شروع نشه كه مشكل دار میشه؟

[iranweld]

ممنون استاد ولی این كد اگر كد ملی ابتداش با صفر شروع نشه كه مشكل دار میشه؟

کد اصلاح شد

Private Sub CommandButton1_Click()

If Left(TextBox1, 1) = 0 Or Len(TextBox1) <> 10 Then

MsgBox "not ok"

Else

Range("a1") = TextBox1

End If

End Sub