hitta ett enda tecken i en sträng med VBA är en särskild instans för att hitta en sträng i en annan . Själva processen använder bara ett Visual Basic ord , InStr , som söker text för en specifik sträng , eller enstaka tecken i detta exempel. Återstoden av kod krävs för att tillåta inmatning från användaren och visa resultaten . Processen använder en skiftlägeskänslig sökning metoden , det vill säga det finns gemener eller versaler . Instruktioner
1
öppna en av de Microsoft Office-program som använder VBA ( Visual Basic for Applications ) och redan innehåller någon text . Klicka på " Developer " i den övre menyn och sedan " Visual Basic ", som kommer att listas i den andra raden av alternativ . Detta öppnar VBA Editing skärmen .
2
Skriv följande rader i det tomma fönstret .
Sub FindCharacter ( ) Dim KnownString , SoughtCharacter Hittade Som StringDim Plats , jag , justera enligt IntegerKnownString = InputBox ( " Skriv eller kopiera och klistra in texten du vill söka hit " ) SoughtCharacter = InputBox ( " Type tecknet sökte hit " ) Plats = InStr ( 1 , KnownString , SoughtCharacter , vbTextCompare ) Justera = 10For i = 1 till Len ( KnownString ) Om plats < Justera ThenAdjust = Justera /5End oOm i = Plats ThenFound = Mid ( KnownString , Plats - Adjust , Location + Adjust ) MsgBox " Detta är den första förekomsten av " & vbCrLf & SoughtCharacter & , " i sammanhanget " & vbCrLf & " ' " & Found & " ' " End IfNext iEnd Sub
3
Minska den högra sidan av följande linje om du söker efter en karaktär i mycket korta segment av text :
Justera = 10
