Loncat ke daftar isi utama

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


panah gelembung kanan biru 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:

warna kotak teks doc berdasarkan nilai 1

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

warna kotak teks doc berdasarkan nilai 2

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:

warna kotak teks doc berdasarkan nilai 3


panah gelembung kanan biru 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

warna kotak teks doc berdasarkan nilai 4

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:

warna kotak teks doc berdasarkan nilai 5


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

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Nevermind, I figured it out. Instead of making the event which triggers the change "Textbox1_GotFocus()", I made it "Worksheet_SelectionChange(ByVal Target As Range)". Now any time the value in one of the cells changes, the textbox color changes automatically.
This comment was minimized by the moderator on the site
For me, when trying to change the textbox color value based on two cell values, the textbox only updates if you type something into the textbox. I need it to update automatically. Guess I'll just have to learn VBA to figure out why.
This comment was minimized by the moderator on the site
Can someone provide an example workbook so I can see this working? I keep trying but to no avail. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations