Giúp cho chữ chạy giùm với anh em! (1 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ẻ

 

[oicuocsongmenthuong]

đây là File em muốn làm!

 

[seikoqn]

đây là File em muốn làm!

File bạn đâu????????????????????

 

[patygate591]

theo ngu ý của mình... bạn có thể dùng watermark để viết tên bạn trong đó... Như thế sẽ nhanh hơn @@

 

[oicuocsongmenthuong]

File bạn đâu????????????????????

có tải lên mà ta? :v

 

[Hong.Van]

có tải lên mà ta? :v

file có pass!!!!!!!!!!!!!!!!!!!

 

[oicuocsongmenthuong]

trời đất ơi, cho xin lỗi... tui lu bu quá

 

[phulien1902]

Bạn chép Code dưới đây vào Module

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub Auto_Open()
    Dim Str As String
    Str = "              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"

    Do
        DoEvents
       Sheets(1). [A15].Value = Str
        Str = Right(Str, 1) & Mid(Str, 1, Len(Str) - 1)
        Sleep 80
    Loop
End Sub

 

[oicuocsongmenthuong]

cảm ơn anh nhiều, nhưng em muốn cái dòng chữ trằng nó chạy haha! dòng chữ "Được phát triển bởi Hồ Thiện Nam" nhưng cảm ơn anh. e sẽ mò tiếp

 

[phulien1902]

cảm ơn anh nhiều, nhưng em muốn cái dòng chữ trằng nó chạy haha! dòng chữ "Được phát triển bởi Hồ Thiện Nam" nhưng cảm ơn anh. e sẽ mò tiếp

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

 

[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
        [A15].Value = Str1
        [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

Code này không xài được!
Thử chèn 1 sheet mới sẽ biết tại sao tôi nói thế

 

[phulien1902]

Code này không xài được!
Thử chèn 1 sheet mới sẽ biết tại sao tôi nói thế

Quả thật khi em chèn thêm 1 vài Sheet nữa thấy Sheet nào cũng có chữ chạy.
Vậy anh giúp em sửa lại Code đó nhé.
Cảm ơn anh.

 

[dhn46]

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

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

 

[phulien1902]

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

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

Cảm ơn em nhé.
Đã ổn. Vậy mà không nghĩ ra, tưởng có gì cao siêu.

 

[oicuocsongmenthuong]

a phú ơi! cảm ơn a. e đã thành công trong việc chạy chữ theo yêu cầu em muốn! nhưng sheet nào cũng có hết. e chỉ muốn sheet 1 chạy thôi. a giúp e lần cuối được không?

 

[oicuocsongmenthuong]

không được anh ơi! e thử rồi.. kỳ ạ ta

 

[patygate591]

Với office x64 thì không chạy được đâu nha bạn... Nên xài code đó thì cẩn thận... Kẻo lại bị người ta quỡ á :-?
Hoặc người ta tắt macro thì cũng thua.

 

[oicuocsongmenthuong]

Cho em hỏi sao em đánh thông tin các ô chung quanh thì nó không cho ta? mặc dù là chữ đã chạy hic

 

[oicuocsongmenthuong]

a Ndu ơi! em thì chỉ muốn cái sheet3.[av4] chạy dòng chữ "Mang hưng thạnh cho mọi thành viên" nhờ a giúp em với. và các thông tin còn lại e đều đánh được, với các sheet khác không có chữ chạy.e cảm ơn a (có file đính kèm)

 

[oicuocsongmenthuong]

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

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

a ơi! sao mà e cài vô thì chạy ổn rồi, nhưng các ô chung quanh lại k cho đánh thông tin cứu em với