Classe AboveAverage (Excel VBA)

A classe AboveAverage representa um visual acima da média de uma regra de formatação condicional. Aplica uma cor ou um preenchimento a um intervalo ou seleção para ajudá-lo a ver o valor de uma célula em relação a outras células.

Os principais procedimentos da classe AboveAverage são Delete, FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddColorScale, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition, FormatConditions.AddTop10, FormatConditions.AddUniqueValues e FormatConditions.Delete

Set

Para usar uma variável de classe AboveAverage, ela primeiro precisa ser instanciada por exemplo

Dim aae as AboveAverage
Set aae = ActiveCell.FormatConditions(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo AboveAverage: FormatConditions.AddAboveAverage, FormatConditions.AddAboveAverage, FormatConditions.AddAboveAverage, FormatConditions.AddAboveAverage, FormatConditions.AddAboveAverage, FormatConditions.AddAboveAverage, FormatConditions.AddAboveAverage e Range.FormatConditions

For Each

Aqui está um exemplo de processamento dos itens AboveAverage em uma coleção.

Dim aaeFormatCondition As AboveAverage
For Each aaeFormatCondition In ActiveCell.FormatConditions
	
Next aaeFormatCondition

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Add with its procedures FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition e FormatConditions.AddTop10

Métodos

Estes são os principais métodos da classe AboveAverage

Delete - Exclui o objeto de regra da formatação condicional especificado.

ActiveCell.FormatConditions(1).Delete

FormatConditions.AddColorScale - Retorna um novo objeto ColorScale que representa uma regra de formatação condicional que usa gradações em cores de célula para indicar diferenças relativas nos valores das células incluídas em um intervalo selecionado.

Dim lngColorScaleType As Long: lngColorScaleType = 
Dim cseAddColorScale As ColorScale
Set cseAddColorScale = ActiveCell.FormatConditions.AddColorScale(ColorScaleType:=lngColorScaleType)

FormatConditions.AddUniqueValues - Retorna um novo objeto UniqueValues que representa uma regra de formatação condicional para o intervalo especificado.

Dim uvsAddUniqueValues As UniqueValues
Set uvsAddUniqueValues = ActiveCell.FormatConditions.AddUniqueValues()

FormatConditions.Delete - Exclui o objeto.

ActiveCell.FormatConditions.Delete

Estes são os principais métodos da classe

ModifyAppliesToRange - Define o intervalo de células ao qual esta regra de formatação se aplicará.

SetFirstPriority - Define o valor de prioridade para esta regra de formatação condicional como "1", de forma que esta regra seja avaliada antes das outras regras na planilha.

SetLastPriority - Define a ordem de avaliação para esta regra de formatação condicional para que ela seja avaliada após todas as outras regras na planilha.

FormatConditions.Item - Retorna um único objeto de uma coleção.

Propriedades

AboveBelow Retorna ou define uma das constantes da enumeração XlAboveBelow , especificando se a regra de formatação condicional procura por valores de célula acima ou abaixo da média do intervalo ou do desvio padrão.

ActiveCell.FormatConditions(1).AboveBelow = xlAboveAverage

AppliesTo Retorna um objeto Range especificando o intervalo de células ao qual a regra de formatação é aplicada.

Dim rngAppliesTo As Range
Set rngAppliesTo = ActiveCell.FormatConditions(1).AppliesTo

Borders Retorna uma coleção Borders que especifica a formatação de bordas de célula se a regra de formatação condicional for avaliada como true. Somente leitura.

Dim brdsBorders As Borders
Set brdsBorders = ActiveCell.FormatConditions(1).Borders

CalcFor Retorna ou define uma das constantes da enumeração XlCalcFor , que especifica o escopo dos dados a serem avaliados para o formato condicional em um relatório de tabela dinâmica.

ActiveCell.FormatConditions(1).CalcFor = xlAllValues

Font Retorna um objeto Font que especifica a formatação de fonte se a regra de formatação condicional for avaliada como true. Somente leitura.

Dim fntFont As Font
Set fntFont = ActiveCell.FormatConditions(1).Font

Interior Retorna um objeto interior que especifica os atributos interiores de uma célula para uma regra de formatação condicional que é avaliada como true. Somente leitura.

Dim intInterior As Interior
Set intInterior = ActiveCell.FormatConditions(1).Interior

NumberFormat Retorna ou define o formato de número aplicado a uma célula caso a regra de formatação condicional seja avaliada como True. de leitura/gravação.

ActiveCell.FormatConditions(1).NumberFormat =

NumStdDev Retorna ou define o desvio numérico padrão de um objeto AboveAverage. Long de leitura/gravação.

ActiveCell.FormatConditions(1).NumStdDev =

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.FormatConditions(1).Parent

Priority Retorna ou define um valor de prioridade da regra de formatação condicional. A prioridade determina a ordem de avaliação quando várias regras de formatação condicional existirem em uma planilha.

ActiveCell.FormatConditions(1).Priority =

PTCondition Retorna um valor Boolean indicando se o formato condicional está sendo aplicado a uma Tabela Dinâmica. Somente leitura.

Dim booPTCondition As Boolean
booPTCondition = ActiveCell.FormatConditions(1).PTCondition

ScopeType Retorna ou define uma das constantes da enumeração XlPivotConditionScope , que determina o escopo do formato condicional quando aplicado a uma tabela dinâmica.

ActiveCell.FormatConditions(1).ScopeType = xlDataFieldScope

StopIfTrue Retorna ou define um valor Boolean que determina se as regras de formatação adicionais na célula devem ser avaliadas se a regra atual avaliar para True.

ActiveCell.FormatConditions(1).StopIfTrue = True

Type Retorna uma das constantes da enumeração XlFormatConditionType , que especifica o tipo de formato condicional. Somente leitura.

Dim xlfcType As XlFormatConditionType
xlfcType = ActiveCell.FormatConditions(1).Type

FormatConditions.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.FormatConditions.Count

FormatConditions.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.FormatConditions.Parent