Sommario
È possibile eseguire la logica o restituire singoli caratteri da una stringa in VBA eseguendo il ciclo della stringa.
Loop attraverso ogni carattere in una stringa
Quello che segue è un esempio di loop attraverso una stringa utilizzando un For… Next Loop e la restituzione di ogni carattere in un msgbox.
| 1234567891011121314 | Sub LoopThroughString()Dim Counter As IntegerDim MyString As StringMyString = "AutomateExcel" 'definisci stringaFor Counter = 1 To Len (MyString)'fai qualcosa a ogni carattere nella stringa'qui inseriamo in msgbox ogni carattereMsgBox Mid(MyString, Counter, 1)ProssimoFine sottotitolo |
La funzione Len conta il numero totale di caratteri nella stringa. Quindi l'espressione
| 1 | Per Contatore = 1 in Len(MyString |
scorrerà ogni lettera nella stringa.
Loop attraverso ogni carattere in una stringa - Alternativa
Leggi ogni carattere in una stringa
: questo esempio legge ogni carattere in una stringa da sinistra a destra e restituisce il risultato in una finestra di messaggio. Si avvale del Mid funzione.
| 12345678910111213 | Sub LoopThroughString()Dim LookInHere As StringDim Counter As Integer'Usa il tuo testo quiLookInHere = "easyexcel.net"For Counter = 1 To Len (LookInHere)MsgBox Mid(Cerca qui, Contatore, 1)ProssimoFine sottotitolo |
Leggi ogni parola in una stringa
Questo esempio legge ogni parola in una stringa da sinistra a destra e restituisce il risultato in una finestra di messaggio. Si avvale del Diviso funzione.
| 1234567891011121314151617 | Sub LoopThroughString2()Dim LookInHere As StringDim Counter As IntegerDim SplitCatcher come variante'Usa il tuo testo quiLookInHere = "I Heart easyexcel.net"SplitCatcher = Dividi(CercaInQui, " ")For Counter = 0 To UBound(SplitCatcher)MsgBox SplitCatcher(Contatore)ProssimoFine sottotitolo |
