إبراهيم ابوليله

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

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

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

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

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

اخى الامير هشام جرب الملف التالى MACRO.rar

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

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

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

اخى احمد بالفعل انا ضربت ميثال فى الشيت المرفق العمود الثانى هو عمود ادخال البيانات والعمود الثالث هى القيم التى اريد اظهارها بمعنى اننى لو كتبت الرقم 50 فى الخليه b4 يتم البحث فى العمود الاول عن الرقم 50 فاذا وجد ياتى به واذا لم يوجد ياتى باقرب رقم موجود فى العمود الاول الى الرقم 50 وهكذا كما يتضح فى الخليه b5 حينما كتبت الرقم 60 وهذا الرقم غير موجود فى العمود الاول تم استرجاع اول رقم اكبر من الرقم 60 وهو 75 وهكذا ارجو ان اكون قد وفقت فى توضيح المطلوب تقبل تحياتى

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

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

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته اريد كود او معادله لاستخراج اول قيمة تلى القيمه المدخله بمعنى اننى لو كتبت الرقم 50 فى الخليه b4 يتم البحث فى العمود الاول عن الرقم 50 فاذا وجد ياتى به واذا لم يوجد ياتى باقرب رقم موجود فى العمود الاول الى الرقم 50 وهكذا كما يتضح فى الخليه b5 حينما كتبت الرقم 60 وهذا الرقم غير موجود فى العمود الاول تم استرجاع اول رقم اكبر من الرقم 60 وهو 75 وهكذا ارجو ان اكون قد وفقت فى توضيح المطلوب مرفق ملف max .rar max .rar

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

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل نودان نذكر الاخوه بالدعاء لاخينا واستاذنا الفاضل عماد الحسامى رحمه الله واعترافا منا بما قدمه لنا استاذنا عماد وبما ساهم به فى نشر العلم وبما كان له من فضل علينا فيما نحن عليه ارفق اليكم شرح الاستاذ عماد لكيفية استخدام الشروط فى vba تقبلوا تحياتى HOSAMI IF THEN.rar

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

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

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

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

السلام عليكم ورحمة الله وبركاته الدرس السابع 7-Conditions الشروط وسوف نتناول فى هذه الدرس الاتى انشاء الشرط بواسطة if استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if استخدام Select Case استخدام or مع if استخدام and مع if بعض الشروط شائعة الاستخدام ........................................... انشاء الشرط بواسطة if يتم انشاء الشرط بواسطة if وطالما كان هناك شرط اذا لابد ان تكون هناك نتيجه تتحقق بتوافر الشرط ام بعدم توافره ففى حاله توافر الشرط نستخدم كلمة then وفى حالة عدم توافر الشرط نستخدم كلمة else ثم فى النهاية لابد ان يتم اقفال الشرط if ب end if If الشرط Then ماذا سيحدث فى حالة تحقق الشرط Else فى حالة عدم تحقق الشرط ماذا سيحدث فى حالة عدم تحقق الشرط End If نهاية قاعدة الشرط مــثــــــــــــــال نريد فى حالة وجود الرقم 10 فى الخليه a17 يتم كتابة الرقم صحيح فى الخليه b17 واذا كان الرقم لايساوى الرقم 10 يتم كتابةالرقم خطأ فى الخليه b17 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions() If [a17] = 10 Then ' A17 هنا نقول انه فى حالة وجود الرقم 10 فى الخليه 'Then يتم ' الرقم صحيح B17 اعطاء الخليه [B17] = "الرقم صحيح" Else 'Else فى حالة عدم وجود ارقام غير الرقم10 ' الرقم خطأ A17 اعطاء الخليه [B22] = "الرقم خطأ" End If 'End If..... IFنهاية الشطر End Sub استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if مـثـــــــــــــــــــال نريد اذا كانت الخليه a23 بها الرقم 10 يتم كتابة a10 فى الخليه a24 واذا كانت a23 بها الرقم 20 يتم كتابة a20 فى الخليه A24 واذا كانت a23 بها الرقم 30 يتم كتابة a30 فى الخليه A24 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions1() If Range("A23") = 10 Then Range("A24") = "a10" ElseIf Range("A23") = 20 Then Range("A24") = "a20" ElseIf Range("A23") = 30 Then Range("A24") = "a30" Else Range("A24") = "خطأ" End If End Sub استخدام Select Case يمكننا استخدا مها فى حالة توافر اكثر من شرط Select Case كتابة معطيات التى يبنى عليها الشرط Case Is الشرط الاول النتيجه Case Is الشرط الثانى النتيجه Case Is الشرط الثالث النتيجه Case Else ' فى حالة عدم تحقق اى من الشروط النتيجه End Select ' Select Case نهاية مـثـــــــــــــــــــال نريد اذا كانت الخليه a45 بها الرقم 10 يتم كتابة a10 فى الخليه a46 واذا كانت a45 بها الرقم 20 يتم كتابة a20 فى الخليه A46 يتم كتابة a30 فى الخليه A46 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions2() Select Case Range("A45") Case Is = 10 Range("A46") = "a10" Case Is = 20 Range("a46") = "a20" Case Is = 30 Range("a46") = "a30" Case Else Range("a46") = "خطأ" End Select End Sub استخدام or مع if مـثـــــــــــــــــــال قوم بانشاء قاعده بيانات مكون من عمود واحد به اسماء معينه من A الى D ونريد عند كتابة اسم معين فى الخليه a59 واذا كان هذا الاسم موجود ضمن الاسماء يتم كتابة الاسم صحيح فى الخليه B59 واذا كان غير موجود يتم كتابة الاسم خطأ طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions3() If [A59] = [a54] Or [A59] = [A55] Or [A59] = [A56] Or [A59] = [a57] Then ' A59 هنا نقل انه فى حالة وجود الاسم الموجود فى الخليه ' ضمن الاسماء الموجوده فى الخلايا ' A54--او-A55--او-A56--او-A57 'Then يتم ' الاسم صحيح B59 اعطاء الخليه [b59] = "الاسم صحيح" Else 'Else فى حالة عدم وجود الاسم ضمن الاسماء يتم ' الاسم خطأ B59 اعطاء الخليه [b59] = "الاسم خطأ" End If 'End If..... IFنهاية الشطر End Sub استخدام and مع if مـثـــــــــــــــــــال نقوم بانشاء قاعده بيانات مكونه من عمودين واحد به اسماء معينه من A الى D والثانى به ارقام من 1 الى 4 ونريد عند كتابة اسم معين فى الخليه A68 وكتابة رقم معين فى الخليه b68 واذا كان هذا الاسم يخص الرقم يتم كتابة الاسم صحيح فى الخليه B59 واذا كان لا يخص هذا هذا الرقم يتم كتابة الاسم خطأ طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions4() If ([A68] = [a63] And [b68] = [b63]) Or ([A68] = [a64] And [b68] = [b64]) Or _ ([A68] = [a65] And [b68] = [b65]) Or ([A68] = [a66] And [b68] = [b66]) Then ' A68 هنا نقل انه فى حالة وجود الاسم الموجود فى الخليه ' ضمن الاسماء الموجوده فى الخلايا ' A63--او-A64--او-A65--او-A66 ' b68 وفى حالة وجود الاسم الموجود فى الخليه ' ضمن الاسماء الموجوده فى الخلايا ' b63--او-b64--او-b65--او-b66 'Then يتم ' الاسم صحيح B69 اعطاء الخليه [b69] = "الاسم صحيح" Else 'Else فى حالة عدم وجود الاسم ضمن الاسماء يتم ' الاسم خطأ 659 اعطاء الخليه [b69] = "الاسم خطأ" End If 'End If..... IFنهاية الشطر End Sub بعض الشروط شائعة الاستخدام If IsNumeric(Range("A75")) = True Then ' هنا نشترط ان تكون القيمه عدديه If IsNumeric(Range("A76")) Then ' هنا نشترط ان تكون القيمه عدديه If IsNumeric(Range("A77")) = FALSE Then ' هنا نشترط ان تكون القيمه غير عدديه If NOT IsNumeric(Range("A78")) Then ' هنا نشترط ان تكون القيمه غير عدديه--اى نصيه If IsDate(Range("79")) Then ' هنا نشترط ان تكون القيمه عباره عن تاريخ If IsEmpty(Range("80")) Then ' هنا نشترط عدم ادخال شىء اى ان تكون الخايه فارغه Sub ConditionsE() If IsNumeric(Range("A75")) = True Then ' هنا نشترط ان تكون القيمه عدديه MsgBox " قيمة الخليه A75 عدديه " End If If IsNumeric(Range("A76")) = True Then ' هنا نشترط ان تكون القيمه عدديه MsgBox " قيمة الخليه A76 عدديه " End If If IsNumeric(Range("A77")) = False Then ' هنا نشترط ان تكون القيمه غير عدديه MsgBox " قيمة الخليه A77 غير عدديه " End If If Not IsNumeric(Range("A78")) Then ' هنا نشترط ان تكون القيمه غير عدديه MsgBox " قيمة الخليه A78 غير عدديه " End If If IsDate(Range("A79")) Then ' هنا نشترط ان تكون القيمه تاريخ MsgBox " قيمة الخليه A79 تاريخ " End If If IsEmpty(Range("A80")) Then ' هنا نشترط ان تكون الخليه فارغه MsgBox " قيمة الخليه A80 فارغه " End If End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

