Excel - 条件付きフォーマットの左右のグラデーションは独立していますか？

Question

私はポケモンの種類のExcelシートで作業しています。

シートの一部で、ポケモンの種類を選ぶことができます。セルB3とC3を使用すると、データの検証によって型のドロップダウンリストから型を選択できます。下記参照。 （正常に動作）以下の式を有する単一のセルにこの種を組み合わせシートの他の部分がある

：

= IF(OR(C3=B3,C3="(none)"),B3,B3&"/"&C3) 

この場合には、式は、上記返しますGrass/Poison。

これはすべてうまくできていますが、このセルを2色のグラデーションで条件付きでフォーマットしてデュアルタイピングを反映させたいと考えています。

問題は、私は、各勾配色ため別条件付き書式設定規則を持っている方法を把握できないことです。

つまり、これらの2つの条件付き書式設定ルール（下記参照）がある場合、どちらか一方が適用されますが、両方は適用されません。

この問題に対する明白な解決策は、この特定の組み合わせを処理するための単一条件付き書式のルールを持っているだろう。 （下記参照）下記に完全には示されていませんが、このルールの条件付き書式は=AND(B3="Grass",C3="Poison")です。

このソリューションは、作業を行います。しかし、18種類があることを考慮すると、このセルのために18^2 = 324個の別々の条件付き書式設定ルールを作成する必要があります（可能なすべての型の組み合わせを処理するため）。Excelでは、それがあったとしても、統合するのは面倒です。

セルに2つの勾配ルールを1つのセルに適用する方法がある場合、ルールの数は18 * 2 = 36（左勾配では18、右勾配では18）になります。それは管理可能です。

条件付き書式設定ルールを使用する方法を知っている人は、セルの半分だけにグラデーションカラーを適用します（セルの残りの半分をグラデーション付きの別の条件付き書式設定ルールで変更できるようにします）。これは可能ですか？

Answer 1

VBAを使用して条件付き書式を追加するとどうなりますか？私は、条件付き書式設定のルールを最大限聞いたり経験したりしていませんが、私は専門家ではないと主張しています。

以下のコードは、各タイプをループし、指定された色とタイプの指定に基づいて、グラデーションの条件付き書式設定ルールを追加します。私はそれをスポットテストし、それは私のために働いた。

Sub CondForm() 

Dim colors() As Long 
ReDim colors(1 To 18) 
    colors(1) = RGB(255, 0, 0) 
    colors(2) = RGB(255, 255, 0) 
    '...Add other types here 
    colors(18) = RGB(0, 0, 255) 

Dim Types() As String 
ReDim Types(1 To 18) 
    Types(1) = "Fire" 
    Types(2) = "Thunder" 
    '...Add other types here 
    Types(18) = "Water" 

Dim Rng As Range 
Set Rng = Selection 

'Remove any previous formatting 
Rng.FormatConditions.Delete 

For i = 1 To 18 
    'Add a rule for the type individually 
    With Rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, _ 
     Formula1:="=" & Chr(34) & Types(i) & Chr(34)) 
     .Interior.Pattern = xlPatternLinearGradient 
     .Interior.Gradient.Degree = 0 
     .Interior.Gradient.ColorStops.Clear 
     .Interior.Gradient.ColorStops.Add(0).Color = colors(i) 
     .Interior.Gradient.ColorStops.Add(1).Color = RGB(255, 255, 255) 
    End With 
    For j = 1 To 18 
     'Add a rule for each combined type 
     With Rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, _ 
      Formula1:="=" & Chr(34) & Types(i) & "/" & Types(j) & Chr(34)) 
      .Interior.Pattern = xlPatternLinearGradient 
      .Interior.Gradient.Degree = 0 
      .Interior.Gradient.ColorStops.Clear 
      .Interior.Gradient.ColorStops.Add(0).Color = colors(i) 
      .Interior.Gradient.ColorStops.Add(1).Color = colors(j) 
     End With 
    Next j 
Next i 


End Sub 

これがうまくいくかどうか教えてください。私はその結果について知りたいです。