ColorScale オブジェクト (Excel)
カラー スケールの条件付き書式ルールを示します。
すべての条件付き書式オブジェクトは、Range コレクションの子である FormatConditions コレクション オブジェクトに含まれています。 FormatConditions コレクションの Add メソッドまたは AddColorScale メソッドを使用して、カラー スケールの書式設定ルールを作成できます。
カラー スケールは、データの分布や偏差を把握するうえで視覚的な手掛かりとなります。 データ範囲、テーブルのデータ、またはピボットテーブル レポートのデータには、2 色スケールまたは 3 色スケールを適用できます。 2 色スケールの条件付き書式では、値、種類、および色を範囲の最小および最大しきい値に割り当てます。 3 色スケールには、中間しきい値もあります。
これらの各しきい値は、 ColorScaleCriteria オブジェクトのプロパティを設定することによって決定されます。 ColorScale オブジェクトの子である ColorScaleCriteria オブジェクトは、カラー スケールの ColorScaleCriterion オブジェクトすべてのコレクションです。
次のコード例は、数値の範囲を作成し、2 色スケールの条件付き書式ルールをその範囲に適用します。 その後、最小しきい値の色は赤、最高しきい値の色は青に割り当てられます。
Sub CreateColorScaleCF()
Dim cfColorScale As ColorScale
'Fill cells with sample data from 1 to 10
With ActiveSheet
.Range("C1") = 1
.Range("C2") = 2
.Range("C1:C2").AutoFill Destination:=Range("C1:C10")
End With
Range("C1:C10").Select
'Create a two-color ColorScale object for the created sample data range
Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=2)
'Set the minimum threshold to red and maximum threshold to blue
cfColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0)
cfColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(0, 0, 255)
End Sub
- Application
- AppliesTo
- ColorScaleCriteria
- Creator
- Formula
- Parent
- [優先度]
- PTCondition
- ScopeType
- StopIfTrue
- 型
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。