Excelのセル値に基づいて図形の色を変更するにはどうすればよいですか？

特定のセル値に基づいて形状の色を変更することは、Excelで興味深いタスクになる場合があります。たとえば、A1のセル値が100未満の場合、形状の色は赤になり、A1が100より大きく200より小さい場合、形状の色は黄色で、A1が200を超えると、次のスクリーンショットのように形状の色が緑色になります。 セルの値に基づいて形状の色を変更するために、この記事では方法を紹介します。

VBAコードを使用してセル値に基づいて形状の色を変更する

VBAコードを使用してセル値に基づいて形状の色を変更する

以下のVBAコードは、セルの値に基づいて形状の色を変更するのに役立ちます。次のようにしてください。

1。 図形の色を変更するシートタブを右クリックして、 コードを表示 コンテキストメニューから、ポップアウトで アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、次のコードをコピーして空白に貼り付けてください モジュール 窓。

VBAコード：セルの値に基づいて形状の色を変更します。

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < 100 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
        ElseIf Target.Value >= 100 And Target.Value < 200 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
        Else
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End Sub

2。 次に、セルA1に値を入力すると、定義したセル値で図形の色が変更されます。

Note：上記のコードでは、 A1 形状の色が変更されるセルの値は、 オーバル1 は挿入した形状の形状名です。必要に応じて変更できます。