Class hỗ trợ tìm kiếm dùng chung

[tranchautrungduong]

Chào mọi người, nếu mọi người đang gặp khó khăn về tạo nhiều userform mà việc tìm kiếm thì mỗi userform đều phải có, vậy nên bạn sẽ viết đi viết lại rất nhiều code tìm kiếm này cho mỗi userform
Xin chia sẻ với mọi người 1 class dùng chung cho việc tìm kiếm này.

File demo

 

[Maika8008]

Đối với người dùng bình thường thì muốn chỉnh sửa để dùng cho dữ liệu 5 cột thay vì 10 cột như file ví dụ thì khá khó à nghe.

 

[tranchautrungduong]

Đối với người dùng bình thường thì muốn chỉnh sửa để dùng cho dữ liệu 5 cột thay vì 10 cột như file ví dụ thì khá khó à nghe.

sao khó bạn? bạn thử xem 5 cột dc k? vô khỏi tạo form chỉnh mảng đầu vào cho phù hợp là dc

 

[Maika8008]

sao khó bạn? bạn thử xem 5 cột dc k? vô khỏi tạo form chỉnh mảng đầu vào cho phù hợp là dc

Tôi thử 3 cột từ E - G thì độ rộng cột không thay đổi tương ứng

 

[tranchautrungduong]

Tôi thử 3 cột từ E - G thì độ rộng cột không thay đổi tương ứng
View attachment 275477

ở đây mình chỉ là class dùng để tìm kiếm k cần viết đi viết lại! mình làm form để demo thôi. chứ k phải áp data vào đó nó tùy biến theo data bạn ơi! mình nói rõ là class module mà!

Bài đã được tự động gộp: 6/5/22

Private Sub txtTimKiem_Change()
    Dim iSearch As New clsSearch
    
    iSearch.Data_Source = arr 'mang data
    iSearch.mySearch (txtTimKiem.Value) 'phuong thuc tim khi textbox change
    lstResultData.List = iSearch.Data_Result 'tra ve ket qua tim dc
    
End Sub

Khi có class bạn muốn tìm gì thì chỉ cần vài câu như thế cho mỗi Userform mới! chứ k cần viết đi viết lại câu lệnh tìm kiếm nữa. bạn hiểu ý tôi chứ! @Maika8008

 

[Maika8008]

ở đây mình chỉ là class dùng để tìm kiếm k cần viết đi viết lại! mình làm form để demo thôi. chứ k phải áp data vào đó nó tùy biến theo data bạn ơi! mình nói rõ là class module mà!

Bài đã được tự động gộp: 6/5/22

Private Sub txtTimKiem_Change()
    Dim iSearch As New clsSearch
   
    iSearch.Data_Source = arr 'mang data
    iSearch.mySearch (txtTimKiem.Value) 'phuong thuc tim khi textbox change
    lstResultData.List = iSearch.Data_Result 'tra ve ket qua tim dc
   
End Sub

Khi có class bạn muốn tìm gì thì chỉ cần vài câu như thế cho mỗi Userform mới! chứ k cần viết đi viết lại câu lệnh tìm kiếm nữa. bạn hiểu ý tôi chứ! @Maika8008

Hiểu chứ bạn. Nhưng ý tôi là demo trông dễ nhưng áp dụng trên thực tế thì khá khó với người không biết code.

 

[ongke0711]

Hiểu chứ bạn. Nhưng ý tôi là demo trông dễ nhưng áp dụng trên thực tế thì khá khó với người không biết code.

Viết class và dùng class cho code nó ngắn gọn thì dành cho người biết code kha khá rồi bác. Khi họ xây dụng một ứng dụng nào đó, trong cùng 1 Userform có tới mấy cái comboBox, textBox cần có tính năng tìm kiếm luôn thì dùng class là gọn nhất.
À mà trong cái Userform của Excel tôi mới biết là khai báo class xong, khi đóng Form, không cần giải phóng nó. Tôi làm trong Access Form, nếu không giải phóng cái class thì nó báo lỗi ngay.