Bagaimana cara mengatur warna sel Excel sesuai dengan kondisi dengan VBA?

Terakhir Diperbarui: Agustus 2021; Microsoft Excel 365, 2019, 2016.

Dalam tutorial VBA for Excel Automation hari ini, kita akan belajar tentang bagaimana kita dapat mengubah warna sel secara terprogram berdasarkan nilai sel.

Kita dapat menggunakan teknik ini ketika mengembangkan dasbor status sederhana misalnya.

Mempersiapkan

Jika Anda belum mengembangkan di Excel, kami sarankan untuk melihat ke panduan pengantar kami untuk Excel Macros . Secara khusus, Anda perlu memastikan bahwa tab Pengembang tersedia di Pita Microsoft Excel Anda, karena Anda akan menggunakannya untuk menulis beberapa kode sederhana.

• Buka Microsoft Excel. Perhatikan bahwa kode yang disediakan dalam tutorial ini diharapkan berfungsi di Excel 2007 dan seterusnya.
• Di lembar kerja kosong, tambahkan tabel berikut:

• Sekarang lanjutkan dan tentukan Rentang bernama dengan menekan: Rumus>>Tentukan Nama

• tekan oke

Mengubah warna interior sel berdasarkan nilai dengan Cell.Interior.Color

• Tekan entri Pengembang di Pita.
• Tekan Visual Basic atau Alt+F11 untuk membuka editor VBA pengembang Anda.
• Selanjutnya sorot Lembar Kerja di mana Anda ingin menjalankan kode Anda. Atau, pilih modul yang memiliki kode VBA Anda.
• Silakan dan rekatkan kode ini. Dalam contoh kami, kami akan memodifikasi warna interior rentang sel ke nilai RGB sel tertentu yang sesuai dengan warna merah, kuning, dan hijau.
• Secara khusus kami menggunakan metode Excel VBA Cell.Interior.Color dan meneruskan nilai RGB atau indeks warna yang sesuai.

Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub

• Jalankan kode Anda – baik dengan menekan F5 atau Run >> Run Sub / UserForm.
• Anda akan melihat dasbor status terisi seperti yang ditunjukkan di bawah ini:

• Simpan kode Anda dan tutup editor VBA Anda.