أحمد فؤاد قام بنشر مارس 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 بس الكود يصبح ثقيل مع كثرة البيانات هل يوجد كود أسرع وأفضل من هذا وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مارس 13, 2014 مشاركة قام بنشر مارس 13, 2014 اخى احمد قم بارفاق ملف وسيتم عمل المطلوب ان شاء الله رابط هذا التعليق شارك More sharing options...
أفضل إجابة حمادة عمر قام بنشر مارس 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 بها بعض الاكواد المتعلقة بهذا الشأن مع شرح الاكواد في المرفقات الموجودة بهما تقبلوا خالص تحياتي رابط هذا التعليق شارك More sharing options...
أحمد فؤاد قام بنشر مارس 14, 2014 الكاتب مشاركة قام بنشر مارس 14, 2014 أستاذي / حمادة عمر تم الإستفادة بكود أستاذنا القدير عبد الله باقشير وتم عمل المطلوب جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان