Classe ColorScale (Excel VBA)

A classe ColorScale representa uma regra de formatação condicional de escala de cores.

Os principais procedimentos da classe ColorScale 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 ColorScale, ela primeiro precisa ser instanciada por exemplo

Dim cse as ColorScale
Set cse = ActiveCell.FormatConditions(Index:=1)

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

For Each

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

Dim cseFormatCondition As ColorScale
For Each cseFormatCondition In ActiveCell.FormatConditions
	
Next cseFormatCondition

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 ColorScale

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

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

ColorScaleCriteria Retorna um objeto ColorScaleCriteria , que é uma coleção de objetos ColorScaleCriterion individuais. O objeto ColorScaleCriterion especifica o tipo, o valor e a cor dos critérios de limite usados no formato condicional de escala de cores. Somente leitura.

Dim cscColorScaleCriteria As ColorScaleCriteria
Set cscColorScaleCriteria = ActiveCell.FormatConditions(1).ColorScaleCriteria

Formula Retorna ou define um valor String representando uma fórmula que determina os valores em que o conjunto de ícones será aplicado.

ActiveCell.FormatConditions(1).Formula =

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.

Dim booStopIfTrue As Boolean
booStopIfTrue = ActiveCell.FormatConditions(1).StopIfTrue

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