الوظيفة VBA: InStr

وصف

ترجع الدالة VBA INSTR عددًا صحيحًا يتوافق مع الموضع الأول الذي تم العثور عليه للقيمة في سلسلة الأحرف (أو 0 إذا لم يتم العثور على تطابق).

INSTR النحو

InStr (موضع_البداية ، نص ، قيمة البحث)

أو

InStr (موضع_البداية ، نص ، قيمة البحث ، حالة)

مثال VBA InStr

استخدام دالة InStr لتحديد موضع كلمة "excel" (بدء البحث من الحرف 1 من اسم الموقع):

Sub InStrExample1()  
      
    sitename = "www.moonexcel.com.ua"  
    
    'موضع كلمة "excel" في sitename
    position = InStr(1, sitename, "excel")  
      
    MsgBox position 'العوائد: 9
    
End Sub

باستخدام الدالة InStr للعثور على موضع الكلمة "EXCEL" (هذه المرة ، تضيف قيمة "1" إلى الوسيطة الرابعة لتجاهل الحالة):

Sub InStrExample2()  
      
    sitename = "www.moonexcel.com.ua"  
      
    'موضع الكلمة "EXCEL" في sitename (غير حساس لحالة الأحرف)
    position = InStr(1, sitename, "EXCEL", 1)  
      
    MsgBox position 'العوائد: 9
      
End Sub  

تحقق مما إذا كان النص يحتوي على قيمة

يمكن أيضًا استخدام الوظيفة InStr لتحديد ما إذا كان اسم الموقع يحتوي على سلسلة بحث أم لا:

Sub InStrExample3()
    
    sitename = "www.moonexcel.com.ua"
    
    If InStr(1, sitename, "excel") > 0 Then
       MsgBox "لذا!"
    End If
    
End Sub

في هذا المثال ، إذا تم العثور على الموضع ، تقوم الوظيفة بإرجاع رقم أكبر من 0 وتعرض مربع حوار.