Excel VBA カラースケールを表示する条件付き書式を設定する

VBA 条件付き書式

スポンサーリンク

カラースケールを表示する条件付き書式を設定する方法

カラースケールによる条件付き書式は、指定したセル範囲の値を元にデータの大きさによって、2色または3色の色合いのなかで表示する色合いを変更してデータの大きさの視認性を高めます。この機能はExcel 2007で追加されました。

AddColorScale【ｱﾄﾞｶﾗｰｽｹｰﾙ】メソッド

条件付き書式のオブジェクトの１つであるColorScale【ｶﾗｰｽｹｰﾙ】オブジェクトを取得するには、条件付き書式の集まりを表すFormatConditions【ﾌｫｰﾏｯﾄｺﾝﾃﾞｨｼｮﾝｽﾞ】コレクションの
AddColorScale【ｱﾄﾞｶﾗｰｽｹｰﾙ】メソッドを使用します。

FormatConditions.AddColorScale
【ﾌｫｰﾏｯﾄｺﾝﾃﾞｨｼｮﾝｽﾞｱﾄﾞｶﾗｰｽｹｰﾙ】メソッドの書式と設定値(引数)の説明

オブジェクト.FormatConditions.AddColorScale( ColorScaleType )

  • オブジェクト（必須）
    カラースケールを作成する値のセルまたはセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
  • ColorScaleType【ｶﾗｰｽｹｰﾙﾀｲﾌﾟ】（必須）
    カラースケールの色の数を指定します。

    設定値内容
    22色のカラースケール
    33色のカラースケール

Delete【ﾃﾞﾘｲﾄ】メソッド

条件付き書式を削除するには、条件付き書式の集まりを表すFormatConditions【ﾌｫｰﾏｯﾄｺﾝﾃﾞｨｼｮﾝｽﾞ】コレクションのDelete【ﾃﾞﾘｲﾄ】メソッドを使用します。

1つのセルに条件付き書式を追加すると既に条件付き書式が設定されている場合は、既にある条件付き書式に加えて新しい条件付き書式が追加されます。

複数の条件付き書式を設定するのでなければ、指定範囲に条件付き書式が設定されているされていないに関わらずDelete【ﾃﾞﾘｲﾄ】メソッドを使用して不要な条件付き書式を削除してから新しい条件付き書式を追加します。

FormatConditions.Delete【ﾌｫｰﾏｯﾄｺﾝﾃﾞｨｼｮﾝｽﾞﾃﾞﾘｲﾄ】メソッドの書式と設定値の説明

オブジェクト.FormatConditions.Delete

  • オブジェクト（必須）
    カラースケールを設定するセルまたはセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。

ColorScale【ｶﾗｰｽｹｰﾙ】オブジェクトの主なプロパティ

プロパティ内容
ColorScaleCriteria
【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】		カラースケールの集まりの設定値を表す
ColorScaleCriteriaコレクションを取得します。

ColorScaleCriteria【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】プロパティ

カラースケールの集まりの各種設定を表すColorScaleCriteria【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】コレクションからカラースケールの個々の各種設定を表すColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトを取得するには、ColorScale【ｶﾗｰｽｹｰﾙ】オブジェクトのColorScaleCriteria【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】プロパティを使用します。

ColorScaleCriteria【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】プロパティの書式と設定値(引数)の説明

オブジェクト.ColorScaleCriteria( Index )

  • オブジェクト（必須）
    設定するカラースケールを表すColorScale【ｶﾗｰｽｹｰﾙ】オブジェクトを指定します。
  • Index【ｲﾝﾃﾞｯｸｽ】（必須）
    個々のカラースケールをインデックス番号で指定します。例えば1つ目のカラースケールの場合「1」を設定します。

ColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトの主なプロパティ

プロパティ内容
Type【ﾀｲﾌﾟ】カラー スケールの条件付き書式設定の
しきい値を判断する方法を指定します。
Value【ﾊﾞﾘｭｰ】カラー スケールの条件付き書式の
最小、中間、最高しきい値を取得または設定します。
FormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】カラースケールの色の設定を表す
FormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得します。

