14 March 2019

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.
Cara Membuat Teks Berjalan dan Jam di VBA 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. 
Cara Membuat Teks Berjalan dan Jam di VBA Excel
  • 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
Cara Membuat Teks Berjalan dan Jam di VBA Excel
    • 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. 
    Download Now
    Semoga bermanfaat. 

    Share This

    SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

    0 Comments:

    Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.