Tạo Macro cho chữ chạy chậm

[xuan_minh012007]

Sub Macro3()
ActiveCell.FormulaR1C1 = "Chµo ¤ng chñ"
    Range(Selection, Cells(ActiveCell.Row, 1)).Select
    Range("A1:D1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Font
        .Name = ".VnTimeH"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.ColorIndex = 3
    Range("A1:D1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Range("A1:D1").Select
End Sub

Em có đoạn Macro như trên.
Các Anh chị cho em hỏi, làm thế nào để các chữ mình đánh hoặc các định dạng trong Macro nó chậy thật chậm. VD: Đánh đoạn chữ: "Chào ông chủ" thì làm sao để ta nhìn thấy từng chữ 1 xuất hiện: C sau 1 hoặc 2 giây đến chữ H và tiếp tục chữ A...
Vậy ta phải thêm đoạn code gì để cho nó chạy chậm được như thế?

 

[SA_DQ]

Bạn thử điều chỉnh tốc độ tại ô [C3]

Option Explicit
Const CauChao As String = " * Chµo ¤ng chñ * "

Sub Macro3()
 Dim DDai As Byte, jJ As Byte, bTh As Byte, bDem As Byte
 Dim Timer_ As Double

[a1].Select
Range("A1:D1").Merge
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
Range("A1:D1").Select

With Selection.Borders(xlEdgeLeft)
   .LineStyle = xlDouble
   .Weight = xlThick:            .ColorIndex = 5
End With
With Selection.Borders(xlEdgeTop)
   .LineStyle = xlDouble
   .Weight = xlThick:            .ColorIndex = 5
End With
With Selection.Borders(xlEdgeBottom)
   .LineStyle = xlDouble
   .Weight = xlThick:            .ColorIndex = 5
End With
With Selection.Borders(xlEdgeRight)
   .LineStyle = xlDouble
   .Weight = xlThick:            .ColorIndex = 5
End With
 Randomize:                      bTh = 99 + Int(99 * Rnd)
 [b3] = bTh:                     DDai = Len(CauChao)
 If [c3] = "" Then [c3] = 10
 Do
   jJ = jJ + 1:      If jJ > bTh Then Exit Do
   bDem = (jJ Mod DDai) + 1
   [a1] = Mid(CauChao, bDem) & Left(CauChao, bDem - 1)
   Timer_ = Timer
   Do
      If Timer - Timer_ > 1 / [c3] Then Exit Do
 Loop:            Loop
End Sub

 

[LikeIt]

Bác SA_DQ cho em hỏi, em xin phép hỏi qua topic này,vì thấy bác rất giỏi về VBA, bác có thể cho em xin một VD về Code chạy chữ như thế này không? Vì em muốn cho chạy dòng tít trên Báo cáo của em, Vd em có dòng báo cáo của em ở dòng đầu tiên có tiêu đề là logo công ty "Samsung Electronic Vietnam Co.,Ltd". Cảm ơn bác trước.
NHT

 

[SA_DQ]

Bác có thể cho em xin một VD về Code chạy chữ như thế này không? Vì em muốn cho chạy dòng tít trên Báo cáo của em, Vd em có dòng báo cáo của em ở dòng đầu tiên có tiêu đề là logo công ty "Samsung Electronic Vietnam Co.,Ltd". Cảm ơn bác trước.NHT

Bạn chỉ cần từ từ thay các chữ & giá trị các biến là sẽ thành của mình mà!

Này nhá: Dòng chữ chạy được gán cho Const CauChao As String =" Tên Công ty bạn chép vô đây"
Macro trên chạy cho vui thôi, chứ lúc nó đang chạy thì ta chả làm gì khác được cả, ngoài việc chờ nó hoàn tất thời gian được tạo ra bỡi số ngẫu!

 

[congphuong.2008]

Có bạn nào có giáo trình excel không ? Mình đang học chứng chỉ A tin hoc nên rất cần Nếu có hãy gủi cho mình tại email congphuong.2007@yahoo.com.vn nhé

 

[chibi]

Chen ngang

Bác SA_DQ cho em hỏi, em xin phép hỏi qua topic này,vì thấy bác rất giỏi về VBA, bác có thể cho em xin một VD về Code chạy chữ như thế này không? Vì em muốn cho chạy dòng tít trên Báo cáo của em, Vd em có dòng báo cáo của em ở dòng đầu tiên có tiêu đề là logo công ty "Samsung Electronic Vietnam Co.,Ltd". Cảm ơn bác trước.
NHT

Chen ngang các bác chút. Nguyễn Hương Thơm có thể xem cái này của Tedaynui, hay ra phết.