Membuat Teks Berjalan Di UserForm VBA Excel

 Aplikasi Excelku. Selamat datang kembali Sobat Excel semuanya, pada kesempatan ini Saya akan memberikan sebuah tutorial mengenai Macro VBA Excel, Biasanya kita melihat tulisan berjalan di halaman website atau pun blog, namun ternyata kita juga bisa membuat agar teks/tulisan yang ada di UserForm (VBA Excel) berjalan seperti yang biasa kita lihat di halaman website atau pun blog tersebut. Dan berikut adalah gambarannya:

Cara Membuat Tulisan Berjalan Di UserForm VBA Excel :

Untuk membuat tulisan berjalan seperti gambar di atas, berikut langkah-langkahnya:

1. Pada lembar kerja Ms. Excel kita buka halaman Visual Basic, dengan cara tekan tombol kombinasi Alt+F11 atau juga dengan klik pada tab menu Developer kemudian klik pada Visual Basic;

2. Didalam halaman Visual Basic Excel kita buat sebuah UserForm, dengan cara klik pada menu Insert kemudian klik pada UserForm, atur ukuran (tinggi dan lebar UserForm sesuai dengan keingian/kebutuhan masing-masing);

3. Kemudian sisipkan sebuah Label kedalam UserForm yang sudah kita buat tadi, isikan Caption atau tulisan yang akan kita tampilkan, pada contoh ini Saya membuatnya "Terimakasih Sudah Berkunjung Di Aplikasi Excelku";

4. Langkah selanjutnya adalah, Copas Script macro di bawah ini kedalam UserForm tadi, caranya klik kanan pada UserForm kemudian klik pada View Code :

Dim Finish As Boolean
'https://aplikasiexcelku.blogspot.com
Private Sub UserForm_Activate()
Call TulisanJalan
End Sub

Private Sub TulisanJalan()

'https://aplikasiexcelku.blogspot.com
Dim I As Long
Start:
    DoEvents
    If Finish = True Then Exit Sub
    Label1.Left = Label1.Left - 2
    If Label1.Left <= -Me.Width Then Label1.Left = Me.Width
    
    For I = 1 To 3388818: Next 'Kecepatan Berjalan
    GoTo Start
End Sub

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

'https://aplikasiexcelku.blogspot.com
    Finish = True
    Unload Me
End Sub

Jika sudah, silahkan jalankan.

Tambahan:

Jika Sobat Excel ingin membuat tulisan tersebut berjalan ke arah kanan silahkan ubah Script di bawah ini:

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

Menjadi di bawah ini:

Label1.Left = Label1.Left + 2
If Label1.Left >= Me.Width Then Label1.Left = -Me.Width

Demikian mengenai Membuat Teks Berjalan Di UserForm VBA Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan Salam Belajar.

Share :