مساعدة في دالة للبحث عن نتيجة بعد تحقق الشروط

[ali_altaaiy]

السلام عليكم ورحة الله وبركاته

احتاج الى مساعدة منكم اخوتي

المطلوب عمل دالة بحث عن قيمة بعد تحقق ثلاث شروط في عامود الدالة تكون قراءتها

بحث عن سعر مادة لمعين لزبون معين وفي تأريخ معين

شاكر تعاونكم معي

search.rar

[رجب جاويش]

السلام عليكم

تفضل أخى

search.rar

[احمد عبد الناصر]

استاذنا رجب جاويش تحياتي

هذا حل اخر لاثراء الموضوع (غير متوافق مع 2003)

تحياتي

search+.rar

[جمال عبد السميع]

أليك أخي ماطلبت

تم تعديل الرابط لتغيير شرط خلو الخلية من البيانات

مساعدةفي دالة للبيع.rar

تم تعديل ديسمبر 14, 2012 بواسطه mahmoud-lee

[ali_altaaiy]

الاستاذ رجب جاويش والاستاذ dahmour اني اشكركم الشكر الجزيل ادام الله ضلكم وضل هذا المنتدى الغالي .. وفقكم الله بما فيه فائدة للناس واكثر من امثالكم

[ali_altaaiy]

بارك الله فيك اخي mahmoud-lee وشكرا جزيلا

[رجب جاويش]

أخى الفاضل / ali_altaaiy

شكرا جزيلا لك

ولاثراء الموضوع

هذا حل آخر

search1.rar

[عبدالله المجرب]

السلام عليكم

كنت قد اعددت دالة معرفة

ارفقها لاثراء الموضوع

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

[جمال عبد السميع]

وهذا إضافة أخري في حالة ظهور الخطأ في المعادلة

مساعدةفي دالة للبيع.rar

[احمد عبد الناصر]

اخي ali_altaaiy

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

تحياتي

search++.rar