السلام عليكم ورحمة الله وبركاته الدرس السادس 7-Conditions الشروط وسوف نتناول فى هذه الدرس الاتى انشاء الشرط بواسطة if استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if استخدام Select Case بعض الشروط التى شائعة الاستخدام ........................................... انشاء الشرط بواسطة if يتم انشاء الشرط بواسطة if وطالما كان هناك شرط اذا لابد ان تكون هناك نتيجه تتحقق بتوافر الشرط ام بعدم توافره ففى حاله توافر الشرط نستخدم كلمة then وفى حالة عدم توافر الشرط نستخدم كلمة else ثم فى النهاية لابد ان يتم اقفال الشرط if ب end if If الشرط Then ماذا سيحدث فى حالة تحقق الشرط Else فى حالة عدم تحقق الشرط ماذا سيحدث فى حالة عدم تحقق الشرط End If نهاية قاعدة الشرط مــثــــــــــــــال نريد فى حالة وجود الرقم 10 فى الخليه a17 يتم كتابة الرقم صحيح فى الخليه b17 واذا كان الرقم لايساوى الرقم 10 يتم كتابةالرقم خطأ فى الخليه b17 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions() If [a17] = 10 Then ' A17 هنا نقول انه فى حالة وجود الرقم 10 فى الخليه 'Then يتم ' الرقم صحيح B17 اعطاء الخليه [B17] = "الرقم صحيح" Else 'Else فى حالة عدم وجود ارقام غير الرقم10 ' الرقم خطأ A17 اعطاء الخليه [B22] = "الرقم خطأ" End If 'End If..... IFنهاية الشطر End Sub استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if مـثـــــــــــــــــــال نريد اذا كانت الخليه a23 بها الرقم 10 يتم كتابة a10 فى الخليه a24 واذا كانت a23 بها الرقم 20 يتم كتابة a20 فى الخليه A24 واذا كانت a23 بها الرقم 30 يتم كتابة a30 فى الخليه A24 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions1() If Range("A23") = 10 Then Range("A24") = "a10" ElseIf Range("A23") = 20 Then Range("A24") = "a20" ElseIf Range("A23") = 30 Then Range("A24") = "a30" Else Range("A24") = "خطأ" End If End Sub استخدام Select Case يمكننا استخدا مها فى حالة توافر اكثر من شرط Select Case كتابة معطيات التى يبنى عليها الشرط Case Is الشرط الاول النتيجه Case Is الشرط الثانى النتيجه Case Is الشرط الثالث النتيجه Case Else ' فى حالة عدم تحقق اى من الشروط النتيجه End Select ' Select Case نهاية مـثـــــــــــــــــــال نريد اذا كانت الخليه a45 بها الرقم 10 يتم كتابة a10 فى الخليه a46 واذا كانت a45 بها الرقم 20 يتم كتابة a20 فى الخليه A46 يتم كتابة a30 فى الخليه A46 شاهد الصوره قوم بانشاء قاعده بيانات مكون من عمود واحد به اسماء معينه من A الى D ونريد عند كتابة اسم معين فى الخليه A22 واذا كان هذا الاسم موجود ضمن الاسماء يتم كتابة الاسم صحيح فى الخليه B22 واذا كان غير موجود ينم كتابة الاسم خطأ

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

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

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

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