ناصرالمصرى

وعليكم السلام ورحمة الله وبركاته سؤال أخير أخى وأستاذى الفاضل ماذا لو أردت تشغيل هذا الفورم على أكثر من ورقه مختلفة كهدف ومصدر البيانات واحد بمعنى فرضا لو هناك ورقة البيانات الرئيسية " المصدر " وهناك ثلاثة اوراق أخرى بإختلاف تصميمها فهل فى هذة الحالة يتم تكرار الفورم مع تغيير أسمه ومن ثم تغيير اسم الورقه الهدف وهل سيكون هناك موديول لكل ورقة عمل من الاوراق الثلاثة **** أم يمكن تعديل ذلك فى الاكواد المبينه من داخل الفوروم أرجو أن تكون الفكرة إتضحت *** شاكر فضل حضرتك وجزاكم الله خيرا

السلام عليكم أخى وإستاذى / العيدروس فضلا لا أمرا كيف يمكن تعديل هذا الجزء من الكود لكى تظهر الاسماء بشكل كامل وواضح كما يقولون على سطر واحد لان الاسماء تظهر فى الــ Frame على سطرين خاصة الاسماء الخماسية فكلما تم تكبير البنط يتم تداخل الاسماء فى بعضها أما إذا تم تصغير البنط الى 4 على سبيل المثال تظهر الاسماء كاملة لكنها صغيرة جدا For i = 1 To UBound(Ar) Set MyCBox = Frame2.Controls.Add("Forms.CheckBox.1") With MyCBox .Move 110, MyTop, 90, , True .Alignment = 0 .Font.Bold = True .Font.Size = 6 .Caption = Ar(i) .Value = False .Name = "A" & i .TextAlign = fmTextAlignRight End With MyTop = MyTop + 24 Next With Me If MyTop > .Height Then .Frame2.ScrollHeight = (UBound(Ar)) * 24 فماذا يفعل أصحاب النظر الضعيف **** وما المقصود بــالرقم 24 فهل يمكن تعديل خصائص الفوروم ليتلائم مع الجميع شاكر فضل حضرتك وجزاكم الله خيرا

وعليكم السلام ورحمة الله وبركاته بارك الله فيكم وشكرا لحضرتك لسرعة الاستجابة والتصويب تمت الافادة وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته أطلب مساعدة حضراتكم فى تصويب المعادلتين المدونتين بالمرفق التالى من شأنها إظهار نتائج الجمع بطريقة صحيحة فكيف يمكن تحقيق ذلك فى ظل وجود خلايا فارغة برجاء الاطلاع على المرفق **** شاكر فضل حضراتكم وجزاكم الله خيرا اوفسينا.xlsx

شاكر فضل حصرتك وجزاكم الله خيرا

فضلك الله أخى الكريم و شاكر فضل حضرتك فى بعض الاحيان لا تحتوى بعض الاعمدة على قيم هنا تأتى النتيجة بأصفار فكيف يمكن أن نستبدلها بفراغ فى حالة عدم إحتواء أي عمود على قيم؟ شكرا لك أستاذ على وجزاكم الله خير أخى الكريم الاستاذ / على أعتذر للعودة مرة أخرى للموضوع بعد طلب الإذن ماذا لو أردت قسمة ناتج الجمع ÷ 3 ثم ضرب × 22% على نفس المثال المرفق بعاليه النتيجة المتوقعه = 124087.11 شاكر فضل حضرتك وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته أرغب فى معادلة لجمع النطاق المبين بالورقة 1 ووضع النتائج فى الورقة 2 على خليتين أحدهما للقرش والاخرى للجنيهات شاكر فضل حضراتكم وجزاكم الله خيرا جمع نطاق من ورقه الى اخرى.xlsx

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

جزاكم الله خيرا على الرد والمشاركة مزيد من التوضيح بداخل هذا المثال لمعرفة ما أعنيه شاكر فضل حضرتك وجزاكم الله خيرا تحويل.xlsm

