Cara membuat Teks berjalan pada userform Excel - Artikel ini merupakan salinan dari blog sebelumnya iParengan, yang membahas tentang bagaimana cara membuat teks berjalan pada userform, kok bisa ya teks berjalan pada userform ? jawabnya tentu saja bisa dan hanya membutuhkan beberapa baris kode macro saja

Singkatnya yang dimaksud dengan Teks berjalan pada userform adalah anda membuat teks berjalan kekiri atau kekanan , dan teks ini ditampilkan pada userform, jika anda penasaran silahkan ikuti langkah langkah dibawah ini

Buka Microsoft Excel anda, langsung saja masuk ke jendela VBE
Insert Userform
Seret satu kontrol Label kedalam userform
Langsung saja masukan atau ketikan kode macro dibawah ini kedalam userform

Dim Stopped As Boolean
Private Sub UserForm_Activate()
Call Jalankan
End Sub
Private Sub Label1_Click()
If Stopped Then
Stopped = False
Call Jalankan
Else
Stopped = True
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Stopped = True
Unload Me
End Sub
Sub Jalankan()
Dim Q As String, Cpt As String
Dim p As Long, n As Long

Q = "IPARENGAN.COM"
Label1 = Q
n = Len(Q)
Cpt = Space(60) & Q

AWAL:
DoEvents
If Stopped = True Then Exit Sub
Label1.Left = Label1.Left - 2
If Label1.Left <= -Me.Width Then Label1.Left = Me.Width Me.Caption = Right(Cpt, n) n = n + 1 If n = (Len(Q) + 60) Then n = 0 For p = 1 To 2000000: Next GoTo AWAL End Sub


Hapus kode Me.Caption = Right(Cpt, n) jika anda tidak menginginkan caption pada userform ikut jalan jalan
For p = 1 To 2000000: Next angka 2000000 merupakan kecepatan teks berjalan, semakin kecil nilainya semakin cepat teks berjalan, dan semaikin besar nilainya maka semakin pelan teks berjalan
-

Demikianlah Text berjalan pada userform Excel berbasis microsoft excel, jika anda menemukan kesulitan silahkan tulis kendala dan kesulitan yang anda temukan pada kolom komentar dibawah ini ( anda juga bisa menyisipkan gambar pada kolom komentar sebagaimana komentar di facebook), saya juga telah mengupload file sampel Text berjalan pada userform Excel berbasis microsoft excel di Google Drive dan bisa anda download dilink download dibawah.

Download - Text berjalan pada userform Excel


Demikianlah cara membuat teks berjalan pada userform excel, semoga bermnafaat. Follow IG Wasis Zain atau Like fanpage Excel Pro
No comments