Cách tạo form tìm kiếm theo từ khóa trong Excel | Tin Học Đông Phương

Hướng dẫn cách tạo form tìm kiếm từ khóa nhanh như Google trong excel bằng VBA, tìm kiếm nhanh chóng và hiệu quả trong công việc.
▶ Phần mềm Bán hàng chuyên nghiệp: bit.ly/PhanmemTHDP
▶ Viết phần mềm Excel theo yêu cầu.
▶ Dạy Tin học Online Học phí ưu đãi.
Liên hệ Thầy Phương: 0906864860 (Call, SMS, Zalo)
Xem thêm video tại đây:
👉 Hướng dẫn tạo hóa đơn bán hàng: • Hướng dẫn Tạo hóa đơn ...
👉 Hướng dẫn 2 cách Tạo Name Động trong Excel (không VBA và có VBA): • Hướng dẫn 2 cách Tạo N...
👉 Kỹ thuật tạo Menu cho file Excel bằng UserForm với VBA: • Kỹ thuật tạo Menu cho ...
👉 Cách Phân Quyền User truy cập các sheet trong file Excel: • Cách Phân Quyền User t...
______________________
Các list video bài giảng trên kênh:
▶ Học Excel cơ bản: • Học Excel Cơ Bản
▶ Kiến thức hàm Excel: • Kiến thức HÀM Excel Cơ...
▶ Luyện hàm Excel: • Luyện Hàm Excel
▶ Excel thực tiễn: • Excel Thực Tiễn
▶ VBA cho người không biết lập trình: • VBA Cho Người Không Bi...
▶ Kiến thức vi tính: • Kiến Thức Sử Dụng Vi Tính
▶ Giới thiệu phần mềm: • Hướng Dẫn Sử Dụng Phần...
#TinHocDongPhuong #ExcelVBA #TinHocThucChien

[@TinHocDongPhuong]

Các bạn tham khảo thêm video này, mình có hướng dẫn lại cách tìm kiếm không phân biệt hoa thường: kzbin.info/www/bejne/sH6lYqZ8gLaMe6c

[@behato2669]

em muốn làm 1 phần mềm để quản lý bán hàng, anh cho em xin thông tin liên hệ để em trao đổi cụ thể hơn nhé

[@TinHocDongPhuong]

@@behato2669 e liên hệ 0906864860 nhé

[@lephuc3401]

Hàm tìm kiếm này phân biệt chữ hoa và chữ thường, có cách nào tìm kiếm không phân biện chữ Hoa và chữ thường không anh?

[@onghomatkinhgialongthanhbi4474]

Cảm ơn bạn, mình mù tịch máy tính, chưa từng học tin, nhưng xem video trước và vdeo này mình đã làm đc , hoá đơn của mình gọn hơn đơn giản hơn của bạn nhưng mình vẩn làm đc do bạn hướng dẩn rất dễ hiểu

[@khamphacuocsontv2020]

Video chi tiết, rất bổ ích cho người mới sử dụng excel

[@lieuhuynh2260]

Hay lắm!, ngắn gọn dể hiểu, làm cái tiềm kiếm nâng cao đi thầy?

[@HuyenKhanh-xu1ko]

Mong anh dạy thêm cách tự động +1 sau mỗi lần click ạ. Em cảm ơn

[@hungtran-zb4mz]

Chào ad. Ad làm video hướng dẫn làm urfrom như video này đi ah. Cảm ơn ad nhiều

[@user-xw3ru1if9j]

Xin chào thầy, cảm ơn video hữu ích từ thầy, Thầy cho em hỏi thêm chút nếu muốn lấy dữ liệu từ nhiều sheet thì ta phải dùng câu lệnh như thế nào ạ.

[@minhhao6767]

Mình có video nào hướng dẫn nhập nhiều dòng và cột dữ lIệu vào listbox và từ listbox nhập vào sheet không ạ

[@sangdong1010]

Thầy giáo dạy thêm cách . click thêm lần nữa thì tự động + lại số lượng lên 1 đị ạ .

[@davha]

Quá hay

[@acluatgtdb8189]

Trường hợp có 4 sheet, mỗi sheet là 1 kho, sau khi chọn kho mới tìm theo mã hàng và tên hàng thì làm ntn thầy, thầy làm ơn hướng dẫn e với. Cảm ơn thầy trước ạ.

[@pialonesat]

Cảm ơn 1 video hay ạ !

