Cara Membuat Label Berjalan di Form VBA Excel

Pada artikel kali ini Saya akan berbagi trik yaitu cara membuat label berjalan di Form dengan menggunakan kode VBA Excel, artikel ini terinsfirasi dari program visual basic.

Bagi Anda yang penasaran bagaiamana cara membuatnya yuk ikutilah langakah-langkah dibawah ini agar tidak tersesat :

1. Buka Program Excel Anda diisni saya menggunakan Excel 2016

2. Aktifkan Tab Developer pada Excel Anda, silahkan cari Tutorial cara mengaktifkan Tab Developer, apabila Anda belum mengaktifkannya.

3. Setelah Tab Developer Aktif, cari Tab Developer dan klik Tab Developer tersebut kemudian klik Visual Basic 

Maka akan muncul jendela Visual Basic,seperti gambar dibawah ini :

4. Pada jendela Visual Basic klik Insert >> UserForm

5. Maka akan muncul Form baru, pada Form tanamkan sebuah Label yang ada di Toolbox (lihat gambar diatas)

Pada Label1 ketikan kalimatnya disini saya mengetikan kalimat "TEKS BERJALAN DENGAN VBA EXCEL"

6. Terakhir klik kanan UserForm1 >> View Code

7. Pada Jendela kode Copy-Paste kode dibawah ini :

Private Sub UserForm_Activate()

Call TextBerjalan

End Sub

Private Sub TextBerjalan()

Dim I As Long

awal:

DoEvents

If Berhenti = True Then Exit Sub

Label1.Left = Label1.Left - 2

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

For I = 1 To 8388608: Next

GoTo awal

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Berhenti = True

Unload Me

End Sub

8. Setelah kode diatas di paste kemudian jalankan Form Anda dengan menekan tombol Run Sub (yang berwarna hijau), hasilnya akan tampak pada gambar dibawah ini :

Output

9. Simpan kode Anda dengan menekan tombol Save dengan TypeFile : Excel Macro - Enabled Workbook

Keterangan:

Jika ingin memperlambat gerakan, kamu bisa mengubah Kecepatan Berjalan dari 8388608 jadi lebih besar

Demikian artikel kali ini tentang Cara Membuat Label Berjalan di Form VBA Excel,semoga bermanfaat buat kita semua.amin.

Selamat mecoba, semoga sukses...

Related Post: VBA Excel