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
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!