Como usar a se, em seguida, a instrução ELSE e a instrução SELECT CASE nos exemplos escritos em Visual Basic para o Excel

O suporte para o Office 2003 terminou

A Microsoft terminou o suporte para o Office 2003 em 8 de abril de 2014. Esta alteração afetou as suas atualizações de software e opções de segurança. Saiba o que isto significa para você e como permanecer protegido.

IMPORTANTE: Este artigo foi traduzido pelo software de tradução automática da Microsoft e eventualmente pode ter sido editado pela Microsoft Community através da tecnologia Community Translation Framework (CTF) ou por um tradutor profissional. A Microsoft oferece artigos traduzidos automaticamente por software, por tradutores profissionais e editados pela comunidade para que você tenha acesso a todos os artigos de nossa Base de Conhecimento em diversos idiomas. No entanto, um artigo traduzido pode conter erros de vocabulário, sintaxe e/ou gramática. A Microsoft não é responsável por qualquer inexatidão, erro ou dano causado por qualquer tradução imprecisa do conteúdo ou por seu uso pelos nossos clientes.

Clique aqui para ver a versão em Inglês deste artigo: 213630
Sumário
No Microsoft Visual Basic for Applications, há duas instruções que você pode usar para executar um teste condicional: um se... Então... Pessoa de estrutura ou uma instrução Select Case . O se... Então... Pessoa instrução executa um grupo de instruções com base no valor de uma expressão, e a instrução Select Case executa uma das várias declarações com base no valor de uma expressão.
Mais Informações
A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas. As seguintes macros de exemplo mostram como usar o se... Então... Pessoa e instruções Select Case .

Amostra de Macro usando se... Então... Instrução else

   Sub Using_IF()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' Test to see if x less than or equal to 10.      If x <= 10 Then         ' Display a message box.         MsgBox "X is <=10"      ' Test to see if x less than or equal to 40 and greater than 10.      ElseIf x <= 40 And x > 10 Then         MsgBox "X is <=40 and > 10"      ' Test to see if x less than or equal to 70 and greater than 40.      ElseIf x <= 70 And x > 40 Then         MsgBox "X is <=70 and > 40"      ' Test to see if x less than or equal to 100 and greater than 70.      ElseIf x <= 100 And x > 70 Then         MsgBox "X is <= 100 and > 70"      ' If none of the above tests returned true.      Else         MsgBox "X does not fall within the range"      End If   End Sub				

Macro de exemplo usando a instrução Select Case

   Sub Using_Case()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' Start the Select Case structure.      Select Case x         ' Test to see if x less than or equal to 10.         Case Is <= 10            ' Display a message box.            MsgBox "X is <=10"         ' Test to see if x less than or equal to 40 and greater than 10.         Case 11 To 40            MsgBox "X is <=40 and > 10"         ' Test to see if x less than or equal to 70 and greater than 40.         Case 41 To 70            MsgBox "X is <=70 and > 40"         ' Test to see if x less than or equal to 100 and greater than 70.         Case 71 To 100            MsgBox "X is <= 100 and > 70"         ' If none of the above tests returned true.         Case Else            MsgBox "X does not fall within the range"      End Select   End Sub				
Referências
Para obter mais informações sobre como usar instruções Select Case, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite Usando instruções Select Case no Assistente do Office ou no Assistente de resposta e clique em Pesquisar para exibir o tópico.
Para obter mais informações sobre a instrução IF, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite Usando se... Então... Instruções Else no Assistente do Office ou no Assistente de resposta e clique em Pesquisar para exibir o tópico.
Para obter informações adicionais sobre como obter ajuda com o Visual Basic for Applications, clique no número abaixo para ler o artigo na Base de Conhecimento da Microsoft:
226118 Recursos de programação para Visual Basic for Applications
Para obter mais informações sobre como usar o código de exemplo neste artigo, clique no número abaixo para ler o artigo na Base de Conhecimento da Microsoft:
212536 Como executar o código de exemplo de artigos da Base de Conhecimento
lógica XL2000 XL2002 XL2003 XL2007 XL2010 se caso selecione else

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 213630 - Última Revisão: 10/29/2015 03:49:00 - Revisão: 6.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007, Excel 2016, Microsoft Excel 2013

  • kbdtacode kbhowto kbprogramming kbmt KB213630 KbMtpt
Comentários