カテゴリー: 条件付き書式

・方向

指定した範囲の値のセルに対して、指定したアイコンを施します

種類と数の異なるアイコンセットを選ぶだけですね

– 書式ルールを確認

– マクロで記録してみる

3つの矢印(色分け)の設定をマクロを使って、保存した結果が以下のVBAソースです

Sub Macro40()
'
' Macro40 方向
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValuePercent
        .Value = 33
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValuePercent
        .Value = 67
        .Operator = 7
    End With
End Sub

– マクロの説明

・簡単に説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

8行目：[AddIconSetConditionメソッド]で追加

9行目：優先順位の設定

10-14行目：条件の設定

• .ReverseOrder = False は「アイコンの順序を逆にしない」
• .ShowIconOnly = False は「アイコンのみ表示」を「しない」
• .IconSet = ActiveWorkbook.IconSets(xl3Arrows) は「3つの矢印」

15-19行目：2番目のアイコンの条件設定

• .Type = xlConditionValuePercent は種類が「パーセント」
• .Value = 33 は値が「33」
• .Operator = 7 は演算子が「以上」[xlGreaterEqual]

20-24行目：3番目のアイコンの条件設定

• .Type = xlConditionValuePercent は種類が「パーセント」
• .Value = 67 は値が「67」
• .Operator = 7 は演算子が「以上」[xlGreaterEqual]

※1番目のアイコンの条件設定は2番目と3番目の条件以外なので記載しません

・図形

指定した範囲の値のセルに対して、指定したアイコンを施します

ここでは「4つの信号」を例に見ていきます

– 書式ルールを確認

– マクロで記録してみる

方向と図形でどんな違いがあるのでしょうか？

Sub Macro41()
'
' Macro41 図形
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl4TrafficLights)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValuePercent
        .Value = 25
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValuePercent
        .Value = 50
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(4)
        .Type = xlConditionValuePercent
        .Value = 75
        .Operator = 7
    End With
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

13行目：条件の設定

• .IconSet = ActiveWorkbook.IconSets(xl4TrafficLights) は「4つの信号」

25-29行目：4番目のアイコンの条件設定

• .Type = xlConditionValuePercent は種類が「パーセント」
• .Value = 75 は値が「75」
• .Operator = 7 は演算子が「以上」[xlGreaterEqual]

つまり方向と図形の違いとしては、アイコンセットの種類と4番目のアイコンが増えたことによる違いしかない！

・インジケーター

指定した範囲の値のセルに対して、指定したアイコンを施します

ここでは「3つのフラグ」を例に見ていきます

– 書式ルールを確認

– マクロで記録してみる

インジケーターは何が違うのか！？って・・予想は付きますがｗ

Sub Macro42()
'
' Macro42 インジケーター
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Symbols2)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValuePercent
        .Value = 33
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValuePercent
        .Value = 67
        .Operator = 7
    End With
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

13行目：条件の設定

• .IconSet = ActiveWorkbook.IconSets(xl3Symbols2) は「3つのフラグ」

違いについては、やはりそうですねー！予想通りでしたねーｗ

・評価

指定した範囲の値のセルに対して、指定したアイコンを施します

ここでは「5種類のボックス」を例に見ていきます

– 書式ルールを確認

– マクロで記録してみる

評価は何が違うんでしょうねっ！？・・もぅ、お判りでしょうけどｗ

Sub Macro44()
'
' Macro44 評価
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl5Boxes)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValuePercent
        .Value = 20
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValuePercent
        .Value = 40
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(4)
        .Type = xlConditionValuePercent
        .Value = 60
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(5)
        .Type = xlConditionValuePercent
        .Value = 80
        .Operator = 7
    End With
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

13行目：条件の設定

• .IconSet = ActiveWorkbook.IconSets(xl5Boxes) は「5種類のボックス」

25-29行目：4番目のアイコンの条件設定

• .Type = xlConditionValuePercent は種類が「パーセント」
• .Value = 60 は値が「60」
• .Operator = 7 は演算子が「以上」[xlGreaterEqual]

30-34行目：5番目のアイコンの条件設定

• .Type = xlConditionValuePercent は種類が「パーセント」
• .Value = 80 は値が「80」
• .Operator = 7 は演算子が「以上」[xlGreaterEqual]

