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.
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.
- 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
- Terakhir silahkan anda jalankan untuk melihat hasilnya.
Bagi yang mau file yang sudah jadi, silahkan download di bawah ini.
Post a Comment for "Cara Membuat Teks Berjalan dan Jam di VBA Excel "
Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.