7.3. Estrutura FOR – EACH – NEXT(3º EXEMPLO)

Ai Galera! Segue o 3º exemplo da estrutura FOR-EACH-NEXT. Let's Go!!!


3º EXEMPLO

Vamos utilizar esta estrutura para aplicar formatações e até inserir dados em nossas planilhas. Para exemplificar, vamos usar a plan3 e as células de A1 à C10.

CÓDIGO PARA COPIAR

Sub ForEachNext3()

'Declaramos a variável que receberá a planilha
Dim Planilha As Worksheet
'Declaramos a variável que receberá as celulas que vamos formatar
Dim Celula As Range

'Dizemos que a planilha que usaremos é a Plan3, que está na coleção de planilhas da pasta de trabalho.
Set Planilha = Worksheets("Plan3")

'Agora abrimos um bloco para a planilha. À partir daqui, tudo que você digitar dentro do bloco, será referente
'A Plan3.
With Planilha

    'Agora faremos a verificação. Para cada Celula que estiver entre A1:C10, ordenaremos que o valor seja 2,
    'seja negritada, tenha o formato italic e a cor seja vermelha.
                        'RANGE pode ser uma célula ou um conjunto de celuas que podem ser definidas abrindo-se
                        'um parentese
    For Each Celula In .Range("A1:C10")
       
        'Abrimos um bloco para a variável Celula. Agora, tudo que estiver neste bloco dirá respeito à variável
        'Celula.
        With Celula
        .Value = 2
        'Já este bloco, definirá a Fonte da variável
        With .Font             'Negrito = Verdadeiro
        'Vamos colocar negrito (Blod = True)
        .Bold = True
        'O mesmo raciocínio se aplica a Italic
        .Italic = True
        'Para cor, usamos o sistema RGB(RED, GREEN, BLUE), ou seja, VERMELHO, VERDE, AZUL. As cores são definidas
        'em uma escala de 0 a 255. Depois você pode brincar, mudando as númerações e veja o que aconteçe.
        .Color = RGB(255, 0, 0)
        End With
       
        End With
    Next

End With

End Sub


Para acessar o curso completo Clique aqui