KODE MACRO MEMBUAT TEXT BERJALAN DI USERFORM EXCEL

Microsoft Excel adalah salah satu software produk dari microsoft, dan software ini (microsoft Excel) adalah software andalan microsoft untuk pengolahan data, karena selain cara penggunaannya yang mudah, software ini juga bisa dibuat aplikasi yang sangat luar biasa, bahkan Anda kalau Anda pecinta permainan catur, Anda dapat membuat catur di microsoft eexcel ini. hebat bukan.

Mas, saya mau tanya. gimana sih caranya membuat text berjalan di microsoft excel ?

Ada banyak cara untuk membuat text berjalan di microsoft excel, salah satunya adalah membuat text berjalan di userform lewat label dan caption dan lainya masih banyak lagi, selain itu Anda juga bisa membuat text berjalan di worksheet.

Untuk lebih jelasnya silahkan tuntaskan membaca artikel ini.

CARA MEMBUAT TEXT BERJALAN DI USERFORM LEWAT LABEL

1. Buka Microsoft Excel Anda
2. Tekan Alt+F11 (masuk ke jendela Visual Basic for Application (VBA))
3. Buatlah 1 buah userform (lewat menu insert)
4. Kemudian buatlah 1 buah label
5. Dan 1 buah commandbutton

Sampai disini Anda sudah menyiapkan keperluan-keperluan dan untuk melanjutkannya silahkan baca nomor selajutnya dibawah.

6. Klik 2 kali userform dan salin kode macro dibawah ini

Option Explicit
Dim Stopped As Boolean
Private Sub Label1_Click()
   If Stopped Then
      Stopped = False
      Jalankan
   Else
      Stopped = True
   End If
End Sub
Private Sub UserForm_Activate()
Jalankan
End Sub

Private Sub Jalankan()
   Dim Q As String, Cpt As String
   Dim p As Long, n As Long
  
   Q = "www.mtsbmtumbrasanom.id"
   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) DI HAPUS
   n = n + 1
   If n = (Len(Q) + 60) Then n = 0
  
   For p = 1 To 5000000: Next
   GoTo AWAL
End Sub

Private Sub CommandButton1_Click()
Unload Me
   Stopped = True
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "Maaf, tombol ini non aktifkan", vbCritical
End If
End Sub

7. Untuk mencobanya silahkan tekan F5

Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode macronya juga benar maka pasti akan bejalan dengan sempurna seperti video dibawah ini.

Untuk cara membuat text berjalan di label dan juga di caption silahkan lanjutkan artikel ini dengan mengklik link active dibawah ini.

Artikel Terkait : Cara Membuat Text Berjalan Di Userform Lewat Caption dan Label
Baca Juga : Cara Membuat Text Berkedip Warna-warni Di Userform Dan Di Worksheet

Sekian dari kami dan terimakasih atas kunjungannya, temukan artikel lain seputar Aplikasi Sederhana Excel Free Download dan seputar kode macro, jabat erat.

Share :