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 (1 người xem)

[sonvt_vnpt]

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 !

 

[doveandrose]

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

 

[sonvt_vnpt]

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 ạ.

 

[doveandrose]

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

 

[sonvt_vnpt]

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

Em xin chân thành cám ơn anh ! Theo sự hướng dân chỉ bảo của Anh (doveandrose) E đã làm được điều như mong muốn trên file của e, Rất cám ơn anh vì sự giúp đỡ này. Nếu có thời gian A có thể hướng dẫn, chỉ bảo giúp e thêm cái việc định dạng ngày tháng cho ô "ngày quyết định" trên form được ko ạ, vì hiện tại e nhập ngày trên form này là dd/mm/yyyy thì ở sheet "tonghop" nó lại nhảy thành mm/dd/yyyy (ví dụ ở form e nhập ngày 10/05/2014 thì sheet "tonghop lại hiện 05/10/2014), e có tìm hiểu cách định dạng ngày tháng của textbox nhưng vẫn chưa làm được. E mới chập chững học vẹt về VBA thành ra gặp hơi nhiều khó khăn. Mong anh bỏ qua sự bất tiện này và Giúp đỡ ạ. Chân trọng cám ơn Anh !
PS: CODE ANH TẠO GIÚP CHO E SỬ DỤNG LÚC MỚI ĐẦU ĐẶT CHUỘT VÀO Ô TÌM KIẾM HƠI ĐƠ ĐƠ CHUỘT KHOẢNG 1 GIÂY THÔI Ạ,NHƯNG NHƯ THẾ LÀ ĐƯỢC RỒI ANH Ạ, KO VẤN ĐỀ GÌ ĐÂU Ạ, NHƯNG KHI TÌM NHIỀU LẦN THÌ HIỆN TƯỢNG NÀY ĐỠ HƠN VÀ HẦU NHƯ KO XUẤT HIỆN, TỐC ĐỘ TÌM RẤT NHANH.