Em làm 1 cái file excel của e, e làm báo cáo cho thầy, e muốn làm dòng cảm ơn thầy chạy như của bác cho bắt mắt, hì
Bác có thể cụ thể cho e hơn đc ko?
Bác dùng code sau ạ?
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub Autpen()
Dim Str As String
Str = "Gi" & ChrW(7843) & "i pháp Excel - Công c" & ChrW(7909) & " tuy" & ChrW(7879) & "t v" & ChrW(7901) & "i c" & ChrW(7911) & "a b" & ChrW(7841) & "n" & " "
Do
DoEvents
[A1].Value = Str
Str = Right(Str, 1) & Mid(Str, 1, Len(Str) - 1)
Sleep 80
Loop
End Sub
Code thì có rồi đấy. Bạn chỉ việc sửa lại và cho vào file của bạn thôi mà. Nhưng tôi nghĩ một lời cảm ơn chân thành sẽ hơn những cái màu mè này. Hơn nữa chắc gì code đã chạy trên máy thầy của bạn.