ali_altaaiy قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 السلام عليكم ورحة الله وبركاته احتاج الى مساعدة منكم اخوتي المطلوب عمل دالة بحث عن قيمة بعد تحقق ثلاث شروط في عامود الدالة تكون قراءتها بحث عن سعر مادة لمعين لزبون معين وفي تأريخ معين شاكر تعاونكم معي search.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 السلام عليكم تفضل أخى search.rar رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 استاذنا رجب جاويش تحياتي هذا حل اخر لاثراء الموضوع (غير متوافق مع 2003) تحياتي search+.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 (معدل) أليك أخي ماطلبت تم تعديل الرابط لتغيير شرط خلو الخلية من البيانات مساعدةفي دالة للبيع.rar تم تعديل ديسمبر 14, 2012 بواسطه mahmoud-lee رابط هذا التعليق شارك More sharing options...
ali_altaaiy قام بنشر ديسمبر 14, 2012 الكاتب مشاركة قام بنشر ديسمبر 14, 2012 الاستاذ رجب جاويش والاستاذ dahmour اني اشكركم الشكر الجزيل ادام الله ضلكم وضل هذا المنتدى الغالي .. وفقكم الله بما فيه فائدة للناس واكثر من امثالكم رابط هذا التعليق شارك More sharing options...
ali_altaaiy قام بنشر ديسمبر 14, 2012 الكاتب مشاركة قام بنشر ديسمبر 14, 2012 بارك الله فيك اخي mahmoud-lee وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 أخى الفاضل / ali_altaaiy شكرا جزيلا لك ولاثراء الموضوع هذا حل آخر search1.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 السلام عليكم كنت قد اعددت دالة معرفة ارفقها لاثراء الموضوع Function MySr(MyTbl As Range, MyDat As Date, MyVal1 As Variant, MyVal2 As Variant, col_indx As Integer) Dim R As Boolean, MyDatf As Date, MyDatT As Date For RR = 1 To MyTbl.Rows.Count On Error GoTo 1 MyDatf = MyTbl.Cells(RR, 1) - 1: MyDatT = MyTbl.Cells(RR, 2) + 1 Do If MyDatf = MyDat Then R = True: Exit Do MyDatf = MyDatf + 1 Loop Until MyDatf = MyDatT If R And MyTbl.Cells(RR, 3) = MyVal1 And MyTbl.Cells(RR, 4) = MyVal2 Then MySr = MyTbl.Cells(RR, col_indx): Exit Function End If 1 Next End Function للدالة 5 متغيرات هي 1. MyTbl جدول البيانات 2. MyDat خانة التاريخ (الشرط الاول في البحث) 3. MyVal1 خانة الاسم (الشرط الثاني للبحث) 4. MyVal2 خانة المادة (الشرط الثالث للبحث) 5. col_indx عمود النتيجة المراد استخراجها (اي ان الدالة تبحث عن اي عمود تتطابق به الشروط الثلاثة) شاهد المرفق search.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 وهذا إضافة أخري في حالة ظهور الخطأ في المعادلة مساعدةفي دالة للبيع.rar رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر ديسمبر 15, 2012 مشاركة قام بنشر ديسمبر 15, 2012 اخي ali_altaaiy هذا تعديل في المعادلة بحيث اذا كان هناك سعرين في جدول الاسعار مطابقين لنفس الشروط يظهر جملة ان هناك سعرين و هذا لتجنب الاخطاء الوارده عند ادخال الاسعار الجديدة للفترات الجديدة في جدول الاسعار تحياتي search++.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان