Nhờ mọi người giúp về Userform: Tìm kiếm theo danh sách có sẵn phụ thuộc nhau (1 người xem)

[qthanhhp]

NHờ mn giúp đỡ !
Có tham khảo bài này: https://blog.hocexcel.online/cach-tao-combobox-co-danh-sach-phu-thuoc-nhau.html
gần giống với ý tưởng của mình
Mình có 2 nút bấm Tìm kiếm VN1 và Tìm kiếm VN4, mình nhờ các pro code hộ mình tìm kiếm theo các ô từ A-G, nghĩa là khi mình đánh chữ vào 1 ô tên người làm, danh sách hiện ra 1 list gợi ý bên dưới, sau đó mình lại sang ô tên đơn vị đánh tiếp để rút gọn danh sách tìm kiếm, cứ như vậy cho đến khi gõ vào ô số CT, ngày, tháng, năm để tìm cho nhanh ấy ạ (Mình đã làm sẵn các box trong form rồi)
Lưu ý là ở nút Tìm kiếm VN4 vẫn ở sheet VN1 và tìm kiếm dữ liệu ở sheet VN4
Thanks All ạ

 

[be_09]

NHờ mn giúp đỡ !
Mình có 2 nút bấm Tìm kiếm VN1 và Tìm kiếm VN4, mình nhờ các pro code hộ mình tìm kiếm theo các ô từ A-G, lọc theo liên quan để tìm cho nhanh ấy ạ (Mình đã làm sẵn các box trong form rồi)
Lưu ý là ở nút Tìm kiếm VN2 vẫn ở sheet VN1 và tìm kiếm dữ liệu ở sheet VN4
Cảm ơn All ạ

Bài trả lời là ở đây nè.
https://www.giaiphapexcel.com/diend...và-lấy-dữ-liệu-rồi-xóa-trong-userform.140388/

Bạn không nên mở nhiều Topic có cùng nội dung (có thể sẽ vi phạm nội quy).

 

[qthanhhp]

Bài trả lời là ở đây nè.
https://www.giaiphapexcel.com/diendan/threads/hỏi-về-tìm-kiếm-và-lấy-dữ-liệu-rồi-xóa-trong-userform.140388/

Bạn không nên mở nhiều Topic có cùng nội dung (có thể sẽ vi phạm nội quy).

đây là 1 ý khác ạ, ad thông cảm

 

[be_09]

đây là 1 ý khác ạ, ad thông cảm

Tôi thấy nó cùng dữ liệu và nội dung (tôi chưa giúp nên không xem hết).

Chẳng hiểu tìm kiếm để làm gì?
Để tất cả dữ liệu trong 1 sheet rồi sử dụng Advanced Filter (là cách dễ dàng và nhanh nhất) sau khi tìm kiếm xong thì Load vào Form.

 

[Quang_Hải]

Mình luôn thắc mắc là tại sao những người không biết viết code thì rất thích sử dụng userform. Tại sao không dùng 1 sheet nào đó, định dạng giống như userform cho gọn?

 

[VetMini]

Mình luôn thắc mắc là tại sao những người không biết viết code thì rất thích sử dụng userform. Tại sao không dùng 1 sheet nào đó, định dạng giống như userform cho gọn?

Tại vì ở đây có nhiều người sẵn sàng viết code giùm.
Chính tôi nhiều lúc lười viết code cũng lên đây lụm về xài (chỉ cần để ý 1 chút - 99% code ở đây không có chú thích cho nên rất khó tét, có thể có kết quả bất ngờ)
Cái rắc rối cho chủ thớt là yêu cầu thì phức tạp mà cách diễn giải thì chưa rành.

 

[Quang_Hải]

Tại vì ở đây có nhiều người sẵn sàng viết code giùm.
Chính tôi nhiều lúc lười viết code cũng lên đây lụm về xài (chỉ cần để ý 1 chút - 99% code ở đây không có chú thích cho nên rất khó tét, có thể có kết quả bất ngờ)
Cái rắc rối cho chủ thớt là yêu cầu thì phức tạp mà cách diễn giải thì chưa rành.

Thật ra thì GPE có nhiều thành viên sẵn sàng viết code cho tất cả mọi người cũng là điều đáng mừng. Cho đi kiến thức cũng là một cách ôn tập kiến thức và học tập cái mới. Nếu duy tâm một chút thì đây cũng là một cách gieo mầm cho phúc lộc trong tương lai. Mình có được ít kiến thức cơ bản về code cũng do có một khoảng thời gian chăm chỉ viết code miễn phí cho vài người. Lúc này do bận rộn "đếm tiền" nhiều quá nên mới ít viết code.

 

[qthanhhp]

Tôi thấy nó cùng dữ liệu và nội dung (tôi chưa giúp nên không xem hết).

Chẳng hiểu tìm kiếm để làm gì?
Để tất cả dữ liệu trong 1 sheet rồi sử dụng Advanced Filter (là cách dễ dàng và nhanh nhất) sau khi tìm kiếm xong thì Load vào Form.