Type【ﾀｲﾌﾟ】プロパティ

カラー スケールの条件付き書式設定のしきい値を判断する方法を設定するには、ColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトのType【ﾀｲﾌﾟ】プロパティを使用します。

Type【ﾀｲﾌﾟ】プロパティの書式と設定値の説明

オブジェクト.Type = 設定値

  • オブジェクト（必須）
    ColorScaleCriteria【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】プロパティで取得した個々のカラースケールの設定を表すColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトを指定します。
  • 設定値（必須）
    しきい値の種類をXlConditionValueTypes 列挙型の定数で指定します。

    XlConditionValueTypes 列挙型の定数
    定数値内容
    xlConditionValueNone‐1条件値なし
    xlConditionValueNumber0数字が使用されます
    xlConditionValueLowestValue1値の一覧の最低値
    xlConditionValueHighestValue2値の一覧の最高値
    xlConditionValuePercent3パーセンテージが使用されます
    xlConditionValueFormula4数式が使用されます
    xlConditionValuePercentile5百分位が使用されます

Value【ﾊﾞﾘｭｰ】プロパティ

カラー スケールの条件付き書式の最小、中間、最高しきい値を取得または設定するには、
ColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトのValue【ﾊﾞﾘｭｰ】プロパティを使用します。

Value【ﾊﾞﾘｭｰ】プロパティの書式と設定値の説明

オブジェクト.Value = 設定値

  • オブジェクト（必須）
    ColorScaleCriteria【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】プロパティで取得した個々のカラースケールの設定を表すColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトを指定します。
  • 設定値（必須）
    しきいとなる値を設定します。

※このプロパティはしきい値を判断するType【ﾀｲﾌﾟ】プロパティの値が「数値」「パーセント」「百分位」「数式」の場合に設定できます。

FormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】プロパティ

カラースケールの色の設定を表すFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】オブジェクトを取得するには、
ColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトのFormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】プロパティを使用します。

FormatColor【ﾌｫｰﾏｯﾄｶﾗｰ】プロパティの書式と設定値の説明

オブジェクト.FormatColor.色を設定するプロパティ = 設定値

  • オブジェクト（必須）
    ColorScaleCriteria【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｱ】プロパティで取得した個々のカラースケールの設定を表すColorScaleCriterion【ｶﾗｰｽｹｰﾙｸﾗｲﾃﾘｵﾝ】オブジェクトを指定します。
  • 色を設定するプロパティ = 設定値（必須）
    色を設定するプロパティの
    Color【ｶﾗｰ】、ColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】、ThemeColor【ﾃｰﾏｶﾗｰ】の
    いずれかのプロパティを使用して色を設定します。

2色のカラースケールを設定するコード例

Sub カラースケール2色()
Range("A1:A10").FormatConditions.Delete
Dim スケール As ColorScale
Set スケール = Range("A1:A10").FormatConditions.AddColorScale(2)
With スケール.ColorScaleCriteria(1)
    .Type = xlConditionValueLowestValue
    .FormatColor.Color = RGB(0, 0, 255)
End With
With スケール.ColorScaleCriteria(2)
    .Type = xlConditionValueHighestValue
    .FormatColor.Color = RGB(255, 0, 0)
End With
End Sub

実行結果

3色のカラースケールを設定するコード例

Sub カラースケール3色()
Range("A1:A10").FormatConditions.Delete
Dim スケール As ColorScale
Set スケール = Range("A1:A10").FormatConditions.AddColorScale(3)
With スケール.ColorScaleCriteria(1)
    .Type = xlConditionValueLowestValue
    .FormatColor.Color = RGB(0, 0, 255)
End With
With スケール.ColorScaleCriteria(2)
    .Type = xlConditionValueNumber
    .Value = 50
    .FormatColor.Color = RGB(0, 255, 0)
End With
With スケール.ColorScaleCriteria(3)
   .Type = xlConditionValueHighestValue
   .FormatColor.Color = RGB(255, 0, 0)
End With
End Sub

実行結果

以上で、カラースケールを表示する条件付き書式を設定する方法についての解説を終了します。ありがとうございました。

スポンサーリンク

関連記事・広告