Bagaimana cara mengubah warna kotak teks berdasarkan nilai di Excel?
Di Excel, kita dapat menerapkan fungsi Conditional Formatting untuk mengubah warna latar belakang berdasarkan nilai sel, tetapi dalam artikel ini, saya akan membahas cara mengubah warna kotak teks berdasarkan nilai atau nilai sel di kotak teks.
Ubah warna kotak teks berdasarkan nilai sel dengan kode VBA
Ubah warna kotak teks berdasarkan nilai di kotak teks dengan kode VBA
Ubah warna kotak teks berdasarkan nilai sel dengan kode VBA
Katakanlah, jika nilai sel di A1 lebih besar dari nilai sel di B1, saya ingin kotak teks diisi dengan warna merah, sebaliknya kotak teks harus diisi dengan warna kuning. Harap selesaikan pekerjaan ini dengan langkah-langkah berikut:
1. Sisipkan kotak teks dengan mengklik Pengembang > Menyisipkan > Kotak Teks (Kontrol ActiveX), lalu gambar kotak teks, lihat tangkapan layar:
2. Kemudian klik kanan kotak teks, dan pilih Lihat kode dari menu konteks untuk membuka Microsoft Visual Basic untuk Aplikasi jendela, dan kemudian ganti kode asli dengan kode VBA berikut ke dalam modul kosong:
Kode VBA: Ubah warna kotak teks berdasarkan nilai sel:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
Note: Pada kode di atas, Kotak Teks1 adalah nama kotak teks yang Anda masukkan, A1 dan B1 Apakah dua sel yang ingin Anda ubah warna kotak teksnya, harap ubah sesuai kebutuhan Anda.
3. Kemudian simpan dan tutup jendela kode, dan keluar dari Mode desainNah, jika sel A1 lebih besar dari B1, maka saat mengetik teks di textbox akan diisi dengan warna merah, dan jika A1 lebih kecil dari B1, saat memasukkan nilai di textbox akan diisi dengan warna kuning, lihat tangkapan layar:
Ubah warna kotak teks berdasarkan nilai di kotak teks dengan kode VBA
Jika Anda ingin mengubah warna kotak teks berdasarkan nilai pada kotak teks, misalnya nilai kotak teks antara 1 dan 10, warna isian kotak teks berwarna merah, warna kotak teks hijau jika nilainya antara 11 dan 20, jika nilai lainnya, warna kotak teks berwarna kuning. Untuk menangani tugas ini, harap terapkan kode VBA di bawah ini.
1. Setelah memasukkan kotak teks, klik kanan, lalu pilih Lihat kode dari menu konteks untuk membuka Microsoft Visual Basic untuk Aplikasi jendela, dan kemudian ganti kode asli dengan kode VBA berikut ke dalam modul kosong:
Kode VBA: Ubah warna kotak teks berdasarkan nilai di kotak teks:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
Note: Pada kode di atas, Kotak Teks 1 adalah nama kotak teks yang Anda sisipkan, dan Anda dapat mengubah nilai dan warna latar belakang di dalam kode menjadi milik Anda sendiri.
2. Kemudian simpan dan tutup jendela kode, dan keluar dari Mode Desain, sekarang, jika Anda memasukkan nilai antara 1 dan 10 ke dalam kotak teks, warna latar belakangnya akan menjadi merah, nilai antara 11 dan 20, warna latar kotak teks akan menjadi hijau, nilai-nilai lainnya, akan menjadi kuning seperti gambar berikut yang ditampilkan:
Artikel terkait:
Bagaimana cara memasukkan gambar ke dalam kotak teks?
Bagaimana cara mengatur nilai default di kotak teks?
Bagaimana cara mengizinkan hanya angka untuk dimasukkan dalam kotak teks?
Bagaimana cara menerapkan pemeriksa ejaan di kotak teks?
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!