Excel VBA - - Msg polje, ko celica izpolnjuje merila

• Težava
• Rešitev
• Opomba

Težava

Hi to bo verjetno zelo preprosto za nekoga, ampak jaz sem ob noč nočna mora, vse, kar želim, je formula VBA, ki bo prinesel sporočilo polje, ko celica kaže posebna merila.

Ali lahko kdo pomaga?

Rešitev

Ta koda predpostavlja, da je tisto, kar iščete, v stolpcu A.

 Zasebna podpora Find_Criteria () Dim i Dim rr = Območje ("A65536"). End (xlUp) .Row i = 1 Za i = i To r Če je razpon ("A" & i) = "merila" Nato MsgBox "Najden" & "" & Range ("A" & i) .Address End Če Next i End Sub Če iščete določena merila v celici, poskusite nekaj takega. Zasebni pod Find_Criteria () Dim i Kot Variant Dim FindRange As Range Nastavi FindRange = Razpon ("A1: K50") za Vsak i V FindRange Če i = "kriteriji" Potem MsgBox "Najden" & "" & i.Address End Če Naprej i End Sub 

Opomba

Hvala Helperju za ta nasvet na forumu.