Classe Databar (Excel VBA)

A classe Databar representa uma regra de formatação condicional da barra de dados. Aplicar uma barra de dados a um intervalo ajuda você a ver o valor de uma célula em relação a outras células.

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

Dim dtb as Databar
Set dtb = ActiveCell.FormatConditions(Index:=1)

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

For Each

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

Dim dtbFormatCondition As Databar
For Each dtbFormatCondition In ActiveCell.FormatConditions
	
Next dtbFormatCondition

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 Databar

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 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

AxisColor Retorna a cor do eixo de células com formatação condicional equivalente a barras de dados. Somente leitura.

Dim fcrAxisColor As FormatColor
Set fcrAxisColor = ActiveCell.FormatConditions(1).AxisColor

AxisPosition Retorna ou define a posição do eixo das barras de dados especificadas por uma regra de formatação condicional. Leitura/gravação.

ActiveCell.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic

BarBorder Retorna um objeto que especifica a borda de uma barra de dados. Somente leitura.

Dim dbbBarBorder As DataBarBorder
Set dbbBarBorder = ActiveCell.FormatConditions(1).BarBorder

BarColor Retorna um objeto FormatColor que você pode usar para modificar a cor das barras em um formato condicional de barra de dados.

Dim fcrBarColor As FormatColor
Set fcrBarColor = ActiveCell.FormatConditions(1).BarColor

BarFillType Retorna ou define a forma como uma barra de dados é preenchida com cores. Leitura/gravação.

ActiveCell.FormatConditions(1).BarFillType = xlDataBarFillGradient

Direction Retorna ou define a direção que o databar é exibido. Leitura/gravação.

ActiveCell.FormatConditions(1).Direction =

Formula Retorna ou define um valor String representando uma fórmula que determina os valores aos quais a barra de dados será aplicada.

ActiveCell.FormatConditions(1).Formula =

MaxPoint Retorna um objeto conditionvalue que especifica como a barra mais longa é avaliada para um formato condicional de barra de dados.

Dim cveMaxPoint As ConditionValue
Set cveMaxPoint = ActiveCell.FormatConditions(1).MaxPoint

MinPoint Retorna um objeto conditionvalue que especifica como a barra mais curta é avaliada para um formato condicional de barra de dados.

Dim cveMinPoint As ConditionValue
Set cveMinPoint = ActiveCell.FormatConditions(1).MinPoint

NegativeBarFormat Retorna o objeto NegativeBarFormat associado a uma regra de formatação condicional da barra de dados. Somente leitura.

Dim nbfNegativeBarFormat As NegativeBarFormat
Set nbfNegativeBarFormat = ActiveCell.FormatConditions(1).NegativeBarFormat

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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

PercentMax Retorna ou define um valor Long que especifica o tamanho da barra mais longa como um percentual da largura da célula.

ActiveCell.FormatConditions(1).PercentMax =

PercentMin Retorna ou define um valor Long que especifica o tamanho da barra mais curta como um percentual da largura da célula.

ActiveCell.FormatConditions(1).PercentMin =

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

ShowValue Retorna ou define um valor Boolean que especifica se o valor da célula será exibido se o formato condicional da barra de dados for aplicado ao intervalo.

ActiveCell.FormatConditions(1).ShowValue = True

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