Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengubah nilai berdasarkan warna sel di Excel?

Artikel ini membahas tentang mengubah nilai sel secara otomatis berdasarkan warna latar belakangnya di Excel. Misalnya, jika sel yang diisi dengan warna latar belakang merah, isi sel tersebut dengan angka 1, dan untuk sel warna latar belakang biru, isikan angka 0.

Ubah nilai berdasarkan warna sel dengan kode VBA


Ubah nilai berdasarkan warna sel dengan kode VBA


Anda dapat menjalankan kode VBA di bawah ini untuk mengubah nilai berdasarkan warna sel di Excel. Silakan lakukan sebagai berikut.

1. Pilih kisaran yang Anda perlukan untuk mengubah nilai berdasarkan warna latar belakang, lalu tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin dan tempel kode VBA di bawah ini ke jendela Modul.

Kode VBA: Ubah nilai berdasarkan warna sel di Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. tekan F5 kunci untuk menjalankan kode, maka Anda dapat melihat semua sel darah merah dalam rentang yang dipilih diisi dengan angka 1, dan sel biru diisi dengan angka 0 seperti gambar di bawah ini.

 

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (11)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Perubahan apa pada kode yang diperlukan jika Anda ingin ini diterapkan pada warna teks sel, bukan warna sel?
Komentar ini diminimalkan oleh moderator di situs
Saya ingin memberi nama sel berdasarkan warna dalam satu lembar kerja. yaitu jika sel berwarna merah maka diberi nama "nama", jika berwarna oranye maka mendapat nama "nama keluarga" dll.



Kode apa yang perlu diubah untuk memiliki rentang sebagai seluruh lembar/tab dan nama alih-alih nilai?
Komentar ini diminimalkan oleh moderator di situs
Excel sepertinya macet setiap kali saya mencoba menjalankan kode VBA. Sepertinya payudara.
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Kode berfungsi dengan baik dalam kasus saya. Bisakah Anda memberi tahu saya versi Excel Anda? Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Saya berada di kapal yang sama, mencoba menjalankan ini tetapi kodenya sepertinya macet. Excel 2016.
Komentar ini diminimalkan oleh moderator di situs
apakah mungkin untuk menyesuaikan kode ini berdasarkan aturan pemformatan bersyarat sel?
Komentar ini diminimalkan oleh moderator di situs
Kode berfungsi dengan baik untuk saya, tetapi saya perlu menulis ulang kode agar sesuai dengan warna khusus untuk dokumen saya. Tapi saya tidak tahu kode apa yang dimiliki "warna saya", siapa pun yang tahu di mana dapat menemukan kode untuk warna lain?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda menjalankannya, saya berlari tetapi sepertinya tidak ada yang terjadi
Komentar ini diminimalkan oleh moderator di situs
Anda dapat mengganti warna menjadi nilai hanya dengan menggunakan fungsi Temukan dan Ganti. Buka fungsi format di sisi kanan kotak dialog Temukan dan Ganti dan kemudian di bawah "Isi" Anda dapat memilih warna yang Anda miliki. Kemudian pada bagian "ganti dengan" tulis saja nilai yang Anda inginkan.
Komentar ini diminimalkan oleh moderator di situs
Saya menemukan pemogokan beruntung ini yang membantu tetapi tidak tahu di mana menemukan direktori lengkap!
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk melakukan ini, tetapi apakah itu secara otomatis melalui banyak file?
Untuk konteks, kuesioner dikirim ke beberapa ratus fasilitas, jawaban MC mereka yang dipilih sesuai dengan skor yang menunjukkan warna (misalnya hijau baik, merah buruk), dan mengubah konten sel (dengan proses seperti di utas ini) menjadi sesuatu yang dapat dibaca oleh R atau perangkat lunak lain, dan kemudian menggunakannya untuk menghasilkan laporan otomatis. Saya dapat memeriksa setiap file ini dengan makro ini (atau ide yang sama sekali berbeda), tetapi itu akan memakan waktu lama.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan