Classe Top10 (Excel VBA)

A classe Top10 representa um visual dos 10 principais valores de uma regra de formatação condicional. Aplicar uma cor a um intervalo facilita a visualização do valor de uma célula em relação a outras células.

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

Set

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

Dim tp1 as Top10
Set tp1 = ActiveCell.FormatConditions(Index:=1)

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

For Each

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

Dim tp1FormatCondition As Top10
For Each tp1FormatCondition In ActiveCell.FormatConditions
	
Next tp1FormatCondition

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 Top10

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

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

ActiveCell.FormatConditions(1).Delete

Estes são os principais métodos da classe

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

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 para que ela seja avaliada antes de todas as 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.

Propriedades

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

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 como o formato condicional em um relatório de tabela dinâmica deve ser avaliado.

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 =

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

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

Percent Retorna ou define um valor Boolean que especifica se a ordem é determinada por um valor porcentual.

ActiveCell.FormatConditions(1).Percent = True

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

Rank Retorna ou define um valor Long , especificando o número ou a porcentagem do valor de classificação da regra de formatação condicional.

ActiveCell.FormatConditions(1).Rank =

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

TopBottom Retorna ou define uma das constantes da enumeração XlTopBottom , que determina se a classificação é avaliada a partir da parte superior ou inferior.

ActiveCell.FormatConditions(1).TopBottom = xlTop10Bottom

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