LỌC VÀ TÌM KIẾM NHIỀU ĐIỀU KIỆN (2 người xem)

[huonglien1901]

Chào mọi người!

em có hai vấn đề nhờ mọi người hỗ trợ giúp!

Trong file này em có 2 sheet: DATA, KET QUA

Trong sheet kết quả em muốn lọc nhiều tillcode đê lọc lấy ra tất cả dữ liệu thuộc điều kiện đó và vá sắp xếp lại với nhau
Ví dụ một tillcode khi lọc ra hai kết quả lấy hai kết quả đó và khi lấy tiilcode thứ 2 mà tillcode có 3 kết quả thì lấy dữ liệu nằm kế tiếp.
em ví dụ: Tillcode 4306672760102 có hai kết quả được lấy ra.
Và cho biết vị trí kết quả nằm ở dòng nào ở trong sheet DATA.

Em cảm ơn mọi người nhiều!

 

[huonglien1901]

Tôi bảo đọc cả topic thì tức đã xem cái file đó bạn đính kèm ở bài #5.
Bạn biểu đạt yêu cầu của mình rõ ràng, chi tiết, chứ cứ nêu cái bạn đã biết làm chi.

Ý anh em diễn đạt bài không rõ ràng phải không Anh?

 

[befaint]

Ý anh em diễn đạt bài không rõ ràng phải không Anh?

Không phải vậy chứ? Tại mình bị bỏ đói bữa trưa nên đầu óc lu bu không hiểu được đề bài thôi. Không có chi.

 

[huonglien1901]

Không phải vậy chứ? Tại mình bị bỏ đói bữa trưa nên đầu óc lu bu không hiểu được đề bài thôi. Không có chi.

Vậy Anh hỗ trợ em với!
Em cảm ơn Anh!

 

[befaint]

Vậy Anh hỗ trợ em với!
Em cảm ơn Anh!

Mình bảo là không hiểu đề bài thì hỗ trợ sao được...

 

[huonglien1901]

Mình bảo là không hiểu đề bài thì hỗ trợ sao được...

Em nói lại cho Anh hiểu nhé!

Từ sheet DATA có sẵn em muốn lấy kết quả qua sheet KET QUA dựa vào điều kiện Tillcode.
- 01 tillcode có bao nhiêu kết quả lấy được thì lấy hết và cứ chọn Tillcode thứ 2 kêt quả nằm kế tiếp kết quả vừa lấy ra đó.
em muốn tạo nút xóa dữ liệu để xóa tất cả dữ liệu đi rồi nhập lại mới!

Em diễn đạt như vậy Anh đã hiểu chưa?

 

[befaint]

Em nói lại cho Anh hiểu nhé!

Từ sheet DATA có sẵn em muốn lấy kết quả qua sheet KET QUA dựa vào điều kiện Tillcode.
- 01 tillcode có bao nhiêu kết quả lấy được thì lấy hết và cứ chọn Tillcode thứ 2 kêt quả nằm kế tiếp kết quả vừa lấy ra đó.
em muốn tạo nút xóa dữ liệu để xóa tất cả dữ liệu đi rồi nhập lại mới!

Em diễn đạt như vậy Anh đã hiểu chưa?

Tillcode lấy ở đâu? Nhập từ bàn phím hay bạn muốn tạo một cái list (*) (để chọn) được lấy từ sheet DATA? (Và tạo list này có điều kiện gì không?)
Bạn lập danh sách kết quả như thế có điều kiện gì không? có giới hạn số lượng Tillcode không hay áp dụng cho cả (*)?

-----------
Có gì sai sai... Hẹn bạn khi khác ha.

 

[TheThienChu]

ý là em nhập sai code thiếu hoặc sai thì không thông báo gì cả chỉ có DATAVALIDATION báo lỗi thôi. Nên em nhờ Anh khi gõ code sai hoặc thiếu thì hiển thị dòng thông báo, "Code này không đúng vui lòng nhập lại!"
Và anh ơi tạo cho em nút XOA DU LIEU trong sheet Ketqua đó Anh!

Em cảm ơn Anh!

"Code này không đúng vui lòng nhập lại!" có lẽ là làm trong DATAVALIDATION cho khỏe.
Nút xóa dữ liệu thì bạn sao chép của file đính kèm bài 6 là được.

 

[Lê Duy Thương]

"Code này không đúng vui lòng nhập lại!" có lẽ là làm trong DATAVALIDATION cho khỏe.
Nút xóa dữ liệu thì bạn sao chép của file đính kèm bài 6 là được.

validation mà copy paste vào thì cũng bó chiếu nhé các bạn

 

[HieuCD]

dùng code của bạn PacificPR, bạn xem như đúng ý chưa?

 

[huonglien1901]

dùng code của bạn PacificPR, bạn xem như đúng ý chưa?

Dạ có gì em xem có lỗi gì em báo lại cho anh

 

[huonglien1901]

validation mà copy paste vào thì cũng bó chiếu nhé các bạn

Vậy thì làm sao Anh có cách nào khác không? Hướng xử lý như thế nào?

 

[huonglien1901]

dùng code của bạn PacificPR, bạn xem như đúng ý chưa?

code ra đúng rồi Anh ơi
Vậy cho em hỏi dữ liệu nhiều áp dụng code Anh được không?
Anh ơi !
Em nhờ anh tạo bảng thông báo là khi nhập sai hoặc thiếu code thì thông báo " Code này không đúng vui lòng nhập lại

 

[HieuCD]

code ra đúng rồi Anh ơi
Anh ơi !
Em nhờ anh tạo bảng thông báo là khi nhập sai hoặc thiếu code thì thông báo " Code này không đúng vui lòng nhập lại