[@HDC-Cuong16tui]

Video rất hay và dễ hiểu ạ. Em muốn hỏi thêm chút là nếu e muốn tìm từ nhiều sheets khác nhau thì làm như nào ạ? Mong nhận được phản hồi ạ. E cảm ơn ạ.

[@thanhtungnguyen6843]

Tuyệt vời! Đỡ amateur rồi thầy ơi =))))

[@linhnguyen-mv2gy]

Anh ơi anh làm video full về lọc dữ liệu nâng cao trong excell đi ạ . Em cảm ơn ạ

[@nguyetminh8505]

Add hướng dẫn làm form vba quản lý tài liệu đi ạ

[@ttrung1402]

Verry good

[@huongnguyenvan4020]

Bạn cho mình hỏi chút, làm sao để chức năng wrap text trong userform vậy bạn?

[@sonimedar]

hay qua cam on ban

[@duyba2449]

Khi mình chọn vào ô tìm kiếm sản phẩm thì thông báo macro ko tồn tại hoặc có trong file, chỉ mình cách sửa nhé

[@user-dh4vh5qd9y]

A ơi , đến khúc dbclik lấy dữ liệu, nếu mình muốn lấy dữ liệu vào bất kỳ ô mình chọn thì mình viết code s ? ( ví dụ k lấy theo dòng cuối mà e muốn chọn cho dòng bất kỳ nào tùy e. Vì có dòng e cần lấy có dòng e bỏ trống

[@user-uv3rs4hd3e]

tks add rất nhiều

[@Levinhnguyen2024]

cái này hay lắm ạ, nhưng sao mà đặt điều kiện cho file của mình được ạ, nhờ chỉ giúp cho tôi với ạ

[@truonghoailinh3143]

Thầy cho em hỏi là sau khi tìm kiếm mình muốn check chọn nhiều dữ liệu trong lần tìm kím đó và add vào bản dữ liệu thì làm như thế nào ạ

[@vanbinhle1252]

Nhờ Anh chỉ giúp em nếu thêm textbox tìm kiếm : giả sử mình tìm kiếm dữ liệu cột 6 ( có nhiều mã giống nhau) và tìm kiếm dữ liệu các ô khác dựa trên mã dữ liệu cố định cột 6 có được không ạ. Em cám ơn!

[@user-fy6wl7mk6h]

Sao em viết giống anh muh khi search bằng số thì nó hoạt động muh em gõ chữ thì nó ko hoạt động. Chả hiểu nó bị gì

[@nguyenthao6002]

a ơi.cho e hỏi chút ạ.trong trường hợp mã sản phẩm chứa cả số và chữ thì làm như thế nào ạ.e làm theo như a hướng dẫn nhưng khi gõ theo mã sản phẩm thì lại k ra kết quả ạ.

[@phuongkhuong3510]

Giả sử cùng 1 sp , mà mỗi khách e bán với mức giá khác nhau. Nên e muốn chọn tên khách hàng trước. Sau đó từ tên khách sẽ chọn ra sp với giá phù hợp. Vậy thì lúc viết code có thêm điều kiện gì ràng buộc ko ạ. Và trình bày như thế nào.

[@kieutramnguyen216]

Thầy ơi! Cho em xin cái link hướng dẫn sửa hoá đơn được không ạ?

[@tienlucle9502]

Hay quá. Cảm ơn anh ạ. E làm giống như a và nhưng khi click thì dữ liệu lại k vào bảng mà lại chuyển bào dòng thứ 2, làm thế nào để khắc phục được ạ? Em cảm ơn!

[@NguyenTrongHieu-bl5be]

Hi anh, em có 1 file data mà chỉ có 4 cột(trong đó cột thứ 4 cách 1 cột), em làm theo hướng dẫn thì đến phần thêm vào file thì em bấm doubleclick hoài mà ko thêm vào, anh có thể xem giúp em được ko ạ.

[@tuka9838]

Anh chỉ dùm em cách thiết lập khách hàng đi anh

[@nguyenvangiau5330]

Anh có phần mềm tính giờ trượt Patin không ạ?

[@tamdao2867]

hay ạ

[@anhthoaikt]

anh viết file quản lý tiền vay và cho vay không anh

[@soaitran4996]

Nếu dk định dạng string thì mã hàng thì cũng phải dạng chữ không phải số đúng k ah

[@TinHocDongPhuong]

String thì số hay chữ đều đc bạn.

[@quangtuongnguyen2386]

Danke

[@hunghoangphat4401]

làm sao để khi mình chọn ô thì nó tạo tìm kiếm luôn trong ô đấy, k phải ấn vào hiện form nữa a

[@phamduylinh6331]

Chào thầy, e cần textbox không phân biệt chữ hoa và chữ thường thì dùng phương thức hay thuộc tính nào ạ

[@TinHocDongPhuong]

e dùng hàm ucase để chuyển về hoa và so sánh nhé

[@PhuongNguyen-ym3ey]

Anh ơi cho em hỏi chút ạ. Em làm theo video của a rồi nhưng là file khách hàng ạ. Có khoảng 2000 khách hàng. Khi em nhấn vào frm để gõ tìm kiếm thì k thấy hiện ra chữ mà cứ thấy xoay vòng rất lâu ạ. Xong em phải thoát ra mới vào lại đc file excel đó. Có phải do dữ liệu khách hàng quá nhiều k frm k tải đc k ạ? Mong a giải đáp ạ. Em cảm ơn a

[@TinHocDongPhuong]

2000 khách hàng thì không nhiều em, có thể do vấn đề khác. Em kiểm tra lại kỹ xem nhé!

[@ngdung1982]

để tìm kiếm ko phân biệt dấu thì thêm câu lệnh gì? ở đâu??

[@GiangNguyen-yz8fm]

Em bị lỗi chổ Ghi ma hang vao sheet

[@nhanthien8555]

Nếu mình tìm chữ không dấu vẫn ra được chữ có dấu thì dùng hàm gì thầy ơi?

[@nhatdang9539]

Có cách nào dữ lại dòng tiêu đề khi tìm kiếm và định dạng dữ liệu cho từng cột đc không bạn

[@hungnguyenkhanh5780]

bạn thêm lable trên dầu listbõ là được mà. còn một cách khác nhưng phức tạp hơn phải làm video thì mới dõ đc

[@sungggsammm6688]

Đến chỗ nhập frmtimkiem nó kh sổ xuống bạn ơi tôi nhập frmtimkiem thì kh gán vào nút được bị lỗi 424 error

[@TinHocDongPhuong]

Bạn gửi code lên mình xem thử lỗi gì ạ!

[@namduong9513]

@@TinHocDongPhuong đánh chữ frmTimkiem.Show báo lỗi ad ah

[@khoaivacacgame8827]

Khi tìm kiếm thì phải nhập chính xác chữ in Hoa của sản phẩm, có cách nào jkhi nhập chữ thường hay chữ hoa đều tìm được không bạn

[@TinHocDongPhuong]

Mình dùng hàm Ucase để chuyển từ khóa về in hoa hết nhé bạn.

[@khoaivacacgame8827]

@@TinHocDongPhuong bạn làm video hướng dẫn được ko, mình ko rành về cái này

[@MinhPhamcp]

e nhập code giống nhưng nó hiện mỗi cột A anh ạ. a giúp e với. e cảm ơn ạ

[@vannamdhv]

nếu dữ liệu tầm khoảng 300k bản ghi thì vẫn bị treo. có cách nào nhanh hơn ko bạn

[@hehequang]

dữ liệu nhiều thì chỉ có dùng SQL thôi

[@tuka9838]

Sao em đưa vào khách hàng ko đc anh, chỉ vào mỗi chỗ tên hàng và mã hàng

[@yesfinance6752]

Ủa em tắt máy, sáng hôm sau mở lên thì báo thế này, ai giúp em với " cannot run the macro 'setfunshow' the macro may not be available "

[@Bich-Khue]

Cài win lại cài luôn bộ office

[@trinhnguyen-ox9jv]

đầu tiên xin cam ơn video hữu ích của bạn! minh đã làm được! nhưng có vấn đề là bị chậm lúc tìm kiếm á bạn! đánh 1 chữ mak đợi nó chạy rất lâu! có cách nào khắc phục ko ạ?

[@TinHocDongPhuong]

Bạn tìm trong khoảng bao nhiêu dòng, mình chọn 10000 dòng thấy nhẹ mà!

[@trinhnguyen-ox9jv]

@@TinHocDongPhuong ak vậy la tại chọn nhiều dòng quá nên nặng phải ko ạ? vì cái dữ liệu mình tìm la dữ liệu dc them vào mỗi ngày nên minh quốc tới 1 triệu mấy, kaka! de minh sữa lai

[@trinhnguyen-ox9jv]

@@TinHocDongPhuong ủa kì ta! minh thu 10.000 dòng vẫn chậm như rùa

[@tranhiencdspk29a]

@@trinhnguyen-ox9jv Mình tìm kiếm đến 10.000 vẫn chạy nhanh như thường. Private Sub CommandButton1_Click() Dim lr As Long With Sheet2 lr = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("B" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 1) .Range("C" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 2) .Range("D" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 3) .Range("E" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 4) .Range("F" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 5) .Range("G" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 6) End With End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub txttimkiem_Change() Dim arr() Dim Result() Dim dk As String Dim a As Long Dim i As Long Dim lr As Long 'step1: dua data vao mang arr = Sheet1.Range("A1:G10000").Value 'step2:redim mang Result ReDim Result(1 To UBound(arr, 1), 1 To 7) 'step3:gan dk bang tim kiem dk = txttimkiem.Text 'step4:xet dieu kien gia tri cot can tim voi dieu kien 'step5:Neu dieu kien gia tri cot can tim giong voi dieu kien => tang bien dem mang 'Step6:luu gia tri vao mang Result For i = 1 To UBound(arr, 1) If arr(i, 2) Like "*" & dk & "*" Or _ arr(i, 3) Like "*" & dk & "*" Or _ arr(i, 4) Like "*" & dk & "*" Or _ arr(i, 5) Like "*" & dk & "*" Then a = a + 1 Result(a, 1) = arr(i, 1) Result(a, 2) = arr(i, 2) Result(a, 3) = arr(i, 3) Result(a, 4) = arr(i, 4) Result(a, 5) = arr(i, 5) Result(a, 6) = arr(i, 6) Result(a, 7) = arr(i, 7) End If Next i 'Step7:Gan gia tri tu mang Result tra ve sheet listHanghoa.List = Result End Sub Private Sub UserForm_Initialize() listHanghoa.List = Sheet1.Range("A1:G10000").Value End Sub

[@hehequang]

@@trinhnguyen-ox9jv quan trọng là cấu hình máy b nữa

[@huylequoc852]

chào anh có cách nào để nó dùng được tất cả chử Hoa và thường không ạ ,làm như anh tìm kiếm đúng chử cái Hoa và thường

[@TinHocDongPhuong]

E dùng hàm Ucase để chuyển về hoa để so sánh nhé.

[@huylequoc852]

@@TinHocDongPhuong dạ LCase là chử thường Ucase là Hoa có cách nào mình viết chử thường cũng tra ra và hoa cũng tra ra ko ạ thanks

[@huylequoc852]

tức là mình nhập chử thường cũng ra 1 kết qua và chử hoa cũng ra 1 kết qua như nhau ấy ạ thanks

[@huylequoc852]

@@TinHocDongPhuong ok em đã làm được thanks anh nhiều

[@TinHocDongPhuong]

Em có thể tham khảo video mới nhất nhé, cũng có phần tạo form tìm kiếm, kzbin.info/www/bejne/sH6lYqZ8gLaMe6c

[@mrkhai3879]

Nếu mình muốn điền chữ thường vào mà vẫn tìm được chứ hoa hoặc ngược lại thì thêm câu lệnh gì thầy ơi?

[@TinHocDongPhuong]

Em dùng Ucase(arr(i, 2)) nhé.

[@Nguyencanhphu1987]

Phần mềm này có bán k a

[@TinHocDongPhuong]

Có em. E liên hệ 0906864860 nhé

[@phuongvylenguyen2856]

Sao em cài k đk nó hk có chạy

[@lehung4951]

em chào anh.e làm giông snhuw anh mà không hiểu sao lại bị lỗi a xem giueps e được không ạ. báo lỗi listboxxn.clear Private Sub txt_timkiem_Change() Dim arr(), kq(), i As Long, a As Long, dk As String dk = txt_timkiem.Text arr = Sheets("DL_XINGHIEP").Range("C4:E150").Value ReDim kq(1 To UBound(arr, 1), 1 To 3) For i = 1 To UBound(arr, 1) If arr(i, 1) Like "*" & dk & "*" Then a = a + 1 kq(a, 1) = arr(i, 1) kq(a, 2) = arr(i, 2) kq(a, 3) = arr(i, 3) End If Next i ListBoxxn = "" ListBoxxn.Clear ListBoxxn.List = kq End Sub