Classe FormatCondition (Excel VBA)

A classe FormatCondition representa um formato condicional.

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

Dim fcd as FormatCondition
Set fcd = ActiveCell.FormatConditions(Index:=1)

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

For Each

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

Dim fcd As FormatCondition
For Each fcd In ActiveCell.FormatConditions
	
Next fcd

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Formula with its procedures Formula1 e Formula2
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 FormatCondition

Delete - Exclui o objeto.

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

Modify - Modifica um formato condicional existente.

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.

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

Borders Retorna uma coleção Borders que representa as bordas de um estilo ou um intervalo de células incluindo um intervalo definido como parte de um formato condicional.

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

DateOperator Especifica o operador Date usado na condição de formatação. Leitura/gravação.

ActiveCell.FormatConditions(1).DateOperator = xlLast7Days

Font Retorna um objeto Font que representa a fonte do objeto especificado.

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

Interior Retorna um objeto Interior que representa o interior do objeto especificado.

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 =

Operator Retorna um valor Long que representa o operador do formato condicional.

Dim lngOperator As Long
lngOperator = ActiveCell.FormatConditions(1).Operator

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

Text Retorna ou define um valor String especificando a cadeia de caracteres de texto usada pela regra de formatação condicional.

ActiveCell.FormatConditions(1).Text =

TextOperator Retorna ou define uma das constantes da enumeração XlContainsOperator , especificando a pesquisa de texto realizada pela regra de formatação condicional.

ActiveCell.FormatConditions(1).TextOperator = xlBeginsWith

Type Retorna um valor Long , contendo um valor XlFormatConditionType , que representa o tipo de objeto.

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