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

بالنسبه لكتابة أرقام بس

if not isnumeric (text1.text) then

sendkeys"{backspace

beep

end if

بالنسبه لجمع التكستات فأنا أرى إن 21 تكست كتير جداً لدرجة لا تتخيلها

المهم لو جمعت فإن الجمع يكون

Text21=val(text1)+val(text2)+................v

بالنسبة لسؤالك الأول يجب عليك عمل مصفوفة من تكس بوكسز و عمل loop مثلا

dim Result as integer
for i = 0 to 20
Result = Result + CInt(text(i).text)
next
text(21).text= Result

مشكور جزير الشكر

الطريقتين صراحة حلوه

بس الكود حق كتابة الارقام

if not isnumeric (text1.text) then

sendkeys"{backspace

beep

end if

ما اشتغل

و فين احطه في اي مكان

وشكرا

يجب أن تختار الحدث المناسب لتنفيذ الكود عليه

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Not IsNumeric(Text1.Text) Then
SendKeys "{backspace}"
Beep
End If
End Sub

مشكور على المساعدة جميعا

اخي الكريم يمكنك تجربة الكود التالي لعله يساعد :

قم باضافة text1 , text2 , command1

Private Sub Form_Load() ' لتفريغ جميع التكست
For i = 0 To 3  ' 0 اول عنصر في المصفوفة و 3 اخر عنصر في المصفوفة
Text1(i).Text = ""
Next
Text2.Text = ""

End Sub



Sub checkletter(ndx As Byte) 'دالة تقوم بفحص التكست المطلوب و اجراء الازم حسب رقم الاندكس المرسل من التكست
If Not IsNumeric(Text1(ndx).Text) Then

SendKeys "{backspace}" ' شطب النص الخطأ
Beep 'اصدار صوت لتنبيه المستخدم
End If
End Sub



Private Sub Command1_Click()
Dim sum As Integer
For i = 0 To 3
sum = sum + Text1(i).Text ' جمع التسكت و تخزين المجموع في المتغير sum
Next

Text2.Text = sum ' عرض المجموع
End Sub


Private Sub Text1_Change(Index As Integer)
checkletter (Index) ' استدعاء الدالة و ارسال رقم الاندكس لها

End Sub