特に説明は不要でしょう！？ｗ

・塗りつぶし(グラデーション)

指定した値と等しいセルに対して、指定した書式を施します

色を選ぶだけですね！「セルの強調表示ルール」や「上位/下位ルール」のような小さいウィンドウはでませんし、書式ルールを確認してもそれほど変化はないようです

– 書式ルールを確認

– マクロで記録してみる

青のデータバー(グラデーション)の設定をマクロを使って、保存した結果が以下のVBAソースです

Sub Macro20()
'
' Macro20 データバー(グラデーション)
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.count).ShowValue = True
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 13012579
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillGradient
    Selection.FormatConditions(1).Direction = xlContext
    Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderSolid
    Selection.FormatConditions(1).NegativeBarFormat.BorderColorType = _
        xlDataBarColor
    With Selection.FormatConditions(1).BarBorder.Color
        .Color = 13012579
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
    With Selection.FormatConditions(1).AxisColor
        .Color = 0
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.Color
        .Color = 255
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.BorderColor
        .Color = 255
        .TintAndShade = 0
    End With
End Sub

– マクロの説明

・簡単に説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

8行目：[AddDatabarメソッド]で追加

9行目：[ShowValueプロパティ] = True で「棒のみ表示」のチェックを[OFF]

10行目：優先順位の設定

11-14行目：最小値と最大値の評価方法を自動設定に[Modifyメソッド]で変更

15-18行目：[BarColorプロパティ]でバーの外観の色を設定

19行目：[BarFillTypeプロパティ]でバーの外観の塗りつぶしを「グラデーション」に設定

20行目：[Directionプロパティ](Dirですね)棒の方向を「左から右」に設定

21行目：[NegativeBarFormatのColorTypeプロパティ]で負の棒の塗りつぶしを「塗りつぶしの色」に設定

22行目：[BarBorderのTypeプロパティ]でバーの外観の枠線を「実線」に設定

23-24行目：[NegativeBarFormatのBorderColorTypeプロパティ]で負の棒の罫線の色を「枠線の色」に設定

25-28行目：[BarBorderのColorプロパティ]でバーの外観の枠線の色を設定

29行目：[AxisPositionプロパティ]で軸の設定を「自動」に設定

30-33行目：[AxisColorプロパティ]で軸の色を設定

34-37行目：[NegativeBarFormatのColorプロパティ]で負の棒の塗りつぶしの「色」を設定

38-41行目：[NegativeBarFormat.BorderColorプロパティ]で負の棒の枠線の「色」を設定

・塗りつぶし(単色)

指定した値と等しいセルに対して、指定した書式を施します

こちらも色を選ぶだけですね！グラデーションと単色の違いだけのようです

– 書式ルールを確認

– マクロで記録してみる

青のデータバー(単色)の設定をマクロを使って、保存した結果が以下のVBAソースです

Sub Macro21()
'
' Macro21 データバー(単色)
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.count).ShowValue = True
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 13012579
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlContext
    Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderNone
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
    With Selection.FormatConditions(1).AxisColor
        .Color = 0
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.Color
        .Color = 255
        .TintAndShade = 0
    End With
End Sub

– マクロの説明

・簡単に説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

グラデーションと単色の違いがどこに出ているのかを見ていきます

19行目：[BarFillTypeプロパティ]でバーの外観の塗りつぶしを「単色」に設定

22行目：[BarBorderのTypeプロパティ]でバーの外観の枠線を「なし」に設定

以下は、グラデーションにはあったが単色ではなくなっている設定です

• [NegativeBarFormatのBorderColorTypeプロパティ]で負の棒の罫線の設定
• [BarBorderのColorプロパティ]でバーの外観の枠線の色の設定
• [NegativeBarFormat.BorderColorプロパティ]で負の棒の枠線の色の設定

・上位10項目

上位10項目に入る値のセルに対して、指定した書式を施します

「上位10項目」を選択して、値が「10」の結果が以下になります

– 書式ルールを確認

– マクロで記録してみる

上位10項目の設定をマクロを使って、保存した結果が以下のVBAソースです

「上位」と「10」と「項目」というのが新しい項目で含まれているはずです

