جمع تلقائي في التكست بوكس

[أحمد فؤاد]

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

أساتذتي وزملائي

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

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me. TextBox1.Value = Val(Me. TextBox2.Value) + Val(Me. TextBox3.Value) + Val(Me. TextBox4.Value) + Val(Me. TextBox5.Value) + Val(Me. TextBox6.Value) + Val(Me. TextBox7.Value)
TextBox1.Value = Format(Val(TextBox1), "#,##0.00")
End Sub
 

هذا الكود يجمع تلقائي داخل تكست بوكس رقم 1

بس الكود يصبح ثقيل مع كثرة البيانات

هل يوجد كود أسرع وأفضل من هذا

وجزاكم الله خيرا

[إبراهيم ابوليله]

اخى احمد

قم بارفاق ملف وسيتم

عمل المطلوب ان شاء الله

[حمادة عمر]

السلام عليكم

الاخ الحبيب / أحمد فؤاد

بارك الله فيك

بالفعل كما ااشار اخونا الحبيب /  إبراهيم ابوليله

ارفاق ملف يوضح المطلوب كما تريد

ولحين ارفاق الملف

 

شاهد الرابط التالي المشاركة رقم 39

http://www.officena.net/ib/index.php?showtopic=46420&page=2

 

وايضا نفس الموضوع المشاركة رقم 61

http://www.officena.net/ib/index.php?showtopic=46420&page=4

 

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

 

تقبلوا خالص تحياتي

[أحمد فؤاد]

أستاذي / حمادة عمر 

تم الإستفادة بكود أستاذنا القدير عبد الله باقشير

وتم عمل المطلوب

جزاكم الله خيرا