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

MyVTV Add-ins

tuannguyen789

Thành viên mới
Tham gia ngày
19 Tháng tư 2010
Bài viết
29
Được thích
1
Điểm
603
Tuổi
39
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

ptm0412

Bad Excel Member
Thành viên BQT
Super Moderator
Tham gia ngày
4 Tháng mười một 2007
Bài viết
10,874
Được thích
31,546
Điểm
9,718
Tuổi
59
Nơi ở
Gò Vấp
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
 

batman1

Thành viên gạo cội
Tham gia ngày
8 Tháng chín 2014
Bài viết
4,132
Được thích
6,576
Điểm
2,568
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

Bad Excel Member
Thành viên BQT
Super Moderator
Tham gia ngày
4 Tháng mười một 2007
Bài viết
10,874
Được thích
31,546
Điểm
9,718
Tuổi
59
Nơi ở
Gò Vấ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.
 

tuannguyen789

Thành viên mới
Tham gia ngày
19 Tháng tư 2010
Bài viết
29
Được thích
1
Điểm
603
Tuổi
39
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!
 
Top Bottom