-
10-19-2011, 08:31 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Tạo Form dùng ListBox và 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 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(Danhsa chkhachhang!$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ôngView more random threads:
- Lỗi khi sử dụng macro,addin
- Tạo mã danh sách khách hàng trong Excel
- Lọc, so sánh giá trị nhiều điều kiện?
- Mong các bạn giúp đỡ : Lập trình VBA cho excel " lọc danh sách nhân viện có cùng độ tuổi "
- copy dữ liệu sang các sheet tương ứng
- Nhờ sửa lỗi code VBA trong Sổ cái
- Hỏi về hàm tham chiếu!
- cần giúp đỡ về in ấn trong vba excel
- Hỏi về lỗi của excel
- [Nhờ giúp đỡ] Hàm chuyển số khối lượng (tấn, tạ, yến) thành chữ.
Volkswagen Touareg được nhập cảng từ nhà máy Bratislava ở Slovakia, nơi duy nhất lắp ráp mẫu xe này, cùng với sản phẩm hạng sang Audi Q7 và Porsche Cayenne. Bộ ba sản phẩm lovense lush "anh em" là...
SUV "khủng bố" chiếm thế phân khúc xe sang cho phái mạnh