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:
Crie um novo livro do Excel em branco.
Abra o visual basic Revisor premindo ALT+F11.
No menu Inserir, clique em Módulo.
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.
Comentários
https://aka.ms/ContentUserFeedback.
Brevemente: Ao longo de 2024, vamos descontinuar progressivamente o GitHub Issues como mecanismo de feedback para conteúdos e substituí-lo por um novo sistema de feedback. Para obter mais informações, veja:Submeter e ver comentários