Tạo hộp tìm kiếm dữ liệu (1 người xem)

[kulyvn]

Mình đang cần tạo 1 hộp để tìm kiếm dữ liệu bằng cách chỉ cần nhập dữ liệu vào ô tìm kiếm. Có thể tạo 1 hộp tìm kiếm đôi với dữ liệu cần tìm ở 2 cột khác nhau (gồm cột dữ liệu số và cột họ tên : mục đích là nếu tìm ở cột số không tìm thấy thì sẽ tìm ở cột họ tên) hay không vậy?
Mn xem file đính kèm nhé !

 

[kulyvn]

Khi có kết quả sẽ trỏ chuột về ô kết quả , mình đã gửi lại file đính kèm.

Vấn đề của bạn có thể làm được, nhưng:

1. Bạn cần gõ vào ô nào để tìm??? Phải có 1 ô nào đó gõ vào chứ...

2. Có kết quả rồi dán vào đâu??? Phải rõ ràng chứ...

 

[phulien1902]

Mình đang cần tạo 1 hộp để tìm kiếm dữ liệu bằng cách chỉ cần nhập dữ liệu vào ô tìm kiếm. Có thể tạo 1 hộp tìm kiếm đôi với dữ liệu cần tìm ở 2 cột khác nhau (gồm cột dữ liệu số và cột họ tên : mục đích là nếu tìm ở cột số không tìm thấy thì sẽ tìm ở cột họ tên) hay không vậy?
Mn xem file đính kèm nhé !

Bạn tham khảo Code dưới đây, tôi dùng Input để nhập số tìm kiếm:

Sub Tim_ThongBao()
    Dim Tim As Range
    Sheets(1).UsedRange.Interior.ColorIndex = xlNone
    Set Tim = Cells.Find(what:=InputBox("Xin moi nhap so can tim vao day", "TIM KIEM"), _
                         After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
                         SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                         False)
    If Tim Is Nothing Then MsgBox "So nay khong co.": Exit Sub
    Do While Not Tim Is Nothing
        Tim.Activate
        Tim.Resize(, 3).Interior.ColorIndex = 36

        If MsgBox(" Ban muon tiep tuc ?", vbYesNo) = vbYes Then Set Tim = Cells.FindNext(Tim) Else Exit Do

    Loop
    Application.ScreenUpdating = True
End Sub

 

[kulyvn]

Mình muốn tạo 1 box để nhập dữ liệu vào và tìm , bỏ luôn cái bảng thông báo bạn có muốn tiếp tục không vì nó bị lỗi rồi và cũng không cần thiết , cám ơn bạn nhiều nhé

Bạn tham khảo Code dưới đây, tôi dùng Input để nhập số tìm kiếm:

Sub Tim_ThongBao()
    Dim Tim As Range
    Sheets(1).UsedRange.Interior.ColorIndex = xlNone
    Set Tim = Cells.Find(what:=InputBox("Xin moi nhap so can tim vao day", "TIM KIEM"), _
                         After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
                         SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                         False)
    If Tim Is Nothing Then MsgBox "So nay khong co.": Exit Sub
    Do While Not Tim Is Nothing
        Tim.Activate
        Tim.Resize(, 3).Interior.ColorIndex = 36

        If MsgBox(" Ban muon tiep tuc ?", vbYesNo) = vbYes Then Set Tim = Cells.FindNext(Tim) Else Exit Do

    Loop
    Application.ScreenUpdating = True
End Sub