Reverter uma string de texto - exemplos de código VBA

Reverter uma string de texto com VBA

A rotina VBA abaixo permite que o usuário insira uma string e, em seguida, é apresentada a mesma string ao contrário. Por exemplo, “segunda-feira” torna-se “yadnoM”:

123456789101112131415161718192021222324252627282930313233343536 Opção ExplícitaPrivate Sub CommandButton1_Click ()'Definir VariáveisDim Original_String As StringDim Reversed_String As StringDim Next_Char As StringDim Length As IntegerDim Pos As Integer'Obtenha o String OriginalOriginal_String = InputBox ("Por favor, insira a string original:")'Encontre o comprimento revisado da cordaComprimento = Len (Original_String)'Configure a corda invertidaReversed_String = ""'Progresso através da string em uma base caractere por caractere'Começando no último caractere e indo em direção ao primeiro caracterePara Pos = Comprimento até 1 Etapa -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharPróxima posiçãoMsgBox "A string invertida é" & Reversed_StringEnd Sub

As principais características do código são: -

• É necessário um botão de comando para ativar o código - no evento de clique
• As seguintes variáveis ​​são configuradas: -

o Original_String - a string original que será revertida (“segunda-feira”)
o Reversed_String - a string invertida (“yadnoM”)
o Next_Char - o próximo caractere na string que será revertido
o Comprimento - o comprimento da corda
o Pos - a posição atual na string

• Um InputBox para capturar a string. Isso é armazenado na variável “String Original”
• O comprimento da string é calculado usando a função LEN e armazenado na variável Comprimento
• Um loop FOR … NEXT é configurado para percorrer a string começando no último caractere e trabalhando para trás, um caractere por vez
• O próximo caractere na string original (trabalhando ao contrário) é então adicionado à string invertida
• Este loop é iterado até que tenhamos percorrido todo o comprimento da string
• A string invertida é exibida em uma MsgBox.

Baixe o arquivo do Excel aqui

wave wave wave wave wave