[عبد الله190]

السلام عليكم
هذه أول مشاركة لي في هذا الصرح العظيم والذي أتمنى له طول العمر والنجاح المتواصل ، وبالمناسبة أشكر كل من ساهم ويساهم في إنجاح هذا العملاق إن شاء الله
بالنسبة لطلب أخينا الكريم اقترح عليه هذا الكود (قد يكون طويلا نوعا ما ) ولكن مع إدخال كل رقم في أي خانة يعطي النتيجة مباشرة
حيث: Text10 مخصص لوضع العدد المضروب فيه ( قابل للتغيير) أما Text9 فهي لإظهار النتيجة مباشرة

كود :

[align=left]Private Sub Text1_Change()
Text9 = Val(Text1) * Text10    
End Sub

Private Sub Text2_Change()
Text9 = (Val(Text1) + Val(Text2)) * Text10
End Sub

Private Sub Text3_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3)) * Text10
End Sub

Private Sub Text4_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4)) * Text10
End Sub

Private Sub Text5_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5)) * Text10
End Sub

Private Sub Text6_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6)) * Text10
End Sub

Private Sub Text7_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7)) * Text10
End Sub

Private Sub Text8_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8)) * Text10
End Sub

[/align]

كما يمكنك باستعمال كود مبسط باستعمال كوموند Command والكود في هذه الحالة يكون من سطرواحد فقط والنتيجة تظهر بعد الضغط على الكوموند

كود :

[align=left]Private Sub Command1_Click()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8)) * Text10
End Sub[/align]

كما يمكنك أيضا الاستغناء عن الكوموند في حالة استعمال كل الخانات، اجعل الكود مرتبط بآخر خانة لإدخال الأعداد بحيث عند إدخال آخر رقم تظهر النتيجة مباشرة وبهذا تتجنب : 1- الكود الطويل السابق
2- عدم استعمال الكوموند
وبذلك يكون هذا أبسط كود في اعتقادي والله أعلم

كود :

[align=left]Private Sub Text8_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8)) * Text10
End Sub[/align]

أرجو أن يكون الموضوع مفهوما وتقبل تحياتي والسلام عليكم ورحمة الله