mình tạo thông báo rồi mà, nếu không thích đùa thì bấm chọn ô E2, chọn data validation trên menu bấm vào chổ error.. và sửa lại cho trang trọng hơn

 

[huonglien1901]

mình tạo thông báo rồi mà, nếu không thích đùa thì bấm chọn ô E2, chọn data validation trên menu bấm vào chổ error.. và sửa lại cho trang trọng hơn

Dạ em cũng tính tới trường hợp này rồi Anh ơi, Chắc sử dung validation quá

Em cảm ơn Anh

 

[HieuCD]

Dạ em cũng tính tới trường hợp này rồi Anh ơi, Chắc sử dung validation quá

Em cảm ơn Anh

trong bài nầy dùng data validation là thích hợp nhất, đơn giản, nhẹ file và kiểm soát được quá trình nhập liệu

 

[huonglien1901]

trong bài nầy dùng data validation là thích hợp nhất, đơn giản, nhẹ file và kiểm soát được quá trình nhập liệu

Dạ em cảm ơn Anh Hiếu nhiều!

 

[PacificPR]

Nếu như kiểu xắp xếp lại dữ liệu tại Sheet(Data) thì bạn tham khảo thử cái này nữa xem

Sub Locdulieu()
    Dim sArr As Variant, dArr As Variant, I As Long, J As Long, K As Long
    Dim Dic As Object, ma As Variant
Set Dic = CreateObject("Scripting.Dictionary")

With Sheets("data")
    sArr = .Range("A4", .Range("I" & Rows.Count).End(3)).Value
End With
ReDim dArr(1 To UBound(sArr), 1 To 10)
For I = LBound(sArr, 1) To UBound(sArr, 1)
    Dic(sArr(I, 2)) = 1
Next I
For Each ma In Dic.keys()
    For I = 1 To UBound(sArr)
        If sArr(I, 2) = ma Then
            K = K + 1
            For J = 1 To 9
                dArr(K, J) = sArr(I, J)
            Next J
            dArr(K, 10) = I + 3
        End If
    Next I
Next
With Sheets("ket qua")
    If K Then
        .Range("A" & Range("A65535").End(3).Row + 1).Resize(K, 10) = dArr
    Else
        MsgBox "Khong tim thay du lieu"
    End If
End With
End Sub

 

[huonglien1901]

Nếu như kiểu xắp xếp lại dữ liệu tại Sheet(Data) thì bạn tham khảo thử cái này nữa xem

Sub Locdulieu()
    Dim sArr As Variant, dArr As Variant, I As Long, J As Long, K As Long
    Dim Dic As Object, ma As Variant
Set Dic = CreateObject("Scripting.Dictionary")
ma = Sheets("ket qua").Range("E2")
With Sheets("data")
    sArr = .Range("A4", .Range("I" & Rows.Count).End(3)).Value
End With
ReDim dArr(1 To UBound(sArr), 1 To 10)
For I = LBound(sArr, 1) To UBound(sArr, 1)
    Dic(sArr(I, 2)) = 1
Next I
For Each ma In Dic.keys()
    For I = 1 To UBound(sArr)
        If sArr(I, 2) = ma Then
            K = K + 1
            For J = 1 To 9
                dArr(K, J) = sArr(I, J)
            Next J
            dArr(K, 10) = I + 3
        End If
    Next I
Next
With Sheets("ket qua")
    If K Then
        .Range("A" & Range("A65535").End(3).Row + 1).Resize(K, 10) = dArr
    Else
        MsgBox "Khong tim thay du lieu"
    End If
End With
End Sub

Cách này hay nè Anh,

Em cảm ơn Anh! có gì em test có lỗi gì em báo lại cho Anh!

 

[HieuCD]

Nếu như kiểu xắp xếp lại dữ liệu tại Sheet(Data) thì bạn tham khảo thử cái này nữa xem

...
For Each ma In Dic.keys()
    For I = 1 To UBound(sArr)
        If sArr(I, 2) = ma Then
            K = K + 1
            For J = 1 To 9
                dArr(K, J) = sArr(I, J)
            Next J
            dArr(K, 10) = I + 3
        End If
    Next I
Next
...

bạn dùng giải thuật nầy để giảm số lần duyệt sArr

Sub Locdulieu1()
    Dim sArr As Variant, dArr As Variant, I As Long, J As Long, K As Long
    Dim Dic As Object, Arr As Variant, Iarr As Variant, Tmp
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("data")
    sArr = .Range("A4", .Range("I" & Rows.Count).End(3)).Value
End With
ReDim dArr(1 To UBound(sArr), 1 To 10)
For I = LBound(sArr, 1) To UBound(sArr, 1)
    Tmp = sArr(I, 2)
    If Not Dic.exists(Tmp) Then
      Dic.Add Tmp, Array(0, I)
    Else
      Arr = Dic.Item(Tmp)
      ReDim Preserve Arr(UBound(Arr) + 1)
      Arr(UBound(Arr)) = I
      Dic(Tmp) = Arr
    End If
Next I
For Each Iarr In Dic.Items()
    For n = 1 To UBound(Iarr)
        K = K + 1
        I = Iarr(n)
        For J = 1 To 9
            dArr(K, J) = sArr(I, J)
        Next J
        dArr(K, 10) = I + 3
    Next n
Next
With Sheets("ket qua")
    If K Then
        .Range("A" & Range("A65535").End(3).Row + 1).Resize(K, 10) = dArr
    Else
        MsgBox "Khong tim thay du lieu"
    End If
End With
End Sub

 

[PacificPR]

Cám ơn anh HieuCD. Trên con đường gian khổ mong được anh dìu dắt thêm.