كيفية حساب عدد التيكست بوكس الذي يحتوي على ارقام

[mostafasadry]

السلام عليكم ورحمة الله وبركاته

تحية طيبة الى اعضاء المنتدى جميعاً

ممكن مساعدة في معرفة عدد التيكست بوكس الذي يحتوي على ارقام

معرفة العدد وليس قيمة ما موجود في التيكست بوكس من ارقام او كلمات

على سبيل المثال اثنان من التيكست بوكس بداخلهن ارقام واثنان فارغات يكون الناتج 2 

مع الشكر للجميع..

 

rrrr.zip

[lionheart]

Private Sub CommandButton1_Click()
    Dim ctrl As Control, cnt As Long
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            If IsNumeric(ctrl.Value) Then cnt = cnt + 1
        End If
    Next ctrl
    MsgBox "TextBoxes With Numbers = " & cnt
End Sub

 

[mostafasadry]

شكرا للاخ lionheart على الرد والمساعدة وجزاك الله الف خير

سؤال ثاني في نفس المسئلة ان امكن

في حالة وجود 4 تيكست بوكس غير متسلسلات مثلا textbox17 , textbox15 , textbox13 , textbox11 , ويكون الناتج في textbox20 

كيف ممكن ان اكتب الكود 

علماً اني مبتدئ في مسئلة الاكواد فحبيت ان استفيد من خبرات الاخوة في المنتدى وجزاكم الله الف خير

تم تعديل نوفمبر 7, 2021 بواسطه mostafasadry

[mostafasadry]

شكرا للجميع تم التوصل الى المطلوب وهو 

Dim cnt As Long
If IsNumeric(Me.TextBox11.Value) Then cnt = cnt + 1
If IsNumeric(Me.TextBox13.Value) Then cnt = cnt + 1
If IsNumeric(Me.TextBox15.Value) Then cnt = cnt + 1
If IsNumeric(Me.TextBox17.Value) Then cnt = cnt + 1
Me.textbox20.Value = cnt