Bagaimana cara memunculkan kotak pesan jika sel lebih besar atau kurang dari nilai tertentu di Excel?

Jika sel lebih besar atau lebih kecil dari sel lain, saya perlu memunculkan kotak pesan untuk memberi tahu di Excel. Bagaimana cara mengatasi masalah ini di Excel? Artikel ini, saya akan berbicara tentang beberapa kode untuk mengatasinya.

Munculkan kotak pesan jika nilai sel di kolom lebih besar atau lebih kecil dari sel lain

Munculkan kotak pesan jika nilai sel dalam sel lebih besar atau lebih kecil dari sel lain

Munculkan kotak pesan jika nilai sel di kolom lebih besar atau lebih kecil dari sel lain

Misalkan, saya memiliki nomor tertentu 100 di sel A1, sekarang, ketika nomor yang dimasukkan di kolom D lebih besar dari 100 di sel A1, kotak pesan harus dimunculkan untuk mengingatkan pengguna.

Di sini, kode VBA di bawah ini dapat membantu Anda menyelesaikannya, lakukan dengan langkah-langkah berikut:

1. Buka lembar kerja yang ingin Anda gunakan.

2. Klik kanan tab lembar, lalu pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode berikut ke jendela Modul kosong, lihat tangkapan layar:

Kode VBA: memunculkan kotak pesan jika nilai sel dalam kolom lebih besar atau kurang dari sel

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Note: Pada kode di atas, Sheet1 adalah lembar kerja Anda yang ingin Anda gunakan; A1 adalah nilai sel yang ingin Anda bandingkan; DD adalah kolom yang ingin Anda bandingkan dengan sel A1.

3. Kemudian, simpan dan tutup jendela kode, mulai sekarang, kotak pesan akan muncul jika Anda memasukkan angka di kolom D yang lebih besar dari 100, lihat tangkapan layar:

Munculkan kotak pesan jika nilai sel dalam sel lebih besar atau lebih kecil dari sel lain

Jika Anda ingin kotak pesan muncul ketika nilai sel lebih besar atau kurang dari sel lain, silakan terapkan kode di bawah ini:

1. Buka lembar kerja yang ingin Anda gunakan.

2. Klik kanan tab lembar, lalu pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode berikut ke jendela Modul kosong, lihat tangkapan layar:

Kode VBA: memunculkan kotak pesan jika nilai sel lebih besar atau kurang dari sel

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Note: Pada kode di atas, A1 dan D1 adalah dua sel yang ingin Anda bandingkan.

3. Kemudian, simpan dan tutup jendela kode, saat memasukkan nilai yang kurang dari nilai di sel A1, kotak pesan akan muncul seperti gambar di bawah ini:

Artikel kotak pesan pop up yang lebih relatif:

---

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• 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 dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... 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 ...
• Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
• 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...
• Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli... 

---

Office Tab - menghadirkan 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 ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli...