iconcriterion オブジェクト (Excel)IconCriterion object (Excel)

アイコン セット内の各アイコンの基準を表します。Represents the criterion for an individual icon in an icon set. 基準は、アイコン セットの条件付き書式ルール内のアイコンに関連付けられた値の範囲としきい値の種類を指定します。The criterion specifies the range of values and the threshold type associated with the icon in an icon set conditional formatting rule.


アイコンセットの条件付き書式の条件はすべて、 iconcriteria コレクションに含まれています。All the criteria for an icon set conditional format are contained in an IconCriteria collection. コレクション内の各 IconCriterion オブジェクトへは、コレクションにインデックスを渡すことでアクセスできます。You can access each IconCriterion object in the collection by passing an index into the collection. 詳細は使用例を参照してください。See the example for details.


次のコード例では、テストスコアを表す番号の範囲を作成し、その範囲にアイコンセット条件付き書式ルールを適用します。The following code example creates a range of numbers representing test scores, and then applies an icon set conditional formatting rule to that range. アイコン セットの種類は、既定のアイコンセットから 5 つの矢印のアイコン セットに変更されます。The type of icon set is then changed from the default icons to a five-arrow icon set. 最後に、しきい値の種類が百分位からハードコードされた番号に変更されます。Finally, the threshold type is modified from percentile to a hard-coded number.

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


関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.