به دست آوردن نزدیكترین تاریخ (كمتر) به یك تاریخ از بین مجموعه*ای از تواریخ

[ظهور 313]

آقا كسی نیست راهنمایی كنه؟

[rasools13]

فرمول فایلتون به یه فایل دیگه ارجاع میده ؟!
و ظاهرا منظور بنده كاملا روشن نشده، روی همون فایل، منظورم رو بهتر توضیح دادم لطفا یه نگاه بندازید
ممنونم

با سلام دوباره
تابع مربوط به تعیین تاریخ که قبلا فرستاده بودم رو به صورت ذیل اصلاح کنید

Function NearDate(DateTarget As Date, Range As Range, Criteria_Range As Range, Criteria) As Date
    Dim Result As Date
    Dim Row, Col As Integer
      For Each c_rng In Criteria_Range
        If c_rng = Criteria Then
            Row = c_rng.Row
            Col = Range.Column
            If Cells(Row, Col) = DateTarget Then
                Result = DateTarget
                Exit For
            ElseIf Cells(Row, Col) < DateTarget Then
                 Result = Application.WorksheetFunction.Max(Result, Cells(Row, Col))
            End If
        End If
      Next
    NearDate = Result
End Function 

این تابع جدید درای چهار ورودی است
1- DateTarget = تاریخ مورد نظر
2- Range = محدوده بررسی DateTarget
3- Criteria_Range = محدوده بررسی شرط دوم
4- Criteria = مقدار شرط
.
خروجی این تابع تاریخ برابر یا نزدیک ترین تاریخ بعد از تاریخ مورد نظر است که از آن میتوانید در توابع Index و Match که قبلا گفته بودم استفاده کنید
یک نمونه در فایل پیوستی که فرستادی هست

[ظهور 313]

با سلام دوباره
تابع مربوط به تعیین تاریخ که قبلا فرستاده بودم رو به صورت ذیل اصلاح کنید

Function NearDate(DateTarget As Date, Range As Range, Criteria_Range As Range, Criteria) As Date
    Dim Result As Date
    Dim Row, Col As Integer
      For Each c_rng In Criteria_Range
        If c_rng = Criteria Then
            Row = c_rng.Row
            Col = Range.Column
            If Cells(Row, Col) = DateTarget Then
                Result = DateTarget
                Exit For
            ElseIf Cells(Row, Col) < DateTarget Then
                 Result = Application.WorksheetFunction.Max(Result, Cells(Row, Col))
            End If
        End If
      Next
    NearDate = Result
End Function 

این تابع جدید درای چهار ورودی است
1- DateTarget = تاریخ مورد نظر
2- Range = محدوده بررسی DateTarget
3- Criteria_Range = محدوده بررسی شرط دوم
4- Criteria = مقدار شرط
.
خروجی این تابع تاریخ برابر یا نزدیک ترین تاریخ بعد از تاریخ مورد نظر است که از آن میتوانید در توابع Index و Match که قبلا گفته بودم استفاده کنید
یک نمونه در فایل پیوستی که فرستادی هست

محشری پسر دمت گرم. اگه مشهد بودی حتما شاگردیتو میكردم. واقعا ممنونم، كارم خیلی راه افتاد
همینجوری اونی رو كه میخوام برام انجام میده و دیگه نیازی به توابع Index و Match ندارم، بازم ممنون
یاعلی

[rasools13]

محشری پسر دمت گرم. اگه مشهد بودی حتما شاگردیتو میكردم. واقعا ممنونم، كارم خیلی راه افتاد
همینجوری اونی رو كه میخوام برام انجام میده و دیگه نیازی به توابع Index و Match ندارم، بازم ممنون
یاعلی

خدا رو شکر.. خواهش میکنم..همین حومه مشهد هستیم 1400km اونطرف تر