Índice
Você pode executar a lógica ou retornar caracteres individuais de uma string no VBA, fazendo um loop através da string.
Loop através de cada personagem em uma string
A seguir está um exemplo de loop através de uma string usando um For… Next Loop e retornando cada caractere em uma msgbox.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter As IntegerDim MyString As StringMyString = "AutomateExcel" 'definir stringPara Contador = 1 para Len (MyString)'faz algo para cada caractere na string'aqui nós enviaremos msgbox para cada caractereMsgBox Mid (MyString, Counter, 1)PróximoEnd Sub |
A função Len conta o número total de caracteres na string. Então a expressão
| 1 | Para Counter = 1 para Len (MyString |
fará um loop em cada letra da string.
Loop através de cada personagem em uma string - alternativa
Leia cada personagem em uma string
: Este exemplo lê todos os caracteres em uma string da esquerda para a direita e retorna o resultado em uma caixa de mensagem. Ele faz uso do Mid função.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere As StringDim Counter As Integer'Use seu próprio texto aquiLookInHere = "easyexcel.net"Para contador = 1 para Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)PróximoEnd Sub |
Leia cada palavra em uma string
Este exemplo lê cada palavra em uma string da esquerda para a direita e retorna o resultado em uma caixa de mensagem. Ele faz uso do Dividir função.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere As StringDim Counter As IntegerDim SplitCatcher As Variant'Use seu próprio texto aquiLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")Para contador = 0 para UBound (SplitCatcher)MsgBox SplitCatcher (contador)PróximoEnd Sub |
