Hvordan finne posisjonen til et bestemt tegn i Excel Bruke VBA

Som en programmerer, du kommer til å jobbe med mange strenger. Evnen til å finne posisjonen til en bestemt karakter i Excel ved hjelp av Visual Basic for Applications kan spare deg for mye tid når du skriver koden. Tidligere ville du sløyfe gjennom hver enkelt tegn i en streng og bruke en teller for å holde rede på stillingen. Nå, i VBA, kan du bruke InStr funksjonen til å søke etter en bestemt karakter og returnere posisjon.

Bruksanvisning

1 Start Microsoft Excel og skriv "Finn posisjonen til alle tegn i denne setningen." I A1. Klikk på "Utvikler" og klikk "Visual Basic" for å åpne VB Editor. Legg til en ny VBA kodemodul ved å klikke på "Insert" -menyen og klikke på "Module".

2 Legg til en ny prosedyre ved å legge til følgende kode:

Private Sub findPositionOfCharacter ()

3 Lag følgende tre variabler som du vil bruke for å finne posisjonen din karakter:

Dim myString As String
Dim myChar As String
Dim Pos As Integer

4 Definer tegnet du ønsker å finne og få dommen ligger i A1:

myChar = "d"
Range ( "A1"). Velg
myString = Range ( "A1"). Verdi

5 Kopier og lim inn følgende kode for å finne posisjonen til tegnet definert i forrige trinn, og vise en melding med sin posisjon:

Pos = InStr (1, myString, myChar, vbTextCompare)
MsgBox ( "Posisjonen" "& myChar &" 'er: "& Pos)

6 Skriv "End Sub" for å avslutte prosedyren og trykk "F5" for å kjøre VBA-kode.