Iniciar Sess�o

Select the product you need help with

XL: Como utilizar o loop de estruturas no Visual Basic for Applications

ID do artigo: 141762 - Exibir os produtos aos quais esse artigo se aplica.

Exibir Aviso de Isen��o de Tradu��o Autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

Expandir tudo | Recolher tudo

Quando voc� cria macros ou aplicativos no Visual Basic for Applications, geralmente � necess�rio executar v�rias vezes por meio de uma se��o de c�digo. Visual Basic for Applications fornece v�rios m�todos com o qual Repetir ou "percorrer", uma se��o de c�digo.

Este artigo fornece c�digo de exemplo que ilustra o uso dos v�rios loop estruturas e algoritmos que o Visual Basic for Applications fornece.

Voltar para o in�cio | Submeter coment�rios

Mais Informa��es

Microsoft fornece exemplos de programa��o apenas 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 para uma finalidade espec�fica. Este artigo presume que voc� est� familiarizados com a linguagem de programa��o que est� sendo demonstrada e com as ferramentas que s�o usadas para criar e depurar procedimentos. Engenheiros de suporte 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. Quando s�o decidir qual estrutura de loop para usar, h� v�rias considera��es estar atento. Por exemplo:

Saber exatamente quantas vezes eu queira percorrer o c�digo?

Em caso afirmativo, quantos?

Se n�o, h� uma condi��o espec�fica no qual que deseja que a macro para sair do loop? Se o loop condicional, deseja testar a condi��o antes ou ap�s o c�digo � executado?

Procedimentos do Visual Basic de exemplo

Os exemplos a seguintes demonstram as diversas estruturas de loop dispon�veis no Visual Basic for Applications. A menos que indicado de outra forma, os exemplos assumem uma c�lula ou intervalo de c�lulas est� selecionado. Algumas outras coisas para Observe:

Dentro de cada exemplo, a fun��o de caixa de mensagem ( CaixaDeMensagem ) � usada para exibir informa��es. Esses exemplos, sempre que uma fun��o MsgBox ocorre ocorre � onde voc� deve inserir o c�digo a serem repetidas por meio de cada itera��o do loop.
Alguns dos coment�rios no c�digo descrevem m�todos alternativos para realizar uma tarefa espec�fica ou para realizar tarefas diferentes com c�digo semelhante.
O s�mbolo de til (~) usado dentro de alguns dos coment�rios deve ser substitu�do pelo nome do objeto indicado [objeto colocado entre aspas, por exemplo worksheets("sheet1")] ou n�mero de �ndice do objeto.

For.... Each... Next

Este exemplo usa a para ... Each ... Next instru��o para percorrer todas as c�lulas de um intervalo selecionado (os coment�rios mostram um m�todo alternativo):

   ' To show the contents of each cell in a selection or specific range.
   Sub for_each_demo()

      ' Or, use "In Worksheet(~).Range(~)" to specify a specific range.
      For Each cell In Selection

         ' Displays cell contents in message box.
         MsgBox cell.Value

         ' Reset cell to next object.
      Next
   End Sub

Para <variable> = <n1> para <n2>

' This example loops through the code a specified number of times.
   Sub for_demo()

      ' Sets x to 1, adds 1 to x until x = 5, loops 5 times.
      For x = 1 To 5 Step 1

         ' Displays value of x in msgbox.
         MsgBox x

         ' Returns to top of loop 4 times.
      Next
   End Sub

Do... at� com teste no in�cio do loop

Este exemplo usa uma tarefa pendente ... at� loop "percorrer" para baixo uma coluna de c�lulas at� que a primeira c�lula vazia seja alcan�ada. Porque a macro executa o teste no in�cio do loop, se a primeira c�lula estiver vazia, o c�digo dentro do loop n�o ser� executado.

   ' Performs Do loop, testing at top of loop.
   ' Loops until empty cell is reached.
   ' Note that you can also use a Do While Not IsEmpty(ActiveCell) loop.

   Sub test_before_do_loop()

      ' Test contents of active cell; if active cell is empty, exit loop.
      Do Until IsEmpty(ActiveCell)

         ' Displays cell contents in message box.
         MsgBox ActiveCell.Value

         ' Step down 1 row to the next cell.
         ActiveCell.Offset(1, 0).Select

        ' Return to top of loop.
      Loop
   End Sub

Do... at� com teste no fim do loop

