Cara Membuat Text Berjalan Pada Worksheet Excel

Bagi para pecinta Microsoft Excel, kali ini excel noob akan membuat turorial bagaimana cara membuat sebuah Text Berjalan pada Worksheet di Microsoft Excel. Text berjalan ini dibuat hanya untuk pembelajaran saja. Jika untuk digunakan dalam sebuah lembar kerja seeprtinya belum cocok jika menggunakan text berjalan ini.

Pada artikel sebelumnya Excelnoob telah membuat tutorial bagaimana cara membuat Text Berjalan pada sebuah Userform. Untuk pembahasan kali ini kita akan membuat text berjalan langsung pada worksheet Excel, tanpa membutuhkan userform. Hasil yang akan kita buat bisa dilihat pada gambar dibawah ini.

Bisa kita lihat, pada gambar diatas, kita membuat sebuah text berjalan pada Alamat Range B1. Logika pada text berjalan dalam worksheet ini, menggunakan logika yang sangat sederhana. Disini kita hanya memainkan sepasi sehingga seolah-oleh text dalam range B1 seperti berjalan. Padahal kenyataannya adalah sepasi pada text tersebut bertambah dan berkurang sesuai waktu.

Untuk membuat text seperti diatas. Script yang digunakan untuk membuat text berjalan, bisa dilihat pada code berikut ini.

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

sTxt = "Ini Adalah Text Berjalan"

For y = 1 To 10              'Banyaknya Loop
    For x = 1 To 50          ' jumlah Spasi
        Start = Timer
        delay = Start + 0.15
        Do While Timer < delay
            [B1] = Space(x) & sTxt  'Tambahkan Spasi
            DoEvents
        Loop
        DoEvents
        Start = Timer
        delay = Start + 0.15
    Next x
    For x = 50 To 1 Step -1     'Untuk Text Berjalan Mundur
        Start = Timer
        delay = Start + 0.15
        Do While Timer < delay
            [B1] = Space(x) & sTxt 'Tambahkan Spasi
            DoEvents
        Loop
        DoEvents
        Start = Timer
        delay = Start + 0.15
    Next x
Next y

[B1] = "" 'Reset

End Sub

Simpan script diatas pada sebuah Module. Untuk memudahkan, bisa dibuatkan sebuah tombol dengan membuat sebuah Button atau Shapes lalu tambahkan Macro pada tombol tersebut untuk menjalankan Procedure textBerjalan. Dan lihatlah apa yang terjadi pada Range B1.