次の方法で共有


IconSetCondition オブジェクト (Excel)

アイコン セットの条件付き書式ルールを表します。

注釈

すべての条件付き書式オブジェクトは、Range コレクションの子である FormatConditions コレクション オブジェクトに含まれています。

FormatConditions コレクションの Add メソッドまたは AddIconSetCondition メソッドを使用して、アイコン セットの書式設定ルールを作成できます。

各アイコン セットには、3 つ、4 つ、または 5 つのアイコンが含まれています。 Workbook オブジェクトの IconSets プロパティを使用して、IconSets オブジェクトを取得して、組み込みのアイコン セットのいずれかを指定します。 アイコン セット内の各アイコンは、その後 IconCriteria オブジェクトのメンバーによって範囲の値のサブセットに割り当てられます。 しきい値の種類もこのオブジェクトによって指定されます。

次のコード例では、テスト スコアを表す数値の範囲を作成し、その範囲にアイコン セットの条件付き書式ルールを適用します。 アイコン セットの種類は、既定のアイコンセットから 5 つの矢印のアイコン セットに変更されます。 最後に、しきい値の種類が百分位からハードコードされた番号に変更されます。

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

メソッド

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。