Este exemplo tamb�m usa um loop , mas ele testa na parte inferior do loop. A primeira linha da macro testa a primeira c�lula. Sem a primeira linha de c�digo para testar a c�lula inicial, o c�digo seria executado pelo menos uma vez, porque o loop testes na parte inferior.

   ' Performs Do loop, testing at bottom of loop.

   Sub test_after_do_loop()

      ' Test to see if first cell is empty.
      If IsEmpty(ActiveCell) Then Exit Sub

         ' Begin loop.
         Do

            ' Displays cell contents in message box.
            MsgBox ActiveCell.Value

            ' Steps down one row to the next cell.
            ActiveCell.Offset(1, 0).Select

            ' Test contents of active cell; if empty, exit loop
            ' or Loop While Not IsEmpty(ActiveCell).

         Loop Until IsEmpty(ActiveCell)
      End Sub

cuidado : n�o branch no corpo de um While ... Wend loop sem executar a instru��o While . Isso pode causar erros em tempo de execu��o ou outros problemas que s�o dif�ceis de localizar.

fazer ... instru��o loop fornece uma maneira mais estruturada e flex�vel para executar um loop. Do While ... Wend loop est� inclu�do no Visual Basic para aplicativos para compatibilidade com vers�es anteriores.

While... Wend Loop

Observa��o : O While ... Wend loop est� inclu�do no Visual Basic para aplicativos para compatibilidade com vers�es anteriores.

Este exemplo usa um While ... Wend loop. Esse loop testa na parte superior do loop somente.

    ' Performs While loop, testing at top of the loop.
   Sub While_loop_demo()

      ' Sets condition of loop, while active cell is not empty.
      While Not IsEmpty(ActiveCell)

         ' Displays cell contents in message box.
         MsgBox ActiveCell.Value

         ' Step down one row to the next cell.
         ActiveCell.Offset(1, 0).Select

      ' End While loop.
      Wend
   End Sub

If... ThenIr para loop

Este exemplo cria um loop usando "<condition> Se <condi��o> e ir para r�tulo de linha > "estrutura. Essa estrutura � testada na parte inferior do loop.

     Sub loop_using_goto()

      ' Test to see if first cell is empty.
      If IsEmpty(ActiveCell) Then Exit Sub

      ' Line label indicating top of loop.
   top:

      ' Displays cell contents in message box.
      MsgBox ActiveCell.Value

      ' Step down one row to the next cell.
      ActiveCell.Offset(1, 0).Select

      ' Test to see if new cell is empty.
      If Not IsEmpty(ActiveCell) Then GoTo top

   End Sub

Voltar para o in�cio | Submeter coment�rios

Refer�ncias

Para obter mais informa��es sobre loop estruturas, no Editor do Visual Basic, clique no Assistente do Office, digite loops e, em seguida, clique em Pesquisar para exibir os t�picos retornados.

Para obter informa��es adicionais sobre como obter ajuda com forApplications do Visual Basic, clique nos n�meros abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:

305326

(http://support.microsoft.com/kb/305326/EN-US/ )

OFFXP: Programa��o recursos para o Visual Basic for Applications

226118

(http://support.microsoft.com/kb/226118/EN-US/ )

OFF2000: Programa��o recursos para o Visual Basic for Applications

163435

(http://support.microsoft.com/kb/163435/EN-US/ )

VBA: Programa��o recursos para o Visual Basic for Applications

guia do usu�rio do Microsoft Excel Visual Basic vers�o 5.0 , p�ginas 143 151

Voltar para o in�cio | Submeter coment�rios

Propriedades

ID do artigo: 141762 - �ltima revis�o: sexta-feira, 19 de janeiro de 2007 - Revis�o: 3.4

A informa��o contida neste artigo aplica-se a:

Microsoft Excel 2000 Standard Edition
Microsoft Excel 2002 Standard Edition
Microsoft Excel 97 Standard Edition
Microsoft Excel 95 Standard Edition
Microsoft Excel 5.0 Standard Edition
Microsoft Excel 98 for Macintosh
Microsoft Excel 5.0 for Macintosh

kbmt kbcode kbhowto kbprogramming KB141762 KbMtpt

Tradu��o autom�tica

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 traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplica��es (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em portugu�s a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradu��o autom�tica n�o � sempre perfeita, podendo conter erros de vocabul�rio, sintaxe ou gram�tica. A Microsoft n�o � respons�vel por incoer�ncias, erros ou preju�zos ocorridos em decorr�ncia da utiliza��o dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualiza��es freq�entes ao software de tradu��o autom�tica (MT). Obrigado.

Clique aqui para ver a vers�o em Ingl�s deste artigo: 141762

(http://support.microsoft.com/kb/141762/en-us/ )

Voltar para o in�cio | Submeter coment�rios