Tìm kiếm nhanh DropList

sacalataba127 · 8/1/19

Dạ, Em chào mọi người
Em có việc cần nhờ mọi người ạ
Cụ thể là em có file tìm kiếm nhanh DropList, nhưng không biết vì sao file cũ sử dụng bình thường, áp dụng vào file của mình thì bị lỗi không tìm kiếm được. Mong mọi người xem giúp ạ, em cảm ơn ạ

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

PacificPR · 8/1/19

sacalataba127 đã viết:
Dạ, Em chào mọi người
Em có việc cần nhờ mọi người ạ
Cụ thể là em có file tìm kiếm nhanh DropList, nhưng không biết vì sao file cũ sử dụng bình thường, áp dụng vào file của mình thì bị lỗi không tìm kiếm được. Mong mọi người xem giúp ạ, em cảm ơn ạ

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

Mình thấy vẫn hoạt động bình thường. Chẳng thấy lỗi gì sất

sacalataba127 · 8/1/19

PacificPR đã viết:
Mình thấy vẫn hoạt động bình thường. Chẳng thấy lỗi gì sất

nhập ký tự vào không hiện kết quả tìm kiếm được á bạn

PacificPR · 8/1/19

sacalataba127 đã viết:
nhập ký tự vào không hiện kết quả tìm kiếm được á bạn

Nó ra cả rổ đây thây Bạn

sacalataba127 · 8/1/19

PacificPR đã viết:
Nó ra cả rổ đây thây Bạn

View attachment 210612

ồ, đó là file cũ bạn, file mới là file câu hỏi đầy đủ, mới tải lên bạn

sacalataba127 · 8/1/19

PacificPR · 8/1/19

sacalataba127 đã viết:
ồ, đó là file cũ bạn, file mới là file câu hỏi đầy đủ, mới tải lên bạn

sacalataba127 · 8/1/19

sacalataba127 · 8/1/19

mọi người oi giúp giùm e với ạ

chiendich · 8/1/19

sacalataba127 đã viết:
mọi người oi giúp giùm e với ạ

file này ko bị lỗi code. Bạn xóa bớt dòng tại 2 sheet danh mục và sheet nhập liệu là ok! đính kèm file

sacalataba127 · 8/1/19

chiendich đã viết:
file này ko bị lỗi code. Bạn xóa bớt dòng tại 2 sheet danh mục và sheet nhập liệu là ok! đính kèm file

tại sao lại xóa là được bạn nhỉ.
Khách hàng số lượng nhiều lên đến 1000 thì sao bạn nhỉ

tam888 · 8/1/19

sacalataba127 đã viết:
tại sao lại xóa là được bạn nhỉ.
Khách hàng số lượng nhiều lên đến 1000 thì sao bạn nhỉ

Khách hàng nhiều hay ít, nhưng ma cứ Ma1, Ma2, .....
Thì file đó không có thật trong thực tế,
nên phỏng file dữ liệu chân thật hơn, thì mới rõ chức năng của code

sacalataba127 · 8/1/19

tam888 đã viết:
Khách hàng nhiều hay ít, nhưng ma cứ Ma1, Ma2, .....
Thì file đó không có thật trong thực tế,
nên phỏng file dữ liệu chân thật hơn, thì mới rõ chức năng của code

Mã mình nhập bình thường cũng vậy bạn ạ. Không có dấu và tên viết tắt của khách hàng.
Viết Ma1, Ma2 để mọi người dễ nhìn thôi ạ
Quan trọng vẫn là dữ liệu khi ít thì load lên được, trường hợp nhiều không biết nên xử lý code thế nào thôi ạ
Bạn xem giúp mình với nhe

tam888 · 8/1/19

sacalataba127 đã viết:
Mã mình nhập bình thường cũng vậy bạn ạ. Không có dấu và tên viết tắt của khách hàng.
Viết Ma1, Ma2 để mọi người dễ nhìn thôi ạ
Quan trọng vẫn là dữ liệu khi ít thì load lên được, trường hợp nhiều không biết nên xử lý code thế nào thôi ạ
Bạn xem giúp mình với nhe

Thì vẫn load lên đầy đủ đó , chỉ có khác là nhiều quá
Và Mã giống nhau thì gõ (ví dụ) , Ma... thì cần gì tìm nữa, và tìm chi khi giống nhau gần hết

sacalataba127 · 8/1/19

tam888 đã viết:
Thì vẫn load lên đầy đủ đó , chỉ có khác là nhiều quá
Và Mã giống nhau thì gõ (ví dụ) , Ma... thì cần gì tìm nữa, và tìm chi khi giống nhau gần hết

