複数のセルにカラーグラデーションを適用するにはどうすればよいですか？

Excelでは、XNUMXつのセルまたは複数のセルに背景色を簡単に塗りつぶすことができますが、次のスクリーンショットに示すように、色をグラデーションで塗りつぶす必要がある場合があります。ExcelでXNUMXつのセルまたは複数のセルにまたがる色のグラデーションを取得するにはどうすればよいですか。

XNUMXつのセルへの色のグラデーション

複数のセルにまたがる色のグラデーション

セルのフォーマット機能を使用して、XNUMXつのセルにグラデーションカラーを適用します

VBAコードを使用して複数のセルにグラデーションカラーを適用する

セルのフォーマット機能を使用して、XNUMXつのセルにグラデーションカラーを適用します

Excelでは、セルの書式設定機能を使用すると、XNUMXつのセルの色のグラデーションを塗りつぶすことができます。次のようにしてください。

1。 各セルの色のグラデーションで塗りつぶしたいXNUMXつまたは複数のセルを選択し、右クリックして選択します セルの書式設定 コンテキストメニューから、 セルの書式設定 ダイアログボックス、下 埋める タブをクリックしてください 塗りつぶし効果 ボタン、スクリーンショットを参照してください：

2。 の中に 塗りつぶし効果 ダイアログで、のXNUMXつのドロップダウンリストから使用するXNUMXつの色を選択します。 色 セクションをクリックし、水平、垂直など、必要に応じてXNUMXつのシェーディングスタイルを選択します。 スクリーンショットを参照してください：

3。 次に、をクリックします OK > OK ダイアログを閉じると、次のスクリーンショットのように各セルのグラデーションの色が塗りつぶされます。

Kutools AI で Excel の魔法を解き放つ

• スマートな実行: セル操作の実行、データの分析、グラフの作成など、すべて簡単なコマンドで実行できます。
• カスタム式: カスタマイズされた数式を生成してワークフローを効率化します。
• VBAコーディング: VBA コードを簡単に記述して実装します。
• 式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語の壁を打ち破ります。

AI を活用したツールで Excel の機能を強化します。 今すぐダウンロード これまでにない効率性を体験してください!

VBAコードを使用して複数のセルにグラデーションカラーを適用する

上記の方法は、個々のセル内の色のグラデーションを作成するのに役立ちます。複数のセル間で色のグラデーションをシェーディングする必要がある場合は、VBAコードを適用して解決する必要があります。

1。 まず、特定の背景色をセルの範囲に塗りつぶします。

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：複数のセルにグラデーションカラーを適用します。

Sub colorgradientmultiplecells()
'Updateby Extendoffcie 
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xColor As Long
    Dim I As Long
    Dim K As Long
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    xCount = xRg.Rows.Count
    For K = 1 To xRg.Columns.Count
        xColor = xRg.Cells(1, K).Interior.Color
        For I = xCount To 1 Step -1
            xRg.Cells(I, K).Interior.Color = xColor
            xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
        Next
    Next
End Sub

4。 次に、 F5 このコードを実行するためのキーを押すと、グラデーションカラーを塗りつぶしたい色付きのセルを選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

5。 そして、 OK ボタンをクリックすると、複数のセル内の色がグラデーションカラーとして表示されます。スクリーンショットを参照してください。