Cần giúp công thức dò tìm nhiều kết quả thỏa cùng điều kiện

[tuyetphale]

Các bạn xem file đính kèm
Giờ mình muốn dò tìm tên công ty và địa điểm dựa trên tháng và năm ký hợp đồng, thì mình phải dùng hàm nào ạ!
Ví dụ: cùng tháng, cùng năm ký hợp đồng có 2 công ty tên khác nhau và địa điểm khác nhau thì dùng hàm nào để dò ra được. Hoặc dùng cách nào được
Mong mọi người giúp đỡ!

 

[Let'GâuGâu]

Các bạn xem file đính kèm
Giờ mình muốn dò tìm tên công ty và địa điểm dựa trên tháng và năm ký hợp đồng, thì mình phải dùng hàm nào ạ!
Ví dụ: cùng tháng, cùng năm ký hợp đồng có 2 công ty tên khác nhau và địa điểm khác nhau thì dùng hàm nào để dò ra được. Hoặc dùng cách nào được
Mong mọi người giúp đỡ!

ý lộn.......xem lại file nha

 

[leonguyenz]

tên cty
F15=LOOKUP(2,1/(C3:C10=D15)/(D310=E15),E3:E10)

Chủ thớt yêu cầu "nhiều kết quả", LOOKUP chỉ được 1 thôi.
Đặt Name (dk):

=IF(($C$3:$C$10=$D$15)*($D$3:$D$10=$E$15),ROW($C$3:$C$10)-2,"")

Công thức tại F15:

=INDEX($E$3:$F$10,SMALL(dk,ROW($A1)),COLUMN(A:A))

Kéo xuống, bạn tự bẫy lỗi nếu nhiều kết quả hơn.

 

[SA_DQ]

Ngại xài file của bạn quá nên lập mới

Các bạn xem file đính kèm
Giờ mình muốn dò tìm tên công ty và địa điểm dựa trên tháng và năm ký hợp đồng, thì mình phải dùng hàm nào ạ!
Ví dụ: cùng tháng, cùng năm ký hợp đồng có 2 công ty tên khác nhau và địa điểm khác nhau thì dùng hàm nào để dò ra được. Hoặc dùng cách nào được
Mong mọi người giúp đỡ!

Option Explicit:                        Option Base 1
Function LietKe(CSDL As Range, Tháng As Byte, Nam As Integer)
 Dim Rws As Long, J As Long
 Dim Rng As Range, sRng As Range
 
 Rws = CSDL.Rows.Count
 ReDim Arr(Rws, 4)
 Set Rng = CSDL(1).Resize(Rws)
 Set sRng = Rng.Find(Tháng, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    Set sRng = Range(sRng, Rng(1).Offset(Rws))
    For Each Rng In sRng
        With Rng
            If .Value = Tháng And .Offset(, 1).Value = Nam Then
                J = J + 1
                Arr(J, 3) = .Offset(, 2).Value:     Arr(J, 1) = Tháng
                Arr(J, 4) = .Offset(, 3).Value:     Arr(J, 2) = Nam
            End If
        End With
    Next Rng
 End If
 LietKe = Arr()
End Function

 

[tuyetphale]

@SA_DQ, leonguyenz, Let'sGâuGâu: cảm ơn các bạn rất nhiều, mình làm được rồi