BuFaisal

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

اخي Aoos ارجو ان يكون هذا المثال هو مبتغاك اخوك بوفيصل مثال2.rar

اخي العزيز jazea السلام عليكم ورحمة الله في الرابط ادناه توجد مشاركات ممتازة جداً قد تجد بها مبتغاك ففيها مثلاً 1- البحث عن طريق ادخال قيمة في اول خلية في العامود المراد البحث به 2- البحث عن طريق ادخال قيمة في صفحة اخرى 3- او الكود العجيب والذي تكرم به استاذنا هشام شلبي وهو فورم للبحث في الصفحة كاملة http://www.officena.net/ib/index.php?showtopic=32494 أتمنى لك التوفيق اخوك بوفيصل

طريقتين كل وحده احلى من الثاني بس يتفقون على شي واحد مو مبين فيهم كيف اقدراحدد مصدر المعلومات يعني في مثال الاخ عماد (K2:K19)ومثال الأخ عادل (K6:K14) شرح بسيط راح يساعد كثير ولكم جزيل الشكر اخوكم بوفيصل

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

استاذ طارق انت كريم وان شاء الله ان انا استاهل هذه المقدمة من اجل طلب تعديل على نفس الموضوع لكن من زاوية مختلفه وذلك كتالي في الملف المرفق ستجد صفحة بأسم INQUIRY DETAILS وهي عينه من قاعدة البيانات لجميع مناقصات الشركة ومنها يتم تحديث حالة كل مناقصة من عامودVALIDITY OF PRICE-FIXING المطلوب هو هل يمكن ان يتم ترحيل جميع المناقصات التي تكون تحت حالة PENDING WITH CLIENT الى الصفحة الخاص بها (عامودDIVISION) وعند تغيير الحالة لنفس المناقصة عند الفوز AWARDED او غيره يتم حذفه من تلك الصفحة قد يكون هذا الطلب معقد التنفيذ لكن عند اتمامه سيكون قمه في التطبيق ولك خالص تحياتي اخوك بوفيصل INQUIRY DETAILS.rar

السلام عليكم ورحمة الله بعد عدة محاولات تمكنت من ادراج شروط للبحث لاكثر من عامود واضافة ميزة انه في حالة مسح قيمة الخلية ستلغى الفلترة من العامود و الغاء جميع الفلترات الشكر الجزيل الى كل من اسهم في اثراء معلومات هذا المنتدى 1-Journal Entery 2.rar

1000 الف thousand شكراً على هذا الابداع اخوك بوفيصل

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

يعطيكم العافيه شباب مشاركة جداً مفيدة بذات للذين يستخدمون قاعدة بيانات كبيره لذلك واعتذر عن كثرة الطلبات اود ان اعلم اذا بلامكان اضافة التالي 1- تمكين هذه الخاصية لاكثر من عامود على ان يتوافق كل مدخل مع الاخر مثلاً ندخل الرقم ليتم تحديده ثم ندخل اسم لشــرح القـيــد فيتم تحديده من الارقام المحدده سابقاً وهكذا . 2- زر لالغاء جميع التحديدات ستكون هذه الميزة اذا تم تطبيقها مريحة جدا جداً وستسهل عملية البحث عت المعلومات التي تتطلب اكثر من شرط لكم جزيل الشكر اخوكم بوفيصل

ايها الخبير المعتمد السلام عليكم ورحمة الله ميدع بفطرتك ولا يزيدك المدح اجلالا ولكن هل هذا الشرح هو سلسلة جديدة اي ان (شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء) قت توقف وسنكمل هنا ام ان هذه فقط لشرح range .. cells .. offsetثم سنعود الى الموضوع السابق لتكملة يوجد طلب للاخوه المشرفين جزاهم الله كل خير لتسهيل متابعة سلسلة الشروح توجد طريقة يستخدمها اغلب المنتديات حيث يتم وضع الشرح في المشاركة الاولى ويتم اضافة وتحديث السلسلة كامله في نفس المشاركة الاولى حتى يتسنى للمستفيد معرفة اخر الشروح ولا يفوت اي جزء وتكون المشاركات والاستفسارات في الاسفل في حالة الرغبة في المزيد اعتقد ان هذا اتنظيم سيكون جداً مفيد في سلسلة الشروحات المقدمة من الاستاذ الكبير عماد الحسامي وستضيف لمنتدانا العزيز ميزة جديدة على مميزاته المتعدده اخوكم بوفيصل

