25/05/2018, 22:49

Hướng dẫn tạo userform tra cứu dữ liệu.

Có khá nhiều bạn hỏi về cách tra cứu theo từ khóa, dữ liệu gắn vào Textbox . Hôm nay mình xin giới thiệu một cách để thực hiện điều này. Bạn có thẻ theo dõi video để hình dung ra Userform này giúp chúng ta nhập liệu nhanh và chính xác cũng như hiệu quả hơn đến mức nào: Giả sử bạn có một ...

Có khá nhiều bạn hỏi về cách tra cứu theo từ khóa, dữ liệu gắn vào Textbox. Hôm nay mình xin giới thiệu một cách để thực hiện điều này. Bạn có thẻ theo dõi video để hình dung ra Userform này giúp chúng ta nhập liệu nhanh và chính xác cũng như hiệu quả hơn đến mức nào:

Giả sử bạn có một Sheet DMHH như sau:

Và 1 Sheet TEST khi các bạn click đúp vào một ô trong cột A thì hiện ra cái form , bạn gõ từ khóa vào ô tra cứu dữ liệu được lọc ra.

Sau đó bạn chọn các mã cần gắn vào sheet Test:

Để làm điều này không khó . Đầu tiên các bạn Nhán alt + F11 vào Visual basic editor, vào thẻ Insert/Userform tạo 1 form mới và đổi tên thành FrmDMHH

Vẽ 1 textbox mang tên TXTFIND với thông số như hình :

Vẽ tiếp 1 cái combobox mang tên CBDMHH với thông số như hình :

Vẽ tiếp 1 cái listbox mang tên LBDMHH với thông số như hình :

Vẽ tiếp 1 cái button  mang tên CMDADD với thông số như hình :

Các bạn vào thẻ insert /module tạo 1 module mới sau đó dán vào các hàm sau : (Hàm này được mình sửa lại của ndu96081631 bên diễn đàn giải pháp excel. Xin chân thành cảm ơn thầy

Xem thêm: Khóa học Excel kế toán ở Hà Nội

  • Hàm này để tra cứu từ khóa theo 1 cột được chỉ định
View the code on Gist.
  • Hàm này để tra cứu từ khóa trong tất cả các cột
View the code on Gist.
  • Hàm này để đo thời gian khi ta gõ ký tự vào textbox
View the code on Gist.

Sau đó các bạn click chuột phải lên userform chọn view code gắn vào các code :

  1. Nạp các đối tượng cần thiết khi Userform khởi động
View the code on Gist.

Đăng kí ngay: lớp học VBA ở Hà Nội 1 thầy 1 trò

  1. Sự kiện textbox change khi ta gõ ký tự vào :
View the code on Gist.
  1. Sự kiện Listbox change
View the code on Gist.
  1. Đưa các mã được chọn xuống sheet bằng Button
View the code on Gist.
  1. Giải phóng bộ nhớ khi thoát form
View the code on Gist.
  1. Quay lại sheet TEST đặt sự kiện :
View the code on Gist.

Xong rồi đấy bây giờ các bạn đã có thể sử dụng . Trong sheet TEST trong cột A từ ô A2 trở xuống bạn chọn 1 ô rồi nháy đúp chuột, userform sẽ hiện ra để tra cứu và chọn mã  gắn xuống sheet.

Để hiểu được các đoạn code trên bạn cần phải có kiến thức tương đối vững về vba. Nhưng không có việc gì khó nếu bạn là người ham học hỏi .

Mình xin cảm ơn anh CHANH_TQ diễn đàn giaiphapexcel đã giúp mình về kỹ thuật sử dụng Dictionary. Bạn Duc Thanh Nguyen từ Học Excel Online đã giúp đỡ mình cách sử dụng sự kiện và các kỹ thuật khác. File trên đã khá hoàn thiện hy vọng giúp đỡ được cho công việc của các bạn .! Chúc may mắn

Kỹ thuật này được áp dụng trong khoá học quản lý kho sau đây:

Series Làm kế toán với VBA – Chuyên đề : Thủ Kho

0