Sunday, September 25, 2016

VBA Excel Pemula 3 : Cara Mengubah Backround Kolom Dengan Interior.ColorIndex Property Melalui UserForm

Mengubah warna Background Cell biasa dilakukan untuk memberikan tanda pada Cell yang dianggap penting. Melalui Visual basic perintah warna dapat dilakukan denga mudah. Disini saya hanya berikan contoh berdasar kolom yang diberikan warna. Namun anda bisa memodifikasikan sendiri untuk memberikan warna pada baris seperti memberi warna tertentu pada Header Table dan memberikan warna berbeda pada tiap barisnya.


Cara Mengubah Backround Kolom Dengan Interior.ColorIndex Property Melalui UserForm :
  • Buka Excel langsung menuju pada Tab Developer selanjutnya Pilih Visual Basic atau dengan jalan pintar Keyboard Tekan bersamaan Alt+F11
  • Pada Jendela Visual Basic, Masukkan segala Onderdile atau element-element yang dibutuhakan sebagai berikut :
Tambahkan sebuah UserForm dengan Caption "Aplikasi Pemula 3". 

CommandButton sebanyak tiga dengan Propertiesnya 
CommandButton1 Caption "Warna 1"
CommandButton2 Caption "Warna 2"
CommandButton3 Caption "Reset"
  • Selanjutnya Klik kanan pada CommandButton1 Caption "Warna1" Pilih View Code dan masukkan kode dibawah ini :
Private Sub CommandButton1_Click()
'VBA Excel Pemula 3 : Cara Ubah Warna Background Kolom/Range
'Kita dapat mengesetting warna Dengan Interior.ColorIndex Property
    Range("A1:A5").Interior.ColorIndex = 6
    Range("B1:B5").Interior.ColorIndex = 7
    Range("C1:C5").Interior.ColorIndex = 8
    Range("D1:D5").Interior.ColorIndex = 9
    Range("E1:E5").Interior.ColorIndex = 10
  • Klik Kanan CommandButton2 dengan Caption "Warna2", Pilih View Code, dan Masukkan kode berikut ini.
Private Sub CommandButton2_Click()
    Range("A1:A5").Interior.ColorIndex = 1
    Range("B1:B5").Interior.ColorIndex = 2
    Range("C1:C5").Interior.ColorIndex = 3
    Range("D1:D5").Interior.ColorIndex = 4
    Range("E1:E5").Interior.ColorIndex = 5
End Sub
  • Yang terakhir adalah memasukkan Kode untuk tombol reset pada CommandButton3 dengan Caption "Reset". Klik kanan CommandButton3 dan pilih View Code dan masukkan kode dibawah ini.
Private Sub CommandButton3_Click()
    Range("A1:A5").Interior.ColorIndex = 0
    Range("B1:B5").Interior.ColorIndex = 0
    Range("C1:C5").Interior.ColorIndex = 0
    Range("D1:D5").Interior.ColorIndex = 0
    Range("E1:E5").Interior.ColorIndex = 0
    Range("E1:E5").Interior.ColorIndex = 0
End Sub
  • Sedikit penjelasan angka 0, 1, 2, 3, 4, 5, 6 dan seterusnya yang terdapat pada akhir tiap baris kode adalah kode untuk warna.
Download : Aplikasi Pemula 3

Demikian Posting Tentang VBA Excel Pemula 3 : Cara Ubah Backround Kolom Dengan Interior.ColorIndex Property Melalui UserForm. Semoga dapat dikembangkan berdasarkan keperluan. Jika posting ini dirasakan bermanfaat mohon dapat mengshare dengan mengklik tombol share media sosial agar yang lain juga tahu. 

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon