Cara Membuat Running Text di User Form Excel

Pasti kalian sudah tidak asing lagi dengan yang namanya Running Text. Biasanya jenis teks berjalan ini sering ditemui di siaran televisi, dimana bagian paling bawah

Update

Cara Membuat Running Text di User Form Excel

Pasti kalian sudah tidak asing lagi dengan yang namanya Running Text. Biasanya jenis teks berjalan ini sering ditemui di siaran televisi, dimana bagian paling bawah acara sering muncul rangkuman atau berita terupdate yang dikemas dalam bentuk teks berjalan.

Selain itu running text juga bisa ditemui di papan promosi, jaman yang serba canggih ini semua orang lebih percaya dengan teknologi maju, buktinya sudah beberapa toko menggunakan media pamflet promosi dari running text.

Memang tidak dapat dipungkiri, selain lebih ringkas dan informatif, model running text ini lebih mudah untuk menarik perhatian banyak orang untuk membacanya. Sehingga dari segi efektifitasnya, running text dinilai sangat efektif ketimbang metode lainnya.

Diluar pembahasan running text sering digunakan di banyak kios penjual, ternyata running text seperti ini juga bisa kamu buat menggunakan Excel loh.

Pasti banyak yang bingung, kenapa sekelas software pengolah angka seperti Excel ini bisa membuat running text segala. Padahal sepintas yang orang tahu, isi dari fitur Microsoft Excel itu kebanyakan rumus-rumus seperti penjumlahan, perkalian, pembagian, total bayar dan masih banyak lainnya.

Jadi biasa dibilang fitur ini terpisah dengan fitur utama Excel, nama fitur tersebut adalah User Form.

Cara Membuat Running Text di User Form Excel

Bagi yang masih awam soal fitur ini, pastikan kamu menyimak penjelasan dibawah ini dengan teliti, dan kita usahakan untuk membuat tutorialnya mudah dimengerti dan ringkas.

  1. Pertama-tama, silahkan buka Microsoft Excel.
  2. Tekan tombol β€œALT + F11β€œ.

    Buka Aplikasi Microsoft Excel - Cara Membuat Running Text di User Form Excel
    Buka Aplikasi Microsoft Excel
  3. Tunggu sampai muncul tampilan seperti dibawah ini :

    Tunggu Hingga Form Terbuka - Cara Membuat Running Text di User Form Excel
    Tunggu Hingga Form Terbuka
  4. Tekan menu β€œInsert” ➜ β€œUserFormβ€œ.

    Klik Menu Insert dan Pilih UserForm - Cara Membuat Running Text di User Form Excel
    Klik Menu Insert dan Pilih UserForm
  5. Setelah muncul tampilan seperti ini, kamu bisa ibaratkan kotak UserForm 1 itu adalah tempat untuk running textnya berjalan, sehingga kamu bisa menggeser ukuran sesuai selera mau seberapa besar dan panjang kotaknya.

    Sesuaikan Ukuran UserForm - Cara Membuat Running Text di User Form Excel
    Sesuaikan Ukuran UserForm
  6. Pilih tombol β€œLabel” yang ada di menu β€œToolBoxβ€œ.
  7. Masukkan ke bagian β€œUserForm” dan sesuaikan ukuran.

    Buat Label di UserForm - Cara Membuat Running Text di User Form Excel
    Buat Label di UserForm – Cara Membuat Running Text di User Form Excel
  8. Isi tabel tersebut dengan text yang ingin kamu buat.
  9. Untuk mengatur font dan ukuran bisa di menu β€œFontβ€œ.

    Sesuaikan Ukuran Font - Cara Membuat Running Text di User Form Excel
    Sesuaikan Ukuran Font
  10. Kamu juga bisa mengatur warna backgorund di β€œBackColorβ€œ.
  11. Sedangkan untuk warna text bisa diatur di β€œForeColorβ€œ.

    Atur Warna Teks dan Background - Cara Membuat Running Text di User Form Excel
    Atur Warna Teks dan Background
  12. Terakhir untuk memberikan efek animasi berjalan, kamu harus memasukkan kodingnya dengan cara klik kanan β€œUserForm 1” ➜ β€œView Codeβ€œ.

    Klik Kanan pada UserForm1 dan Pilih View Code - Cara Membuat Running Text di User Form Excel
    Klik Kanan pada UserForm1 dan Pilih View Code
  13. Copy kode dibawah ini dan paste di kotak code disana :

    Copy Kodingan ke Kotak Code - Cara Membuat Running Text di User Form Excel
    Copy Kodingan ke Kotak Code

[su_box title=”Kode Running Text UserForm di Excel”]Dim Berhenti As Boolean

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 β€˜Kecepatan Berjalan
GoTo awal
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Berhenti = True
Unload Me
End Sub[/su_box]

Bingung copy paste row jadi column ? Simak tutorial cara copy paste row jadi column dan sebaliknya di Excel.

Jika ingin memperlambat gerakan, kamu bisa mengubah Kecepatan Berjalan dari 8388608 jadi lebih besar. Kesimpulannya jika makin besar angkanya makin semakin lambat gerak motionnya. Dan jika ingin mengubah motion menjadi arah kanan, bisa ubah menjadi :

[su_box title=”Kode Mengubah Arah Gerak Running Text”]Label1.Left = Label1.Left + 2
If Label1.Left >= Me.Width Then Label1.Left = -Me.Width[/su_box]

Β 

Terakhir tinggal save User Form tersebut, selamat mencoba dan semoga bermanfaat.

Ivan Aveldo

Suka hal yang bertopik teknologi.

Tinggalkan komentar