Cara Membuat Running Text di UserForm Excel
|Agar sebuah UserForm terlihat menarik, kita bisa menambahkan efek running text atau teks berjalan, selain itu fungsi dari running text atau teks berjalan ini adalah untuk memberikan informasi kepada pemakai aplikasi, ataupun sekedar pesan selamat datang. Contoh running text atau teks berjalan pada UserForm Excel adalah seperti gambar di bawah ini:
Untuk membuat running text atau teks berjalan di UserForm Excel, caranya tidaklah sulis alias sangat mudah yaitu:
- Buka aplikasi Visual Basic for Application pada Excel dengan cara menekan tombol Alt+F11 pada keyboard.
- Tambahkan sebuah UserForm dan 1 buah Label.
- Pada Caption Label1 silahkan isikan teks sesukanya 🙂
- Selanjutnya klik kanan pada UserForm dan masukkan script vba berikut ini:
Option Explicit Dim Berhenti As Boolean Private Sub UserForm_Activate() Call Mulai End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Berhenti = True Unload Me End Sub Private Sub Mulai() Dim J 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 J = 1 To 6543210: Next GoTo Awal End Sub
- Selanjutnya tekan F5 untuk menjalankan UserForm dan lihatlah apakah teks pada label sudah menjadi running text atau teks berjalan atau belum, jika belum berarti ada yang salah, silahkan simak lagi langkah-langkahnya dari awal.
- Untuk mengatur kecepatan running text atau teks berjalan, bisa dengan merubah angka yang di tandai dengan warna merah pada script di atas, makin kecil nilainya makin cepat running textnya berjalan.
Bagi yang masih bingung atau gagal membuat running text di UserForm Excel, silahkan download aja contoh Filenya di halaman berikutnya (2) 😀
14 Comments
Gan, ijin download. untuk rumusnya berjalan/berfungsi di office versi berapa. saya menggunakan 2007 dan 2010 tidak berajalan, Mohon infonya ? Trim’s
Untuk contoh Filenya dibuat dengan Excel 2013, jika dibuka di versi 2007 biasanya akan tampil pesan Recovery klik yes aja, Jangan lupa setting Macronya juga harus aktif dan sudah dicoba di Excel 2007 bisa berjalan dengan baik 🙂
Maaf gak pernah berhasil ya..
Coba download aja File contohnya, biar lebih mudah untuk di pelajari…
perlu di coba nih, izin sedot gan
saya sudah pernah buat jam digital gan… tapi setelah saya exit dan sudah saya save, pas saya buka lagi jam digitalnya gak bisa jalan… gimana solusinya gan?
Makasih gan…
Terima kasih saya sudah bisa
Tapi Saya bingung ngapalin kodenya
Ilmunya bagus, trims gan
Mantapppppp mas…thanks ilmunya..
Selamat malam para master excel
Sy sangat awam sekali Tetang membuat userfprm vba excel , dan selama kurang lebih 2 bln belakangan saya tahu gintip tulisan para master excel. Alhamdulillahlah sekarang saya sudah bisa buat UserForm , input , edit , hapus data bahkan saya sdh bisa buat tulisan berjalan ke kanan. Kiri, atas dan bawah , bahkan sudah bisa buat ttulisan dan foto berkedip walaupun awalnya Sy copas , dan Sy coba coba otak Atik tulisan copas , tentang text berjalan akhirnya membuahkan hasil , saya ingin berbagi Vidio tapi gak tahu bagai mana caranya ?
Saat ini saya masih ingin mempelajari 3 hal untuk melengkapi pengetahuan Sy tentang UserForm excel. Guna memperlancar tugas tugas Sy di kantor
Saya sangat berterima kasih kepada semua Master excel yh sdh mau berbagi
Salam dari sy
Salam Kenal dan Sukses slalu Buat Master yang Punya Admin
salam juga buat para master lainnya.
Mohon Bantuannya, untuk running text yang jalannya dari arah kanan ke kiri kan udah ada contoh dan scripnya dari master, saya mau minta tolong script running text yang arah nya dibalik, yaitu dari arah kiri ke kanan, kalo bisa juga script buat running text dari atas ke bawah dan dari bawah ke atas, terima kasih buat semuanya, email : kesek@rocketmail.com
Terima Kasih, Ilmunya sangat bermanfaat, dan sudah saya praktekan dan hasilnya berjalan dengan baik. Cuma kalau boleh mau minta solusinya, pada saat berjalan running text. running text nya sering berkedip. Mohon solusinya. terima kasih.
Gan kalau di excel 2010 gimana ya kodenya..
Sebenarnya pas userformnya dibuka tulisannya mau jalan.. tapi ada dua permasalahan
1. Userformnya ada listbox dan textbox saat data di klik kan data dr listboxnya muncul di textbox dan setelah saya masukkan kode runingtexnya saat listbox diklik terjadi debug.
2. Saat userformnya di keluarin juga ada pesan debug ada peringatan run time eror..
Untuk debug yg pertama sudh bisa mengatasinya gan saya dengan hapus option explicitnya.
Tapi untuk debug yg kedua gk bisa.. saat saya klik debugnya mengarah ke kode ( if label1.left<=-me.width then)
Saat saya hapus kode tersebut debugnya hilang tapi teksnya jalan kekiri habis gitu hilang gk mau muncul lagi..
Apakah ada caranya gan mengatasinya agar tidak terjadi debug.
Terimakasih