Finne et enkelt tegn i en streng ved hjelp av VBA er en spesiell forekomst av å finne en streng i en annen . Selve prosessen bruker bare ett Visual Basic ord , InStr som søker tekst for en bestemt streng , eller enkelt tegn i dette eksemplet. Resten av koden er nødvendig for å tillate input fra brukeren , og vise resultatene. Prosessen bruker en case- insensitive søk metoden , det er, det vil finne små eller store bokstaver . Instruksjoner
en

Åpen en av Microsoft Office-programmene som bruker VBA ( Visual Basic for Applications ) og allerede inneholde tekst . Klikk på " Developer " i toppmenyen og deretter " Visual Basic ", som vil bli oppført i den andre raden av alternativer . Dette åpner VBA Editing skjermen .
2

Skriv inn følgende linjer i tomt vindu .

Sub FindCharacter ( ) Dim KnownString , SoughtCharacter , Fant Som StringDim Location, jeg , Juster As IntegerKnownString = InputBox ( "Type eller kopiere og lime inn teksten du vil søke her " ) SoughtCharacter = InputBox ( "Type tegnet søkt her ") Location = InStr ( 1 , KnownString , SoughtCharacter , vbTextCompare ) Juster = 10For i = 1 To Len ( KnownString ) Hvis Sted < Juster ThenAdjust = Juster /5Avslutt IfIf i = Sted ThenFound = Mid ( KnownString , beliggenhet - Adjust , Location + Juster) MsgBox "Dette er den første forekomsten av " & vbCrLf & SoughtCharacter & ; " i sammenheng " & vbCrLf & " ' " & Found & " ' " End IfNext iend Sub
3

Reduser høyre side av følgende linje hvis du søker etter en karakter i svært korte segmenter av tekst : en

Juster = 10