hàm tìm kiếm (1 người xem)

[quoc nhat]

Chào các anh chị trên GPE
Em có một câu hỏi muốn nhờ các anh chị chỉ giùm:
Làm thế nào để dò tìm hai dãy số khác nhau nhưng có cùng một giá trị dò ?
Khi dò tìm muốn hiển thị hai dãy số đó ở 2 cell khác nhau thì làm thế nào?
Các anh chị chỉ cách giúp em với em đang có bài toán khó như vậy mà không biết dùng hàm gì để dò tìm cả

 

[thang314]

dò tìm thì được nhưng cụ thể thế nào và muốn hiển thị ra sao thì có file cụ thể rồi nói tiếp.

 

[quoc nhat]

dò tìm thì được nhưng cụ thể thế nào và muốn hiển thị ra sao thì có file cụ thể rồi nói tiếp.

em gửi lên file ví dụ. các anh chị xem giùm rồi chỉ em cách với để em vận dụng nhé!

 

[quoc nhat]

ý em là dùng cái mã thẻ đó để dò tìm số lần xuất hiện trong danh sách rồi lấy số dòng xuất hiện đó cho vào các cell: Lần 1, lần 2, lần 3 mà em đã làm sẵn . Em nghỉ cái này khó lắm vì em tìm tham khảo trên diển đàn mà chưa thấy có bài nào đề cập đến cả

 

[Ba Tê]

ý em là dùng cái mã thẻ đó để dò tìm số lần xuất hiện trong danh sách rồi lấy số dòng xuất hiện đó cho vào các cell: Lần 1, lần 2, lần 3 mà em đã làm sẵn . Em nghỉ cái này khó lắm vì em tìm tham khảo trên diển đàn mà chưa thấy có bài nào đề cập đến cả

Vì trong box lập trình nên tặng bạn 1 code cho sheet1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng(), Arr(), I As Long, K As Long, Tem As String
If Target.Address = "$C$19" Then
    With Sheet1
        Tem = UCase(.[C19])
        Rng = .Range(.[A2], .[A2].End(xlDown)).Resize(, 10).Value
        ReDim Arr(1 To UBound(Rng, 1), 1 To 7)
            For I = 1 To UBound(Rng, 1)
                If UCase(Rng(I, 4)) = Tem Then
                    K = K + 1
                    Arr(K, 1) = Rng(I, 1): Arr(K, 2) = Rng(I, 2): Arr(K, 3) = Rng(I, 3)
                    Arr(K, 4) = Rng(I, 5): Arr(K, 5) = Rng(I, 6)
                    Arr(K, 6) = Rng(I, 7): Arr(K, 7) = Rng(I, 10)
                End If
            Next
                .[C23:I27].ClearContents
        If K Then .[C23].Resize(K, 7).Value = Arr
    End With
End If
End Sub

 

[quoc nhat]

cảm ơn anh Ba Tê nhiều vì đã giúp em, nhưng em đã gắn code vào Sheet 1 rồi mà nó không chạy vậy anh

 

[Hong.Van]

cảm ơn anh Ba Tê nhiều vì đã giúp em, nhưng em đã gắn code vào Sheet 1 rồi mà nó không chạy vậy anh

Khi gắn code của thầy BaTe vào, mà bạn thêm dòng (hay sử dụng vào File thực tế của bạn) thì code sẽ "tèo" ngay
Nói chung bạn fải cố định nơi lọc dữ liệu!

 

[quoc nhat]

Khi gắn code của thầy BaTe vào, mà bạn thêm dòng (hay sử dụng vào File thực tế của bạn) thì code sẽ "tèo" ngay
Nói chung bạn fải cố định nơi lọc dữ liệu![/QU
chị Hồng Vân Có thể giúp em không? Em gắn Code vào mà không chạy.
Chị giúp em gắn vào trong File ví dụ của em được không? chứ em không biết có làm đúng không mà nó lại "tèo" như vậy

 

[Hong.Van]

Khi gắn code của thầy BaTe vào, mà bạn thêm dòng (hay sử dụng vào File thực tế của bạn) thì code sẽ "tèo" ngay
Nói chung bạn fải cố định nơi lọc dữ liệu![/QU
chị Hồng Vân Có thể giúp em không? Em gắn Code vào mà không chạy.
Chị giúp em gắn vào trong File ví dụ của em được không? chứ em không biết có làm đúng không mà nó lại "tèo" như vậy

Nếu copy dữ liệu và paste vào cell C19 thì fải click chuột vào cell này & Enter

 

[quoc nhat]

Cảm ơn chị hồng Vân nhiều. Giờ nếu muốn sử dụng nó cho Sheet 5 file này thì làm thế nào hả chị?
Thực tình VBA thì em có biết một ít thôi , vận dụng thì được nhưng mà dữ liệu nhiều thì em bó tay luôn. Chị xem giúp với

 

[Hong.Van]

Cảm ơn chị hồng Vân nhiều. Giờ nếu muốn sử dụng nó cho Sheet 5 file này thì làm thế nào hả chị?
Thực tình VBA thì em có biết một ít thôi , vận dụng thì được nhưng mà dữ liệu nhiều thì em bó tay luôn. Chị xem giúp với

Tôi sửa code của thầy Bate cho fù hợp File thực tế của bạn
Gởi bạn file đính kèm, nhớ dữ liệu kg để trống
-------------
P/s: lưu ý sau này nhớ gởi File có cấu trúc như thực tế!
Những sheet nào kg liên quan, thì xóa bớt trước khi gởi, để nhẹ file & người khác đỡ rối mắt

 

[quoc nhat]

chị thông cảm đây là file mà em đag làm việc với nó nên không xóa được.
mà nó không kiểm tra được các ô mã khác hã chị:
vd như CN. HN. GD... mà chỉ kiểm tra được Mục CH, HC thôi. Nhờ chị xem lại giúp em

 

[Ba Tê]

Tôi sửa code của thầy Bate cho fù hợp File thực tế của bạn
Gởi bạn file đính kèm, nhớ dữ liệu kg để trống
-------------
P/s: lưu ý sau này nhớ gởi File có cấu trúc như thực tế!
Những sheet nào kg liên quan, thì xóa bớt trước khi gởi, để nhẹ file & người khác đỡ rối mắt

Do tác giả nói không rõ nên tôi không muốn tiếp tục, nhưng thấy bạn trả lời thì tôi thấy có trường hợp thế này:

Rng = .Range(.[B10], .[B10].End(xlDown)).Resize(, 10).Value

Tác giả có muốn lấy dữ liệu nguồn đến dòng 833 không?
Tiền thuốc của cột AB lấy ở cột K hay cột R?
Híc! Hỏi không rõ ràng rồi thành "lu xu bu".

 

[quoc nhat]

Em xin lổi.Nói muốn nhờ làm từ đầu đến chỉ thì sợ mọi người bảo các anh chị bắt tay chỉ việc nhưng giờ làm đến đây rồi thì nhờ mọi người giúp em nốt phần còn lại giúp em.
Vâng tiền thuốc lấy ở cột K . Có thể lấy dữ liệu đến dòng 833 không anh .
Giúp em với nhé em cảm ơn nhiều

 

[Ba Tê]

Em xin lổi.Nói muốn nhờ làm từ đầu đến chỉ thì sợ mọi người bảo các anh chị bắt tay chỉ việc nhưng giờ làm đến đây rồi thì nhờ mọi người giúp em nốt phần còn lại giúp em.
Vâng tiền thuốc lấy ở cột K . Có thể lấy dữ liệu đến dòng 833 không anh .
Giúp em với nhé em cảm ơn nhiều

Phải chi bạn đưa dữ liệu thật từ đầu. Bảng đầu tiên chỉ có mấy dòng, bảng Kiểm tra lại nằm phía dưới đó ...
Giờ thì xem thử code này nhé.
Ô V9 đừng Merge Cells lu bu nhiều chuyện lắm.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng(), Arr(), I As Long, K As Long, Tem As String
If Target.Address = "$V$9" Then
    With Sheet5
        Tem = UCase(.[V9])
        Rng = .[B10:B833].Resize(, 10).Value
        ReDim Arr(1 To UBound(Rng, 1), 1 To 7)
            For I = 1 To UBound(Rng, 1)
                If UCase(Rng(I, 4)) = Tem Then
                    K = K + 1
                    Arr(K, 1) = Rng(I, 1): Arr(K, 2) = Rng(I, 2): Arr(K, 3) = Rng(I, 3)
                    Arr(K, 4) = Rng(I, 5): Arr(K, 5) = Rng(I, 6)
                    Arr(K, 6) = Rng(I, 7): Arr(K, 7) = Rng(I, 10)
                End If
            Next
                .[V13:AB17].ClearContents
        If K Then .[V13].Resize(K, 7).Value = Arr
    End With
End If
End Sub

 

[Thaiduc]

Hong.Van! Có thể viết thêm Code khi mã tìm không có hoặc không đúng thì hiện Thông báo: Trường hợp này, dữ liệu không có

 

[quoc nhat]

Phải chi bạn đưa dữ liệu thật từ đầu. Bảng đầu tiên chỉ có mấy dòng, bảng Kiểm tra lại nằm phía dưới đó ...
Giờ thì xem thử code này nhé.
Ô V9 đừng Merge Cells lu bu nhiều chuyện lắm.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng(), Arr(), I As Long, K As Long, Tem As String
If Target.Address = "$V$9" Then
    With Sheet5
        Tem = UCase(.[V9])
        Rng = .[B10:B833].Resize(, 10).Value
        ReDim Arr(1 To UBound(Rng, 1), 1 To 7)
            For I = 1 To UBound(Rng, 1)
                If UCase(Rng(I, 4)) = Tem Then
                    K = K + 1
                    Arr(K, 1) = Rng(I, 1): Arr(K, 2) = Rng(I, 2): Arr(K, 3) = Rng(I, 3)
                    Arr(K, 4) = Rng(I, 5): Arr(K, 5) = Rng(I, 6)
                    Arr(K, 6) = Rng(I, 7): Arr(K, 7) = Rng(I, 10)
                End If
            Next
                .[V13:AB17].ClearContents
        If K Then .[V13].Resize(K, 7).Value = Arr
    End With
End If
End Sub

Xin lổi đã làm phiền anh Ba Tê nhiều. Cảm ơn anh vì đã giúp đỡ em.

 

[quoc nhat]

Giúp em tạo code tìm kiếm cho form với!

Em có cái form QLBH giờ muốn nó tìm kiếm dữ liệu như các anh chị đã làm em cái tìm kiếm trên sheet "danh sach".
các anh chị viết giúp em cái code với.