الصـقر

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

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

اخى الحبيب يوجد الكثير والكثير بالمنتدى عن شروحات لتعلم Vba على سبيل المثال وليس الحصر الروابط التالية http://www.officena.net/ib/topic/56000-دروس-فى-vba-excel-_-نتعلم-معا-برمجه-اكسل/?do=findComment&comment=354343 للأخ الغالي محمود الشريف --------------------------------------------------------------------------------------------------------- http://www.officena.net/ib/topic/56941-افتح-الباب-وادخل-لعالم-البرمجة-متخافوش-يا-أحباب-من-اللي-ورا-الباب/?do=findComment&comment=361264 للأخ الحبيب ياسر خليل --------------------------------------------------------------------------------- تقبل تحياتى

اخى الكريم جرب البرنامج التالى http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/?do=findComment&comment=409368 تقبل تحياتى

البرنامج مش بيفتح عندى يا حلو حاول شوف المشكله يمكن محتاج التاتش بتاعك

سادسا :- اجبار المستخدم على الاختيار من الكمبوبوكس يوجد طريقتين الطريقه الاولى :- هى استخدام الخاصيه Style اثناء شرحنا لخصائص الكمبوبوكس فى مرحلة التصميم تكلمنا عن الخاصيه Style ودا نسخ الجزئيه الخاصه بالخاصيه Style من شروحتنا السابقه الخاصيه ( Style ):- وهى بنظرى من اهم الخصائص للكمبوبوكس زى ما احنا عارفين لفتح القائمة الخاصه بالكمبوبوكس للاختيار منها لابد من الضغط على السهم لتفتح القائمه ولكن هذه الخاصيه تتيح للمستخدم التحكم فى وقت فتح القائمة الخاصه بالكمبوبوكس فلها خيارين الخيار الاول Fm StyleDropDown Combo - 0 :- هو الافتراضى لابد من الضغظ على السهم لفتح القائمة كما تتيح للمستخدم كتابة اى شئ بالكمبوبوكس غير موجود بالقائمه بمعنى لا تلزم المستخدم من الخيار من القائمة والخيار الثانى Fm StyleDropDown List - 2 : -هو فتح القائمة من خلال الضغط على السهم او بمجرد وقوف مؤشر الماوس على الكمبوبوكس وكمان ميزة ثالته وهى مهمه جدا هو انه لا يمكن للمستخدم كتابة اى شئ فى الكمبوبوكس يعنى كانك عامل خاصيه حمايه للكمبوبوكس ولا سبيل امام المستخدم الا من الاختيار من القائمه -------------------------------------------------------------------------------------------- الطريقه الثانية :- استخدام الخاصيه MatchFound عايزين نعمل كود يقوم باختبار قيمة الكمبوبوكس هل هى موجوده بالقائمه او لا ؟ لو الكمبوبوكس التطابق مع القائمة = خطأ نفذ الكمبوبوكس فارغ ( دا شرح الكود كدا بالبلدى وحنا قاعدين على المصطبه) لتحويل الكلام اللى بالبلدى ده الى لغة البرمجه تابع معايا لو نستبدلها بـ IF (يعنى قاعدة IF) الكمبوبوكس نستبدله باسم الكمبوبوكس المراد العمل عليه وهو على سبيل المثال Me.ComboBox1 التطابق مع القائمه دى الخاصيه Match Found بمجرد كتابة اسم الكمبوبوكس ثم . ثم حرف M ستجد الفيجوال بيسك يعرض لك قائمه للاختيار شاهد الصوره التاليه = خطأ False ( أى ان القيمة المختاره غير موجوده بالقائمه ) نفذ Then الكمبوبوكس فارغ " " شاهد الكود لما نجمع الكلام ده بقى هيكون كالتالى If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" End If طيب ما هو وقت تنفيذ الكود وقت التنفيذ انت اللى بتحدده مثلا ممكن يكون فى حدث تغيير الكمبوبوكس ()Private Sub ComboBox1_Change Private Sub ComboBox1_Change() If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" End If End Sub وبكدا لو عندك قائمه الكمبوبوكس وليكن بها ( مصر & السعودية & السودان & الجزائر ) والمستخدم تجاهل هذه القائمة وراح يكتب تونس بمجرد بس كتابة حرف ت سوف يقوم الكود بالعمل مش هيلاقى دوله فى القائمة تبدأ بحرف ت اذن تحقق شرط عدم التطابق فهيقوم بمسح حرف ت ممكن واحد يفتكر فى عفريت مسح الحرف يعنى كل ما تكتب شئ غير موجود بالقائمه هتلاقيه بيتمسح فورا ----------------------- ممكن نكتب الكود فى وقت حدث الخروج من الكمبوبوكس Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" End If End Sub يعنى المستخدم بمجرد ما يكتب تونس ويضغط انتر للانتقال الى عنصر اخر على الفورم هتلاقى الكود بيتنفذ ويمسك المستخدم من قفاه ويقوله تعالى تونس غير موجوده فى قائمة الكمبوبوكس وهيمسح تونس يعنى كأن المستخدم مكتبش اى حاجه ومازل الكمبوبوكس قيمته فارغه ممكن المستخدم يتجنن هو ايه اللى بيحصل هو ليه كل ما اكتب تونس يتم مسحها هو فى عفريت ؟؟ ما عفريت الا بنى ادم فعلشان نريحه نظهر له رساله تفيد بانه يجب الاختيار من القائمه Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" MsgBox " الرجاء الاختيار من القائمة", vbCritical, "خطأ" End If End Sub قمنا باضافه هذا السطر بالكود قبل نهاية IF MsgBox " الرجاء الاختيار من القائمة", vbCritical, "خطأ" الرساله تتكون من ثلاث اقسام يفصل ما بين كل قسم وقسم علامة , القسم الاول وهو الرساله " الرجاء الاختيار من القائمه" وتم وضعها بين علامتى تنصيص ( وهو قسم اجبارى) القسم الثانى وهو نوع الرساله واظهار علامه لها فكتبنا Vbcritical رساله خطأ ( وهو قسم اختيارى يمكن الاستغناء عنه ) القسم الثالث وهو عنوان الرساله فكتبنا "خطأ" وممكن تكتب اى عنوان كما تشاء ( وهو قسم اختيارى يمكن الاستغناء عنه) فالاساس فى الرساله هو نص الرساله " الرجاء الاختيار من القائمة " MsgBox فأذا ارد اظهار علامه للرساله او عنوان لها قم باضافه القسم الثانى والثالث او استكفى بالقسم الاول اذا حبيت شاهد الرساله عند الاختيار الخاطئ من المستخدم هل يمكن كتابة الكود فى سطر واحد ؟ نعم يمكن ذالك Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.ComboBox1.MatchFound = False Then: ComboBox1 = "": MsgBox "الرجاء الاختيار من القائمة", vbCritical, "خطأ": Exit Sub End Sub كما تشاهدون الكود انه فى سطر واحد فقط وذالك باستخدام : : ( تكتب من خلال الضغط على شيفت + حرف ك بالعربى ) واستبدلنا عبارة End if بــ Exit Sub -------------------------------------------------------------------------------------------------------------------- الحمد لله انتهينا من شروحات الكمبوبوكس والى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن الـــ Frame انتظرونا تقبلوا تحياتى

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

