Utilizar as funções esquerda, direita, média e carateres no Visual Basic for Applications no Excel

Resumo

Este artigo contém exemplos de como manipular cadeias de texto com as funções Esquerda, Direita, Meio e Len no Microsoft Visual Basic for Applications no Microsoft Excel.

Mais informações

A Microsoft fornece exemplos de programação apenas a título informativo, sem qualquer garantia expressa ou implícita, incluindo, sem limitações, as garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que o utilizador está familiarizado com a linguagem de programação demonstrada e as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às suas necessidades específicas.

Para seguir o procedimento, demonstra a utilização das funções Esquerda, Direita, Média e Lentilha do Microsoft Visual Basic for Applications no Microsoft Excel:

1. Crie um novo livro do Excel em branco.

2. Abra o visual basic Revisor premindo ALT+F11.

3. No menu Inserir, clique em Módulo.

4. Escreva a seguinte macro na nova folha de módulos.

         Sub String_Len()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Displays length of string.
             MsgBox Prompt:="The length of the string is " & _
                 Len(MyString) & " characters."
         End Sub
   
         Sub String_Left()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the left number of specified characters.
             Result = Left(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The left " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Right()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the right number of specified digits.
             Result = Right(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The right " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Mid()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Sets starting position.
             StartPos = InputBox _
                 ("Give me a starting position (1 to " _
                 & Len(MyString) & ")")
             ' Determines length of string of text.
             StringLen = Len(MyString) - StartPos + 1
             ' Sets number of characters.
             NumChars = InputBox _
                 ("How many characters would you like? (From 1 to " & _
                 StringLen & ")")
             MsgBox prompt:="The result is: " & _
                 Mid(MyString, StartPos, NumChars)
         End Sub
   
   

Para ver um exemplo das funções Esquerda, Direita, Meio e Len, utilize um dos seguintes procedimentos, conforme adequado para a versão do Excel que está a executar:

• No Microsoft Office Excel 2007, clique no separador Programador , clique em Macros no grupo Código , selecione a macro da função pretendida e, em seguida, clique em Executar
• No Microsoft Office Excel 2003 e em versões anteriores do Excel, clique em Macros no menu Ferramentas , selecione a macro da função que pretende e, em seguida, clique em Executar.

Referências

Para obter mais informações sobre estas funções, escreva o seguinte texto numa folha de módulo:

• Len
• Direita
• Esquerda
• Meio

Realce a função sobre a qual pretende obter mais informações e, em seguida, prima F1.