الشهابي

أخي العزيز / abumuhanad أخي العزيز إن عمل جدول بما تطلبه بتطلب وقت ، فاقترح لو تبدأ أنت بعمل جدول تقوم بإسقاط المطلوب في شكل رؤس أعمدة ثم تقوم بإرفاق ملف سوف لن يقصر معك أعضاء وخبراء هذا المنتدى إن شاء الله والعفو

أستاذنا الرائع / رجب جاويش أفكار يمكن وصفها بالسهل الممتنع هكذا يقال للقصائد الشعرية السهلة في ألفاظها الصعبة في تركيبها ولكن ليس كل شخص يمكن أن يقوم بتركيبها وتنظيمها بهذه الروعة رائع فعلا أستاذنا

أستاذنا القدير / عبد الله باقشير جزاك الله خير كل ما رأينا أ عمالكم عرفنا مدى جهلنا وأن في الأكسل درر وجواهر لا يستطيع الوصول إليها إلا غواصي الأكسل وأنت لا شك أستاذنا واحد من هولاء الغواصين تقبل تحيات تلميذكم / الشهاي

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

أخي العزيز / رعد العزاني لو ترفق ملف كمثال لما تريد يكمن لخبراناء الكرام أن يساعدوك لكن بدون ملف وحسب طلبك هذا والله أعلم لن يتمكن أحد من مساعدتك لكن أخي ممكن تشاهد الرابط التالي ربما يساعدك في المطلوب http://www.officena.net/ib/index.php?showtopic=30498

أولا : أخي في هناك غلطة من قبلي أنا لأنني أردت إضافة خلية الدينار في خلية الدرهم وجعلها في خلية واحدة لجعل تفقيطها واحد ثم أدركت أنك ربما أنك أنت تريدها مفصولة هكذا كما عملتها ونسيت أن أفصلها ولكن تم الفصل والتعديل في الملف المرفق بالنسبة للتفقيط عبارة عن دالة مستحدثة وهي NoToTxt($H$5;"دينار";"") ستجدها ضمن الدوال المعرفة من قبل المستخدم عند إضافة دالة أو تنسخها من هنا و تضعها في أي خلية تريدها وتحدد الخلية التي تريد تفقيطها بدلا من الخلية ($H$5) وعلامة الدولار قبل الحرف والرقم لتثبيت الخلية فإذا أردت أن تفقيط عمود كامل ثم أردت سحب الخلايا إلى أسفل قم بإلغاء التثبيت لتصبح مثلا ( H5) كما يمكن تغير الدينار بالدرهم أو غيره أما الطريقة التي استخدمتها هي عبارة عن جمع تفقيط خلية الدينار والدرهم في خلية واحد بواسطة إداة الجمع ( & ) أما بالنسبة لحرف ( و ) طبعا لابد منه لعطف الدينار على الدرهم ولكن ممكن حل هذه المشكلة بواسطة استخدام الدالة ( IF ) وذلك لحذف الواو عندما تكون خلية الدرهم تساوي صفرأو خلية الدينار تساوي صفر أيضاً كما في الملف المرفق تفقيط بالدينار والدرهم.rar

أخي العزيز amer1960 وبعد إذن أخينا واستاذنا أحمد البحيري تم إضافة دالة التفقيط للملف لاحظ المرفق لعله يكون المطلوب إن شاء الله تفقيط بالدينار والدرهم.rar

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

أخينا العزيز / تومي مبروك إلى الأمام إن شاء الله ربنا يزيدك علما ورفعة أخوك الشهابي

الأخ / عبد الهادي مبروك وإلى مزيد من العطاء والترقي إن شاء الله أخوك الشهابي

الأخ/ abassreda بالنسبة للضر في المعادلات والأكواد حسب علمي المحدود أنه لا يؤثر وإنما العكس يضر أي الإنتقال من 2010 إلى 2003 وبالنسبة لشرح تخفيض مستوى الماكرو هذا رابط لمدونة الأستاذ الكبير يحي حسين يشرح تخفيض مستوى الماكروا في جميع إصدارات الأكسل http://excel4us.com/blog/?p=47

