Sunday, September 25, 2016

VBA Excel Pemula 4 : Ganti Warna Fonts Pada Cell Modifikasi Warna Background Sebagai Header

Perhatikan pada gambar gif diatas yang memperlihatkan warna dari Backround Header dan warna pda 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. 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
  • Kode untuk Background Cell CommandButton2 Caption Warna 2
Private Sub CommandButton2_Click()
   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
  • 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
  • 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

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.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon