iconsetcondition オブジェクト (Excel)IconSetCondition object (Excel)

アイコン セットの条件付き書式ルールを表します。Represents an icon set conditional formatting rule.


すべての条件付き書式オブジェクトは、 Range コレクションの子である**formatconditions** コレクションオブジェクト内に含まれています。All conditional formatting objects are contained within a FormatConditions collection object, which is a child of a Range collection.

formatconditions コレクションの**Add** メソッドまたは**addiconsetcondition** メソッドのいずれかを使用して、アイコン**** セットの書式設定ルールを作成できます。You can create an icon set formatting rule by using either the Add method or AddIconSetCondition method of the FormatConditions collection.

各アイコン セットには、3 つ、4 つ、または 5 つのアイコンが含まれています。Each icon set contains three, four, or five icons. iconsets オブジェクトを取得するのには、 Workbookオブジェクトの**iconsets** プロパティを使用して、組み込みアイコンセットの1つを指定します。You use the IconSets property of the Workbook object to return an IconSets object to specify one of the built-in icon sets. アイコン セット内の各アイコンは、その後 IconCriteria オブジェクトのメンバーによって範囲の値のサブセットに割り当てられます。Each individual icon in the icon set is then assigned to a subset of the values of the range by the members of the IconCriteria object. しきい値の種類もこのオブジェクトによって指定されます。The type of threshold is also specified by this object.


次のコード例では、テストスコアを表す番号の範囲を作成し、その範囲にアイコンセット条件付き書式ルールを適用します。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 from 1 to 10 
    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.