Excel VBA - - مربع رسالة عندما تفي الخلية بالمعايير

• القضية
• حل
• ملحوظة

القضية

مرحبًا ، سيكون هذا الأمر بسيطًا جدًا لشخص ما ، ومع ذلك فإنني أواجه يومًا كابوسًا ، كل ما أريده هو صيغة VBA التي ستظهر مربع رسالة عندما تعرض الخلية معايير محددة.

هل أستطيع مساعدتك؟

حل

يفترض هذا الرمز أن ما تبحث عنه موجود في العمود A.

 Sub Find_Criteria () Dim i Dim rr = Range ("A65536"). End (xlUp) .Row i = 1 For i = i To r If Range ("A" & i) = "standards" ثم MsgBox "Found" & "" & Range ("A" & i). العنوان End If Next i End Sub إذا كنت تبحث عن معايير معينة في مجموعة من الخلايا ، فحاول تجربة شيء من هذا القبيل. Find_Criteria () Sub Sub الخاص - Dim Dim As Variant Dim FindRange - نطاق مجموعة FindRange = النطاق ("A1: K50") لكل i في FindRange إذا كنت = "معايير" ، ثم MsgBox "Found" & "" & i.Address End If Next أنا النهاية الفرعية 

ملحوظة

بفضل مساعد على هذه النصيحة في المنتدى.