أخي العزيز / aghanem لا يلزم أن تستعمل نفس تسميات الشيت الموجودة يمكنك أن تعدل في الأكواد بأسماء شيتات جديدة Sub Home() ' فتح صفحة Home ActiveWindow.SelectedSheets.Visible = False Sheets("Home").Select End Sub Subالرئيسية() ' فتح صفحة Home ActiveWindow.SelectedSheets.Visible = False Sheets("الرئيسية").Select End Sub فمثلا في الكود السابق يمكن أن تغير اسم الشيت Home باسم شيت ثاني وليكن الرئيسية كما يمكنك تغير اسم الماكرو إلى اسم تريد أو تبقيه على ما هو عليه لن يضر ذلك ولكن الأفضل أن يعبر عن مضمون الماكرو مثلاً يمكن تسميته الرئيسية فيصبح الكود هكذا

أخي العزيز / aghanem هذا الملف بعد استبدال الإرتباطات التشعبية بالأكواد Copy of PF%20Act.rar

الأخ / أبو حنين الله يخليلك حنين ويبارك فيها بصراحة من مشاهدتي لمشاركاتك وقبل أن يتم ترقيتك تمنيت لك تلك الترقية وفي رأي أنك سوف تترقى أكثر وأكثر فعلا أخي على قلت مشاركاتك لكنها من النوع الثقيل ويظهر فيها الإبداع ربنا يبارك فيك ويحفظك مبروك لك أخي من كل قلبي

أخي العزيز/ الصاري هل الشرط الثاني يؤثر على المواد الأخرى بمعنى أن الطالب إذا حصل على مجموع امتحان الفصلين على أقل من 36 ولكن المجموع الكلي للمواد 60 يعتبر راسب أم أنه إذا حصل على مجموع 60 ومجموع امتحان الفصلين أقل من 36 يعتبر له دور ثانٍ المهم هاك معادلتين الأولى لجعل الطالب راسب في حالة حصوله على أقل من 60 في مجموع الدرجات أو حصوله على أقل من 36 في مجموع امتحان الفصلين للمادة =IF(B4="";"";IF(OR(SUM(AQ4:AT4)<60;SUM(AR4;AT4)<36);"راسب";IF(OR(SUM(I4;J4)<24;SUM(H4:K4)<50;SUM(N4;P4)<24;SUM(M4:P4)<50;SUM(S4;U4)<24;SUM(R4:U4)<50;SUM(X4;Z4)<24;SUM(W4:Z4)<50;SUM(AC4;AE4)<24;SUM(AB4:AE4)<50;SUM(AH4;AJ4)<24;SUM(AG4:AJ4)<50;SUM(AM4;AO4)<24;SUM(AL4:AO4)<50);"له دور ثان";"ناجح"))) الثانية وهي في حالة حصول الطالب على 60 في مجموع الدرجات ولكنه حصل على 36 في مجموع امتحان الفصلين له دور ثانٍ =IF(B5="";"";IF(SUM(AQ5:AT5)<60;"راسب";IF(OR(SUM(I5;J5)<24;SUM(H5:K5)<50;SUM(N5;P5)<24;SUM(M5:P5)<50;SUM(S5;U5)<24;SUM(R5:U5)<50;SUM(X5;Z5)<24;SUM(W5:Z5)<50;SUM(AC5;AE5)<24;SUM(AB5:AE5)<50;SUM(AH5;AJ5)<24;SUM(AG5:AJ5)<50;SUM(AM5;AO5)<24;SUM(AL5:AO5)<50);"له دور ثان";"ناجح"))) ضع اللي تناسبك في الخلية (BM4) ثم قم بسحبها في العمود إلى آخر خلية في الجدول أو قم نسخ الخلية ( BM4 ) ثم قم بلصقها في بقية خلايا العمود من الخلية (BM5 ) إلى آخر خلية بالجدول

