Nhờ sửa dùm lỗi code

[Bong0503]

Mình có một code chạy label trên form từ phải qua trái như sau
Private Sub UserForm_Activate()
Dim PauseTime, Start
Dim i As Integer
i = Len(chaychu.Caption)
chay:
PauseTime = 0.2
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
chaychu.Caption = Right(chaychu.Caption, 1) + Left(chaychu.Caption, i - 1)
GoTo chay
End Sub
Khi code chạy thì toàn bộ các nút trên form link đến các sheet đều bị sai, và màn hình cũng bị đơ luôn.
Nếu bỏ code này đi thì mọi thứ lại trở lại bình thường.
Mong nhận được sự trợ giúp của mọi người.
Chân thành cảm ơn.

 

[XuanTruong1958]

Có 2 cách sửa
1/ Bỏ lệnh chay: và GoTo chay
2/ Copy lệnh chay: xuông dưới GoTo chay. Để lệnh chay: trên dòng GoTo thì làm sao nó chạy?

 

[Bong0503]

Có 2 cách sửa
Không phải vậy bạn ạ. Lỗi là trong code link tới các sheet của CommandButton mình thiếu dòng Application.ScreenUpdating = True.
Sau khi bổ sung dòng đó mọi chuyện đã ổn!