VBA Excel Pemula 4 : Ganti Warna Fonts Pada Cell Modifikasi Warna Background Sebagai Header
Kita sudah sampaik kepada pembahasan VBA Excel Pemula 4 yaitu tentang cara Ganti Warna Fonts Pada Cell Modifikasi Warna Background Sebagai Header.
Secara manual hal ini dapat dilakukan dengan cara blog cell yang ingin diberikan warna font dan background dan selanjutnya memilih Font Color untuk mewarnai tulisan yang terdapat pada group menu font.
Ganti Warna Fonts Pada Cell Modifikasi Warna Background |
Begitu juga halnya untuk memewarnai cell atau background dari font dengan memilih cell selanjutnya klik pada Fill Color yang terdapat pada group menu font.
Nach itu merupakan cara termudah untuk mewarnai text dan warna cell yang di inginkan di Excel.
Namun bagi anda yang suka mengutak-atik menggunakan kode vba silahkan lanjut membaca artikel ini.
Perhatikan pada gambar gif diatas yang memperlihatkan warna dari Backround Header dan warna pada Font yang ada pada Cell.
Biasanya pada data yang dianggap penting dapat ditandai dengan mewarnainya baik backround ataupun font. sehingga yang mengamati data lebih muda memahami.
Ikuti langkah-langkah untuk mengubah warna font dan cell dengan seksama hingga habis anda membaca artikel ini.
untuk mewarnai background dengan perintah dari UserForm dapat dibaca pada tutorial VBA Excel Pemula 3 : Cara Mengubah Backround Kolom Dengan Interior.ColorIndex Property Melalui UserForm
Pada posting Tutorial VBA Excel Pemula 4 ini kita hanya memodifikasi Background dengan mengubah Range yang akan di ubah warnanya sebagai Header.
Berikut kode untuk mengubah warna Font pada pada cell :
- Buka excel dan Pilih Tab Developer
- Selanjutnya klik Visual Basic atau dengan jalan pintas keyboard Alt+F11
- Pada Jendela Visual Basic Tambahkan Element-element yang dibutuhkah seperti yang terlihat pada gambar gif diatas atau bisa juga download filenya pada akhir posting ini.
Element yang dibutuhkan :
UserForm dengan Caption " Aplikasi Pemula 4"
Label :
Label1 Caption "Bacground"
Label2 Caption "Font"
CommandButton Pada Background :
CommandButton1 Caption "Warna 1"
CommandButton2 Caption "Warna 2"
CommandButton3 Caption "Reset"
CommandButton Pada Font
CommandButton4 Caption "Warna 1"
CommandButton5 Caption "Warna 2"
- Jika sudah menyiapkan segala Tools yang dibutuhkan selanjutnya kita langsung menuju penempatan kode pada tiap CommandButton.
- Kode untuk Background Cell CommandButton1 Caption "Warna 1"
Private Sub CommandButton1_Click()
Range("A1:E1").Interior.ColorIndex = 13
End Sub
Range("A1:E1").Interior.ColorIndex = 13
End Sub
- Kode untuk Background Cell CommandButton2 Caption Warna 2
Private Sub CommandButton2_Click()
Range("A1:E1").Interior.ColorIndex = 14
End Sub
Range("A1:E1").Interior.ColorIndex = 14
End Sub
- Kode Untuk Warna Font CommandButton3 Caption Reset
Private Sub CommandButton3_Click()
Range("A1:E1").Interior.ColorIndex = 0
Range("A1:A5").Font.ColorIndex = 0
Range("B1:B5").Font.ColorIndex = 0
Range("C1:C5").Font.ColorIndex = 0
Range("D1:D5").Font.ColorIndex = 0
Range("E1:E5").Font.ColorIndex = 0
End Sub
Range("A1:E1").Interior.ColorIndex = 0
Range("A1:A5").Font.ColorIndex = 0
Range("B1:B5").Font.ColorIndex = 0
Range("C1:C5").Font.ColorIndex = 0
Range("D1:D5").Font.ColorIndex = 0
Range("E1:E5").Font.ColorIndex = 0
End Sub
- Kode Untuk Warna Font CommandButton4 Caption Warna2
Private Sub CommandButton4_Click()
'VBA Excel Pemula 4: Cara Mengubah Warna dan Ukuran Font di Range
'Berikut kode untuk mengubah Warna font
Range("A1:A5").Font.ColorIndex = 3
Range("B1:B5").Font.ColorIndex = 4
Range("C1:C5").Font.ColorIndex = 5
Range("D1:D5").Font.ColorIndex = 6
Range("E1:E5").Font.ColorIndex = 7
End Sub
'VBA Excel Pemula 4: Cara Mengubah Warna dan Ukuran Font di Range
'Berikut kode untuk mengubah Warna font
Range("A1:A5").Font.ColorIndex = 3
Range("B1:B5").Font.ColorIndex = 4
Range("C1:C5").Font.ColorIndex = 5
Range("D1:D5").Font.ColorIndex = 6
Range("E1:E5").Font.ColorIndex = 7
End Sub
- Kode Untuk Warna Font CommandButton5 Caption Warna2
Private Sub CommandButton5_Click()
Range("A1:A5").Font.ColorIndex = 8
Range("B1:B5").Font.ColorIndex = 9
Range("C1:C5").Font.ColorIndex = 10
Range("D1:D5").Font.ColorIndex = 11
Range("E1:E5").Font.ColorIndex = 12
End Sub
Range("A1:A5").Font.ColorIndex = 8
Range("B1:B5").Font.ColorIndex = 9
Range("C1:C5").Font.ColorIndex = 10
Range("D1:D5").Font.ColorIndex = 11
Range("E1:E5").Font.ColorIndex = 12
End Sub
Demikian Kode untuk menggantikan Warna Font. Semoga dapat dikembangkan sesuai dengan kebutuhan.
Semoga dapat dijadikan referensi bagi yang baru belajar Vba Excel. Bila ingin menyampaikan masukkan kepada admin dapat disampaikan pada kolom komentar.
Jika artikel ini dirasakan bermanfaat mohon dapat dishare kepada teman-teman lain melalui media sosial agar mereka juga mengetahuinya.
Buatlah banyak file Experiment pribadi dalam mempelajari Vba Excel sehigga anda akan dapat dengan mudah memahami alur kerja kode serta fungsi yang dijalankan oleh kode.
Mantapp
BalasHapussemoga menjadi referensi untuk dipelajari..
Hapus