IconSet オブジェクト (Excel)IconSet object (Excel)

アイコン セットの条件付き書式ルールで使用されるアイコンの単一セットを表します。Represents a single set of icons that are used in an icon set conditional formatting rule.


IconSetオブジェクトは、 iconsets コレクションの子オブジェクトです。The IconSet object is a child object of the IconSets collection.

条件付き書式のアイコンセットは、 iconsetconditionオブジェクトの**IconSet** プロパティを使用して割り当てられます。The icon set for the conditional format is assigned by using the IconSet property of the IconSetCondition object. XlIconSet 列挙の定数の 1 つを Workbook オブジェクトの IconSets プロパティのインデックスとして渡すことで、このプロパティを組み込みアイコン セットの 1 つに設定します。You set this property to one of the built-in icon sets by passing one of the constants of the XlIconSet enumeration as an index of the IconSets property of the Workbook object. 詳細は使用例を参照してください。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 5-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 5-arrow icon set 
 cfIconSet.IconSet = ActiveWorkbook.IconSets(xl5Arrows) 
 'The IconCriterion collection contains all of IconCriteria 
 'By indexing into the collection you can modify each criteria 
 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.