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

[be09]

Tạo Form, sử dụng ComboBox và dùng hàm Find để tìm.

Thực hiện như sau:
Bước 01. Tạo Name động:
a. Đặt tên sheet có tên DataList 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à Danhsach, khung Refers to gõ hàm
=OFFSET(DataList!$B$6:$B25,,,COUNTA(DataList!$B6:$B25)-5)
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 ComboBox: có Name là cboTim, 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 cboTim_Change()
LstKetqua.Clear
LstKetqua.List = Filter(WorksheetFunction.Transpose _
(Range("Danhsach")), cboTim.Text, True, vbTextCompare)
If cboTim = "" 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 ComboBox.xls - File Shared from Box.net - Free Online File Storage
Chúc thực hiện thành công

---------- Post added at 02:20 ---------- Previous post was at 01:29 ----------

Sửa tiêu đề