Bagaimana cara memunculkan kotak pesan jika nilai sel sama dengan "X" di Excel?

Muncul kotak pesan sangat membantu saat menemukan konten tertentu dalam kisaran tertentu. Misalnya, Anda menemukan nilai sel yang sama dengan 50 dalam rentang A1: C7, dan Anda memerlukan kotak pesan yang muncul untuk memberi tahu Anda apakah nilai sel ada atau tidak. Dua metode berikut dapat membantu Anda.

Kotak pesan pop up jika nilai sel sama dengan "X" dengan kode VBA
Kotak pesan pop up dengan mudah jika nilai sel sama dengan "X" dengan Kutools for Excel

Kotak pesan pop up jika nilai sel sama dengan "X" dengan kode VBA

Kode VBA berikut dapat membantu membuat kotak pesan pop-up ketika nilai tertentu ada dalam kisaran tertentu. Silakan lakukan sebagai berikut.

1. Di lembar kerja Anda perlu memeriksa nilai dalam kisaran yang ditentukan, klik kanan nama tab di bilah tab lembar, lalu klik Lihat kode dari menu klik kanan. Lihat tangkapan layar:

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode VBA berikut ke jendela Kode.

Kode VBA: kotak pesan pop up jika nilai sel sama dengan "X"

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela dan kembali ke lembar kerja.

Mulai saat ini, ketika nilai sel diubah dalam rentang A1: C7 dan ada nilai sel sama dengan "50", Anda akan mendapatkan kotak pesan seperti gambar di bawah ini.

Selain itu, Anda bisa memilih rentang untuk memunculkan kotak pesan jika nilai sel ada.

Catatan:

Kotak pesan pop up jika nilai sel sama dengan "X" dengan Kutools for Excel

Grafik Pilih Sel Spesifik kegunaan Kutools untuk Excel juga dapat membantu Anda mengatasi masalah ini. Silakan lakukan sebagai berikut.

1. Pilih rentang yang ingin Anda temukan jika terdapat nilai sel, lalu klik Kutools > Pilih > Pilih Sel Spesifik. 

2. Dalam Pilih Sel Spesifik kotak dialog, pilih Sel pilihan dalam Tipe pilihan bagian, lalu pilih sama di pertama Tipe khusus daftar drop-down dan ketikkan nilai sel di kotak teks berikutnya, dan terakhir klik OK .

Jika nilai sel ada dalam kisaran tertentu, Anda akan mendapatkan kotak pesan berikut, klik OK tombol, sel akan dipilih.

Jika tidak, Anda akan mendapatkan kotak pesan seperti gambar di bawah ini.

Kotak pesan pop up dengan mudah jika nilai sel sama dengan "X" dengan Kutools for Excel

Artikel terkait:

• Bagaimana cara menghapus seluruh baris jika sel berisi nol di Excel?
• Bagaimana cara menghitung sel dengan teks tertentu dalam seleksi di Excel?

Alat Produktivitas Kantor Terbaik

🤖	Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
	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 Teratas:  12 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...

Read More ... Download Gratis...

---

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!

Read More ... Download Gratis...