EM CHỈ CẦN tìm kiếm thôi ạ, A CHECK LẠI FILE EM MỚI UPADTE Ở BÀI NHÉ

 

[qthanhhp]

mọi người có thấy kiểu search này khả thi ko ạ hay mình chỉ chơi 1 ô textbox để gõ 1 từ khóa để search cho tất cả anh em nhỉ

 

[be_09]

mọi người có thấy kiểu search này khả thi ko ạ hay mình chỉ chơi 1 ô textbox để gõ 1 từ khóa để search cho tất cả anh em nhỉ

Đây là cách làm tôi nêu ở bài 4 (sử dụng Advanced Filter).
- Muốn tìm nội dung cột nào thì dùng TextBoxt tương ứng.
- Gõ dấu sao ( * ) và gõ từ gợi nhớ để tìm.

 

[qthanhhp]

Đây là cách làm tôi nêu ở bài 4 (sử dụng Advanced Filter).
- Muốn tìm nội dung cột nào thì dùng TextBoxt tương ứng.
- Gõ dấu sao ( * ) và gõ từ gợi nhớ để tìm.

cám ơn anh đã help, anh làm quá đúng ý em rồi ạ, nhưng em chỉ cần bảng ở sheet TIM để tìm kiếm dữ liệu ở sheet THEO_DOI thôi, ko cần ghi dữ liệu lên sheet TIM đâu ạ

 

[SA_DQ]

mọi người có thấy kiểu search này khả thi ko ạ hay 1 ô textbox để gõ 1 từ khóa để search cho tất cả anh em nhỉ

Bạn tham khảo file này xem sao:

 

[qthanhhp]

Bạn tham khảo file này xem sao:

cám ơn anh SA_DQ nhưng em muốn kiểu các ô tìm kiểm phụ thuộc nhau để lọc tìm danh sách cơ ạ, giống kiểu file anh be09 gửi ạ. nhưng form tìm kiếm ở sheet này để tìm kiểm dữ liệu ở sheet #

 

[qthanhhp]

Bạn tham khảo file này xem sao:

Đây là cách làm tôi nêu ở bài 4 (sử dụng Advanced Filter).
- Muốn tìm nội dung cột nào thì dùng TextBoxt tương ứng.
- Gõ dấu sao ( * ) và gõ từ gợi nhớ để tìm.

Em gửi file để các anh dễ hiểu: Đơn giản là em có cái nút bấm "Tìm kiếm dữ liệu bảng VN3", giờ em muốn lọc danh sách theo sheet VN3 vậy thôi, Sheet VN1 ko liên quan j nhé, em chỉ gửi nút bấm ở đấy thôi
các anh giúp hộ em trên file của em luôn nhé, thanks ! ^^
Ví dụ, đánh số ct ra list danh sách, đánh tiếp ngày tháng hoặc ô tên ng làm/ tên đơn vị/ nội dung để thu gọn danh sách tìm kiếm

 

[tam888]

Em gửi file để các anh dễ hiểu: Đơn giản là em có cái nút bấm "Tìm kiếm dữ liệu bảng VN3", giờ em muốn lọc danh sách theo sheet VN3 vậy thôi, Sheet VN1 ko liên quan j nhé, em chỉ gửi nút bấm ở đấy thôi
các anh giúp hộ em trên file của em luôn nhé, Cảm ơn ! ^^

qua 15 bài rồi mà cũng không rõ ràng vậy bạn muốn chi? mô tả rõ khỏi làm đi làm lại, tốn thời gian

 

[qthanhhp]

qua 15 bài rồi mà cũng không rõ ràng vậy bạn muốn chi? mô tả rõ khỏi làm đi làm lại, tốn thời gian

mình nói rõ rồi mà bạn khó hiểu chỗ nào ? bài 15 mình có gửi đính kèm file đấy

 

[tam888]

mình nói rõ rồi mà bạn khó hiểu chỗ nào ? bài 15 mình có gửi đính kèm file đấy

bạn muốn tìm gì, và phụ thuộc gì?
Tại sao phải đặt ở sheet khác
Các tên dữ liệu trong file, toàn là giả định 1 2 3 4 --> e rằng khi áp dụng thật sẽ trật lất,

 

[qthanhhp]

bạn muốn tin gì, và phụ thuộc gì?
Tại sao phải đặt ở sheet khác
Các tên dữ liệu trong file, toàn là giả định 1 2 3 4 --> e rằng khi áp dụng thật sẽ trật lất,

(1) Tìm và phụ thuộc ý là: khi kích vào nút tìm kiếm ấy, trog đó có các ô, khi em gõ vào ô tên người làm, danh sách hiện ra 1 list tìm kiếm bên dưới, sau đó mình lại sang ô tên đơn vị đánh tiếp để rút gọn danh sách tìm kiếm, đến khi tìm đc cái mình muốn. Nó y xì cái kiểu file bác be09 gửi (nhưng em lại chỉ cần tìm kiếm thôi chứ ko cần ghi ra như file bác be09 gửi)
(2)Mình đăt ở sheet # vì muốn trang đầu nó là trang tổng hợp để đặt nút tìm, còn sheet kia sẽ là nơi thông tin nguồn vào vì có thể sẽ rất nhiều hàng
Ừ tên có thể sửa lại, tại mình đặt nhanh nên kéo xuống cho nó nhanh chứ thực tế ko phải vậy ^^

 

[tam888]

Mình đăt ở sheet # vì muốn trang đầu nó là trang tổng hợp để đặt nút tìm, còn sheet kia sẽ là nơi thông tin nguồn vào vì có thể sẽ rất nhiều hàng
Ừ tên có thể sửa lại, tại mình đặt nhanh nên kéo xuống cho nó nhanh chứ thực tế ko phải vậy ^^

Đừng ẩu thế, hãy cho dữ liệu sát thật, thì thử mới chuẩn
Không cần phải y như số liệu thực
Nhưng tên cũng phải là
Nguyễn Thị Hồng Thắm
Đặng Thị Lưu Ly
Đào Văn Toán
....

Như thế nó mới đa dạng , mất chi thơi gian, còn bạn ẩu thì đừng hy vọng người khác giúp cẩn thận
Form cũng thế đã vẽ thì phải chỉnh chu, thẳng hàng thẳng lối, không phải vứt đại các controls ra như vậy
Tìm gì thì phải ghi ra bài, ghi vào file ví dụ (cho vào textbox) thì mới tiện cho người giúp

 

[qthanhhp]

Đừng ẩu thế, hãy cho dữ liệu sát thật, thì thử mới chuẩn
Không cần phải y như số liệu thực
Nhưng tên cũng phải là
Nguyễn Thị Hồng Thắm
Đặng Thị Lưu Ly
Đào Văn Toán
....

Như thế nó mới đa dạng , mất chi thơi gian, còn bạn ẩu thì đừng hy vọng người khác giúp cẩn thận
Form cũng thế đã vẽ thì phải chỉnh chu, thẳng hàng thẳng lỗi, không phải vứt đại các controls ra như vậy
Tìm gì thì phải ghi ra bài, ghi vào file ví dụ (cho vào textbox) thì mới tiện cho người giúp

em sửa lại ngay đây

Bài đã được tự động gộp: 23/1/19

Đừng ẩu thế, hãy cho dữ liệu sát thật, thì thử mới chuẩn
Không cần phải y như số liệu thực
Nhưng tên cũng phải là
Nguyễn Thị Hồng Thắm
Đặng Thị Lưu Ly
Đào Văn Toán
....

Như thế nó mới đa dạng , mất chi thơi gian, còn bạn ẩu thì đừng hy vọng người khác giúp cẩn thận
Form cũng thế đã vẽ thì phải chỉnh chu, thẳng hàng thẳng lối, không phải vứt đại các controls ra như vậy
Tìm gì thì phải ghi ra bài, ghi vào file ví dụ (cho vào textbox) thì mới tiện cho người giúp

Em gửi lại nhé, thanks a
Ví dụ: khi em đánh số ct ra list danh sách, đánh tiếp ngày tháng hoặc ô tên ng làm/ tên đơn vị/ nội dung để thu gọn danh sách tìm kiếm

 

[SA_DQ]

. . . Ừ tên có thể sửa lại, tại mình đặt nhanh nên kéo xuống cho nó nhanh chứ thực tế ko phải vậy ^^

