Re: ]] XL-mania [[ Scrolling text

 



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: XL-mania@yahoogroups.com

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 <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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 109

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| uaaaaa... mau game maeeemoooooooo....                             |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___