Tìm kiếm nhanh DropList (1 người xem)

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̉

tam888 · 9/1/19

Mới thử thì bạn chỉ xóa sheet DATA NHAP XUAT đi còn dưới 1000 dòng là được (lỗi do tính toán nặng)

Tôi đang tiếp tục test , chắc sẽ có cách không cần xóa

batman1 · 9/1/19

Dữ liệu thật nếu có 10000 dòng mà lại xóa đi chỉ còn 1000 thì xin nghỉ việc thôi vì có làm được việc đâu. Không xin nghỉ thì sếp cũng cho nghỉ.

Với tập tin như thế thì ở máy tôi có xóa chỉ còn 1000 dòng thì cũng không có sự kiện KeyUp và cả KeyDown.

Tôi làm như sau: thêm sheet mới -> chọn B11:Vxyz ở sheet DATA_NHAPXUAT -> copy -> sang sheet mới chọn B11 -> Ctrl + V -> Alt + F11 -> copy code trong module DATA_NHAPXUAT -> sang module sheet mới -> Ctrl + V -> Alt + F11 -> xóa sheet DATA_NHAPXUAT -> đổi tên sheet mới thành DATA_NHAPXUAT -> chèn 1 Combobox xuống sheet rôi thiết lập vài thuộc tính như cũ.

Tôi làm thế vì chắc chắn sheet DATA_NHAPXUAT bị bệnh hiểm nghèo nào đấy. Bây giờ thao tác bình thường, không có "đếm lê thê" nữa và KeyUp hoạt động bình thường.

tam888 · 9/1/19

batman1 đã viết:
Dữ liệu thật nếu có 10000 dòng mà lại xóa đi chỉ còn 1000 thì xin nghỉ việc thôi vì có làm được việc đâu. Không xin nghỉ thì sếp cũng cho nghỉ.

vì thấy bảng trong file đó toàn dòng trống bác

batman1 đã viết:
Dữ liệu thật nếu có 10000 dòng mà lại xóa đi chỉ còn 1000 thì xin nghỉ việc thôi vì có làm được việc đâu. Không xin nghỉ thì sếp cũng cho nghỉ.

Với tập tin như thế thì ở máy tôi có xóa chỉ còn 1000 dòng thì cũng không có sự kiện KeyUp và cả KeyDown.

Tôi làm như sau: thêm sheet mới -> chọn B11:Vxyz ở sheet DATA_NHAPXUAT -> copy -> sang sheet mới chọn B11 -> Ctrl + V -> Alt + F11 -> copy code trong module DATA_NHAPXUAT -> sang module sheet mới -> Ctrl + V -> Alt + F11 -> xóa sheet DATA_NHAPXUAT -> đổi tên sheet mới thành DATA_NHAPXUAT -> chèn 1 Combobox xuống sheet rôi thiết lập vài thuộc tính như cũ.

Tôi làm thế vì chắc chắn sheet DATA_NHAPXUAT bị bệnh hiểm nghèo nào đấy. Bây giờ thao tác bình thường, không có "đếm lê thê" nữa và KeyUp hoạt động bình thường.

Và chủ topic nên tách phần Nhập và tính toán
Chỉ lưu trữ trong sheet đó phần nhập mà thôi
Phần các cột tính toán nên bỏ đi, chuyển sang sheet mới khác
tất nhiên khi đo bỏ table được rồi
Thì khi đó nhập thỏa mãi hơn.

sacalataba127 · 9/1/19

batman1 đã viết:
Dữ liệu thật nếu có 10000 dòng mà lại xóa đi chỉ còn 1000 thì xin nghỉ việc thôi vì có làm được việc đâu. Không xin nghỉ thì sếp cũng cho nghỉ.

Với tập tin như thế thì ở máy tôi có xóa chỉ còn 1000 dòng thì cũng không có sự kiện KeyUp và cả KeyDown.

Tôi làm như sau: thêm sheet mới -> chọn B11:Vxyz ở sheet DATA_NHAPXUAT -> copy -> sang sheet mới chọn B11 -> Ctrl + V -> Alt + F11 -> copy code trong module DATA_NHAPXUAT -> sang module sheet mới -> Ctrl + V -> Alt + F11 -> xóa sheet DATA_NHAPXUAT -> đổi tên sheet mới thành DATA_NHAPXUAT -> chèn 1 Combobox xuống sheet rôi thiết lập vài thuộc tính như cũ.

Tôi làm thế vì chắc chắn sheet DATA_NHAPXUAT bị bệnh hiểm nghèo nào đấy. Bây giờ thao tác bình thường, không có "đếm lê thê" nữa và KeyUp hoạt động bình thường.

cảm ơn anh, cách này đã ok. Em copy nguyên sheet rồi thực hiện tìm kiếm cái được luôn, có thể file đó bị bệnh hiểm nghèo thật

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

tam888 đã viết:
vì thấy bảng trong file đó toàn dòng trống bác

Và chủ topic nên tách phần Nhập và tính toán
Chỉ lưu trữ trong sheet đó phần nhập mà thôi
Phần các cột tính toán nên bỏ đi, chuyển sang sheet mới khác
tất nhiên khi đo bỏ table được rồi
Thì khi đó nhập thỏa mãi hơn.

Em cũng tính tách phần nhập và tính toán riêng rồi, tuy nhiên em muốn thêm chức năng và sửa trực tiếp trên file luôn nên quay lại làm như trên.
Vấn đề e đã được giải quyết, cảm ơn anh. hihi

tam888 · 9/1/19

sacalataba127 đã viết:
Em cũng tính tách phần nhập và tính toán riêng rồi, tuy nhiên em muốn thêm chức năng và sửa trực tiếp trên file luôn nên quay lại làm như trên.
Vấn đề e đã được giải quyết, cảm ơn anh. hihi

Post lại file cần thêm chức năng
Và sửa trên sheet là sao? là khi có dữ liệu hay chưa có dữ liệu, và ?

sacalataba127 · 9/1/19

tam888 đã viết:
Post lại file cần thêm chức năng
Và sửa trên sheet là sao? là khi có dữ liệu hay chưa có dữ liệu, và ?

Dạ thế này, thường em hay nhập liệu bằng việc tạo 1 sheet riêng và fill tất cả sản phẩm và số lượng, giá, tồn kho.. ra để nhập số lượng , sau khi nhập xong bấm lưu thì dữ liệu tự động lưu vào sheet DATA_NHAPXUAT trên, và lấy dữ liệu đó làm dữ liệu cho PIVOT báo cáo.
Nhưng giờ em thấy có nhiều đơn hàng số lượng ít, mà chuyển qua chuyển lại giữa các sheet thì cũng chưa hợp lý
Nên làm DropList + công thức tính toán trực tiếp trên file luôn cho những trường hợp trên

Tìm kiếm nhanh DropList (1 người xem)

Người dùng đang xem chủ đề này

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

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

Thành viên gạo cội

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

Thời gian đếm ngược.