Bagaimana untuk menetapkan warna sel Excel mengikut syarat dengan VBA?

Kemas Kini Terakhir: Ogos 2021; Microsoft Excel 365, 2019, 2016.

Dalam tutorial Automasi VBA untuk Excel hari ini kita akan belajar tentang cara kita boleh menukar warna sel secara pemrograman berdasarkan nilai sel.

Kita boleh menggunakan teknik ini apabila membangunkan papan pemuka status mudah contohnya.

Persediaan

Jika anda masih belum membangun pada Excel, kami mengesyorkan agar anda melihat panduan pengenalan kami untuk Excel Macros . Secara khusus, anda perlu memastikan bahawa tab Pembangun tersedia dalam Reben Microsoft Excel anda, kerana anda akan menggunakannya untuk menulis beberapa kod mudah.

• Buka Microsoft Excel. Ambil perhatian bahawa kod yang disediakan dalam tutorial ini dijangka berfungsi dalam Excel 2007 dan seterusnya.
• Dalam lembaran kerja kosong, tambahkan jadual berikut:

• Sekarang teruskan dan tentukan Julat bernama dengan menekan: Formulas>>Define Name

• Tekan OK

Menukar warna dalaman sel berdasarkan nilai dengan Cell.Interior.Color

• Tekan entri Pembangun dalam Reben.
• Tekan Visual Basic atau Alt+F11 untuk membuka editor VBA pembangun anda.
• Seterusnya serlahkan Lembaran Kerja di mana anda ingin menjalankan kod anda. Sebagai alternatif, pilih modul yang mempunyai kod VBA anda.
• Teruskan dan tampal kod ini. Dalam contoh kami, kami akan mengubah suai warna dalaman julat sel kepada nilai RGB sel tertentu yang sepadan dengan warna merah, kuning dan hijau.
• Khususnya kami menggunakan kaedah Excel VBA Cell.Interior.Color dan lulus nilai RGB atau indeks warna yang sepadan.

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 kod anda – sama ada dengan menekan F5 atau Run >> Run Sub / UserForm.
• Anda akan melihat papan pemuka status telah diisi seperti yang ditunjukkan di bawah:

• Simpan kod anda dan tutup editor VBA anda.