-
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:
- cách gửi file đính kèm
- Hướng dẫn tạo DataForm để nhập liệu vào bảng tính.
- Nhập ngày hiện tại ở bất kỳ Cell nào bằng Calendar
- Bài giảng ứng dụng Solver giải bài toán tối ưu
- CÁC ANH EM ƠI GIÚP MÌNH BÀI NÀY VỚI
- Nhờ giúp code so sánh giá trị.
- Nhờ thiết lập VBA lấy dữ liệu tự động
- Code lọc dữ liệu trong excel
- Tạo dòng cộng cuối trang sổ nhật ký chung bằng Excel
- xin giúp nhập nhanh điểm lẻ trong excel
Việc chọn lọc “áo mưa” cũng giống như những chiếc bao cao su mỏng nhất thế giới mặc thông thường vậy, mỗi người ở mỗi khu vực khác nhau lại có kích tấc thân khác nhau, người Châu Âu thì to cao hơn...
Vấn đề quý ông thắc mắc: Bao cao su nào cũng giống nhau phải không?