Excel VBA - - Kotak Pesan saat sel memenuhi kriteria

Isu
Larutan
Catatan

Isu

Hai ini mungkin akan sangat sederhana untuk seseorang namun saya mengalami hari mimpi buruk, semua yang saya inginkan adalah formula VBA yang akan memunculkan kotak pesan ketika sel menunjukkan kriteria tertentu.

Adakah yang bisa membantu?

Larutan

Kode ini mengasumsikan bahwa apa yang Anda cari ada di kolom A.

 Sub Pribadi Find_Criteria () Dim i Dim rr = Rentang ("A65536"). Akhir (xlUp) .Row i = 1 For i = i To r If Range ("A" & i) = "kriteria" Maka MsgBox "Ditemukan" & "" & Rentang ("A" & i). Alamat Akhir Jika Selanjutnya saya Akhir Sub Jika Anda mencari kriteria tertentu dalam rentang sel, maka coba sesuatu seperti ini. Sub Pribadi Find_Criteria () Dim i Sebagai Varian Dim FindRange Sebagai Rentang Set FindRange = Rentang ("A1: K50") Untuk Setiap i Dalam FindRange Jika i = "kriteria" Maka MsgBox "Ditemukan" & "" & i. Alamat Akhir Jika Selanjutnya i End Sub