Abaixo, veremos um programa em Excel VBA que pode cordas reversas.
Situação:
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Primeiro, declaramos quatro variáveis. Uma variável chamada texto do tipo String, uma variável chamada reversedText também do tipo String, uma variável chamada comprimento do tipo Integer e uma variável chamada i do tipo Integer.
Dim text As String, reversedText As String, length As Integer, i As Integer
2. Inicializamos duas variáveis. Usamos a função InputBox para obter uma string de texto do usuário. Usamos a função Len no Excel VBA para obter o comprimento de uma string.
text = InputBox ("Digite o texto que deseja reverter")
comprimento = Len (texto)
3. Iniciamos um loop For Next.
Para i = 0 Para comprimento - 1
4. Agora vem o truque simples. Pegamos o último caractere do texto e o colocamos na frente de ReversedText. Podemos usar a função Mid no Excel VBA para extrair um caractere de uma string. Usamos o operador & para concatenar (juntar) duas strings.
reversedText = reversedText & Mid (texto, (comprimento - i), 1)
5. Não se esqueça de fechar o loop.
Proximo eu
Exemplo: texto = "Carro". O comprimento do texto é 3. Para i = 0 a 2, extraímos a substring do texto começando no comprimento da posição - i com comprimento 1. Assim, para i = 0, Mid (text, 3, 1) é igual a r. Colocamos r na primeira posição de reversedText. Para i = 1, Mid (text, 2, 1) é igual a a. Adicionamos a a reversedText, que se torna ra. Para i = 2, Mid (text, 1, 1) é igual a C. Adicionamos C a reversedText, que se torna raC.
6. Finalmente, exibimos reversedText usando um MsgBox.
msgbox reversedText
7. Teste o programa.
Resultado: