Vòng lập For chạy chậm

Liên hệ QC

tuannguyen789

Thành viên mới
Tham gia
19/4/10
Bài viết
29
Được thích
1
Chào mọi người,

Hiện Tuấn đang gặp vấn đề khi cho vòng lập For chạy từ 100 hoặc 1000 hoặc cao hơn thì chương trình VBA chạy quá chậm.
Mong mọi người hỗ trợ có cách nào nhanh hơn được không
Tuấn đính kèm file.

Note:
Dùng texbox nhập số lần vòng lập chạy
 

File đính kèm

  • Book1.xlsb
    28.7 KB · Đọc: 17
Sửa 1 vài chỗ, nhanh hơn 1 tẹo:
PHP:
Private Sub TextBox1_Change()
Dim SArr()
-------
SArr = Range("A2:M" & Me.TextBox1.Value + 1).Value
For j = 1 To UBound(SArr, 1)
    For i = 1 To 13
        --------
        .Caption = UCase(SArr(j, i))
----
End Sub
Một tẹo nghĩa là thử với 100, cho đến 500, đừng thử với 1000
 
Cứ cho là tăng tốc được đi thì tôi cũng chả hiểu tạo 13000 Label để làm gì.
Nhìn thì thấy có vẻ chỉ cần ListBox.

Tốt nhất nêu bài toán gốc, còn hướng đi, dùng gì thì để người khác góp ý.
 
Nhìn thì thấy có vẻ chỉ cần ListBox.
Đúng như vậy anh. Tôi trả lời 1 chút theo yêu cầu và bỏ ngỏ việc dẹp toàn bộ code chuyển sang listbox. Kiểu vẽ vời này tôi đếm đến nay là 3 chủ đề rồi, trong đó 2 chủ đề vẽ đẹp hơn cơ, có điều chỉ có clip, không có file.
 
Cám ơn mọi người đã góp ý.

Đúng vậy, cái này Tuấn thay cho Listbox.

Mọi người giúp sửa lại đoạn code sao cho nhanh được không vậy!
 
Web KT
Back
Top Bottom