Giúp cho chữ chạy giùm với anh em! (2 người xem)

[oicuocsongmenthuong]

vô cùng biết ơn anh em, số là mình có 1 phần viết về các hồ sơ cho cơ quan, nhưng mình muốn ai cũng biết đó là mình làm ra, nhưng phần này quá tầm với nên nhờ anh em giúp. Chúc anh em 1 buổi sáng tốt lành, năm mới vui vẻ

 

[ndu96081631]

Vậy bạn thay Code cũ bởi Code dưới đây nhé:

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub Auto_Open()
    Dim Str As String
    Str1 = "              Ngày m" & ChrW(432) & ChrW(7901) & "i tháng m" & _
           ChrW(432) & ChrW(7901) & "i, n" & ChrW(259) & "m hai ngàn không tr" & _
           ChrW(259) & "m m" & ChrW(432) & ChrW(7901) & "i sáu"
    Str2 = ChrW(272) & ChrW(432) & ChrW(7907) & "c vi" & _
           ChrW(7871) & "t và phát tri" & ChrW(7875) & "n b" & ChrW(7903) & "i H" & _
           ChrW(7891) & " Thi" & ChrW(7879) & "n Nam         "
    Do
        DoEvents
        Sheets(1).[A15].Value = Str1
        Sheets(1).[A20].Value = Str2
        Str1 = Right(Str1, 1) & Mid(Str1, 1, Len(Str1) - 1)
        Str2 = Right(Str2, 1) & Mid(Str2, 1, Len(Str2) - 1)
        Sleep 80
    Loop
End Sub

Anh thử chỉ định rõ sheet nào gán dữ liệu xem theo dạng:

[B]Sheet1[/B].[A1]

Sửa kiểu này vẫn chưa được
(các bạn cứ tự suy nghĩ đi)
-----------------------------------

Riêng với code của phulien1902, ngoài cái "chưa được" mà tôi đề cập ở trên thì còn 1 lỗi "nhỏ" nữa: Chưa khai báo đầy đủ các biến nên khi người ta copy cho vào file thật vẫn có khả năng báo lỗi

 

[phulien1902]

Sửa kiểu này vẫn chưa được
(các bạn cứ tự suy nghĩ đi)
-----------------------------------

Riêng với code của phulien1902, ngoài cái "chưa được" mà tôi đề cập ở trên thì còn 1 lỗi "nhỏ" nữa: Chưa khai báo đầy đủ các biến nên khi người ta copy cho vào file thật vẫn có khả năng báo lỗi

Mong nhận được sự chỉ giáo của bác và các thành viên khác.

 

[ndu96081631]

Mong nhận được sự chỉ giáo của bác và các thành viên khác.

Gợi ý: bạn chạy code của ban, xong hãy mở 1 workbook trắng sẽ biết liền