Tìm kiếm dữ liệu (1 người xem)

[quemai81]

mình có một vấn để mong các bạn giúp đỡ ,yêu cầu mình đã ghi rõ trong file đính kèm , cảm ơn vì đã đọc bài của mình, xin cảm ơn

 

[hoamattroicoi]

Bạn thích làm bằng công thức hay VBA đây?

mình có một vấn để mong các bạn giúp đỡ ,yêu cầu mình đã ghi rõ trong file đính kèm , cảm ơn vì đã đọc bài của mình, xin cảm ơn

Thử lọc với mảng của VBA trước nhé :

Sub LocDL()
Dim sArr, dArr, j As Long, i As Long
Dim m As Integer, n As Integer
Dim sh0 As Worksheet
Dim sh1 As Worksheet
Set sh0 = Sheets("DON HANG")
Set sh1 = Sheets("BAO GIA")

sh1.Range("A14:D100").ClearContents
With sh0
sArr = .Range("A5", .[I65536].End(xlUp)).Value
End With
m = UBound(sArr, 1)
n = UBound(sArr, 2)
ReDim dArr(1 To m, 1 To n)
For i = 1 To m
    If sArr(i, 1) = sh1.[E9].Value Then
        j = j + 1
        dArr(j, 1) = sArr(i, 4)
        dArr(j, 2) = sArr(i, 5)
        dArr(j, 3) = sArr(i, 6) & "x" & sArr(i, 7)
        dArr(j, 4) = sArr(i, 9)
    End If
Next
sh1.[A14].Resize(j, 4).Value = dArr
End Sub

Kết hợp với sự kiện Worksheet_change :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [E9]) Is Nothing Then Call LocDL
End Sub

 

[quemai81]

bạn giúp mình lọc bằng công thức nha, VBA mình k hiểu gì hết, cảm ơn bạn

 

[hoamattroicoi]

bạn giúp mình lọc bằng công thức nha, VBA mình k hiểu gì hết, cảm ơn bạn

Công thức thì xem file này, bấm CtrL+F3 để xem name nhé:

 

[hien3ana]

Mình có file này giống tượng tự file của bạn quemai81, tìm kiếm dữ liệu, nhờ bạn hoamattroico giải giúp mình với nhé . Cảm ơn bạn