-
10-19-2011, 09:20 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Tạo Form, sử dụng ListBox và dùng hàm Find để tìm.
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 đềView more random threads:
- Hàm tự tạo trả về mảng các giá trị
- Giúp đỡ công thức tính đơn giá
- Khắc phục sự cố của chương trình ( chạy chậm và công thức bị thay đổi )
- Macro gộp nhiều File vào 1 File
- Tạo Form nhập dữ liệu.
- Mẫu theo dõi Hợp đồng bằng excell
- Tạo dòng cộng cuối trang sổ nhật ký chung bằng Excel
- Mong các anh chị biết VBA giúp em 1 chút. Cảm ơn các Anh Chị trước
- Tạo Form nhập liệu và Link với hợp đồng lao động
- PHẦN MỀM KẾ TOÁN EXCEL
Ngày 7/5, Apple công bố thế hệ iPad Pro chạy chip M4 và mức giá trên được niêm yết trên cửa hàng Apple Store Online, tuy nhiên người dùng Việt Nam chưa thể đặt hàng. Theo đó, bản có giá thấp nhất...
IPad Pro new giá đắt quá. Giới thiệu đặt địa điểm nào giá thấp nhất