ابداع وكلام جميل بس عندي ثلاث استفسارات 1- اذا حبينا نستخدم اكثر من Else مثلاً =IF(J9=1,"A",IF(J9=2,"B",IF(J9=3,"F","D"))) 2- في اغلب الحالات نطبق ifعلى عامود كامل عن طريق انشاء المعادلة وسحبها فكيف يتم هذا عن طريق المكرو 3-هل استطيع ان ابرمج الكود على انه اذا تحقق الشرط اطبع الملف مثلا او اغلقه او او او وننتظر بقية الدروس ياأستاذ عماد طالبك المتحمس جداً ابوفيصل

السيد هشام شلبي "بروفسور الفورملات تخصص if رأيس جمعية if(or " المحترم لك جزيل الشكر اخوك بوفيصل طالب في كلية أوفسينا تخصص اكسل

أستاذ TareQ M اخر ما كنت اتوقع ان يتم تطبيق المطلوب عن طريق معادلة و المتميز في هذا الحل انها معادلات غير معقدة لكن اسلوبك في الاستفادة من هذه المعادلة هو المعقد وهنا يكمن التميز شاكر ومقدر خدماتكم ملاحضة اذا امكن : هل نستطيع ان نحذف المشروع في حالة الفوز او الخسارة عن طريق مكرو او معادلة حيث اني ارغب بحماية قاعدة البيانات حتى لايتم اتلاعب بالارقام اخوك بوفيصل

شاكر ومقدر لسعادتكم هذا المجهود لكن لم يتم تطبيق الشرط الاساسي وهو توزيع المدخول الشهري المتنبئ عند الفوز بالمشروع على عدد الاشهر ابتدائاً بشهر الذي يبتدئ به المشروع لكم جزيل الشكر

مشاهدة هذه البداعات تعطيني نفس الاحساس عند مشاهدة فلم اكشن في السينما ولكن مشاركة عماد الحسامي رقم 25 اعطتني احساس فلم مرعب وفقكم الله اجمعين

الاخ الكبير بوعبدالله اقف اجلالاً لسمو اخلاقك نعم الاخ والصديق والمشرف انت بارك الله فيك ولاحرمنا من علمك وعملك اخوك بوفيصل

اسادة الافاضل - السلام عليكم ورحمة الله اود ان انشئ تطبيق يساعدني في تحديث قاعدة البيانات الخاصة بالمشاريع التي قد نفوز بها وذلك لحتساب المدخول المتنبئ به بشكل شهري "forecast calculation" المطلوب هو في فورم ادخال البيانات Dataentry احدد معلومات المشروع "اسم, رقم, ...." ثم ادخل قيمة المشروع - مدته بالأشهر -احتمالية الفوز "Winning Probability" وبداية المشروع وعند الترحيل يقوم بالاتي 1- قيمة المشروع X احتمالية الفوز = المبلغ المتنبئ الفوز به 2- المبلغ المتنبئ الفوز به / مدة المشروع بالاشهر = المدخول الشهري المتنبئ عند الفوز بالمشروع 3- توزيع المدخول الشهري المتنبئ عند الفوز بالمشروع على عدد الاشهر ابتدائاً بشهر الذي يبتدئ به المشروع يوجد في المرفق مثال على المطلوب من الناحية الاخرى هل نستطيع ان نحذف المشروع في حالة الفوز او الخسارة مثلاً بشكل الي شاكر ومقدر تعاونكم اخوكم بوفيصل forecast calculation.rar

السلام عليكم ورحمة الله لو فرضنا ان لدينا خطة عمل لأنجاز مشروع خلال 12 شهر وهي على النحو التالي 10% Jan 10% Feb 10% Mar 20% Apr 40% May 60% Jun 80% Jul 100% Aug 100% Sep 100% Oct 100% Nov 100% Dec راح يكون والهدف النهائي %100 المفروض اني كل شهر راح احط الانجاز الذي تم تحقيقة لاتمام هذا المشروع ولذي سيعكس مجموع الانجاز وذلك عن طريق المتوسط AVERAGE ولي راح يكون %61 سؤالي هل توجد طريقة لحسلب الهدف النهائي بدل من %61 الي %100 وعند التحديث الانجاز الشهري والذي سيكون -+ للخطة ان يحسبها ك %100 قد يكون الشرح غير وافي لذا يوجد مثال مرفق واذا في اي استفسار ارجو عدم التردد شاكر ومقدر تجاوبكم اخوكم بوفيصل حسبة الهدف.rar

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

خير الأكواد ماقصر وأدى المطلوب وجربتها مع برنت وكانت زي الحلاوة "([{تشكورات افندم}])"

بسيطة عندك لكن عندي حركااااااااااااااااااااات وعساس تكمل الطبخة باقي شوي بهارات حطينا اغلاق الملف و SAVE ما باقي الى SAVE AS استخدمة هذا الكوود بي ماضبط Sub Save_As_file() ActiveWorkbook.SaveAs Filename:= _ template_file, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False End Sub اخوي عماد شورتك وهداية الله

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

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

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