Excel VBA - - Msg Box atunci când celula îndeplinește criteriile

• Problema
• Soluţie
• Notă

Problema

Buna acest lucru va fi probabil foarte simplu pentru cineva cu toate acestea am un coșmar zi, tot ce vreau este o formulă VBA care va aduce o cutie de mesaje atunci când o celulă prezintă criterii specifice.

Poate cineva să ajute?

Soluţie

Acest cod presupune că ceea ce căutați este în coloana A.

 În cazul în care i = i la r Dacă intervalul ("A" & i) = "criteriile", atunci MsgBox "Found" ("A" & "" & Range ("A" & i). Sfârșitul adresei Dacă următoarea se termină sub Dacă căutați anumite criterii într-o gamă de celule, încercați ceva de genul acesta. Partea privată Find_Criteria () Dim i ca varianta Dim FindRange ca set de interval FindRange = Range ("A1: K50") Pentru fiecare i în FindRange Dacă i = "criterii" Apoi MsgBox "Found" & "" & i.Address End If Next i End Sub 

Notă

Mulțumită Ajutorului pentru acest sfat pe forum.