Nhờ giúp đỡ về AutoComplet

[ghost85]

Nhờ các cao thủ VBA giúp mình cái này với. Mình có sheet DS có danh sách các loại thuốc (Còn rất nhiều nữa), Mình vẽ UerForm1 trên đó có TextBox1 và ListBox1 với ListBox1.RowSource là danh sách thuốc. Yêu cầu là khi mình nhập một đoạn text vào TextBox1 ListBox1 sẽ hiện danh sách các thuốc tương ứng.
VD: nhập Cef thì danh ListBox1 gồm [FONT=.VnTime]Cefotaxim 1g[/FONT][FONT=.VnTime]Lä[/FONT][FONT=.VnTime]16200[/FONT][FONT=.VnTime]Ceftriaxon 1g[/FONT][FONT=.VnTime]Lä[/FONT][FONT=.VnTime]27000[/FONT][FONT=.VnTime]Ceftriaxon 1g[/FONT][FONT=.VnTime]Lä[/FONT][FONT=.VnTime]20000[/FONT]
Mong các bạn chỉ giúp, mới học VBA nên không biết làm thế nào. Yêu cầu là phải dùng Code vì còn nhiều phần khác nhưng mình làm được rùi, mỗi phần này không biết làm thế nào.

 

[ghost85]

Không ai giúp được mình à.
Mình nghĩ dùng sự kiện Change của T­extBox1 và vòng lặp để duyệt các cell có dữ liệu thoả mãn điều kiện có số ký tự đầu tương ứng với các ký tự nhập trong textbox và phương thức AddIterm của ListBox1 sẽ add các cell có đó nhưng viết mãi không ra.