Vòng lập For chạy chậm (3 người xem)

[tuannguyen789]

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

 

[ptm0412]

Sửa 1 vài chỗ, nhanh hơn 1 tẹo:

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

 

[batman1]

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 ý.

 

[ptm0412]

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.

 

[tuannguyen789]

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!

 

[ptm0412]

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

Bạn đọc hết từ trên xuống chưa? Nếu chưa thì thử bài 2

 

[tuannguyen789]

Bạn đọc hết từ trên xuống chưa? Nếu chưa thì thử bài 2

Chào bạn,

Tuấn đã đọc rồi, cũng thử nhưng vẫn như cũ.

không thay đổi gì so với code của Tuấn.

 

[ptm0412]

Tuấn đã đọc rồi, cũng thử nhưng vẫn như cũ.

Tôi thử thấy nhanh gấp đôi. Nếu bạn vẫn thấy như cũ thì đọc tiếp bài 3 và 4