Hướng dẫn cách tạo UserForm tra cứu nhập liệu bằng VBA (Macro) Trên Excel



[Học VBA] Hướng dẫn cách tạo ra User Form tra cứu nhập dữ liệu trên bảng tính Excel, giúp khai thác tìm nhập dữ liệu hiệu quả trên bảng tính Excel
►►►Đăng ký theo dõi kênh Youtube►►► cập nhật những bài giảng mới nhất:
============================================
TẢI FILE THỰC HÀNH: “Tài liệu thuộc bản quyển chương trình đào tạo VBA tại Bluesofts”
CÀI ĐẶT ADD-IN A-TOOLS:
============================================
CÁC KHÓA HỌC ĐẶC BIỆT CHỈ CÓ TẠI BLUESOFTS:
(1) Khóa học Excel nâng cao cho người đi làm:
(2) Khóa học lập báo cáo động trên Excel:
(3) Khóa học lập trình VBA cơ bản:
(4) Khóa học lập trình VBA nâng cao:
(5) Đào tạo doanh nghiệp theo yêu cầu:
THÔNG TIN LIÊN HỆ
►CÔNG TY CỔ PHẦN BLUESOFTS
Tel: 096.1368.661
Web:
Email: baoninh@bluesofts.net

Xem thêm video học và các thủ thuật excel: https://mindovermetal.org/thu-thuat-excel/

Subscribe
Notify of
guest
31 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Hoang Hai Steven

Với bảng 12 cột và 10.000 dòng list box này ko hoạt động đc, treo và tự động tắt, anh có cách nào để hoạt động bt ko….thanks a đã chia sẽ

Đỗ Hoàng

cẢM ƠN BẠN VIDEO RẤT HAY MÌNH ĐÃ LÀM ĐC

Duy Trinh Nguyễn

Em viết y hệt sao nó báo lỗi ạ
Public Arr As Variant

Private Sub TextBox1_Change()

Dim BN As New BSFunctions

Dim a As Variant

a = BN.bs_vlookup("*" & TextBox1 & "*", Arr)

If IsArry(a) Then

ListBox1.List = a

Else

ListBox1.Clear

End If

Set BN = Nothing

End Sub

Private Sub UserForm_Activate()

Arr = Range("DATA").Value2

TextBox1_Change

End Sub

Private Sub OK_Click()

X1 = Selection.Address

Range(X1) = HANGMUC.Text

End Sub

Duy Trinh Nguyễn

sao không thây add in anh

Cuong Luong

Dạ em chào anh ạ, trước tiên em chân thành cảm ơn những chia sẻ rất bổ ích của anh ạ. Hiện em đã xem và thực hiện được theo những gì anh đã hướng dẫn. Tuy nhiên, cái bước quan trọng nhất là thêm nút nhấn và lập trình để nhập liệu dữ liệu tìm kiếm đó vào file excel thì lại không thấy anh đề cập ạ, thực sự em đang rất cần cái này nên mong được anh hướng dẫn thêm ạ. Nếu được anh cho em xin code viết tiếp đoạn này qua mail tucuong90@gmail.com nhé! Mong nhận được hồi âm của anh. Một lần nữa em xin chân thành cảm ơn ạ.

dung nguyen

chào thầy Bảo Ninh, e có tạo lập trình thành công , cám ơn thầy, nhưng lần sau e làm thì vào phần add in a tool chọn BSFUNCTIONS nhưng không có hiển thị hàm vlookup là sao v ạ, chỉ có hàm dlookup,hlookup, cám ơn ạ

Doãn Tường Nguyễn

Cho minh xin AddinTools.dll

TAI LANG

thầy có thể hướng đẫn em cách tạo nút nhập liệu. Mail: taiks1993@gmail.com

cong vochi

Private Sub TextBox1_Change()

Dim bn As New BSFunctions

Dim a As Variant

