Partilhar via

Objeto AboveAverage (Excel)

  • Artigo

Representa um visual acima da média de uma regra de formatação condicional. Aplica uma cor ou preenchimento a um intervalo ou seleção para ajudar você a ver o valor de uma célula em relação a outras células.

Comentários

Todos os objetos de formatação condicional estão contidos em um objeto de coleção FormatConditions , que é 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 .

Exemplo

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.

Sub AboveAverageCF() 
 
' Building data for Melanie 
 Range("A1").Value = "Name" 
 Range("B1").Value = "Number" 
 Range("A2").Value = "Melanie-1" 
 Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault 
 Range("B2:B26").FormulaArray = "=INT(RAND()*101)" 
 Range("B2:B26").Select 
 
' Applying Conditional Formatting to items above the average. Should appear green fill and dark green font. 
 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 "Added an Above Average Conditional Format to Melanie's data. Press F9 to update values.", vbInformation 
 
End Sub

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.