الاستاذ الفاضل / عبدالله المجرب الاستاذ الفاضل / سعد عابد جزاكم الله خيرا على مروركم العطر تقبلوا تحياتى

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

بارك الله فيك افكار رائعه استمر فى الابداع ونحن معك تقبل تحياتى

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

الغالى والاخ الحبيب عبدالعزيز روعه جزاكم الله خيرا تقبل تحياتى

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

تفضل اخى الكريم جرب الملف المرفق تقبل تحياتى 123.zip

الاخ الحبيب / sayedMoaty الاخ الحبيب / جلال محمد الاخ الحبيب / طلعت محمد حسن جزاكم الله خيرا على مروركم العطر تقبلوا تحياتى

اخى الحبيب ابراهيم جرب المرفق ان شاء الله هو طلبك تقبل تحياتى استخراج.zip

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

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

الاخ الحبيب ابراهيم ابوليله جرب المرفق هل هو طلبك تقبل تحياتى واحترامى استخراج.zip

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

الاخ الحبيب والاستاذ / محمد الريفى جزاكم الله خيرا لمروركم العطر تقبل تحياتى

استاذى الحبيب ابويوسف الاستاذ / زيزو العجوز الاستاذ / ياسر العربى الاستاذ / Peace-man جزاكم الله خيرا على مروركم العطر تقبلوا تحياتى