Come trovare posizione di un carattere particolare in Excel mediante VBA

Come programmatore , si sta andando a lavorare con un sacco di stringhe . La capacità di trovare la posizione di un carattere particolare in Excel utilizzando Visual Basic, Applications Edition si può risparmiare un sacco di tempo durante la scrittura di codice. In precedenza , si farebbe un ciclo ogni singolo carattere di una stringa e di utilizzare un contatore per tenere traccia della posizione . Ora , in VBA , è possibile utilizzare la funzione InStr per cercare un carattere particolare e di restituire la posizione . Istruzioni
1

lancio di Microsoft Excel e digitare " Trova la posizione di qualsiasi carattere in questa frase . " In A1 . Fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per aprire l' editor del VB . Aggiungere un nuovo modulo di codice VBA , fare clic sul menu "Inserisci" e cliccando
2

Aggiungi una nuova procedura aggiungendo il seguente codice "Modulo ". :

Private Sub findPositionOfCharacter ( )
3

Creare le seguenti tre variabili che verranno utilizzate per trovare la posizione del vostro personaggio :

Dim Stringa Come StringDim myChar Come StringDim Pos Come
Integer
4

Definire il carattere che si desidera trovare e ottenere la frase si trova in A1:

myChar = Campo "d" ( " A1 " ) SelectmyString = Range ("A1 " ) . . Valore
5

Copia e incolla il seguente codice per trovare la posizione del carattere definito nel passaggio precedente e visualizzare un messaggio con la sua posizione :

Pos = InStr ( 1 , Stringa, myChar , vbTextCompare ) MsgBox ( " La posizione dell ' " & myChar & " ' è : " & Pos )
6

tipo "End Sub " per terminare la procedura e premere il tasto "F5" per eseguire il codice VBA .