Como Usar For Each Vba Excel

Para usar o laço For Each no VBA Excel, siga os seguintes passos:

  1. Crie um objeto de coleção que você deseja percorrer. Isso pode ser uma matriz, uma lista, um dicionário ou qualquer outro objeto de coleção.

  2. Use a sintaxe For Each para percorrer cada elemento da coleção. Por exemplo:

``` Dim minhaLista As Variant minhaLista = Array("apple", "banana", "orange")

For Each fruta In minhaLista'Seu código aqui Next fruta ```

  1. Dentro do loop, você pode acessar cada elemento da coleção usando a variável que você definiu no cabeçalho do loop (no exemplo acima, a variável é "fruta").

  2. Faça o que você precisa fazer com cada elemento da coleção dentro do loop.

  3. Quando o loop terminar, o controle será retornado para o próximo código que vem depois do loop.

  4. Dica: Se você não sabe qual coleção usar, experimente a coleção Range para percorrer células em uma planilha.

Exemplo de código:

``` Sub ExemploForEach()

Dim frutas As Variant frutas = Array("maçã", "banana", "cereja")

For Each fruta In frutas MsgBox "Esta é a fruta: " & fruta Next fruta

End Sub ```

Este código irá exibir uma caixa de mensagem para cada elemento da matriz "frutas", contendo o texto "Esta é a fruta: ", seguido pelo nome da fruta.

Veja também mais Como Fazer com a letra C

Comentários