Loncat ke daftar isi utama

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:

doc kotak pesan jika nilai sel 1

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.

doc kotak pesan jika nilai sel 1

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

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

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

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 .

doc kotak pesan jika nilai sel 1

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

doc kotak pesan jika nilai sel 1

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

doc kotak pesan jika nilai sel 1

  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.


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


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

Deskripsi Produk


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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
Hi Rajesh,
The below code can help you solve the problem, please have a try. Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

'Update: 2020/8/21

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" Or xCell.Value = "100" Then

MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"

Exit Sub

End If

Next

End If

End Sub
This comment was minimized by the moderator on the site
Hi Crystal, Both conditions are working . Thank you so much ThanksRajesh
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
I also tried duplicating this code, and changing to a different range where my data is repeated, but it appears the "Worksheet - Change" function can only be used once. Is this true?
This comment was minimized by the moderator on the site
This script works fine when the cell was enter manually. But when I try to copy the whole line from the other line and paste it to the new line, the pop up window will still come up even the cell on the new line didn't contain the key word. Any way to get rid of it? Please advice. Thanks
This comment was minimized by the moderator on the site
Dear TANGO锛 Thank you for your comment! We have updated the VBA script to get rid of the problem you mentioned above. Hope the new code can ease your work. If you have any problem, please do hesitate to contact us! Thanks again for your comment!
This comment was minimized by the moderator on the site
please need your help give me your email address Linda mine is
This comment was minimized by the moderator on the site
Hi,
Sorry for replying so late. Please contact me at .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations