9.2. Formatando células com FOR-EACH-NEXT

9.2. Formatando células com FOR-EACH-NEXT

No tópico 7.3, 1º EXEMPLO, aprendemos a usar a estrutura FOR-EACH-NEXT para exibir o nome das planilhas de uma pasta de trabalho. No 3º EXEMPLO, vimos como inserir valores e formatá-los em um intervalo de células. Vamos agora, criar um código capaz de identificar determinado número em uma planilha, formatando-o de acordo com nossas preferências. Vamos lá.

Na planilha de exemplos, crie a Plan6 e digite os números abaixo:

Criaremos um código que identifique todo o número 5 nesta planilha, aplicando a formatação desejada. Veja como vai funcionar.

CÓDIGO PARA COPIAR

Sub FormatandoForEachNext92()

'A variável que receberá a planilha
Dim Planilha As Worksheet
'Esta variável receberá um intervalo de células
Dim Celula As Range
'Associamos a variável planilha a Plan6
Set Planilha = Worksheets("Plan6")

'Criamos um bloco. Tudo que for digitado em WITH e END WITH, dirá respeito a Plan6
With Planilha
'Para cada Celula entre A1:F20
For Each Celula In Range("A1:F20")
    'Se o valor de uma destas céluas for 5, vamos aplicar as formatações abaixo.
    If Celula.Value = 5 Then
    'Criamos um bloco só para as células que vamos formatar
    With Celula
    'Mudaremos o tamanho da fonte
    .Font.Size = 22
    'Negritamos o valor
    .Font.Bold = True
    'Formatamos italic
    .Font.Italic = True
    'Definimos a cor azul
    .Font.Color = RGB(0, 0, 255)
    'O interior da celula será amarelo
    .Interior.ColorIndex = 6
    End With
   
    End If
   
Next

End With

End Sub


Veja o resultado:

Perceba que somente as células com o número 5 sofreram modificações, conforme o código elaborado.


Para acessar o curso completo Clique aqui