أحمد فؤاد قام بنشر مارس 13, 2014 قام بنشر مارس 13, 2014 السلام عليكم ورحمة الله وبركاته أساتذتي وزملائي أرجو مساعدتي في كود الجمع الموضح أدناه 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 بس الكود يصبح ثقيل مع كثرة البيانات هل يوجد كود أسرع وأفضل من هذا وجزاكم الله خيرا
إبراهيم ابوليله قام بنشر مارس 13, 2014 قام بنشر مارس 13, 2014 اخى احمد قم بارفاق ملف وسيتم عمل المطلوب ان شاء الله
أفضل إجابة حمادة عمر قام بنشر مارس 13, 2014 أفضل إجابة قام بنشر مارس 13, 2014 السلام عليكم الاخ الحبيب / أحمد فؤاد بارك الله فيك بالفعل كما ااشار اخونا الحبيب / إبراهيم ابوليله ارفاق ملف يوضح المطلوب كما تريد ولحين ارفاق الملف شاهد الرابط التالي المشاركة رقم 39 http://www.officena.net/ib/index.php?showtopic=46420&page=2 وايضا نفس الموضوع المشاركة رقم 61 http://www.officena.net/ib/index.php?showtopic=46420&page=4 بها بعض الاكواد المتعلقة بهذا الشأن مع شرح الاكواد في المرفقات الموجودة بهما تقبلوا خالص تحياتي
أحمد فؤاد قام بنشر مارس 14, 2014 الكاتب قام بنشر مارس 14, 2014 أستاذي / حمادة عمر تم الإستفادة بكود أستاذنا القدير عبد الله باقشير وتم عمل المطلوب جزاكم الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.