Tạo Form dùng ListBox và hàm Find để tìm.

[be09]

Thực hiện như sau:
Bước 01. Tạo Name động:
a. Đặt tên sheet có tên DanhsachKhachhang chứa danh sách.
b. Tạo Name động: chọn vùng chứa dữ liệu (ví dụ B6:B25), từ menu click Insert > Name > Define.. xuất hiện cửa sổ Define Name.

Trong khung Name in Book: và đặt tên Name động là Data, khung Refers to gõ hàm
=OFFSET(DanhsachKhachhang!$B6:$B25,,,COUNTA(Danhsachkhachhang!$B6:$B25)-1)
Nhấn nút Add xong nhấn nút OK .

Bước 02: Tạo Form.
Tạo 1 Form đặt Name là Search, caption là SEARCH FORM.
Đặt các đối tượng lên Form :
- Dùng 04 Label để tạo tiêu đề.
- Dùng 01 Text box: có Name là TxtFind, TabIndex là: 1
- Dùng 02 List box:
* List box1: Name là: LstDanhsach, TabIndex là: 0
*List box2: Name là: LstKetqua, TabIndex là: 2

Bước 03: viết code.
- Code cho Form:
Private Sub TxtFind_Change()
LstKetqua.Clear
LstKetqua.List = Filter(WorksheetFunction.Transpose _
(Range("Danhsach")), TxtFind.Text, True, vbTextCompare)
If TxtFind = "" Then LstKetqua.Clear
End Sub

- Code cho Module1:

Sub ShowForm()
Search.Show
End Sub

- Code cho nút Hiện Form:
Private Sub CommandButton1_Click()
Search.Show
End Sub

Tải File tham khảo theo Link sau: Tao Form va List.xls - File Shared from Box.net - Free Online File Storage
Chúc thực hiện thành công