IconCriterion-Objekt (Excel)

Stellt das Kriterium für ein einzelnes Symbol in einem Symbolsatz dar. Das Kriterium gibt den Wertebereich und den Typ des Schwellenwerts an, die dem Symbol in einer Regel zur bedingten Formatierung von Symbolsätzen zugewiesen sind.

Bemerkungen

Alle Kriterien für ein bedingtes Symbolsatzformat sind in einer IconCriteria-Auflistung enthalten. Sie können auf die IconCriterion-Objekte in der Auflistung durch das Übergeben eines Index an die Auflistung zugreifen. Detaillierte Informationen hierzu finden Sie im Beispiel.

Beispiel

Im folgenden Codebeispiel wird ein Zahlenbereich erstellt, der Testergebnisse darstellt, und anschließend wird eine Regel zur bedingten Formatierung von Symbolgruppen auf diesen Bereich angewendet. Der Typ des Symbolsatzes wird dann von den Standardsymbolen in einen Symbolsatz mit fünf Pfeilen geändert. Schließlich wird der Schwellenwerttyp vom Quantil in eine hartcodierte Zahl geändert.

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

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.