Como utilizar o se, em seguida, ELSE declaração e a declaração de SELECT CASE nos exemplos escritas no 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. Aprenda o que isto significa para si e como pode ficar protegido.

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 213630
Sumário
No Microsoft Visual Basic for Applications, existem duas instruções que pode utilizar para efectuar um teste condicional: uma se... Em seguida... Pessoa instrução ou uma instrução Select Case . O se... Em seguida... Pessoa instrução executa um grupo de declaraçõ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ção
A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. As macros de exemplo seguintes mostram como utilizar o se... Em seguida... Pessoa e as instruções ' Select Case .

Exemplo de Macro utilizando se... Em seguida... Declaração de outra pessoa

   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 utilizando a instrução Select de incidente

   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 mais informações sobre como utilizar as instruções Select Case, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , escreva Utilizar instruções Select de incidentes no Assistente do Office ou o Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.
Para mais informações sobre a instrução de se, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , escreva Utilizar se... Em seguida... Instruções de outra pessoa no Assistente do Office ou o Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.
Para obter informações adicionais sobre como obter ajuda com o Visual Basic for Applications, clique no número de artigo abaixo para visualizar o artigo na Microsoft Knowledge Base:
226118 Recursos de programação para Visual Basic for Applications
Para mais informações sobre como utilizar o código de exemplo neste artigo, clique no número de artigo abaixo para visualizar o artigo na Microsoft Knowledge Base:
212536 Como executar o código de exemplo artigos da Knowledge Base
lógica XL2000 XL2002 XL2003 XL2007 XL2010 se caso seleccione outra pessoa

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 213630 - Última Revisão: 10/29/2015 03:53: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