dear endang...
jika ingin versi endless nya tinggal nambahin dikittt...
Dim stopped As Boolean
Sub Txt()
' siti Vi / 3mei2010
' meneruskan makro pak anton suryadi 1/Mei/2010
Dim d As Integer, i As Long, t As String
stopped = False
With Sheets("Sheet2")
t = Space(250) & .Range("A1") & " " & .Range("A2")
End With
On Error GoTo 10
Do
For d = 1 To Len(t)
For i = 1 To 1200000: Next '=penunda /pengatur speed
DoEvents
If stopped Then Exit Do
Range("a2") = Mid(t, d, Len(t) - d) & Space(d)
Next d
Loop
10
Range("a2") = ""
End Sub
max counter i (12juta) dapat anda ubah-ubah untuk menyesuaikan kecepatan
bergesernya text
sesuai kenyamanan anda
--------------------------------------------------------------------------------
----- Original Message -----
From: anton suryadi
To: [email protected]
Sent: Saturday, May 01, 2010 4:14 PM
Subject: 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 <[email protected]>
To: [email protected]
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
