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

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 serta 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

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 (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Dapatkah seseorang memberikan contoh buku kerja sehingga saya dapat melihat ini berfungsi? Saya terus mencoba tetapi tidak berhasil. terima kasih
Komentar ini diminimalkan oleh moderator di situs
Bagi saya, ketika mencoba mengubah nilai warna kotak teks berdasarkan dua nilai sel, kotak teks hanya diperbarui jika Anda mengetik sesuatu ke dalam kotak teks. Saya membutuhkannya untuk memperbarui secara otomatis. Kurasa aku harus belajar VBA untuk mencari tahu alasannya.
Komentar ini diminimalkan oleh moderator di situs
Tidak apa-apa, saya sudah mengetahuinya. Alih-alih membuat acara yang memicu perubahan "Textbox1_GotFocus()", saya membuatnya "Worksheet_SelectionChange(ByVal Target As Range)". Sekarang setiap kali nilai di salah satu sel berubah, warna kotak teks berubah secara otomatis.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan