Xin giúp hoàn thiện code lọc dữ liệu theo điều kiện (1 người xem)

[octieu_kg]

Chào cả nhà!
Mình mới tập học VBA, đã mua sách lập trình VBA trong excel về học nhưng chưa hiểu gì hết. Mặc dù rất muốn học nhưng do ở xa điều kiện học thêm khó quá.
Xin mọi người giúp mình hoàn thiện code lọc danh sách theo điều kiện với. Mình đã tham khảo file quản lý học sinh của anh Sealand nhưng không hiểu sao khi khai báo biến iT As ListItem thì nó báo sai.

 

[sealand]

Quái lạ, mình mở form 2 đâu có lỗi. Bạn nói cụ thể xem nào?

 

[octieu_kg]

Tại mình không goi Sub NapDsKH đó
sealand thử gọi Sub NapDsKH xem nó sẽ thông báo:
User-defined type not defined
Và trong LvDsKH nó không lấy dữ liệu từ sheet2 được.

 

[sealand]

Đúng làm form của bạn có vấn đề. Nó xuất phát từ điều khiển Listview nó bị hư rồi nên VBA nó không nhận diện được. Bạn cứ xoá nó đi và thêm lại là được.

 

[octieu_kg]

Cám ơn sealand rất nhiều. Nếu xóa Form thì mình tạo lại được chứ xóa Listview đi thì mình ko biết lấy nó ở đâu. Cái Listview đó mình copy file Quan ly hoc sinh đó.

 

[sealand]

Mình thay giúp bạn, nhưng mình không hiểu cái Data của bạn nên làm tạm 1 cái ví dụ. Bạn có Tearmview không, bật lên mình chỉ cho cách thêm.

 

[octieu_kg]

Mình thay giúp bạn, nhưng mình không hiểu cái Data của bạn nên làm tạm 1 cái ví dụ. Bạn có Tearmview không, bật lên mình chỉ cho cách thêm.

sealand thông cảm nhé, tại công việc bận quá, mình không theo dõi liên tục được. Hj, mình vừa tải Tearmview cài.
Cái Sheet DATA để chứa dữ liệu cho các ComboBox trong From1.
Sheet MAILMEGRE để xuất dữ liệu qua word để in hồ sơ vay.
Ý mình muốn LvDsKH sẽ lọc dữ liệu ở sheet2.
ID: 167 998 828

 

[sealand]

Tối qua mệt quá lười gõ:

Muốn thêm Listview làm như sau:
Nhấn Alt+F11 vào VBA. Listview thường không có sẵn trên thanh công cụ mà phải bổ xung. Chon Menu Tools --chọn dòng 2 : aditional control

Trong danh sách hiện ra tìm đến dòng:

-Microsoft Listview Control, version 5.0 (SP2)
-Microsoft Listview Control, version 6.0

Tốt nhất đánh dấu chọn cả 2 rồi OK. Thanh


Trên thanh công cụ hiện ra nút mình khoanh tròn. Bạn nhấn nó vẽ vào Form là có listview

 

[octieu_kg]

Cảm ơn Thầy sealand rất nhiều!
Nhờ những file do thầy tạo mà em học được rất nhiều. Thật là thích khi tự mình tạo được các code theo yêu cầu từ những code rất hay có sẵn trên diễn đàn. Sau 1 tuần mò mẫn các file khác nhau của thầy mà em hoàn thành được code tìm kiếm theo điều kiện, nhưng còn một yêu cầu khó nữa mà em mò hoài không ra (mặc dù đã search hết trên diễn dàn mà không thấy ví dụ nào giống yêu cầu của mình), Xin thầy hướng dẫn giúp em với.
Yêu cầu là:
+ Khi tìm được khách hàng trong LstDsKH thì khi ta chọn khách hàng đó hoặc bấm vào nút OK thì toàn bộ thông tin của khách hàng đó sẽ đươc load vào Form UsfTTKH.
+ Nút Sửa đổi ở Form UsfTTKH sẽ lưu lại những thay đổi của khách hàng đó (Giống Update dữ liệu)

 

[sealand]

Đúng là bạn khó làm là đúng thôi, vì trên sheet MAILMERGE của bạn duy nhất chỉ có STT là sự phân biiệt giữa hồ sơ vay này với Hồ sơ khác. Vậy mà trên List Danh sách của bạn không hề có. Ví dụ Chọn KH Tran Hoai Bao nhưng lại có 2 dòng biết lấy dòng nào đây.
Tốt nhất là trên List DS nên có cột Stt hay dòng trên sheet khi nhấn OK ta lấy luôn dòng này để load lên Form sau.

Bạn tham khảo ví dụ mình thêm dòng của Hồ sơ vào rồi căn cứ vào đó để Load nha. Minh load tạm phần Hồ sơ KH thôi và mới sử lý cho nút OK.
(Code của bạn không hợp lý và lủng củng quá. Thường Form nhiều Cont. thế này nên dùng Name mảng để sử lý nhanh và gọn)

 

[octieu_kg]

Cảm ơn thầy sealand nhiều nhiều. Em cũng đang phân vân như vậy nhưng chưa tìm ra cách. Phần code thì...nói ra em thấy ngại quá, thầy thông cảm, thầy thấy chỗ nào chưa được chỉ giúp cho em với. Em toàn học lỏm thôi, chưa có tính logic nhiều, em đang cố gắng để nó logic hơn, phải học nhiều hơn nữa. Phần làm hồ sơ là ý tưởng của em, tạm thời do yêu cầu công việc đang cần gấp mà thời gian học còn ít quá, em tính sẽ để làm phần này trước để sử dụng sau sẽ tham khảo và học hỏi sẽ làm code có tính logic hơn.