Tạo dòng chữ chạy trên Application.Caption (1 người xem)

[xuanha]

Private Sub Worksheet_Activate()
Dim x$, i@
x = "Cong hoa xa hoi Chu nghia Viet Nam __ "
Do
i = i + 1
If i = 10000 Then
x = Mid(x, 2) & Left(x, 1): i = 0
Application.Caption = x
End If
DoEvents
Loop Until Len(x) = 0
End Sub

 

[quangthanhdu]

Private Sub Worksheet_Activate()
Dim x$, i@
x = "Cong hoa xa hoi Chu nghia Viet Nam __ "
Do
i = i + 1
If i = 10000 Then
x = Mid(x, 2) & Left(x, 1): i = 0
Application.Caption = x
End If
DoEvents
Loop Until Len(x) = 0
End Sub

Nếu em áp dụng code trên cho Form như sau:
Private Sub UserForm_Activate()
Dim x$, i@
x = "Cong hoa xa hoi Chu nghia Viet Nam __ "
Do
i = i + 1
If i = 10000 Then
x = Mid(x, 2) & Left(x, 1): i = 0


UserForm1.Caption = x
End If
DoEvents
Loop Until Len(x) = 0
End Sub


thì Caption trên form vẫn chạy nhưng khi tắt Form đó đi thì không thể nhập dữ liệu trên nền Excel.. Xin tác giả hướng dẫn thêm???Chân thành cảm ơn!!!

 

[Nguyễn Duy Tuân]

Nếu em áp dụng code trên cho Form như sau:
Private Sub UserForm_Activate()
Dim x$, i@
x = "Cong hoa xa hoi Chu nghia Viet Nam __ "
Do
i = i + 1
If i = 10000 Then
x = Mid(x, 2) & Left(x, 1): i = 0


UserForm1.Caption = x
End If
DoEvents
Loop Until Len(x) = 0
End Sub


thì Caption trên form vẫn chạy nhưng khi tắt Form đó đi thì không thể nhập dữ liệu trên nền Excel.. Xin tác giả hướng dẫn thêm???Chân thành cảm ơn!!!

Bạn cần thêm đoạn code dưới đây trên đầu class Userform

Dim Terminated As Boolean
Private Sub UserForm_Terminate()
    Terminated = True
End Sub

Trong code lặp chữ chạy sửa đoạn
Loop Until Len(x) = 0

Thành
Loop Until Len(x) = 0 Or Terminated

 

[khicon8683]

xuanha ơi, mình làm theo cách của bạn thì dòng chữ chạy được rồi. Nhưng khi mình đóng file lại và sau đó mở lại file thì dòng chữ không tự động chạy nữa (để dòng chữ tiếp tục chạy thì lại phải vào Visual Basic/Run). Bạn giúp mình chỉnh lại đoạn code để làm sao khi mở file thì dòng chữ tự động chạy luôn mà không cần phải vào Visual Basic/Run. Cảm ơn bạn rất nhiều.