السلام عليكم ورحمة الله وبركاته لديّ هذا الكود الذي يُحول المعادلات إلى قيم وهو من إبداعات عمالقة هذا المنتدى إنه يعمل بشكل رائع مع البيانات الصغيرة لكنه بطيء جدا مع البيانات الكبيره فهل من سبيل لجعله أسرع *** شاكر فضل حضراتكم وجزاكم الله خيرا Sub test() Dim r As Long Application.ScreenUpdating = False r = Range("A" & Rows.Count).End(xlUp).Row Range("a2:y2").AutoFill Range("a2:y" & r), xlFillDefault Range("a3:y" & r).Value = Range("a3:y" & r).Value Range("ca2:cy2").AutoFill Range("ca2:cy" & r), xlFillDefault Range("ca3:cy" & r).Value = Range("ca3:cy" & r).Value Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته لقد أمضيت وقتًا طويل في محاولة معرفة ذلك بمفردي واستكشاف خيارات مختلفة ولكن لسوء الحظ. لذلك يُرجى مشاهدة ورقة الاخراج المطلوب مرة أخرى **** شاكر فضل حضراتكم وجزاكم الله خيرا Example+111.xlsb.xlsm

السلام عليكم ورحمة الله وبركاته بداية أخى وأستاذى الفاضل سليم أعتذر للتأخير فى الرد مبدئيا قد يكون هناك تحسينات لعمل الكود لذلك أرجو إعطائى بعض الوقت للعمل على الملف الأصلى وسوف أخبرك لاحقا عن أى ملاحظات شاكر فضل حضرتك وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته تحياتى للجميع وكل عام وحضراتكم بخير لديّ هذا الكود الذي ينسخ نطاقًا محددا من الأعمدة مع جميع التنسيقات من ورقة العمل الرئيسية إلى ورقة العمل الجديدة التي سيتم نسخ نطاق البيانات إليها مع إدراج خمسة صفوف فارغة بعد كل 25 صفًا لكنني أواجه صعوبة في إضافة بعض الاكواد التي يجب تضمينها فى هذا الكود للحصول على النتائج المرجوة في الصفوف الخمسة التي تم إدراجها حيث توقف تركيزى وتفكيرى عند هذا الحد من كتابة هذا الكود الذى يعمل بشكل جيد جدا عند هذة المرحلة لذلك أطلب من حضراتكم المساعدة فى إستكمال ما أريد تحقيقة فى هذا الموضوع حيث أحتاج الى **** إضافة صيغ الإجماليات بعد كل 25 صفًا في الصف الأول المدرج **** إضافة بعض السلاسل النصية كتوقيعات المسؤولين مثل ( أوفسينا - أوفسينا 1 - أوفسينا 2 - أوفسينا 3 - أوفسينا 4 ) في أسفل الجداول مباشرة في الصف الثاني المدرج . **** إضافة صيغ الإجماليات السابقة ( جملة ماقبله ) في الصف الخامس المدرج . أعلم جيدا أن كتابة كود يحتاج الى تركيز غالى وينبغى رفع موضوع لكل نقطة من النقاط الثلاثة المطلوب تحقيقها ولكن لكى تكمتل فكرة الموضوع أردت أن يكونوا فى موضوع واحد ... آمل أن أحصل على مساعدة حضراتكم فى هذا الموضوع لقد أرفقت عينة من المصنف تبين بوضوح ما أحاول تحقيقه في ورقة الإخراج المطلوب بعد إضافة الأكواد المتوقعة من حضراتكم شاكر فضل حضراتكم وجزاكم الله خيرا. Example.xlsb.xlsm

وعليكم السلام ورحمة الله وبركاته نعم هو كذلك جزاكم الله تعالى عنى خير الجزاء

السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم تعديل المعادلة المبينة بالخلية E2 على النحو المبين بالمرفق التالى شاكر فضل حضراتكم *** وجزاكم الله خيرا اوفسينا.xlsx

نشكر سيادتكم لإهتمامكم بالرد وأعتذر عن الرد فى حينه تمت الافادة *** شاكر فضل حضرتك **** وجزاكم الله خيرا

نشكر سيادتكم لهذا العمل الرائع جعله الله فى ميزان حسناتكم ماذا لو أردنا ان نجعل الاسم الاول والاسم الاخير سواء ثلاثى أو رباعى أو خماسى فى خلية واحدة نرجو الافاده عن كيفية القيام بذلك **** جزاكم الله خيرا

فضلك الله تعالى يا أستاذ فضل وجعل الله لك نصيبا من إسمك الكريم بهذه التوضيحات أكتملت الفائدة ***** شاكر فضل حضرتك*** تقبل وافر تقديرى واحترامى *** وجزاكم الله خيرا

