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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s