الحسامي

السلام عليكم ورحمة الله وبركاته ظهر في الاونة الاخيرة تزايد الاستفسار عن الجمل الشرطية وكيفية استخدامها, ولما لها من الاهمية الكبيرة في الاستخدامات المتعددة والمتكررة حتى يكاد لا يخلو يرنامج من استخدام احدى الدوال الشرطية المتعددة ، وبالنسبة الي اجزم انها اهم جمل ودوال ال vba لذلك سابدا بعمل سلسلة لشرح هذه الدوال والجمل وهذا باب مفتوح لكل من يريد المساهمة في انهاء هذه السلسلة وسنقوم بتداولها بطرق سهلة حتى تتم الفائدة للكل ومهما كان مستوى المشارك . اما الجمل والدوال التي سنتاولها فهي : 1. جملة اذا المشروطة if ... then 2. جملة الانتقال الشرطية if .. then .. else 3.جملة الانتقال الشرطية if .. then .. else المتعددة والمتشابكة 4.جملة التفرغ المتعددة case 5.دالة التحويل switch 6.دالة الاختيار المرتب choose الموضوع ليس معقد واسهل مما تتوقعونه وستلاحظون الامكانات الهائلة لهذ الدوال والجمل وتعد من اهم دوال ال vba لكن يجب فهمها بالطريقة الصحيحة ومتابعتها والتطوير في استخدامها وسنبدأ اليوم بالموضوع الاسهل " جملة اذا المشروطة if ... then " واذن الغالبية لديهم الالمام فيه ولكن حتى تتم الفائدة يجب البداية من السهل وهنا مرفق يشرح القاعدة بطريقة سهلة وبسيطة واتمتى التوفيق للجميع أخوكم عماد الحسامي HOSAMI IF THEN.rar

اخواني الاحباء استكمالا لموضوع القائمة المنسدلة هذه تطبيق لفكرة اتجاهات القائمة المنسدلة وتشمل 8 اتجاهات لليمين لليسار للاسفل للاعلى افقي اعلى يمين افقي اعلى يسار افقي اسفل يمين افقي اسفل يسار قائمة منسدلة ب8اتجاهات.rar

فكرة ممتازة جدا اخي هشام وهذا ملف معدل عسى ان ينال الاعجاب hosami1.rar

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

نفس الشئ يا ابو محمد ابعثه على hosami1@yahoo.com

اخي الحبيب ابو محمد ما بعرف ملفاتك ما بتفتح عندي يجوز السبب من عندي بس والله مو عم يفتح الملف

يا ابو محمد صراحة طلبك غير مفهوم ارفق ملف حتى نستطيع حل المشكلة

اخي ارفق مثال حتى نعرف ما تريد بالتحديد

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

جزاك الله خيرا يا ابو محمد وما قدمته وما ستقدمه فهو مفيد ومميز وخير دليل عدد مرات التحميل لما قدمته فانت بصدق مثابر وتطمح بكل السبل للتميز والاجتهاد والاستفادة

اخي ابو فيصل صراحة لم افهم المطلوب بالتحديد لكنني اجتهدت على قدر استطاعتي عسى ان يكون ما تبحث عنه حسبة الهدف1.rar

اخي هذا حل لكن باستخدام الاكواد وليس المعادلات report.rar

ابو مهند جزاك الله خيراَ واستاذنا سالم يسعدني مرورك وجزاك الله الف خير وانا وملفاتي وكل ما املك تحت امرك

اخي هذا ملف لاخونا هشام شلبي معدل فيه المسميات فقط حسب مطلوبك بعد اذن اخونا هشام هشام شلبي.rar

بعد اذن استاذنا طارق ولاثراء الموضوع اخي هذا مرفق فيه المطلوب لكن بكود جديد اظهار الاسماء بدون تكرار11.rar

ابو فيصل العزيز استعمل الكود التالي فقط Application.Dialogs(xlDialogSaveAs).Show

هذا حل يا ابو البراء تفضل المرفق Test.rar

يا ابو فيصل مشكلتك بسيطة شاهد المرفق التالي حفظ بدون خروج 2.rar

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

"وَإِذَا سَأَلَكَ عِبَادِي عَنِّي فَإِنِّي قَرِيبٌ أُجِيبُ دَعْوَةَ الدَّاعِ إِذَا دَعَانِي فَلْيَسْتَجِيبُواْ لِي وَلْيُؤْمِنُواْ بِي لَعَلَّهُمْ يَرْشُدُونَ" أسأل الله العظيم أن يشفي مرضانا ومرضى المسلمين ويلبس البراء لباس العافيه،،وان يرزقه الذريه الصالحه،، إنه سميع مجيب الدعاااااء

المرفق اخي اخي العزيز ابو البراء شكرا على مرورك وشكرا على الكلام الجميل وبالتوفيق Book22 جديد.rar

بعد اذن اخي ايسم اخي مجدي هذا الكود لا يوضع في الشيت وانما يوضع في صفحة العمل " thisworkbook "

تفضل اخي اللف المرفق حفظ بدون خروج.rar

لا ما في مشكلة فقط اصبر علي شوي

الاخ العزيز مصطفى كمال مجهود اكثر من رائع بارك الله فيك ولاثراء الموضوع هذا حل باستخدام الاكواد 1-معدل.rar