Re: ]] XL-mania [[ Scrolling text

Dengan macro,

Sub Txt()
'anton suryadi 1/Mei/2010
With Sheets("Sheet2")
    T = .Range("A1") & " " & .Range("A2")
End With
On Error GoTo 10
For D = 50 To 1 Step -1
S = Timer
J = S + 0.1
Do While Timer < J
Range("C2") = Space(D) & T
DoEvents
Loop
Next D
10
Range("C2") = ""
End Sub

File terlampir


>semoga bermanfaat

---

From: Endang <padma@padma.co.id>
To: XL-mania@yahoogroups.com
Sent: Thu, April 29, 2010 4:13:25 PM
Subject: ]] XL-mania [[ Scrolling text

 

Selamat sore,   Mohon petunjuk master-master, kalo ingin meng-animasi- kan /  scrolling text data yg ada di cell A1 dan A2  sheet2 misalnya dan ditampilkan scrolling text di sheet1 bagaimana caranya ya?   Terima kasih atas bantuannya. Endang