IconSets オブジェクト (Excel)
アイコン セットの条件付き書式ルールで使用されるアイコン セットのコレクションを表します。
条件付き書式のアイコン セットは、IconSetCondition オブジェクトの IconSet プロパティを使用して割り当てられます。 XlIconSet 列挙の定数の 1 つを Workbook オブジェクトの IconSets プロパティのインデックスとして渡すことで、このプロパティを組み込みアイコン セットの 1 つに設定します。 詳細は使用例を参照してください。
次のコード例では、テスト スコアを表す数値の範囲を作成し、その範囲にアイコン セットの条件付き書式ルールを適用します。 アイコン セットの種類は、既定のアイコンセットから 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 のサポートおよびフィードバックを参照してください。