Bạn nhanh cho bạn, nhưng qua 15 bài mọi người vẫn chưa chịu hiểu & vậy cái "nhanh" của bạn có đáng không?
/(huyên bạn: Viết cho người khác hiểu chứ không phải viết những gì mình hiều

& xin hỏi bạn: Bạn đã trãi nghiệm file tại bài 13 chưa; Ở đó không cần nhiều TextBox, mà chỉ là 2 thôi:
1 ComboBox để chọn tên trường (cột) & 1 TextBox để tìm thứ gì đó trên trường (cột) đó
Kết quả hiển thị trên ListBox

 

[qthanhhp]

Bạn nhanh cho bạn, nhưng qua 15 bài mọi người vẫn chưa chịu hiểu & vậy cái "nhanh" của bạn có đáng không?
/(huyên bạn: Viết cho người khác hiểu chứ không phải viết những gì mình hiều

cám ơn anh đã góp ý !

 

[be_09]

Em gửi file để các anh dễ hiểu: Đơn giản là em có cái nút bấm "Tìm kiếm dữ liệu bảng VN3", giờ em muốn lọc danh sách theo sheet VN3 vậy thôi, Sheet VN1 ko liên quan j nhé, em chỉ gửi nút bấm ở đấy thôi
các anh giúp hộ em trên file của em luôn nhé, Cảm ơn ! ^^
Ví dụ, đánh số ct ra list danh sách, đánh tiếp ngày tháng hoặc ô tên ng làm/ tên đơn vị/ nội dung để thu gọn danh sách tìm kiếm
View attachment 211513

Không đúng ý nữa thì chạy.

 

[qthanhhp]

Không đúng ý nữa thì chạy.

cám ơn anh, nhưng anh ơi, có cách j mà ấn vào nút tìm, mà nó ko ghi ra sheet TIM ko ???

 

[SA_DQ]

cám ơn anh, nhưng anh ơi, có cách j mà ấn vào nút tìm, mà nó ko ghi ra sheet TIM ko ???

Thì ghi lên ListBox để nhìn & không lưu

 

[qthanhhp]

Thì ghi lên ListBox để nhìn & không lưu

:'(

 

[qthanhhp]

Không đúng ý nữa thì chạy.

EM LÀM ĐC RỒI, YEAH, CÁM ƠN BÁC NHÉ

 

[qthanhhp]

Bạn nhanh cho bạn, nhưng qua 15 bài mọi người vẫn chưa chịu hiểu & vậy cái "nhanh" của bạn có đáng không?
/(huyên bạn: Viết cho người khác hiểu chứ không phải viết những gì mình hiều

& xin hỏi bạn: Bạn đã trãi nghiệm file tại bài 13 chưa; Ở đó không cần nhiều TextBox, mà chỉ là 2 thôi:
1 ComboBox để chọn tên trường (cột) & 1 TextBox để tìm thứ gì đó trên trường (cột) đó
Kết quả hiển thị trên ListBox

Cái ấy thì lại chỉ tìm đc các từ khoá nhất định cho 1 trường thôi, e muốn lọc dần dần cho tất cả các cột anh à

 

[SA_DQ]

Cái ấy thì lại chỉ tìm đc các từ khoá nhất định cho 1 trường thôi, e muốn lọc dần dần cho tất cả các cột anh à

Đây là nổ lực cuối cùng của mình (với file của #13):
Ví dụ tại ComboBox ta nhấp chọn CustID; Ở TextBox bên cạnh ta nhập '332' & nhấn vô nút lệnh, trong ListBox sẽ xuất hiện 2 dòng dữ liệu
Tiếp theo, tại ComboBox ta nhấp chọn CustName; Tại TextBox ta nhập 'VAN AN' & sau khi nhấn nút lệnh ta có 7 dòng dữ liệu liên quan với trường CustName hiện ra tương ứng, . . . . .
Hay bạn muốn như thế nào nữa?

Tạm biệt!

 

[qthanhhp]

Đây là nổ lực cuối cùng của mình (với file của #13):
Ví dụ tại ComboBox ta nhấp chọn CustID; Ở TextBox bên cạnh ta nhập '332' & nhấn vô nút lệnh, trong ListBox sẽ xuất hiện 2 dòng dữ liệu
Tiếp theo, tại ComboBox ta nhấp chọn CustName; Tại TextBox ta nhập 'VAN AN' & sau khi nhấn nút lệnh ta có 7 dòng dữ liệu liên quan với trường CustName hiện ra tương ứng, . . . . .
Hay bạn muốn như thế nào nữa?

Tạm biệt!

em chả thấy j cả, hic

 

[SA_DQ]

Trong ComboBox bạn chọn trường nào chưa?

 

[qthanhhp]

Trong ComboBox bạn chọn trường nào chưa?

em chọn rồi chứ, ví dụ chọn custname, nhập giá trị cần tìm, ấn Lọc
Bên dưới vẫn trắng xóa như thế

 

[SA_DQ]

em chọn rồi chứ, ví dụ chọn custname, nhập giá trị cần tìm, ấn Lọc
Bên dưới vẫn trắng xóa như thế

Nếu ở ComboBox chọn CustName, thì thử nhập chuỗi 'VAN' & nhấn nút tìm để macro tìm xem có bao nhiêu chuỗi trong trường (cột) CustNmae có chứa 'VAN'

 

[qthanhhp]

Nếu ở ComboBox chọn CustName, thì thử nhập chuỗi 'VAN' & nhấn nút tìm để macro tìm xem có bao nhiêu chuỗi trong trường (cột) CustNmae có chứa 'VAN'

em cám ơn anh SA_DQ, em làm đc rồi ^^

 

[qthanhhp]

Đây là nổ lực cuối cùng của mình (với file của #13):
Ví dụ tại ComboBox ta nhấp chọn CustID; Ở TextBox bên cạnh ta nhập '332' & nhấn vô nút lệnh, trong ListBox sẽ xuất hiện 2 dòng dữ liệu
Tiếp theo, tại ComboBox ta nhấp chọn CustName; Tại TextBox ta nhập 'VAN AN' & sau khi nhấn nút lệnh ta có 7 dòng dữ liệu liên quan với trường CustName hiện ra tương ứng, . . . . .
Hay bạn muốn như thế nào nữa?

Tạm biệt!

Không đúng ý nữa thì chạy.

có 1 lỗi nữa xảy ra nhờ các a giúp là: cột nội dung nó ko hiển thị hết, giờ muốn các cột hiển thị hết thì làm như thế nào các anh nhỉ
nhờ các anh sửa trên file em đính kèm, cám ơn các anh !

 

[SA_DQ]

Có thể áp dụng chí ít 1 trong 2 cách sau:
1./ Nới độ rọng của cột đang chưa đủ kích thước (dễ làm);
2./ Không đưa cột này vô ListBox đó nữa; Mà làm cho nó riêng 1 ListBox,

 

[qthanhhp]

Có thể áp dụng chí ít 1 trong 2 cách sau:
1./ Nới độ rọng của cột đang chưa đủ kích thước (dễ làm);
2./ Không đưa cột này vô ListBox đó nữa; Mà làm cho nó riêng 1 ListBox,

E đã làm cách 1 mà nó vẫn thế anh ạ

 

[SA_DQ]

E đã làm cách 1 mà nó vẫn thế anh ạ

Mình thì không thể coi thiết kế Form của file bạn & chào tạm biệt!

 

[qthanhhp]

Mình thì không thể coi thiết kế Form của file bạn & chào tạm biệt!

Mình thì không thể coi thiết kế Form của file bạn & chào tạm biệt!

anh thông cảm, em phỉa khóa vì sợ ai ko biết chỉnh sửa sẽ lỗi file chung ở chỗ em, em gửi lại

 

[tam888]

anh thông cảm, em phỉa khóa vì sợ ai ko biết chỉnh sửa sẽ lỗi file chung ở chỗ em, em gửi lại

Định giúp bạn từ sáng , nhưng bận quá, đợi chút tôi post lên: làm hoàn toàn trên form

Bài đã được tự động gộp: 24/1/19

em sửa lại ngay đây

Bài đã được tự động gộp: 23/1/19

Em gửi lại nhé, Cảm ơn a
Ví dụ: khi em đánh số ct ra list danh sách, đánh tiếp ngày tháng hoặc ô tên ng làm/ tên đơn vị/ nội dung để thu gọn danh sách tìm kiếmView attachment 211512

Như hình này thì bạn làm được rồi còn gì?

 

[qthanhhp]

Định giúp bạn từ sáng , nhưng bận quá, đợi chút tôi post lên: làm hoàn toàn trên form

Bài đã được tự động gộp: 24/1/19

Như hình này thì bạn làm được rồi còn gì?

rất cám ơn anh đã nhiệt tình, em làm được rồi nhưng còn cái là khi search thì nó vẫn tự động xuất ra dữ liệu mà e chỉ muốn bảng đó là tìm kiếm thôi

Bài đã được tự động gộp: 24/1/19

Mình thì không thể coi thiết kế Form của file bạn & chào tạm biệt!

anh ơi, e làm đc rồi ^^ chỉnh ở columnwith trong lisbox đấy

 

[tam888]

rất cám ơn anh đã nhiệt tình, em làm được rồi nhưng còn cái là khi search thì nó vẫn tự động xuất ra dữ liệu mà e chỉ muốn bảng đó là tìm kiếm thôi

Bài đã được tự động gộp: 24/1/19

anh ơi, e làm đc rồi ^^ chỉnh ở columnwith trong lisbox đấy

Tự động xuất là sao nhỉ, bạn muốn xuất ra listbox đó còn gì?

 

[qthanhhp]

Tự động xuất là sao nhỉ, bạn muốn xuất ra listbox đó còn gì?

mỗi lần em tìm kiếm, nó tự ghi ra cột U đên cột V đó, cái này là advance Filter mà anh be9 làm ấy mà, giờ ko muốn nó hiện ra ấy mà ^^

 

[tam888]

mỗi lần em tìm kiếm, nó tự ghi ra cột U đên cột V đó, cái này là advance Filter mà anh be9 làm ấy mà, giờ ko muốn nó hiện ra ấy mà ^^

Dùng Advanced filter thì phải đổ vào sheet là chuẩn rồi

-------------
Xem file kèm này đi,
Theo đúng yêu cầu mong muốn, nếu đúng thì than lên 1 tiếng

Xem kỹ code ở module FORM frmFIND, và module mod_Loc
Xem cách trang trí trình bày form (lần sau tránh kiểu to đùng, gà mái mẹ như cũ)
Cũng như cách đặt tên cho các controls: textbox, listbox, ...

 

[tam888]

mỗi lần em tìm kiếm, nó tự ghi ra cột U đên cột V đó, cái này là advance Filter mà anh be9 làm ấy mà, giờ ko muốn nó hiện ra ấy mà ^^

Dùng Advanced filter thì phải đổ vào sheet là chuẩn rồi

-------------
Xem file kèm này đi,
Theo đúng yêu cầu mong muốn, nếu đúng thì than lên 1 tiếng

Xem kỹ code ở module FORM frmFIND, và module mod_Loc
Xem cách trang trí trình bày form (lần sau tránh kiểu to đùng, gà mái mẹ như cũ)
Cũng như cách đặt tên cho các controls: textbox, listbox, ...

Quên sửa lại mà không gửi file kèm
Đây nhé

 

[qthanhhp]

Dùng Advanced filter thì phải đổ vào sheet là chuẩn rồi

-------------
Xem file kèm này đi,
Theo đúng yêu cầu mong muốn, nếu đúng thì than lên 1 tiếng

Xem kỹ code ở module FORM frmFIND, và module mod_Loc
Xem cách trang trí trình bày form (lần sau tránh kiểu to đùng, gà mái mẹ như cũ)
Cũng như cách đặt tên cho các controls: textbox, listbox, ...

Quên sửa lại mà không gửi file kèm
Đây nhé

quá hay anh ơi, thanks a rất nhiều ^^ :****

 

[tam888]

quá hay anh ơi, Cảm ơn a rất nhiều ^^ :****

ah lưu ý:
- xem code đầu mod_Loc có hằng số 200 đặt cho số dòng hiện lớn nhất của listbox- bạn có thể thay đổi cái này,

- muốn hiện toàn bộ dữ liệu, thì tại textbox họ thên, chỉ cần gõ 1 khoảng trắng (1 space)

Bài đã được tự động gộp: 24/1/19

Tôi sửa lại vẫn nhầm,
* bạn sửa lại dòng code sau (trong module mod_Loc)

If Not IsArray(arrStr) Then

thành

If Not IsArray(aR) Then

* và xóa bỏ arrStr ở dòng thứ 3 trong mod_Loc

Cho chuẩn sát hơn

 

[qthanhhp]

ah lưu ý:
- xem code đầu mod_Loc có hằng số 200 đặt cho số dòng hiện lớn nhất của listbox- bạn có thể thay đổi cái này,

- muốn hiện toàn bộ dữ liệu, thì tại textbox họ thên, chỉ cần gõ 1 khoảng trắng (1 space)

Bài đã được tự động gộp: 24/1/19

Tôi sửa lại vẫn nhầm,
* bạn sửa lại dòng code sau (trong module mod_Loc)

If Not IsArray(arrStr) Then

thành

If Not IsArray(aR) Then

* và xóa bỏ arrStr ở dòng thứ 3 trong mod_Loc

Cho chuẩn sát hơn

yêu quá, đúng ý em
nhưng bác ơi, ví dụ dữ liệu đầu vào có những ô bị thiếu, khi e gõ ở các ô # vẫn muốn hiện lên thì ntnao ?
ví dụ như gõ ngày 2 tháng 1 năm 2018, vẫn hiện lên Cơ sở cai nghiện ma túy Gia Minh (vì tại Cơ sở cai nghiện ma túy Gia Minh - dòng 5, ô tên người làm bỏ trống)

 

[tam888]

yêu quá, đúng ý em
nhưng bác ơi, ví dụ dữ liệu đầu vào có những ô bị thiếu, khi e gõ ở các ô # vẫn muốn hiện lên thì ntnao ?
ví dụ như gõ ngày 2 tháng 1 năm 2018, vẫn hiện lên Cơ sở cai nghiện ma túy Gia Minh (vì tại Cơ sở cai nghiện ma túy Gia Minh - dòng 5, ô tên người làm bỏ trống)

Thì ô đó để trống nhé. Ô nào có thì nhập vào
Yêu j nghe sợ quá.

 

[qthanhhp]

Thì ô đó để trống nhé. Ô nào có thì nhập vào
Yêu j nghe sợ quá.

:***** Mà bác ơi. Xài file excel marco qua lan. K xài đc nhỉ. Có cách j khắc phục tạm k nhỉ ???
VN THUA BUỒN QUÁ, THUA PEL MỚI CAY

 

[qthanhhp]

Thì ô đó để trống nhé. Ô nào có thì nhập vào
Yêu j nghe sợ quá.

Bác ơi, em có tạo thêm 1 cột giá trị, khi đánh vào textbox nó ko hiện dạng số nhỉ, ví dụ gõ 10.000.000, nó thành 10000000
mò được trên mạng cách textbox định dạng số, nhưng listbox vẫn chưa được, hic

 

[tam888]

Bác ơi, em có tạo thêm 1 cột giá trị, khi đánh vào textbox nó ko hiện dạng số nhỉ, ví dụ gõ 10.000.000, nó thành 10000000
mò được trên mạng cách textbox định dạng số, nhưng listbox vẫn chưa được, hic

thì thế là đúng rồi, còn format hay không thì phải viết lệnh
List box, chỉ biết hiển thị những gì cung cấp cho nó
Tôi chưa xem file của bạn, nên không biết thêm cột là sao? và bạn có sửa số cột trong code không?

Mạng LAN thì không thể vì Excel không hỗ trợ mạng , là các file đơn, ngay công thức mà liên kết file khác cùng PC đã loạn rồi dễ bể link và sai xót, còn ra LAN thì thôi rồi --> giải pháp mua phần mềm khác (phần mềm đặc chuyên dụng) , mua công cụ ATool mà họ quảng cáo suốt ở diễn đàn này (cái này thì tôi thấy và nghe - còn thử hay test thì chưa, nên tự tìm hiểu và đánh giá). Còn giải pháp tốt hơn nữa là dùng Google Spreadsheet hay các bảng tính online cloud thì sẽ tốt hơn nhiều (nhưng khi đó lại dính bảo mật dữ liệu và phụ thuốc tốc độ internet (đợi 5G thì chắc ngon)

 

[qthanhhp]

thì thế là đúng rồi, còn format hay không thì phải viết lệnh
List box, chỉ biết hiển thị những gì cung cấp cho nó
Tôi chưa xem file của bạn, nên không biết thêm cột là sao? và bạn có sửa số cột trong code không?

Mạng LAN thì không thể vì Excel không hỗ trợ mạng , là các file đơn, ngay công thức mà liên kết file khác cùng PC đã loạn rồi dễ bể link và sai xót, còn ra LAN thì thôi rồi --> giải pháp mua phần mềm khác (phần mềm đặc chuyên dụng) , mua công cụ ATool mà họ quảng cáo suốt ở diễn đàn này (cái này thì tôi thấy và nghe - còn thử hay test thì chưa, nên tự tìm hiểu và đánh giá). Còn giải pháp tốt hơn nữa là dùng Google Spreadsheet hay các bảng tính online cloud thì sẽ tốt hơn nhiều (nhưng khi đó lại dính bảo mật dữ liệu và phụ thuốc tốc độ internet (đợi 5G thì chắc ngon)

em có edit code mà, kiểu thêm cột giá tiền ấy, khi search theo giá tiền thì nó ko hiển thị dấu . ngăn cách giữa các con số

Bài đã được tự động gộp: 25/1/19

thì thế là đúng rồi, còn format hay không thì phải viết lệnh
List box, chỉ biết hiển thị những gì cung cấp cho nó
Tôi chưa xem file của bạn, nên không biết thêm cột là sao? và bạn có sửa số cột trong code không?

Mạng LAN thì không thể vì Excel không hỗ trợ mạng , là các file đơn, ngay công thức mà liên kết file khác cùng PC đã loạn rồi dễ bể link và sai xót, còn ra LAN thì thôi rồi --> giải pháp mua phần mềm khác (phần mềm đặc chuyên dụng) , mua công cụ ATool mà họ quảng cáo suốt ở diễn đàn này (cái này thì tôi thấy và nghe - còn thử hay test thì chưa, nên tự tìm hiểu và đánh giá). Còn giải pháp tốt hơn nữa là dùng Google Spreadsheet hay các bảng tính online cloud thì sẽ tốt hơn nhiều (nhưng khi đó lại dính bảo mật dữ liệu và phụ thuốc tốc độ internet (đợi 5G thì chắc ngon)

(1) nhờ bác xem hộ em cái này với, trên có ng làm cho em rồi nhưng giờ phát sinh khi nhiều ng dùng file trên mạng lan lại sợ chèn lên nhau nên e tách từng người ra.
Khi em bấm vào nút "nhập dữ liệu" (đã tạo sẵn), em sẽ nhập các dữ liệu (em có ghi chú các dữ liệu trong form này) và save vào các cột tương ứng
(2) Khi dữ liệu đã được save vào bảng, em ko muốn ai edit các cột này và tự động lưu các dữ liệu này sang sheet TK
e đã làm ví dụ, bác xem nhé

 

[tam888]

em có edit code mà, kiểu thêm cột giá tiền ấy, khi search theo giá tiền thì nó ko hiển thị dấu . ngăn cách giữa các con số

Bài đã được tự động gộp: 25/1/19

(1) nhờ bác xem hộ em cái này với, trên có ng làm cho em rồi nhưng giờ phát sinh khi nhiều ng dùng file trên mạng lan lại sợ chèn lên nhau nên e tách từng người ra.
Khi em bấm vào nút "nhập dữ liệu" (đã tạo sẵn), em sẽ nhập các dữ liệu (em có ghi chú các dữ liệu trong form này) và save vào các cột tương ứng
(2) Khi dữ liệu đã được save vào bảng, em ko muốn ai edit các cột này và tự động lưu các dữ liệu này sang sheet TK
e đã làm ví dụ, bác xem nhé

Lạc sang chủ đề khác rồi,
Muốn thì post (viết) bài ở chủ đề mới, mọi người mới giúp, còn cứ kéo đuôi còn thằn lằn hoài thế này thì bao giờ xong
Vậy nhé, mở topic mới nhờ mọi người, ai rảnh thì giúp

 

[qthanhhp]

Lạc sang chủ đề khác rồi,
Muốn thì post (viết) bài ở chủ đề mới, mọi người mới giúp, còn cứ kéo đuôi còn thằn lằn hoài thế này thì bao giờ xong
Vậy nhé, mở topic mới nhờ mọi người, ai rảnh thì giúp

Eo. Bác cũg thức muộn thế ???

 

[be_09]

:***** Mà bác ơi. Xài file excel marco qua lan. K xài đc nhỉ. Có cách j khắc phục tạm k nhỉ ???
VN THUA BUỒN QUÁ, THUA PEL MỚI CAY

Bạn tham khảo và hỏi tiếp trong bài viết sau:
https://www.giaiphapexcel.com/diendan/threads/auto-save-để-update-csdl-khi-share-workbook.133238/#post-865485

https://www.giaiphapexcel.com/diendan/threads/auto-save-để-update-csdl-khi-share-workbook.133238/#post-865481

 

[minhtri1189]

Quên sửa lại mà không gửi file kèm
Đây nhé

Bác ơi mình có dùng code của bác để dùng nhưng khi mình tăng số cột trong list từ 7 lên 32 thì bị lỗi out of range thì fix sao vậy bác

Sub LOCDL(aStFind)
Const NO_COLUMNS = 32
Dim i As Long, j As Long, n As Long

If Not IsArray(arrStr) Then

With Sheet3
aR = .Range(.Range("A2"), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, NO_COLUMNS).Value2
n = UBound(aR)
aRR = aR
For i = 1 To n
For j = 1 To 3
aRR(i, j) = UCase(aR(i, j))
Next j
Next i
End With

Else
n = UBound(aR)
End If


Dim aK, k As Long
ReDim aK(1 To 1)
Dim TIM As Boolean
Dim aTxt
aTxt = aStFind

If aTxt(0) = Space(1) Then
arrRes = aR
Exit Sub
End If

Dim aJ(1 To NO_COLUMNS), kj As Long
kj = 0
For j = 0 To NO_COLUMNS - 1

If aTxt(j) <> "" Then

kj = kj + 1
aJ(kj) = j
aTxt(j) = "*" & UCase(aTxt(j)) & "*"
End If
Next j
If kj = 0 Then arrRes = Exit Sub

k = 0
For i = 1 To n
TIM = True
For j = 1 To kj
If aRR(i, 1 + aJ(j)) Like aTxt(aJ(j)) Then

Else
TIM = False
Exit For
End If
Next j

If TIM Then
k = k + 1
ReDim Preserve aK(1 To k)
aK(k) = i
If k >= MAX_NUMBER_OF_ITEMS Then Exit For
End If
Next i

If k > 0 Then
ReDim arrRes(1 To k, 1 To NO_COLUMNS)
For i = 1 To k
For j = 1 To NO_COLUMNS
arrRes(i, j) = aR(aK(i), j)
Next j
Next
Else
arrRes = ""
End If

End Sub

 

[tam888]

Bác ơi mình có dùng code của bác để dùng nhưng khi mình tăng số cột trong list từ 7 lên 32 thì bị lỗi out of range thì fix sao vậy bác

Sub LOCDL(aStFind)
Const NO_COLUMNS = 32
Dim i As Long, j As Long, n As Long

If Not IsArray(arrStr) Then

With Sheet3
aR = .Range(.Range("A2"), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, NO_COLUMNS).Value2
n = UBound(aR)
aRR = aR
For i = 1 To n
For j = 1 To 3
aRR(i, j) = UCase(aR(i, j))
Next j
Next i
End With

Else
n = UBound(aR)
End If


Dim aK, k As Long
ReDim aK(1 To 1)
Dim TIM As Boolean
Dim aTxt
aTxt = aStFind

If aTxt(0) = Space(1) Then
arrRes = aR
Exit Sub
End If

Dim aJ(1 To NO_COLUMNS), kj As Long
kj = 0
For j = 0 To NO_COLUMNS - 1

If aTxt(j) <> "" Then

kj = kj + 1
aJ(kj) = j
aTxt(j) = "*" & UCase(aTxt(j)) & "*"
End If
Next j
If kj = 0 Then arrRes = Exit Sub

k = 0
For i = 1 To n
TIM = True
For j = 1 To kj
If aRR(i, 1 + aJ(j)) Like aTxt(aJ(j)) Then

Else
TIM = False
Exit For
End If
Next j

If TIM Then
k = k + 1
ReDim Preserve aK(1 To k)
aK(k) = i
If k >= MAX_NUMBER_OF_ITEMS Then Exit For
End If
Next i

If k > 0 Then
ReDim arrRes(1 To k, 1 To NO_COLUMNS)
For i = 1 To k
For j = 1 To NO_COLUMNS
arrRes(i, j) = aR(aK(i), j)
Next j
Next
Else
arrRes = ""
End If

End Sub

Phải chú ý tăng cả columns cho listbox

 

[minhtri1189]

Phải chú ý tăng cả columns cho listbox

Phải chú ý tăng cả columns cho listbox

Mình tăng rồi bạn ui, nhưng vẫn báo lỗi hình như chỉ cho add tối đa 10 cột trong 1 listbox thì phải

 

[tam888]

Mình tăng rồi bạn ui, nhưng vẫn báo lỗi hình như chỉ cho add tối đa 10 cột trong 1 listbox thì phải

xem bài số 4 để biết cách

[SOLVED:] Add a row with more than 10 columns to a ListBox?

Hi guys, i hope some one can help me. i am really stuck. I have posted this elsewhere, but as I am struggling to get a working solution, I am also posting here in the hopes of a breakthrough. I will re-link etc...

www.vbaexpress.com