Clase Top10 (Excel VBA)

La clase Top10 representa una indicación visual de los diez primeros elementos de una regla de formato condicional.

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

Set

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

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Top10 : Range.FormatConditions, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10 y FormatConditions.AddTop10

For Each

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

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

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

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

Métodos

Los principales métodos de la clase Top10 son

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

Delete - Elimina el objeto de reglas de formato condicional especificado.

ActiveCell.FormatConditions(1).Delete

Otros Métodos

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

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.

Propiedades

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

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 especifica el formato de los bordes de celda si la regla de formato condicional da como resultado true. Solo lectura.

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

CalcFor Devuelve o establece una de las constantes de la enumeración XlCalcFor , que especifica cómo se debe evaluar el formato condicional en un informe de tabla dinámica.

ActiveCell.FormatConditions(1).CalcFor = xlAllValues

Font Devuelve un objeto Font que especifica el formato de fuente si la regla de formato condicional da como resultado true. Solo lectura.

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

Interior Devuelve un objeto interior que especifica los atributos interiores de una celda para una regla de formato condicional que se evalúa como true. Solo lectura.

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. Variante de lectura y escritura.

ActiveCell.FormatConditions(1).NumberFormat =

Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

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

Percent Devuelve o establece un valor Boolean, que especifica si la jerarquía se determina mediante un valor porcentual.

ActiveCell.FormatConditions(1).Percent = True

Priority Devuelve o establece el valor de prioridad de la regla de formato condicional. La prioridad determina el orden de evaluación cuando existen varias reglas de formato condicional en una hoja de cálculo.

ActiveCell.FormatConditions(1).Priority =

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

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

Rank Devuelve o establece un valor de tipo Long , que especifica el número o el porcentaje del valor de jerarquía para la regla de formato condicional.

ActiveCell.FormatConditions(1).Rank =

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

TopBottom Devuelve o establece una de las constantes de la enumeración XlTopBottom , que determina si la clasificación se evalúa desde la parte superior o inferior.

ActiveCell.FormatConditions(1).TopBottom = xlTop10Bottom

Type Devuelve una de las constantes de la enumeración XlFormatConditionType , que especifica el tipo de formato condicional. Solo lectura.

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