أخى الفاضل الاستاذ / فضل حسين بداية جزاكم الله خيرا وبارك فيكم ولا داعى إطلاقا على تقديم أى إعتذار العكس تماما أنا من يجب تقديم الاعتذار لأخذ جزء من وقتكم الثمين فجزاكم الله تعالى عنى خير الجزاء اعتقد أن هناك حلقة تكرارية بهذا السطر من الكود من بداية الصف الثامن وحتى الصف الــ 500 For i = 8 To 500 كيف يمكن تغيير هذا السطر لنجعله الى أخر صف به بيانات أو ماهى الجملة التى يجب تغييرها أو ماهو المقصود بالرقم 500 أعتذر لجهلى فى هذه النقطة ***** شاكر فضل حضرتك وجزاكم الله خيرا

للرفع

للرفع

شاكر فضل حضرتك أستاذى الفاضل / فضل على إهتمامكم البالغ لمشاركتى فى هذا الموضوع فجزاكم الله تعالى خير الجزاء **** نعم بالتأكيد هو المطلوب من حيث النتائج ولكن هناك بعض الامور الفنية التى حاولت العمل عليها دون جدوى لعدم خبرتى فى مجال الــ VBA ألا وهى من الضرورى وعلى حد علمى أنه يجب الاعلان عن المتغيرات Option Explicit فضلا عن جزئية اهتزاز الشاشة فى بداية ونهاية الكود النقطة الاخيرة وهى أننى لا أريد إستخدام أية Buttons لتنفيذ تلك العمليات الحسابية بقدر ما أريد أن تتم هذة العمليات تلقائيا فكيف يمكن تحقيق ذلك . أضفت فى هذا المرفق شرطا أخر مع أختلاف نطاق الجمع ولحالتيين فقط وهما يعملان بطريقة ممتازة من حيث النتائج لكنى فى حاجة الى ضبط النقاط التى نوهت عنها بعاليه هذا بعد طلب الإذن فضلا لا أمرا شاكر فضل حضرتك وجزاكم الله خيرا محاولة بالكود +1111.xlsm

وعليكم السلام ورحمة الله وبركاته شاكر فضل حضرتك أستاذى الفاضل / بن عليه حاجى لمشاركتك الطيبة فبارك الله فى عمرك وجزاكم الله تعالى عنى خير الجزاء رغم تبسيطكم القيم لمعادلات IF فى مرفقى ومع إضافة باقى الشروط فى الملف الاصلى بإستخدام الحلين المقترحين من سيادتكم إلا أنه أصبح الملف ثقيل جدا جدا نظرا لما يحتويه على مايقرب من 22000 ألف صف أعتقد أننا فى حاجة إلى داله معرفه UDF لتحقيق هذة الشروط بحيث يمكن إستدعاء هذة الدالة من خلال معادله بسيطة ولكنى لست متمكن من تنفيذ ذلك بإستخدام الــ VBA فكيف يمكن تحقيق ذلك شاكر فضل حضرتك وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته أحاول إنشاء معادلة لأكثر من خمسة عشر شرط بإستخدام الدالتين IF و AND لكنها بعد تنفيذ هذا العدد من الشروط ستكون طويلة جدا جدا وسأكتفى بعد طلب الاذن من حضراتكم بعرض ثلاثة شروط على النحو التالى **** لو الخلية 8A تحتوى على كلمة الاول وجملة النطاق من الــ B8 الى E8 أكبر من أويساوى 10000 لا تعطى شيئا أى فراغ وان لم يكن كذلك ( أقل من الـ 10000 ) فسيتم طرح مبلغ الــ 10000.00 من جملة النطاق من الــ B8 الى E8 **** لو الخلية A8 تحتوى على كلمة الثانى وجملة نفس النطاق أكبر من أويساوى 8000 لا تعطى شيئا أى فراغ وان لم يكن كذلك ( أقل من الـ 8000 ) فسيتم طرح مبلغ الــ 8000 من نفس النطاق . ***** لو الخلية 8A تحتوى على كلمة الثالث وجملة نفس النطاق أكبر من أويساوى 6000 لا تعطى شيئا أى فراغ وان لم يكن كذلك ( أقل من الـ 6000 ) فسيتم طرح مبلغ الــ 6000 من نفس النطاق . كيف يمكن تحقيق هذه المسألة بمعادلة مختصرة بطريفة أخرى **** أو كود برمجى يفوم بتفيذ هذة الشروط **** برجاء الاطلاع على المرفق التالى شاكر فضل حضراتكم وجزاكم الله خيرا محاولة.xlsx

وعليكم السلام ورحمة الله وبركاته نعم أخى الفاضل هو كذلك شاكر فضل حضرتك وجزاكم الله خيرا