Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel      Dicas


Pergunta:

A minha Planilha contem valores numéricos no range a5:a300.
Quero testar algumas rotinas tomando por base os valores iguais ou acima de 500

Primeiro : Quero que esses valores especiais mudem de cor e sejam formatados com duas casas decimais

Segundo : Não só mudem de cor mas assumam o formato ITÁLICO e fiquem em Negrito

Resposta:
Respondendo a Primeira pergunta

Option Explicit 'Declare todas as Variáveis
Const Blue = 5 'Usando Constantes em Visual Basic
Const Red = 3
Const Green = 4
Const Yellow = 6

Sub MudandoDeCor( )
Dim CellObject as Object 'Definindo a variável CellObject
ActiveSheet.Range("a5:a300").Select 'Selecionando o Range
For each CellObject in Selection
If CellObject.Value >=500 Then
CellObject.NumberFormat = "0.00"
CellObject.Font.ColorIndex = 7
End if
Next
End Sub

Respondendo a Segunda pergunta

Option Explicit
Const Blue = 5
Const Red = 3
Const Green = 4
Const Yellow = 6

Sub xMudandoDeCor ( )

Dim CellObject as Object
ActiveSheet.Range("a5:a300").Select
For each CellObject in Selection
If CellObject.Value >=500 Then
With CellObject.Font
.ColorIndex = 7
.Bold = True
.Italic = True
End With
End If
Next
End Sub