Saberexcel - site das macros
Macro do Aplicativo Microsoft Excel VBA, usando o Objeto AboveAverage, que representa um visual acima da média de uma regra de formatação condicional. Aplica cor ou preenchimento em um intervalo ou seleção para ajudá-lo a ver o valor de células em relação a outras.

Todos os objetos de formatação condicional estão contidos em um objeto da coleção FormatConditions, que é um filho de uma coleção Range. você pode criar uma regra de formatação acima da média usando o método Add ou AddAboveAverage da coleção FormatConditions.
O exemplo a seguir cria um conjunto de dados dinâmicos e aplica cor aos valores acima da média através de regras de formatação condicional.

'Visual Basic for Applications
Sub FC_Acima_Media()

' inserindo uma numeração na palavra saberexcel
Range("A1").Value = "Nome"
Range("B1").Value = "Numero"
Range("A2").Value = "SaberExcel-1"
Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault
Range("B2:B26").FormulaArray = "=INT(RAND()*101)" 'gera números aleatorios.

Range("B2:B26").Select

'Aplicando a formatacao condicional nos resultados acima da média.
Selection.FormatConditions.AddAboveAverage
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).AboveBelow = xlAboveAverage

With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
MsgBox "adicionando a média condicional e formatos para os dados. Pressione F9 (aleatorios)", _
vbInformation, "Saberexcel - site das macros"

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um tipo de formatação condicional, isto é depende do número que é a condição do critério atribuido, irá colorir a linha em determinadas colunas(A:E), de acordo com as cores atribuidas na macro abaixo, inserí somente dez cores relacionadas ao número 1,2,3...10. Mara - observe que a macro abaixo poderá ajudá-lo com a questão fc(formatação condicional) do aplicativo, poderá inserir no evento change do Objeto worsheet. Ok. Fiquem com Deus, Desejo-lhes todo bem.

Sub sb_fc_formatacao_condicinal()
Dim vDesejados As Range
Set vDesejados = Range(Range("A1"), Range("A65536").End(xlUp))
For Each c In vDesejados
If c = 1 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3
If c = 2 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 44
If c = 3 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 7
If c = 4 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 4
If c = 5 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 37
If c = 6 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 22
If c = 7 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 16
If c = 8 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 29
If c = 9 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 19
If c = 10 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 14
Next
End Sub

Sub limpar_sb()
Set vDesejados = Range(Range("A1"), Range("A65536,B1").End(xlUp))
Cells.ClearFormats
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Saberexcel - site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um tipo de formatação condicional, isto é depende do número que é a condição do critério atribuido, irá colorir a linha em determinadas colunas(A:E), de acordo com as cores atribuidas na macro abaixo, inserí somente dez cores relacionadas ao número 1,2,3...10. Mara - observe que a macro abaixo poderá ajudá-lo com a questão fc(formatação condicional) do aplicativo, poderá inserir no evento change do Objeto worsheet. Ok. Fiquem com Deus, Desejo-lhes todo bem.

Sub sb_fc_formatacao_condicinal()
Dim vDesejados As Range
Set vDesejados = Range(Range("A1"), Range("A65536").End(xlUp))
For Each c In vDesejados
If c = 1 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3
If c = 2 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 44
If c = 3 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 7
If c = 4 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 4
If c = 5 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 37
If c = 6 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 22
If c = 7 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 16
If c = 8 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 29
If c = 9 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 19
If c = 10 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 14
Next
End Sub

Sub limpar_sb()
Set vDesejados = Range(Range("A1"), Range("A65536,B1").End(xlUp))
Cells.ClearFormats
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Saberexcel - o site das macros

Esse procedimento do aplicativo Microsoft Excel VBA, insere determinadas FC(Formatações Condicionais) em determinadas células na folha de planilha, dependendo do valor inserido,
essas formatações são configuradas em uma folha de planilha a parte. Observe que o procedimento foi inserido na folha de código do Livro ativo Workbook_SheetChange.
' Essa planilha faz parte dos Módulos Como Fazer - Programação MS Excel VBA - Treinando e Brincando com Excel VBA.



'Option Explicit
'-------------------------------------------------------------------------
'Escola Saberexcel VBA Estudos® - Treinamentos Macros, Fórmulas e Funções
'[email protected]
'-------------------------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim vTabTemp As Variant
Dim vLinha As Long

'se o usuário selecionar mais de uma célula sai da sub, sai do procedimento(macro)
If Target.Cells.Count > 1 Then Exit Sub
'If Target.Cells.Value = "" Then Exit Sub
'Verifica se há a presenta de um formato condicional special na célula selecionada
If Target.FormatConditions.Count < 1 Then Exit Sub

If Target.FormatConditions(1).Formula1 = "=Saberexcel" Then

With Sheets("Lista_Formatos")
'Carrega preferencialmente em uma matriz variant temporária
vLinha = .Range("A65536").End(xlUp).Row
vTabTemp = .Range(.Cells(1, 1), .Cells(vLinha, 1)).Value

'Determinando o formato a ser utilizado baseado no valor das células
If Target.Value = "" Then
vLinha = 1
Else
For vLinha = 2 To UBound(vTabTemp, 1)
If Target.Value < vTabTemp(vLinha, 1) Then Exit For
Next vLinha
End If

Application.EnableEvents = False
'Aplicando o formato personalizado
.Cells(vLinha, 2).Copy

Target.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Target.FormatConditions.Add Type:=xlExpression, Formula1:="=Saberexcel"
Application.CutCopyMode = False
Application.EnableEvents = True
End With
End If
End Sub