7.3. Estrutura FOR – EACH – NEXT (CONTINUAÇÃO DO CAPÍTULO 7)

Segue mais uma atualização do capítulo 7. Iniciamos uma nova estrutura! Devagazim a gente chega lá!!!!

7.3. Estrutura FOR – EACH – NEXT

Esta estrutura é extremamente poderosa. Com ela é possível, por exemplo, aplicar formatações (negrito, cor, itálico) em células que possuem um determinado algarismo ou palavra, mesmo que sejam milhares. E melhor, tudo ao mesmo tempo! Show

Com o FOR – EACH – NEXT podemos manipular todos os objetos de uma coleção. Coleção? Credo em cruz!!!!!!

Calma meu amigo microsoftmaníaco, não há motivos para desespero. Uma coleção nada mais é que um conjunto de objetos que pertencem a um mesmo grupo. Por exemplo, uma planilha que chamamos em inglês de Worksheet, pertence à coleção Worksheets, ou seja, se tivermos três planilhas(Plan1, Plan2 e Plan3) em uma pasta de trabalho(Workbook), estas pertencem a coleção Worksheets, logo, poderemos manipulá-las de uma só vez com as estrutura FOR-EACH-NEXT. Para ilustrar o que digo, vamos a um exemplo.

1º EXEMPLO

Suponha que você queira exibir o nome das planilhas em uma MSGBOX. Veja.

CÓDIGO PARA COPIAR

Sub ForEachNext1()

'Primeiro, declaramos as variáveis


Dim Planilha As Worksheet 'Refere-se a cada planilha em específico.


    'Digitamos o código para que o nome de cada planilha em worksheets seja exibida nas msgboxs

    'No objeto Application, estão todos os objetos do EXCEL, como menus, barras de comando, planilhas, barras de rolagem,
    'celulas e tudo mais. Ou seja, Application é o próprio aplicativo. Então, vamos buscar o objeto application dentro
    'do próprio Excel. Depois, buscamos a planilha ativa(ActiveWorkbook) com o conjunto de todas as planilhas que estão
    'nela(worksheets)
    For Each Planilha In Excel.Application.ActiveWorkbook.Worksheets
                                                                'O Chr(13) para pular linhas (como um enter)
        MsgBox "OS NOMES DAS PLANILHAS SÃO: " & Planilha.Name & Chr(13)
    Next


End Sub


É simples! Todas as vezes que o LOOP rodar, ele vai capturar o nome de uma planilha e exibir na caixa de mensagem.


Para acessar o curso completo Clique aqui