lỗi code tạo chữ chạy (1 người xem)

[phan_huythai]

các thầy, mấy bạn xem giùm mình với. minh không biết tạo sao nó bị lỗi nữa.

 

[phan_huythai]

Private Sub CommandButton1_Click()
Dim Text As String
Text = Range("A1").Value
With CommandButton1
.Caption = IIf(.Caption = "Start", "Stop", "Start")
Do While .Caption = "Stop"
Text = Mid(Text, 2, Len(Text)) & Left(Text, 1)
Range("A1") = Text
Sleep 100
DoEvents
Loop
End With
End Sub
đây là code của nó. em chạy nó báo lỗi không ah
( hjx em up file lên không được)

 

[Quang_Hải]

Private Sub CommandButton1_Click()
Dim Text As String
Text = Range("A1").Value
With CommandButton1
.Caption = IIf(.Caption = "Start", "Stop", "Start")
Do While .Caption = "Stop"
Text = Mid(Text, 2, Len(Text)) & Left(Text, 1)
Range("A1") = Text
Sleep 100
DoEvents
Loop
End With
End Sub
đây là code của nó. em chạy nó báo lỗi không ah
( hjx em up file lên không được)

Mình chán nhất là mấy cái này, chả được lợi ích gì cả.
Private Sub CommandButton1_Click()

Dim Text As String
Text = Range("A1").Value
With CommandButton1
.Caption = IIf(.Caption = "Start", "Stop", "Start")
Do While .Caption = "Stop"
Text = Mid(Text, 2, Len(Text)) & Left(Text, 1)
Range("A1") = Text
For i = 1 To 5000
DoEvents
Next
Loop
End With
End Sub

 

[phan_huythai]

cám ơn anh nhiều. em làm cái này để trình bày cho đẹp.

 

[Quang_Hải]

cám ơn anh nhiều. em làm cái này để trình bày cho đẹp.

Thật ra code của bạn copy thiếu dòng này trên đầu code nên không chạy

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)