英語で読む

次の方法で共有


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

メソッド

プロパティ

関連項目

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

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