أخي العزيز/ الصاري أولا : أشكر على كلماتك الغالية وحسن ثناءك وهذا من كريم أخلاقكم ربنا يحفظكم ويباركفيكم ويعطيكم مثل ما تمنيتموه لنا وأكثر إن شاء بالنسبة لطلبكم الثاني إن شاء الله أكون قد فهمت المطلوب وتم عمل معادالة لذلك وقد تم وضع أمثلة لثلاثة طلاب واحد ناجح والآخر له دور ثان والثالث راسب لا حظ المرفق واخبرني بالنتيجة وإذا أي طلب آخر وعندنا قدرة على مساعدتك لن نتأخر إن شاء الله بل جميع الأخوة في هذا المنتدى الكريم لن يقصروا معك هذا ما اعتدناه من خبراء وأعضاء هذا المنتدى الغالي على قلوبنا جميعاً زيادة عدد المواد.rar

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

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

أخي العزيز/ الصاري أولا : اعتذر لك كثيراً عن تأخري في الرد وذلك لانشغالي وانقاطع النت عندي لأكثر من اسبوع ثانياً : في هذا الملف تم عمل الخلاصات والأوائل العشرة حسب ما وعدتكم سابقاً وأيضا تم عمل تنسيق شرطي ليحدد لك الطلاب الذين يستحقون الرفع بحيث يتم تضليلهم باللون الأحمر وذلك عندما تكون الدرجة أقل من 50 وأكبر 40 وبالنسبة لإضافة الدرجات هذا يحتاج إلى كود وأخوك ليس له خبرة في الأكواد كافية لعمل ذلك ولكن إن شاء الله أحد إخواننا الخبراء ربما يفيدونك بذلك كم تم تدارك خطأ في إحدى المعادالة السابقة في ورقة النتيجة تم تميزها باللون الأصفر وإن شاء الله يكون استطعت أن أقدم لك ولو شيء بسيط يخدمك في عملك موفق أخينا إن شاء الله أخوك الشهابي وهذا رابط الملف http://www.4shared.com/rar/52ADmhdF/_____.html

الأخ العزيز / عباس السماوي لقد أشرت في الشرح أنه عند اختيار البحث بالاسم تقوم بالطباعة يدوياً من أمر طباعة في برنامج الأكسل وليس بالكود زر الطباعة لا يتم استخدامه إلا عند الإختيار البحث بالرقم وإذا أردت زر للطباعة عند الإختيار بالاسم ممكن ذلك ولكن أفضل أن يكون هناك تعديل من قبل أحد الأستاذة الكرام ليقوم بالأمرين معاً والتعديل المطلوب هو عندما تكزن قيمة الخلية [GG1] تساوي 1 يتم الخروج من الحلقة التكرارية ويتم طباعة الصفحة المحددة مرة واحدة فقط Sub Print1() ActiveSheet.PageSetup.PrintArea = "$FN$1:$FZ$38" Dim i As Integer For i = Range("GC4") To Range("GC5") Range("GC4") = i If i <= Range("GC2") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i Range("GC4").Select Range("GC4") = 1 Range("GC5") = "" End Sub

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

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

الأخ العزيز/ عباس السماوي هذه محاولة لتنفيذ ما طلبت وبالذات طباعة الشهادات من كود للأستاذين الكبيرين دغيدي وبن عليه حفظهما الله إن شاء الله يكون هو مطلوبك والشرح موجود في الملف أخوك الشهابي درجات الطلاب مع الشهادة xlsm.rar

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

أستاذنا الكريم / أبو أحمد عمرة مقبولة وذنب مغفور وتجارة لن تبور افتقدناك كثيرافي تلك الأيام وغيابك كان له تأثير علينا فقد تعودنا طلتك البهية التي مثل الشمس دائما تشرق على المنتدى عساك دعوت لنا في عمرتك هذه نسألك الاستغفار لنا جميعاً فالدعاء من الحاج والمعتمر مقبول كما أخبر بذلك سيدنا محمد صلى الله عليه وآله وسلم أخكوم المحب لكم الشهابي