これらのセルの値を変更するときのExcelのセルの色の修正

これが私のワークブックの4つのセルの例です。

26  99
2   1

ワークブックは、100 = red 0 = yellowのルールに従って色付けされます。0に近いものはより黄色で、100に近いものはより赤です（これは、値に基づいて色を割り当てる条件付き書式設定ルールによって定義されます）。

この例では、99は非常に赤、1と2は非常に黄色、26はオレンジがかった色になります。

セルの色を同じに保ちながら、セルの値を変更したい。この例では、それらになりたい

E=0.0,Q=26  E=0.0,Q=99
E=2.10e-11,Q=2  E=1.02e-08,Q=1

（qの右側の値が最初の行列と同じであることに注意してください）

条件付き書式ルールのため、新しい値を貼り付けると色が消えます。

Q=inの後の値に基づいて、常に100のフォーマット条件を追加できE=0.0,Q=99ます。これは、各ベアセルの値を1から100と直接比較するQ=か、最初の比較でエラーが発生した後の値と比較することにより、選択したセルに対してこれを行うマクロです。

XLSMとしてファイルを保存する必要がないように、実行後にマクロを削除できます。Selection.FormatConditions.Delete現在のフォーマット条件も削除する場合は、アポストロフィを削除して行のコメントを解除します。

これは、数値が常に1〜100の整数であると想定しています（ベアセル値として、またはの後Q=）。10進数値では機能しません。

Sub FormatMe()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    'Selection.FormatConditions.Delete
    Dim addr As String
    addr = Replace(Selection.Cells(1).Address, "$", "")
    For i = 1 To 100
        With Selection.FormatConditions.Add(xlExpression, Formula1:= _
            "=OR(" & addr & " = " & i & ", IFERROR(RIGHT(" & addr & _
            ", LEN(" & addr & ") - FIND(""Q"", " & addr & ", 2) - 1) = """ & i & """, FALSE))")
           .Interior.Color = RGB(255, 255 - Int(i / 100 * 255), 0)
        End With
    Next
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

• 前提：条件付き書式を使用する（VBAは使用しない）

• 仮定：色を付けたいセルには、「E = 0.0、Q = 26」のような「複雑な」値が含まれています

• 回答：1つを選択します。Excelの条件付き書式は、値 "E = 0.0、Q = 26"を「読み取る」ほどスマートではなく、26を見つけます。

  • 独自の書式設定式を使用しても機能しますが、条件ごとに1つの色のみを実行するため、グラデーションを適用できません。（私の知る限り-私を修正してください）
  • Excelは、セルから数値26を自動的に抽出し、その（隣接する）セルをフォーマットできます（セルF4を使用=NUMBERVALUE(RIGHT(F4,LEN(F4)-FIND(",",F4)-2))）

• 私の提案では、データを別の方法で表示し、EまたはQをヘッダーまたは何かとして使用し、すべての数値を個別のセルに保持します。

貼り付け値を使用して、数字のみが貼り付けられるようにします。そうでない場合、書式設定も貼り付けられます。