Objeto IconCriterion (Excel)
Representa o critério de um ícone individual em um conjunto de ícones. O critério especifica o intervalo de valores e o tipo de limite associado ao ícone na regra de formatação condicional de um conjunto de ícones.
Comentários
Todos os critérios para um formato condicional de conjunto de ícones estão contidos em uma coleção IconCriteria . Você pode acessar cada objeto IconCriterion na coleção passando um índice para a coleção. Consulte o exemplo para obter detalhes.
Exemplo
O exemplo de código a seguir cria um intervalo de números que representam as pontuações de teste e, em seguida, aplica uma regra de formatação condicional de conjunto de ícones a esse intervalo. O tipo de conjunto de ícones é alterado dos ícones padrão para um conjunto de ícones de cinco setas. Finalmente, o tipo de limite é modificado do percentil para um número embutido em código.
Sub CreateIconSetCF()
Dim cfIconSet As IconSetCondition
'Fill cells with sample data
With ActiveSheet
.Range("C1") = 55
.Range("C2") = 92
.Range("C3") = 88
.Range("C4") = 77
.Range("C5") = 66
.Range("C6") = 93
.Range("C7") = 76
.Range("C8") = 80
.Range("C9") = 79
.Range("C10") = 83
.Range("C11") = 66
.Range("C12") = 74
End With
Range("C1:C12").Select
'Create an icon set conditional format for the created sample data range
Set cfIconSet = Selection.FormatConditions.AddIconSetCondition
'Change the icon set to a five-arrow icon set
cfIconSet.IconSet = ActiveWorkbook.IconSets(xl5Arrows)
'The IconCriterion collection contains all IconCriteria
'By indexing into the collection you can modify each criterion
With cfIconSet.IconCriteria(1)
.Type = xlConditionValueNumber
.Value = 0
.Operator = 7
End With
With cfIconSet.IconCriteria(2)
.Type = xlConditionValueNumber
.Value = 60
.Operator = 7
End With
With cfIconSet.IconCriteria(3)
.Type = xlConditionValueNumber
.Value = 70
.Operator = 7
End With
With cfIconSet.IconCriteria(4)
.Type = xlConditionValueNumber
.Value = 80
.Operator = 7
End With
With cfIconSet.IconCriteria(5)
.Type = xlConditionValueNumber
.Value = 90
.Operator = 7
End With
End Sub
Propriedades
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.