Hàm tìm kiếm nhiều điều kiện

[vova2209]

Chào anh chị! em có 1 bài toán như này anh chị giúp em
Sheet(PL-HTBP) ô Az1 = 106 thì sẽ lấy dữ liệu từ sheet(VoVa)
+ Điều kiện lấy dữ liệu Az1 = 106 giá trị tham chiếu BI = "BP1" thì sẽ lấy tất cả những dòng phía trên có giá trị ở BI="BP1"
+ Copy nội dung cột E & lý trình cột K của sheet(Vova) vào cột D Sheet(PL-HTBP) kết quả trả về như hình dưới bên phải
+ Đơn vị:.........
+ Khối lượng:..........

 

[befaint]

bài toán như này

Trong file có công thức rồi mà.

 

[vova2209]

Trong file có công thức rồi mà.

Em muốn điều kiện theo cột BI thêm vào hàm nữa.. nếu az1 =106 thì chỉ lấy những dòng có bp1 thôi ạ. e đang xóa hàm bên dưới fill hết xuống thì nó đang lấy cả bp2

 

[befaint]

Em muốn điều kiện theo cột BI thêm vào hàm nữa.. nếu az1 =106 thì chỉ lấy những dòng có bp1 thôi ạ. e đang xóa hàm bên dưới fill hết xuống thì nó đang lấy cả bp2

Công thức cũ, chỗ nào là VoVa!$BI$3:$BI$8045<>""

sửa thành:

VoVa!$BI$3:$BI$8045=$BA$1

 

[Ba Tê]

Dùng VBA được không?

 

[vova2209]

Dùng VBA được không?

Vâng! VBA được, anh giúp em với ạ.

 

[befaint]

VBA

Vậy từ đầu lộn tiệm rồi hả?

 

[vova2209]

Công thức cũ, chỗ nào là VoVa!$BI$3:$BI$8045<>""

sửa thành:

VoVa!$BI$3:$BI$8045=$BA$1

^^! chạy ngon rồi, hàm này mới office 2013 nên em chưa hiểu lắm, hôm trước nhờ mọi người ở diễn đàn viết cho.

Bài đã được tự động gộp: 30/3/21

Vậy từ đầu lộn tiệm rồi hả?

View attachment 256336

ý anh Bate mở rộng luôn cách khác ý ạ

 

[Ba Tê]

^^! chạy ngon rồi, hàm này mới office 2013 nên em chưa hiểu lắm, hôm trước nhờ mọi người ở diễn đàn viết cho.

Bài đã được tự động gộp: 30/3/21

ý anh Bate mở rộng luôn cách khác ý ạ

Kết quả lọc ra tối đa là 18 dòng cố định như trong file?

 

[vova2209]

Kết quả lọc ra tối đa là 18 dòng cố định như trong file?

Để lấy kết quả số nhiều, em insert dòng thêm!

 

[Ba Tê]

Để lấy kết quả số nhiều, em insert dòng thêm!

Vậy thì tùy bạn.

Option Explicit

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, BP As String
    sArr = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("E3").End(xlDown)).Resize(, 61).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 6)
With Sheets("PL-HTBP")
    BP = .Range("BA1").Value
    For I = 1 To R
        If sArr(I, 61) = BP Then
        If sArr(I, 19) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 5)
            dArr(K, 3) = sArr(I, 25)
            dArr(K, 4) = sArr(I, 19)
            dArr(K, 5) = sArr(I, 14)
            dArr(K, 6) = dArr(K, 4) - dArr(K, 5)
        End If
        End If
    Next I
    If K Then .Range("C15:H32") = dArr
End With
End Sub

 

[vova2209]

Vậy thì tùy bạn.

Option Explicit

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, BP As String
    sArr = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("E3").End(xlDown)).Resize(, 61).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 6)
With Sheets("PL-HTBP")
    BP = .Range("BA1").Value
    For I = 1 To R
        If sArr(I, 61) = BP Then
        If sArr(I, 19) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 5)
            dArr(K, 3) = sArr(I, 25)
            dArr(K, 4) = sArr(I, 19)
            dArr(K, 5) = sArr(I, 14)
            dArr(K, 6) = dArr(K, 4) - dArr(K, 5)
        End If
        End If
    Next I
    If K Then .Range("C15:H32") = dArr
End With
End Sub

Chạy rồi anh! em cảm ơn anh

 

[vova2209]

Vậy thì tùy bạn.

Option Explicit

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, BP As String
    sArr = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("E3").End(xlDown)).Resize(, 61).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 6)
With Sheets("PL-HTBP")
    BP = .Range("BA1").Value
    For I = 1 To R
        If sArr(I, 61) = BP Then
        If sArr(I, 19) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 5)
            dArr(K, 3) = sArr(I, 25)
            dArr(K, 4) = sArr(I, 19)
            dArr(K, 5) = sArr(I, 14)
            dArr(K, 6) = dArr(K, 4) - dArr(K, 5)
        End If
        End If
    Next I
    If K Then .Range("C15:H32") = dArr
End With
End Sub

Anh bate giải thích cho em từng câu lệnh của hàm này với ạ!