Help với Rowsource của Listbox - VBA

nqtrungquatest2

Thành viên mới
Tham gia ngày
15 Tháng ba 2019
Bài viết
6
Được thích
0
Điểm
13
Tuổi
29
Dear các anh chị,
Mình là thành viên mới, mù VBA, mày mò mấy hôm nay để tự làm cái tool phục vụ công việc.
Hiện đang bị bí chỗ listbox. Listbox này hiển thị kết quả từ một vùng dữ liệu sau khi lọc. Nhưng khi mình bấm lọc (Button "Xem" trong Form "giaodienchinh", file đính kèm) thì sau vài ba lần bấm liên tục là listbox không còn hiển thị đủ dữ liệu. Mặc dù mình xem dữ liệu trên sheet kết quả lọc vẫn đầy đủ.

Các a/c hỗ trợ giúp mình với. Many tks !

P/S: Nhân tiện, đây là file đầu tiên mình làm nên còn rất vụng về. Mong các anh chị thông cảm và góp ý giúp. Tks 1 lần nữa :D
 

File đính kèm

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Mình nghĩ là câu lệnh nạy:
PHP:
     Sheets("DATA").Range("A1:V25").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("AX1:AX2"), CopyToRange:=Range("AA1:AV50"), Unique:=False
có vấn đề ở con số 50; Bạn thử thay bỡi 1 xem sao(?)

Thêm nữa:
(1) Mệnh đề Sheets("DATA").Range("A1:V25").AdvancedFilter có vấn đề tiềm ẩn nguy cơ sau này, 1 khi CSDL của bạn phát triển
Nếu là mình thì mệnh đề này sẽ là: Sheets("DATA").Range("B2").CurrentRegion.AdvancedFilter

(2) Tên các trường không nên chứa những ký tự như "." hay "-" & "/",. . . .
Là mình thì mình sẽ xài "_" thay cho chúng nếu cần; Còn không thì bỏ quách chúng đi cho khỏe!
Ví dụ D_Line HS thay vì D.LINE HS hay PHop_ThauPhu thay cho PHỐI HỢP/ THẦU PHỤ

Chúc các bạn có 1 mùa xuân vui khỏe & hạnh phúc!
 
Lần chỉnh sửa cuối:

nqtrungquatest2

Thành viên mới
Tham gia ngày
15 Tháng ba 2019
Bài viết
6
Được thích
0
Điểm
13
Tuổi
29
Mình nghĩ là câu lệnh nạy:
PHP:
     Sheets("DATA").Range("A1:V25").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("AX1:AX2"), CopyToRange:=Range("AA1:AV50"), Unique:=False
có vấn đề ở con số 50; Bạn thử thay bỡi 1 xem sao(?)

Thêm nữa:
(1) Mệnh đề Sheets("DATA").Range("A1:V25").AdvancedFilter có vấn đề tiềm ẩn nguy cơ sau này, 1 khi CSDL của bạn phát triển
Nếu là mình thì mệnh đề này sẽ là: Sheets("DATA").Range("B2").CurrentRegion.AdvancedFilter

(2) Tên các trường không nên chứa những ký tự như "." hay "-" & "/",. . . .
Là mình thì mình sẽ xài "_" thay cho chúng nếu cần; Còn không thì bỏ quách chúng đi cho khỏe!
Ví dụ D_Line HS thay vì D.LINE HS hay PHop_ThauPhu thay cho PHỐI HỢP/ THẦU PHỤ

Chúc các bạn có 1 mùa xuân vui khỏe & hạnh phúc!
Thank các góp ý của bạn. Mình đã thử sửa lại nhưng không ăn thua. Mình đã kiểm tra kết quả lọc vẫn ok. Nhưng vấn đề của mình nằm ở 3 cái list box. Nó không hiển thị đầy đủ dữ liệu đã lọc ra. Trong khi mình thấy kết quả lọc trên sheet vẫn đầy đủ @@
 
Top Bottom