Nhập tìm kiếm và load lên á bạn. đâu có được đâu nhỉ

tam888 · 8/1/19

sacalataba127 đã viết:
Nhập tìm kiếm và load lên á bạn. đâu có được đâu nhỉ

Ah, tôi giờ mới để ý
Không hiểu bạn lấy code ở đâu
Thử đổi

Mã:

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

thành

Mã:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Như thế mới hiển thị
Còn thuật toán lọc thế nào là do code bạn cần kiểm tra lại

sacalataba127 · 8/1/19

tam888 đã viết:
Ah, tôi giờ mới để ý
Không hiểu bạn lấy code ở đâu
Thử đổi

Mã:

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

thành

Mã:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Như thế mới hiển thị
Còn thuật toán lọc thế nào là do code bạn cần kiểm tra lại

code e lấy trên diễn đàn, của a huuthang_bd code cho bạn khác, về áp dụng vào bài mình ạ
Tại sao lại đổi KeyDown thì được nhỉ, với lại e thấy khi đổi code thì giá trị cần lọc chưa kịp load, a giúp giùm e sửa tiếp với ạ

PacificPR · 8/1/19

tam888 đã viết:
Ah, tôi giờ mới để ý
Không hiểu bạn lấy code ở đâu
Thử đổi

Mã:

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

thành

Mã:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Như thế mới hiển thị
Còn thuật toán lọc thế nào là do code bạn cần kiểm tra lại

Vâng. Chính là hắn Anh ạ. Em cám ơn Anh rất nhiều :clapping:

sacalataba127 · 9/1/19

tam888 đã viết:
Ah, tôi giờ mới để ý
Không hiểu bạn lấy code ở đâu
Thử đổi

Mã:

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

thành

Mã:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Như thế mới hiển thị
Còn thuật toán lọc thế nào là do code bạn cần kiểm tra lại

A ơi xem giúp giùm em xíu nữa với ạ. Em không biết rõ mấy cái này lắm. Chỉ biết áp dụng và vọc vạch tùm lum thôi. Anh chuyên nghiệp mới làm được chứ em không biết thế nào. Trăm sự nhờ anh ạ.

tam888 · 9/1/19

sacalataba127 đã viết:
A ơi xem giúp giùm em xíu nữa với ạ. Em không biết rõ mấy cái này lắm. Chỉ biết áp dụng và vọc vạch tùm lum thôi. Anh chuyên nghiệp mới làm được chứ em không biết thế nào. Trăm sự nhờ anh ạ.

Bạn hỏi lại chủ code xem sao

Tôi cũng đã thử, nhưng không thấy code khác nhau giữa 2 file ở post #1 (trong khi 1 file thì chạy ngon, 1 file thì không)

nên suy ra lý do thì file 2 (lỗi) có thể quá nhiều table (vì file bạn thuộc version excel mới hơn của tôi, nên tôi khó thử) nên dẫn đến mỗi lần gõ ký tự trong combobox là file lại calculating progress rất lâu khiến cho combobox mất chế độ focus luôn nên ảnh hưởng even keyup (có thể)

Tạm giải pháp thế này chỉ có bạn mới thử được
- save as file1 đang ngon lành của bạn thành file mới và tiếp tục bước tiếp theo
- copy/move từng sheet sang, sau mỗi lần thử luôn xem combobox có bị lỗi không (tìm nguyên nhân sheet nào nặng)
- nếu qua bước trên, thì tiếp tục mở rộng table của sheet Danh mục ...mã hàng, mở từ từ (ví dụ 100 hay 300 dòng / 1 lần) và thử test, xem đến mức độ nào lỗi ---- tương tự cho bên nhập

và hy vọng là bạn tìm ra nguyên nhân
hoặc may mắn thành công
(tôi không thử được vì file excel của bạn thuộc version mới hơn 2010)
Có gì , được hay không cứ chia sẻ

Tìm kiếm nhanh DropList

Thành viên hoạt động

File đính kèm

Thành viên mới

Thành viên hoạt động

Thành viên mới

Thành viên hoạt động

Thành viên hoạt động

Thành viên mới

Thành viên hoạt động

Thành viên hoạt động

Lỡ bước sang ngang

File đính kèm

Thành viên hoạt động

Thành viên tích cực

Thành viên hoạt động

Thành viên tích cực

Thành viên hoạt động

File đính kèm

Thành viên tích cực

Thành viên hoạt động

Thành viên mới

Thành viên hoạt động

Thành viên tích cực

Đếm ngược thời gian