Funcția VBA: InStr

Descriere

Funcția VBA INSTR returnează un număr întreg corespunzător primei poziții găsite a valorii din șirul de caractere (sau 0 dacă nu se găsește nicio potrivire).

Sintaxă INSTR

InStr(position_start, text, search_value)

Sau

InStr(poziție_pornire, text, valoare_căutare, caz)

Exemplu VBA InStr

Folosind funcția InStr pentru a determina poziția cuvântului „excel” (începând căutarea de la caracterul 1 al numelui site-ului):

Sub InStrExample1()  
      
    sitename = "www.moonexcel.com.ua"  
    
    'Poziția cuvântului „excel” în sitename
    position = InStr(1, sitename, "excel")  
      
    MsgBox position 'Retururi: 9
    
End Sub

Folosind funcția InStr pentru a găsi poziția cuvântului „EXCEL” (de data aceasta adăugând o valoare „1” la al 4-lea argument pentru a ignora cazul):

Sub InStrExample2()  
      
    sitename = "www.moonexcel.com.ua"  
      
    'Poziția cuvântului „EXCEL” în sitename (indiferență majuscule și minuscule)
    position = InStr(1, sitename, "EXCEL", 1)  
      
    MsgBox position 'Retururi: 9
      
End Sub  

VERIFICAȚI DACA TEXTUL CONȚINE O VALOARE

Funcția InStr poate fi folosită și pentru a determina dacă numele unui site conține un șir de căutare:

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

În acest exemplu, dacă poziția este găsită, funcția returnează un număr mai mare decât 0 și afișează o casetă de dialog.