اذهب الي المحتوي
أوفيسنا

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


ali_altaaiy

الردود الموصى بها

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

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

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

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

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

search.rar

رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه mahmoud-lee
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

رابط هذا التعليق
شارك

اخي ali_altaaiy

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

تحياتي

search++.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information