Excel VBA - - Msg Box khi ô đáp ứng tiêu chí

Vấn đề
Dung dịch
chú thích

Vấn đề

Xin chào, điều này có lẽ sẽ rất đơn giản đối với ai đó tuy nhiên tôi đang có một ngày ác mộng, tất cả những gì tôi muốn là một công thức VBA sẽ đưa ra một hộp thông báo khi một tế bào hiển thị một tiêu chí cụ thể.

Có ai giúp được không?

Dung dịch

Mã này giả định rằng những gì bạn đang tìm kiếm nằm trong cột A.

 Private Sub Find_Criteria () Dim i Dim rr = Range ("A65536"). End (xlUp) .Row i = 1 For i = i To r If Range ("A" & i) = "iteria" Sau đó MsgBox "Found" & "" & Range ("A" & i). Kết thúc địa chỉ Nếu tiếp theo i Kết thúc Sub Nếu bạn đang tìm kiếm một số tiêu chí nhất định trong một phạm vi ô, thì hãy thử một cái gì đó như thế này. Private Sub Find_Criteria () Dim i As Variant Dim FindRange As Range Set FindRange = Range ("A1: K50") Dành cho mỗi i trong FindRange If i = "iteria "Sau đó MsgBox" Đã tìm thấy "&" " tôi kết thúc phụ