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

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:

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

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

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

  • 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:

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

  • Simpan kode Anda dan tutup editor VBA Anda.

10 situs game teratas yang tidak diblokir di sekolah tahun 2024

10 situs game teratas yang tidak diblokir di sekolah tahun 2024

10 situs web game teratas yang tidak diblokir di sekolah tahun 2024. Temukan dunia game yang tidak diblokir dan nikmati permainan tanpa batasan.

[8 Solusi] Bagaimana Cara Memperbaiki Masalah DNS Pada Windows 10?

[8 Solusi] Bagaimana Cara Memperbaiki Masalah DNS Pada Windows 10?

Mendapatkan masalah DNS di komputer Windows 10? Ikuti perbaikan yang diberikan dalam artikel ini untuk memperbaiki masalah DNS paling umum yang dihadapi pengguna di komputer Windows 10.

7 Perbaikan Untuk Steam Tidak Dapat Menyinkronkan File Anda

7 Perbaikan Untuk Steam Tidak Dapat Menyinkronkan File Anda

Pelajari cara memperbaiki Steam tidak dapat menyinkronkan file Anda. Hapus folder data pengguna, hapus ClientRegistry.blob, verifikasi integritas file game, dan banyak lagi.

Memperbaiki Error Missing or Failed Printhead pada Printer HP [8 Trik]

Memperbaiki Error Missing or Failed Printhead pada Printer HP [8 Trik]

Dapatkan detail lengkap tentang Kesalahan Printhead yang Hilang Atau Gagal. Coba perbaikan terbaik untuk mengatasi HP Officejet hilang atau gagal Printhead error.

Perbaiki URL yang Diminta Ditolak: Silakan Konsultasikan dengan Administrator

Perbaiki URL yang Diminta Ditolak: Silakan Konsultasikan dengan Administrator

Baca artikel untuk memperbaiki URL yang diminta ditolak. Silakan berkonsultasi dengan administrator, kesalahan browser dan buka halaman web yang diperlukan dengan mudah

8 Perbaikan Terbaik untuk Masalah PS5 Tidak Akan Terhubung ke Wi-Fi

8 Perbaikan Terbaik untuk Masalah PS5 Tidak Akan Terhubung ke Wi-Fi

Jika Anda menghadapi masalah PS5 tidak akan terhubung ke Wi-Fi, artikel ini memberikan solusi yang efektif untuk masalah tersebut.

24 Kode Kesalahan Aktivasi Windows 10 Paling Umum dan Perbaikannya [DIPERBARUI]

24 Kode Kesalahan Aktivasi Windows 10 Paling Umum dan Perbaikannya [DIPERBARUI]

Pelajari cara memperbaiki kesalahan aktivasi Windows 10 saat mengaktifkan Windows 10, juga cara membeli kunci produk & memperbaiki kesalahan aktivasi terkait kunci produk sepenuhnya…

Perbaiki PS5 Tidak Dapat Memuat Sesuatu yang Salah dengan 5 Cara Mudah

Perbaiki PS5 Tidak Dapat Memuat Sesuatu yang Salah dengan 5 Cara Mudah

Baca artikel untuk memperbaiki PS5 tidak dapat memuat kesalahan konten. Temukan solusi yang efektif untuk mengatasi masalah ini dengan langkah-langkah yang jelas.

[Memperbaiki] Game Resident Evil 7 Biohazard Crash, Error & Lainnya!

[Memperbaiki] Game Resident Evil 7 Biohazard Crash, Error & Lainnya!

Tidak dapat melakukan Streaming Game Resident Evil 7 kemudian ikuti panduan langkah demi langkah untuk menyelesaikan kesalahan game dan mainkan game tanpa gangguan.

2 Trik Untuk Menghapus Folder $WINDOWS.~BT dan $WINDOWS.~WS Di Windows 10

2 Trik Untuk Menghapus Folder $WINDOWS.~BT dan $WINDOWS.~WS Di Windows 10

Pelajari cara mudah menghapus folder $WINDOWS.~BT dan $WINDOWS.~WS di Windows 10 dengan trik efektif ini. Cobalah sekarang dan optimalkan kinerja PC Anda.