[حل شده] کمک برای TexBox

[میثم مقدم نیا]

سلام
یه سوالی داشتم
من توی UserForm که ایجاد کردم 60 تا TextBox دارم حال میخوام از طریق کد اونها را محدود کنم
اینجا با دوتا مشکل روبرو شدم

1_اگه کد را برای تک تک اونها بخوام وارد کنم زمان زیاد میبره
2_اینکه صفحه کد فایلم خیلی شلوغ میشه

دوستان عزیز آیا کسی راهکاری برای مشکل من داره ؟

[M_ExceL]

سلام
یه سوالی داشتم
من توی UserForm که ایجاد کردم 60 تا TextBox دارم حال میخوام از طریق کد اونها را محدود کنم
اینجا با دوتا مشکل روبرو شدم

1_اگه کد را برای تک تک اونها بخوام وارد کنم زمان زیاد میبره
2_اینکه صفحه کد فایلم خیلی شلوغ میشه

دوستان عزیز آیا کسی راهکاری برای مشکل من داره ؟

سلام،
می تونید یک حلقه برای یک باتن بنویسید که بعد از کلیک روی اون باتن، تک تک تکست باکس هارو بررسی کنه،
و یا در حالت پیشرفته ترش هم باید کلاس ماژول ایجاد کنید.
یا حق.

[میثم مقدم نیا]

سلام،
می تونید یک حلقه برای یک باتن بنویسید که بعد از کلیک روی اون باتن، تک تک تکست باکس هارو بررسی کنه،
و یا در حالت پیشرفته ترش هم باید کلاس ماژول ایجاد کنید.
یا حق.

با سلام مجدد
من از کد زیر برای محدود سازی استفاده کردم

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Then
        KeyAscii = KeyAscii
    Else
        KeyAscii = 0
        If Len(TextBox1.Text) < 10 Then
      MsgBox "شما نمي‌توانيد حروف وارد کنيد ، فقط بايد عدد وارد کنيد", vbMsgBoxRight, "اطلاعات ورودي اشتباه است"
      Cancel = True
    End If
    End If
End Sub 

حال این کد را چطور در فایل پیوست به ماژول و حلقه تبدیل کنم

[M_ExceL]

با سلام مجدد
من از کد زیر برای محدود سازی استفاده کردم

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Then
        KeyAscii = KeyAscii
    Else
        KeyAscii = 0
        If Len(TextBox1.Text) < 10 Then
      MsgBox "شما نمي‌توانيد حروف وارد کنيد ، فقط بايد عدد وارد کنيد", vbMsgBoxRight, "اطلاعات ورودي اشتباه است"
      Cancel = True
    End If
    End If
End Sub 

حال این کد را چطور در فایل پیوست به ماژول و حلقه تبدیل کنم

سلام،
یوزفورم 2 رو در فایل پیوست بررسی بفرمایید، تکست باکس های آن با استفاده از کلاس ماژول، و همچنین ایجاد یک حلقه داخل رویداد Initialize یوزفورم، محدود به وارد کردن عدد شده است.
یا حق.