Sub Macro10()
'
' Macro10 上位10項目
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .TopBottom = xlTop10Top
        .Rank = 10
        .Percent = False
    End With
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

– マクロの説明

・簡単に説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

8行目：[AddTop10メソッド]で追加

9行目：優先順位の設定

10-14行目：条件の設定

• .TopBottom = xlTop10Top は「上位」
• .Rank = 10 は「10」
• .Percent = False は「％ではない」

15-18行目：フォント設定

19-23行目：背景設定

24行目：条件を満たす場合は停止するかどうか

・上位10％

上位10％に入る値のセルに対して、指定した書式を施します

「上位10％」を選択して、値が「10」の結果が以下になります

– 書式ルールを確認

– マクロで記録してみる

「上位10項目」が「上位10％」と単位が変わっています

Sub Macro11()
'
' Macro11 上位10％
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .TopBottom = xlTop10Top
        .Rank = 10
        .Percent = True
    End With
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

10-14行目：条件の設定

• .TopBottom = xlTop10Top は「上位」
• .Rank = 10 は「10」
• .Percent = True は「％」

・下位10項目

下位10項目に入る値のセルに対して、指定した書式を施します

「下位10項目」を選択して、値が「10」の結果が以下になります

– 書式ルールを確認

– マクロで記録してみる

「上位」が「下位」に変わっています

サブMacro12（）
'
' Macro12 下位10項目
'

'
    Range（ "C4：K8"）。選択
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions（Selection.FormatConditions.count）.SetFirstPriority
    Selection.FormatConditions（1）を使用
        .TopBottom = xlTop10Bottom
        。ランク= 10
        .Percent = False
    で終わる
    Selection.FormatConditions（1）.Fontを使用
        .Color = -16383844
        .TintAndShade = 0
    で終わる
    Selection.FormatConditions（1）.Interiorを使用
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    で終わる
    Selection.FormatConditions（1）.StopIfTrue = False
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

10-14行目：条件の設定

• .TopBottom = xlTop10Bottom は「下位」
• .Rank = 10 は「10」
• .Percent = False は「％ではない」

※8行目のAddTop10メソッドは変わらないのです

・下位10％

下位10％に入る値のセルに対して、指定した書式を施します

「下位10％」を選択して、値が「10」の結果が以下になります

– 書式ルールを確認

– マクロで記録してみる

「下位10項目」が「下位10％」と単位が変わっています

Sub Macro13()
'
' Macro13 下位10％
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection.FormatConditions(1)
        .TopBottom = xlTop10Bottom
        .Rank = 10
        .Percent = True
    End With
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

10-14行目：条件の設定

• .TopBottom = xlTop10Bottom は「下位」
• .Rank = 10 は「10」
• .Percent = True は「％」

・平均より上

平均より上に入る値のセルに対して、指定した書式を施します

「平均より上」を選択して、値が「より上」の結果が以下になります

– 書式ルールを確認

– マクロで記録してみる

「平均より」「上」という新しい項目が増えている

Sub Macro14()
'
' Macro14 平均より上
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    Selection.FormatConditions(1).AboveBelow = xlAboveAverage
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

8行目：AddAboveAverageメソッドを使って追加

[AddTop10メソッド]ではなく、[AddAboveAverageメソッド]が使用されています

つまりは、[AddAboveAverageメソッド]が「平均より上または下の値だけを書式設定」を意味しています

10行目：条件の設定が1行になっている

• AboveBelow = xlAboveAverage は「より上」

・平均より下

平均より下に入る値のセルに対して、指定した書式を施します

「平均より下」を選択して、値が「より下」の結果が以下になります

– 書式ルールを確認

– マクロで記録してみる

「平均より上」が「平均より下」に変わっている

Sub Macro15()
'
' Macro15 平均より下
'

'
    Range("C4:K8").Select
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    Selection.FormatConditions(1).AboveBelow = xlBelowAverage
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

– マクロの説明

・異なるところだけを説明

※VBAソースの詳細な説明は、その１の「指定の値より大きい」を参照

10行目：条件の設定が変わっている

• AboveBelow = xlBelowAverage は「より下」

※8行目のAddAboveAverageメソッドは変わらない

■最後に

今回は、「上位/下位ルール」のみで終わりにします

次回は、「データバー」「カラースケール」を調べます

ではでは