Minggu, 28 Mei 2017

CARA MEMBUAT RUNNING TEXT DI USERFORM EXCEL

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:
Membuat Running Text di Excel
Untuk membuat running text atau teks berjalan di UserForm Excel, caranya tidaklah sulis alias sangat mudah yaitu:
  1. Buka aplikasi Visual Basic for Application pada Excel dengan cara menekan tombol Alt+F11pada keyboard.
  2. Tambahkan sebuah UserForm dan 1 buah Label.
  3. Pada Caption Label1 silahkan isikan teks sesukanya 🙂
  4. 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
    
    
  5. 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.
  6. 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.

Tidak ada komentar:

Posting Komentar