استفاده از تابع vlookup با برقراری دو شرط همزمان

[amir_ts]

با سلام
بهتر بود سوالتون رو در یک تاپیک مجزا مطرح میکردید.
فرمول های آرایه ای زیر رو ملاحظه کنید.

یک گزارش شیت1 report در حقیقت شرط نام فروشنده رو بذاریم ریز اطلاعات بارنامه رو لیست کنه

=IFERROR(INDEX(data1;SMALL(IF(name1=$D$4;ROW(name1)-4);ROW(A1));COLUMN(B1));"") 

در یک گزارش دیگه report 2 درحقیقت شمارش بارنامه های غیرتکراری(ستون a در شیت ورودی) با اعمال شرط نام فروشنده رو بیاره

=SUM(IF(FREQUENCY(IF(name1=$C5;IF(name1<>"";MATCH(num;num;0)));ROW(num)-4);1)) 

درمورد فرمول small و لیست کردن از یک شیت به شیت دیگر یک توضیح بدید .

تابع small به تنهایی نقشی در لیست کردن اطلاعات نداره برای فهمیدن چگونگی لیست کردن باید با فرمول های آرایه ای آشنا بشید که به فرمول لیست کردن اطلاعات پی ببرید.

[hamidreza asadi]

سلام دوستان.
سلولی که در آن تابع رو میخواهیم آرایه ای ذخیره کنیم merge شده و تابع رو نمیشه آرایه ای ذخیره کرد. برای اون چه پیشنهای دارید

[egafar]

سلام وعرض ادب
من یک فایل اکسل دارم که حاوی 4 ستون است.ستون اول نام شرکت می باشد .ستون دوم سال مالی و ستون سوم تاریخ مصوب و ستون چهارم نوع گزارش است
هر شرکت می تواند دارای 5 نوع گزارش 3و6و9و12و مجمع باشد با تاریخ مصوب مختلف.لذا در ستون اول نام شرکت ممکن است 5 بار پشت سرهم تکرار شود ولی با تاریخ مصوب مختلف.من می خواهم جدید ترین گزارش مصوب (ستون سوم)برای نام شرکت انتخاب شود و بجای اینکه تک تک خودم هر ردیف را چک کرده و جدیدترین تاریخ گزارش مصوب را برای نام شرکت انتخاب کنم و بقیه را حذف کنم از تابعی استفاده کنم که خودش این کاررا برایم انجام دهد .ممنون می شوم راهنمایی بفرمایید.

[M_ExceL]

سلام وعرض ادب
من یک فایل اکسل دارم که حاوی 4 ستون است.ستون اول نام شرکت می باشد .ستون دوم سال مالی و ستون سوم تاریخ مصوب و ستون چهارم نوع گزارش است
هر شرکت می تواند دارای 5 نوع گزارش 3و6و9و12و مجمع باشد با تاریخ مصوب مختلف.لذا در ستون اول نام شرکت ممکن است 5 بار پشت سرهم تکرار شود ولی با تاریخ مصوب مختلف.من می خواهم جدید ترین گزارش مصوب (ستون سوم)برای نام شرکت انتخاب شود و بجای اینکه تک تک خودم هر ردیف را چک کرده و جدیدترین تاریخ گزارش مصوب را برای نام شرکت انتخاب کنم و بقیه را حذف کنم از تابعی استفاده کنم که خودش این کاررا برایم انجام دهد .ممنون می شوم راهنمایی بفرمایید.

سلام،
کد زیر رو روی فایلی که پیوست کردید اجرا کنید :

Sub M_E()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
        Columns(6).ClearContents
        Columns(7).ClearContents
        Columns(8).ClearContents
            Range("f1") = "lvalues"
            Range("g1") = "ulist"
                lr = Cells(Rows.Count, 1).End(3).Row
                Range("A2:A" & lr).Copy
                Range("g2").PasteSpecial Paste:=xlPasteValues
                .CutCopyMode = False
                ActiveSheet.Range("$g$1:$g$" & lr).RemoveDuplicates Columns:=1, Header:=xlYes
                lrg = Cells(Rows.Count, 7).End(3).Row
                    For g = 2 To lrg
                        For a = 2 To lr
                            If Range("g" & g) = Range("a" & a) Then
                                Cells(a, 6) = g
                                    Range("h2").FormulaArray = "=TEXT(MAX(VALUE(SUBSTITUTE(INDIRECT(""c""&MATCH(" & Range("g" & g).Row & ",$f$2:$f$29,0)+1&"":""&""c""&MATCH(" & Range("g" & g).Row & ",$f$2:$f$29)+1),""/"",""""))),""####""""/""""##""""/""""##"")"
                                    s = Range("h2").Text
                                    If s <> Range("c" & a) Then Range("c" & a) = s: Range("c" & a).Interior.ColorIndex = 7
                            End If
                        Next a
                    Next g
        Columns(6).ClearContents
        Columns(7).ClearContents
        Columns(8).ClearContents
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub

یا حق.

[M_ExceL]

کد باگ کوچکی داشت که برطرف گردید :

Sub M_E()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
        Columns(6).ClearContents
        Columns(7).ClearContents
        Columns(8).ClearContents
            Range("f1") = "lvalues"
            Range("g1") = "ulist"
                lr = Cells(Rows.Count, 1).End(3).Row
                Range("A2:A" & lr).Copy
                Range("g2").PasteSpecial Paste:=xlPasteValues
                .CutCopyMode = False
                ActiveSheet.Range("$g$1:$g$" & lr).RemoveDuplicates Columns:=1, Header:=xlYes
                lrg = Cells(Rows.Count, 7).End(3).Row
                    For g = 2 To lrg
                        For a = 2 To lr
                            If Range("g" & g) = Range("a" & a) Then
                                Cells(a, 6) = g
                            End If
                        Next a
                    Next g
                    For g = 2 To lrg
                        For a = 2 To lr
                            If g = Range("f" & a) Then
                                    Range("h2").FormulaArray = "=TEXT(MAX(VALUE(SUBSTITUTE(INDIRECT(""c""&MATCH(" & g & ",$f$2:$f$" & lr & ",0)+1&"":""&""c""&MATCH(" & g & ",$f$2:$f$" & lr & ")+1),""/"",""""))),""####""""/""""##""""/""""##"")"
                                    s = Range("h2").Text
                                    If s <> Range("c" & a) Then Range("c" & a) = s: Range("c" & a).Interior.ColorIndex = 7
                            End If
                        Next a
                    Next g
        Columns(6).ClearContents
        Columns(7).ClearContents
        Columns(8).ClearContents
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub

ابتدا ماکرو رو فعال کنید، سپس روی باتن اجرای کد کلیک کنید
یا حق.