Excel VBA - - Hücre ölçütleri karşıladığında Msg Box

Konu
Çözüm
Not

Konu

Merhaba, bu muhtemelen birisi için çok basit olacak, ancak kabus bir gün geçiriyorum, tek istediğim bir hücre belirli bir kriter gösterdiğinde bir mesaj kutusu getirecek bir VBA formülü.

Biri yardım edebilir mi?

Çözüm

Bu kod, aradığınız şeyin A sütununda olduğunu varsayar.

 Özel Alt Find_Criteria () Dim i Dim rr = Aralık ("A65536"). Bitiş (xlUp) .Row i = 1 i = i İçin R ise ("A" & i) = "ölçüt" Sonra MsgBox "Bulundu" & "" & Range ("A" & i) .Adres End Next Next End ise End Sub Eğer bir hücre aralığında belirli kriterler arıyorsanız, o zaman böyle bir şey deneyin. Özel Alt Find_Criteria () Değişen Boyutlu Değişken Boyutlu Boyutlu Değişkenlik Aralıklı Dizin Olarak Ayarla FindRange = Aralık ("A1: K50") FindRange İçindeki Her i için "i =" ölçüt "ise MsgBox" Bulundu "&" "& Alt Sona