Xin Anh Chị viết giúp đoạn code vào file đính kèm về tìm kiếm trên form qua textbox

Chia sẻ bởi:hands

★★★★★

‹ Xin hỏi cách kiểm tra dữ liệu Hỏi cách tạo combo box thông minh ›

Quảng cáo

Mình đã đọc rất nhiều bài về code tìm kiếm trên form trong diễn đàn nhưng ko làm nổi nên up file này lên mong Anh/Chị giúp đõ viết giúp đoạn code tìm kiếm trên form cho file này, sao cho có thể: Điền tên hoặc số vào Ô tìm kiếm (textbox) và chọn tìm theo Số quyết định… hoặc tìm theo người phải thi hành (OptionButton) thì ở ListBox hiện thị theo điều kiện tìm kiếm (Bỏ trống ô tìm kiếm thì dữ liệu ở listBox hiển thị đầy đủ bình thường). Mong các A/C bớt chút thời gian giúp đỡ. Xin chân thành cám ơn !

dữ liệu trong sheet TongHop rất nhiều hay chỉ có vài dòng đó thôi vậy ?

Trong file tổng hợp là e mới nhập 1 ít dữ liệu vào để test thôi anh. Còn trung bình 1 tháng sheet tổng hợp phải nhập thêm từ 800 đến 1000 dòng. A có t hời gian phiền anh giúp e cái mục tìm kiếm với ạ.

bạn làm theo các bước sau đây
1/copy sheet TONGHOP ra 1 sheet mới và đặt tên là filTongHop . giữ lại vùng A1:AM10 . từ A11 trở lên Clear hết .sheet filTongHop không dùng để nhập liệu . chỉ chứa vùng tìm kiếm tạm thời
2/ tạo 1 module mới và ghi vào đó nội dung như file txt đính kèm dưới đây
3/ Thêm vào sự kiện change của TextBox1 như sau

Private Sub TextBox1_Change()
FillDataTongHop
Dim str As String
str = TV(TextBox1.Value)
If str = "" Then
    LstDanhsach.RowSource = "Tonghop!$E$11:$AM$65536"
Else
    FilterListTongHop str
    LstDanhsach.RowSource = "filTonghop!$E$11:$AM$65536"
End If
End Sub

4/thêm vào sự kiện change của sheet TongHop như sau

Private Sub Worksheet_Change(ByVal Target As Range)
RealDataTongHop = "nothing"
End Sub

việc tạo ra tùy chọn
.theo Tên người phải thi hành
.theo số quyết định
là không cần thiết . vì tên người và số thì có lẫn lộn với nhau được đâu
làm xong các bước mở lên gõ thử vài chữ hoặc vài số vào ô tìm kiếm và bạn hãy cho biết có bị lag hay đơ khi tìm kiếm hay không ?
code này lấy cột "tên đầu vụ" làm căn cứ . khi thêm mới hoặc sửa 1 dòng nào đó vui lòng đừng để trống cột này

www.giaiphapexcel.com/diendan/threads/xin-anh-ch%E1%BB%8B-vi%E1%BA%BFt-gi%C3%BAp-%C4%91o%E1%BA%A1n-code-v%C3%A0o-file-%C4%91%C3%ADnh-k%C3%A8m-v%E1%BB%81-t%C3%ACm-ki%E1%BA%BFm-tr%C3%AAn-form-qua-textbox.103190/#post-641528