a = bn.bs_Vlookup(Me.TextBox1.Text, Arr)
'- báo lỗi -2147221231 (80040111)
If IsArray(a) Then

ListBox1.List = a

Else

ListBox1.Clear

End If

Set bn = Nothing

End Sub

Nhờ Anh Ninh Giúp đỡ, cảm ơn anh nhiều

cong vochi

Tôi làm tương tự excel báo lỗi: "automation error classfactory cannot supply requested class vba" rất mong giúp đỡ. thank

hui thanh

Xin code của phần tạo nút Nhập liệu đi thầy. Mail: thanhhui1000@gmail.com

Trần Doãn Hải Lâm

Thầy cho xin code của phần tạo Nút "Nhập liệu". Mail: hailam233@gmail.com. Cảm ơn thầy!

Hiep Nguyen Ngoc

Thầy có video hướng dẫn nhập liệu thì cho mình xin link hoặc tài liệu vào email: ngochiep.me@gmail.com nhé. Thanks thầy vì video bổ ích!

Cuong Dinh Van

Thầy ơi, hướng dẫn em cách tạo nút nhập liệu với ạ.

Cuong Nguyen Tien

bảng của em có hàng nghìn sản phẩm, nhưng làm đúng theo anh hướng dẫn thì chỉ hiện được 200 sản phẩm, tại sao vậy ạ?

Việt Nam Ống nhựa

Thầy hướng dẫn nốt phần nhập liệu đi ạ. Thanks thầy.

Anh Dũng Hoàng

Cảm ơn bạn, nhưng listbox không tự cập nhập khi mình nhập dữ liệu mới từ sheet, nó chỉ cập nhập khi mình khởi động lại userform. Mình đã tìm trên google nhưng không giải quyết được vấn đề này. Bạn có thể giúp mình không

Thang Nhung

anh Ninh ơi, tại sao em cài office 2010, mà không thấy hiện công cụ BSfunctions và công cụ bs_vlookup, anh chỉ giúp em với ạ

bui tuan anh

em chạy code của a thì bị lỗi "method of data member not found" tại vùng ".List" của sub textbox1. Giúp e với!

Thành Bi

video rất hay và bổ ích, hóng video hàm nhập liệu của a

Sinh Hoang

thầy cho em hỏi em muốn tìm kiếm với BSlistview thì chỗ gắn mảng kia phải dùng ntn ạ.

NAVALAND Hoàng Thiêm

ủa cái nút thêm đấy viết code như thế nào để nhập nhiều dòng từ trong list vậy bạn

Kieu Tram Nguyen

Bsfuntions có phải là mảng có chứa giá trị a không ạ? Nếu không dùng atools thì mình khai báo nó như khai báo một bảng bình thường theo dữ liệu của mình đúng không anh?

Tung Thanh

cho e hoi sao chọn dc nhieu dòng trong listbox vậy

Hồng Phạm

Anh Ninh ơi, code để nhập liệu vào bảng tìm kiếm như thế nào vậy ạ?

Lâm McGornor

NHẬP SỐ LIỆU HÀNG HÓA LỚN RẤT TIỆN LỢI VÀ TIẾT KIỆM THỜI GIAN TÌM KIẾM, NHẬP CHÍNH XÁC.

Quân Phạm Ngọc

Cho em hỏi: Tại sao trong bảng dữ liệu của em có rất nhiều hàng (phần tử) mà khi hiển thị trong ListBox số phần tử chỉ có 200 hàng (phần tử)?
Em xin cảm ơn Thầy!!!!!

Pham V Chung

Thiếu chữ nhập liệu để nhập liệu thầy ơi.

Khoa Bệnh nghề nghiệp - TT Kiểm soát bệnh tật TG

Sao trong bảng Add-in A-Tool free không có BS_VLOOKUP anh!?

Tùng Nguyễn

Cho mình hỏi muốn làm Form giống như thế mà không cần tới a toos thì code viết như thế nào ạ

Quang Kế

Cho em xin cái BSFunction