Membuat Teks Berjalan pada VB Excel

Bagi programmer VBA Excel yang kesulitan membuat Teks Berjalan pada VB Excel yang berfungsi untuk langsung menuju ke sebuah halaman website (browser default tergantung dari pengaturan user komputer)

Pada artikel ini dapat mempelajari cara membuat Teks Berjalan pada VBA Excel (Alt+F11). Contoh berikut ini berupa Label Form Login (Label 8), caranya :

Double Klik Label

Ketik Kode berikut ini  :

Private Sub Label8_Click()

Option Explicit

Dim Stopped As Boolean

   If Stopped Then

      Stopped = False

      Jalankan

   Else

      Stopped = True

   End If

End Sub

Private Sub UserForm_Activate()

Jalankan

End Sub

Private Sub Jalankan()

   Dim Q As String, Cpt As String

   Dim p As Long, n As Long

   Q = "SELAMAT MENGGUNAKAN APLIKASI SIAP-DESA, MARI WUJUDKAN KERJA CERDAS"

   Label8 = Q

   n = Len(Q)

   Cpt = Space(60) & Q

AWAL:

   DoEvents

   If Stopped = True Then Exit Sub

   Label8.Left = Label8.Left - 2

   If Label8.Left <= -Me.Width Then Label8.Left = Me.Width

   'Me.Caption = Right(Cpt, n) DI HAPUS

   n = n + 1

   If n = (Len(Q) + 60) Then n = 0

     For p = 1 To 5000000: Next

   GoTo AWAL

End Sub

Klik Simpan / Save

Kode diatas berfungsi dengan baik (telah dicoba) Ganti Teks yang berwarna merah tersebut dengan alamat teks yang diinginkan. Selamat mencoba.

Man Jadda Wajada