Cara Membuat Teks Berjalan dan Jam di VBA Excel

Sahabat excel pada kesempatan ini saya akan membagikan Bagaimana Cara Membuat Teks Berjalan dan Jam di VBA Excel. Banyak hal yang di lakukan para pembuat aplikasi khususnya di Microsoft Excel.

Bagi anda yang baru belajar Excel pemula (belajar Excel dasar) yang baru mengenal VBA Excel pasti pernah berfikir Bagaimana ya membuat Teks Berjalan dan Jam di Microsoft Excel, membuat jam dan Teks Berjalan di VBA Excel itu tidak sesulit yang sobat fikirkan.

Pertama saya akan menjelaskan dulu cara membuat Teks berjalan
Ok dech sobat tanpa banyak basa-basi ikuti saja langkah-langkah nya di bawah ini.

Pertama: Buka Microsoft Excel sobat baik itu menggunakan Excel 2007, 2010, 2013 dan 2016.
Kedua: Buka Tab Developer > Visual Basic.
Ketiga: Tambahkan 1 buah Form dan di form tersebut tambahkan 1 buah label, Seperti gambar dibawah ini.

Keempat: Silahkan sobat klik label tersebut, dan masukan sintax dibawah ini.


Option Explicit
Dim Stopped As Boolean
Private Sub Label1_Click()
   If Stopped Then
      Stopped = False
      Jalankan
   Else
      Stopped = True
   End If
End Sub

Private Sub UserForm_Activate()
Jalankan
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   Stopped = True
   Unload Me
End Sub

Private Sub Jalankan()
   Dim Q As String, Cpt As String
   Dim p As Long, n As Long
   
   Q = "AYO BELAJAR EXCEL"
   Label1 = Q
   n = Len(Q)
   Cpt = Space(60) & Q
AWAL:
   DoEvents
   If Stopped = True Then Exit Sub
   Label1.Left = Label1.Left - 2
   If Label1.Left <= -Me.Width Then Label1.Left = Me.Width
   Me.Caption = Right(Cpt, n)
   n = n + 1
   If n = (Len(Q) + 60) Then n = 0
   
   For p = 1 To 2000000: Next
   GoTo AWAL
End Sub

Terakhir silahkan anda jalankan.

Membuat Teks Berjalan dan Jam secara bersamaan

Pertama: Tambahkan lagi 1 buah form dan 1 buah Label.

Kedua: Silahkan masukan sintax dibawah ini.


Option Explicit
Dim Stopped As Boolean

Private Sub Label1_Click()
   If Stopped Then
      Stopped = False
      Jalankan
   Else
      Stopped = True
   End If
End Sub

Private Sub UserForm_Activate()
    Jalankan
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   Stopped = True
   Unload Me
End Sub

Private Sub Jalankan()
   Dim Q As String, Cpt As String
   Dim p As Long, n As Long
   
   Q = " AYO BELAJAR EXCEL"
   Label1 = Q
   n = Len(Q)
   Cpt = Space(60) & Q
AWAL:
   DoEvents
   LblWaktu = FormatDateTime(Time, vbLongTime)
   If Stopped = True Then Exit Sub
   Label1.Left = Label1.Left - 2
   If Label1.Left <= -Me.Width Then Label1.Left = Me.Width
   Me.Caption = Right(Cpt, n)
   n = n + 1
   If n = (Len(Q) + 60) Then n = 0
   
   For p = 1 To 2000000: Next
   GoTo AWAL
End Sub