|
 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
|