اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by حمادة عمر,

الردود الموصى بها

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

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

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

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

 

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

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information