animation font for excel

Killing Time

Pada dasarnya posting ini adalah proses sesuai judul, yaitu: “Killing Time”, ntah karena jenuh perlu refreshing, atau karena penyebab lain, saya g mengerti.

Kemarin sore saya mencari kode-kode VBA di mbah Googgle dengan kata kunci VBA animation, dan hasilnya adalah:

Sub Tester1()
Dim sp As String
Dim sTxt As String
Dim x As Integer, y As Integer
Dim Start, delay

sTxt = "Hi there!!"
For y = 1 To 15 '15 Loops through the scrolling
For x = 1 To 30 'Index number of times
Start = Timer 'Set start to internal timer
delay = Start + 0.15 'Set delay for .15 secs
Do While Timer < delay 'Do the display routine
[D6] = Space(x) & sTxt 'Show 1 str @ a time
DoEvents 'do there things
Loop 'Loop until delay is up
DoEvents
Start = Timer 'and reset the timer
delay = Start + 0.15 'and the delay
Next x 'Show the next str
Next y 'Do this again - 15
[D6] = "" 'Reset
End Sub

Dengan menggunakan kode di atas bisa membuat animasi ‘text’ di dalam excel
Untuk variasi lainnya bisa dilakukan dengan modifikasi sesuai selera. Tadinya saya mau menautkan link dimana saya mengcopy datanya, tetapi jaringan lagi error, sehingga nanti akan diupdate sumber kodenya.

Semoga bermanfaat 😉

Update: Sudah ada sumber link nya : Disini

Iklan