Loncat ke daftar isi utama

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

Penulis: Siluvia Terakhir Dimodifikasi: 2024-09-23

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:

klik Lihat Kode dari menu klik kanan

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.

jika nilai sel sama dengan nilai tertentu, kotak prompt akan muncul

Catatan:

1. Jika nilai sel tidak memenuhi kriteria, kotak pesan tidak akan muncul.
2. Dalam kode di atas, Anda dapat mengubah referensi dan nilai sel sesuai kebutuhan Anda.
3. Ini hanya dapat menampilkan satu referensi sel yang cocok bila ada beberapa hasil.

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

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

Kutools untuk Excel menawarkan lebih dari 300 fitur canggih untuk menyederhanakan tugas-tugas kompleks, meningkatkan kreativitas dan efisiensi. Ditingkatkan dengan kemampuan AI, Kutools mengotomatiskan tugas dengan presisi, membuat pengelolaan data menjadi mudah. Informasi rinci tentang Kutools untuk Excel...         Uji coba gratis...

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

klik fitur Pilih Sel Tertentu dari kutools

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 .

tetapkan kriteria di kotak dialog

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

Jika nilai sel ada, kotak dialog akan muncul

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

Jika nilai sel tidak ada, kotak dialog lain akan muncul

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Artikel terkait:

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