Classe UniqueValues (Excel VBA)

O objeto UniqueValues usa a propriedade DupeUnique para retornar ou definir uma enumeração que determina se a regra deve procurar por valores duplicados ou exclusivos no intervalo.

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

Dim uvs as UniqueValues
Set uvs = ActiveCell.FormatConditions(Index:=1)

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

For Each

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

Dim uvsFormatCondition As UniqueValues
For Each uvsFormatCondition In ActiveCell.FormatConditions
	
Next uvsFormatCondition

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 UniqueValues

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

DupeUnique Retorna ou define uma das constantes da enumeração XlDupeUnique , que especifica se a regra de formatação condicional está procurando por valores exclusivos ou duplicados.

ActiveCell.FormatConditions(1).DupeUnique = xlDuplicate

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

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

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