Clase FormatCondition (Excel VBA)

La clase FormatCondition representa un formato condicional.

Los principales procedimientos de la clase FormatCondition son Delete, FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddColorScale, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition, FormatConditions.AddTop10, FormatConditions.AddUniqueValues y FormatConditions.Delete

Set

Para usar una variable de clase FormatCondition, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase 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 y Range.FormatConditions

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos FormatCondition en una colección.

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

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Formula with its procedures Formula1 y Formula2
Add with its procedures FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition y FormatConditions.AddTop10

Métodos

Los principales métodos de la clase FormatCondition son

Delete - Elimina el objeto.

ActiveCell.FormatConditions(1).Delete

FormatConditions.AddColorScale - Devuelve un nuevo objeto ColorScale que representa una regla de formato condicional que utiliza gradaciones en los colores de celda para indicar las diferencias relativas entre los valores de las celdas incluidas en un rango seleccionado.

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

FormatConditions.AddUniqueValues - Devuelve un nuevo objeto UniqueValues que representa una regla de formato condicional para el rango especificado.

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

FormatConditions.Delete - Elimina el objeto.

ActiveCell.FormatConditions.Delete

Otros Métodos

Modify - Modifica un formato condicional existente.

ModifyAppliesToRange - Establece el rango de celdas al que se aplica esta regla de formato.

SetFirstPriority - Establece el valor de prioridad para esta regla de formato condicional en 1 para que se evalúe antes que todas las demás reglas en la hoja de cálculo.

SetLastPriority - Establece el orden de evaluación para esta regla de formato condicional para que se evalúe después que todas las demás reglas en la hoja de cálculo.

FormatConditions.Item - Devuelve un solo objeto de una colección.

Propiedades

AppliesTo Devuelve un objeto Range que especifica el rango de celdas al que se aplica la regla de formato.

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

Borders Devuelve una colección Borders que representa los bordes de un estilo o de un rango de celdas (incluido un rango definido como parte de un formato condicional).

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

DateOperator Especifica el operador de fecha usado en la condición de formato.

ActiveCell.FormatConditions(1).DateOperator = xlLast7Days

Font Devuelve un objeto Font que representa la fuente del objeto especificado.

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

Interior Devuelve un objeto Interior que representa el interior del objeto especificado.

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

NumberFormat Devuelve o establece el formato de número aplicado a una celda si la regla de formato condicional da como resultado True.

ActiveCell.FormatConditions(1).NumberFormat =

Operator Devuelve un valor de tipo Long que representa el operador del formato condicional.

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

Parent Devuelve el objeto primario del objeto especificado.

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

Priority Devuelve o establece el valor de prioridad de la regla de formato condicional.

ActiveCell.FormatConditions(1).Priority =

PTCondition Devuelve un valor Boolean que indica si el formato condicional se aplica a una tabla dinámica.

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

ScopeType Devuelve o establece una de las constantes de la enumeración XlPivotConditionScope , que determina el ámbito del formato condicional cuando se aplica a una tabla dinámica.

ActiveCell.FormatConditions(1).ScopeType = xlDataFieldScope

StopIfTrue Devuelve o establece un valor Boolean que determina si se deben evaluar reglas adicionales de formato en la celda si la regla actual da como resultado True.

ActiveCell.FormatConditions(1).StopIfTrue = True

Text Devuelve o establece un valor String que especifica la cadena de texto usada por la regla de formato condicional.

ActiveCell.FormatConditions(1).Text =

TextOperator Devuelve o establece una de las constantes de la enumeración XlContainsOperator , que especifica la búsqueda de texto realizada por la regla de formato condicional.

ActiveCell.FormatConditions(1).TextOperator = xlBeginsWith

Type Devuelve un valor de tipo Long , que contiene un valor XlFormatConditionType y representa el tipo de objeto.

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

FormatConditions.Count Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveCell.FormatConditions.Count

FormatConditions.Parent Devuelve el objeto primario del objeto especificado.

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