Cara Menciptakan Efek Mouse Move Di Userform Excel

[.] com - Efek Mouse Move di VBA Excel atau Mouse Move Event di VBA Excel ialah efek yang terjadi saat kita menggeser mouse diatas Command Button, UserForm ataupun Label atau pada control yang sudah di diberikan efek mouse move event.

melaluiataubersamaini mempersembahkan efek mouse move event ini sebuah Tombol Command Button akan terlihat lebih menarikdanunik dan tidak terlihat kaku.

Misalnya pada sebuah Tombol Command Button saat normal berwarna merah kermudian saat mouse didekatkan pada tombol tersebut, tombol tersebut berubah warna menjadi biru dan sebagainya.

Untuk membuat efek mouse move di UserForm Excel caranya sesungguhnya sangat gampang, selengkapnya ikuti langkah-langkah diberikut ini:

1Buka Aplikasi Microsoft Office Excel, kemudian setelah terbuka tekan tombol Alt+F11 pada keyboard untuk menampilkan aplikasi Microsoft Visual Basic for Application.

2Tambahkan Sebuah UserForm, 1 Command Button dan 2 buah Label.

3Aturlah posisi label1 dan Label2 bertumpuk pada posisi sejajar, samakan ukuran (Left dan Top)-nya.

4Tambahkan gambar pada Label1 dan Label2 dengan 2 gambar yang tidak sama.

5Buka jendela code pada UserForm, kemudian masukkan script diberikut ini:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With CommandButton1     .BackColor = vbBlue     .ForeColor = vbWhite End With End Sub  Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label2.Visible = True Label1.Visible = False End Sub  Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With CommandButton1     .BackColor = &H8000000F     .ForeColor = RGB(0, 0, 0) End With Label1.Visible = True Label2.Visible = False End Sub 

6Selanjutnya tekan tombol F5 untuk menjalankan UserForm. alhasil kurang lebih ibarat ini:

Penjelasan Script VBA yang digunakan:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = vbBlue
.ForeColor = vbWhite
End With
End Sub

Ketika posisi mouse di geser dan berada diatas Command Button 1 maka tombol Command Button 1 warnanya menjelma biru dan Warna Teksnya menjelma Putih.

---

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.Visible = True
Label1.Visible = False
End Sub

Ketika posisi mouse di geser dan berada diatas Label1 maka Label2 akan ditampilkan dan Label1 akan disembunyikan. Sebelumnya Properties Label2 diubah doloe visiblenya menjadi False semoga Label2 tidak di tampilkan saat UserForm di Load.

---

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = &H8000000F
.ForeColor = RGB(0, 0, 0)
End With
Label1.Visible = True
Label2.Visible = False

Ketika posisi mouse di geser dan berada diatas UserForm maka warna tombol Command Button1 dan warna Teksnya di ubah kembali ke tiruanla yakni abu-abu dan Hitam dan Label2 kembali disembunyikan serta Label1 di tampilkan kembali.

Penulisan script VBA untuk mengubah properties warna pada Command Button atau Label dan Control lainnya ibarat pada BackColor atau ForeColor dapat dengan beberapa cara, misal untuk warna hitam:

1melaluiataubersamaini code warna bawaan vb ibarat BackColor = &H80000012
2melaluiataubersamaini menuliskan nama warna vb ibarat BackColor = vbBlack
3melaluiataubersamaini memakai code warna RGB ibarat BackColor = RGB(0, 0, 0)

Lampiran

Tombol dengan MouseMoveEvent.xlsb   [ 19,9 KB ]

Sekian tutorial cara membuat efek mouse move di UserForm Excel. Semoga Bermanfaat....