Warna CommandButton Berubah Jika Mouse Diarahkan sebenarnya langkahnya sangat sederhana karena kita hanya membutuhkan sedikit sentuhan kode macro yang cukup sederhana.
Biasanya ini digunakan oleh para operator lembaga atau kantor-kantor agar aplikasi buatannya terlihat agak menarik dan selain itu masih ada yang menarik lagi yaitu cara membuat tombol resposive di userform serta cara merubah extensi xlsx ke exe hanya di www.mtsbmtumbrasanom.id nunggu 5 artikel tentang cara membuat menu ribbon sendiri di excel dan cara membuat link dari excel ke blog/internet.
Baca Juga : Kode Macro TextBox Harus Diisi
Oke kita lanjutkan kembali untuk langkah-langkahnya sendiri cukup beberapa baris saja dan warna itu bisa kita rubah sesuai keinginan kita berikut langkah sederhananya.
1. Buka Microsoft Excel
2. Tekan Alt+F11 (masuk pada jendela Visual Basic For Application(VBA))
3. Buatlah userform1 dan 2 tombol commandbutton (untuk namenya biarkan saja defauld (commandbutton1 dan commandbutton2))
4. Klik 2 kali lalu salin kode macro dibawah ini besarta cara membacanya
'untuk kode mouse ke commandbutton1
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'untuk cmomandbutton 1
With CommandButton1
'untuk cmomandbutton 1
With CommandButton1
"jika ouse diarahkan maka latar belakang akan menjadi biru
.BackColor = vbBlue
.BackColor = vbBlue
'dan tulisannya menjadi merah
.ForeColor = vbRed
End With
End Sub
.ForeColor = vbRed
End With
End Sub
'untuk kode mouse ke commandbutton2
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton2
.BackColor = vbRed
.ForeColor = vbwith
End With
End Sub
With CommandButton2
.BackColor = vbRed
.ForeColor = vbwith
End With
End Sub
'untuk kode userform ke mouse (jika mouse diluar commandbutton maka beground akan kembali seperti semula)
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'ketika mouse diluar commandbutton1
With CommandButton1
.BackColor = &H8000000F&
.ForeColor = RGB(0, 0, 0)
'jika diawali with maka harus diakhiri with
End With
'ketika mouse diluar commandbutton1
With CommandButton2
.BackColor = &H8000000F&
.ForeColor = RGB(0, 0, 0)
'jika diawali with maka harus diakhiri with
End With
'dan private sub/sub harus diakhiri end sub
End Sub
'ketika mouse diluar commandbutton1
With CommandButton1
.BackColor = &H8000000F&
.ForeColor = RGB(0, 0, 0)
'jika diawali with maka harus diakhiri with
End With
'ketika mouse diluar commandbutton1
With CommandButton2
.BackColor = &H8000000F&
.ForeColor = RGB(0, 0, 0)
'jika diawali with maka harus diakhiri with
End With
'dan private sub/sub harus diakhiri end sub
End Sub
5. Untuk mencobanya tekan F5 dan jika sudah nberjalan dengan baik maka simpan dengan extensi atau tipe excel macro xlsx.
Nah diatas adalah Kode Macro Warna CommandButton Berubah Jika Mouse diarahkan dan kode diatas dapat Anda rubah warnanya sesuai selera dan itu bukan untuk di CommandButton saja tetapi bisa di TextBox atau yang lainnya.
Jika Anda melakukan langkah-langkah diatas dengan benar dan penaruhan kode macronya juga benar maka akan berjalan dengan baik.
Oke cukup sekian dari kami dan nantikan artikel kami tentang kode macro besarta sedikit cara membacanya dan maaf tidak kami sertakan contoh filenya karena dah malam juga ngantuk besok ada tugas ngerjakan EMIS PENDIS dan akhir kata Jabat Erat.
Post a Comment for "KODE MACRO WARNA COMMANDBUTTON BERUBAH JIKA MOUSE DIARAHKAN"