Note: The other languages of the website are Google-translated. Back to English

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

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

XNUMXつのセルへの色のグラデーション 複数のセルにまたがる色のグラデーション
ドキュメントの色のグラデーション1 ドキュメントの色のグラデーション2

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

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


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

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

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

ドキュメントの色のグラデーション3

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

ドキュメントの色のグラデーション4

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

ドキュメントの色のグラデーション5


矢印青い右バブル 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 このコードを実行するためのキーを押すと、グラデーションカラーを塗りつぶしたい色付きのセルを選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

 

ドキュメントの色のグラデーション6

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

 

ドキュメントの色のグラデーション7


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
コメントを並べ替える
コメント (21)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
グラデーションを左から右に移動させるにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ショーン、
左から右にカラーグラデーションを適用するには、次のVBAコードを使用してください。

サブカラーグラデーション複数セル()
範囲としての薄暗いxRg
文字列としての薄暗いxTxt
xCellAsRangeを暗くする
xColorを暗くする
薄暗い私は長く
ディム K アズ ロング
Dim xCount As Long
エラーで次の再開
ActiveWindow.RangeSelection.Count>1の場合
xTxt = ActiveWindow.RangeSelection.AddressLocal

xTxt = ActiveSheet.UsedRange.AddressLocal
終了する場合
LInput:
Set xRg = Application.InputBox( "セル範囲を選択してください:"、 "Kutools for Excel"、xTxt 、、、、、、 8)
xRgが何もない場合は、Subを終了します
xRg.Areas.Count>1の場合
MsgBoxは「複数選択をサポートしていません」、vbInformation、「KutoolsforExcel」
GoTo LInput
終了する場合
エラーで次の再開
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
K=1の場合xRg.Rows.Countへ
xColor = xRg.Cells(K、1).Interior.Color
I = xCount To 1Step-1の場合
xRg.Cells(K、I).Interior.Color = xColor
xRg.Cells(K、I).Interior.TintAndShade =(xCount-(I-1))/ xCount


End Subの

それがあなたを助けることができることを願っています、ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
左上から右下へのグラデーションが必要な場合は、どうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
上から下にグラデーションを付けるコードを投稿することは可能ですか? とても感謝しております。
このコメントは、サイトのモデレーターによって最小化されました
上部の最も暗い色合いから下部の明るい色合いまでのコードも必要になります。:(
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ローラ、
タスクを解決するには、次のコードを適用してください。

サブカラーグラデーション複数セル()

'Extendoffcieによる更新

範囲としての薄暗いxRg

文字列としての薄暗いxTxt

xCellAsRangeを暗くする

xColorを暗くする

薄暗い私は長く

ディム K アズ ロング

Dim xCount As Long

エラーで次の再開

ActiveWindow.RangeSelection.Count>1の場合

xTxt = ActiveWindow.RangeSelection.AddressLocal



xTxt = ActiveSheet.UsedRange.AddressLocal

終了する場合

LInput:

Set xRg = Application.InputBox( "セル範囲を選択してください:"、 "Kutools for Excel"、xTxt 、、、、、、 8)

xRgが何もない場合は、Subを終了します

xRg.Areas.Count>1の場合

MsgBoxは「複数選択をサポートしていません」、vbInformation、「KutoolsforExcel」

GoTo LInput

終了する場合

エラーで次の再開

Application.ScreenUpdating = False

xCount = xRg.Rows.Count

K=1の場合xRg.Columns.Countへ

xColor = xRg.Cells(1、K).Interior.Color

I = xCount To 1Step-1の場合

xRg.Cells(I、K).Interior.Color = xColor

xRg.Cells(I、K).Interior.TintAndShade = I / xCount





End Subの

ぜひお試しください。お役に立てば幸いです。
このコメントは、サイトのモデレーターによって最小化されました
どうすれば右から左にコードを作成できますか、よろしくお願いします
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、アシュリー、
右から左へのカラーグラデーションを作成するには、次のvbaコードが役立ちます。試してみてください。

サブカラーグラデーション複数セル()
範囲としての薄暗いxRg
文字列としての薄暗いxTxt
xCellAsRangeを暗くする
xColorを暗くする
薄暗い私は長く
ディム K アズ ロング
Dim xCount As Long
エラーで次の再開
ActiveWindow.RangeSelection.Count>1の場合
xTxt = ActiveWindow.RangeSelection.AddressLocal

xTxt = ActiveSheet.UsedRange.AddressLocal
終了する場合
LInput:
Set xRg = Application.InputBox( "セル範囲を選択してください:"、 "Kutools for Excel"、xTxt 、、、、、、 8)
xRgが何もない場合は、Subを終了します
xRg.Areas.Count>1の場合
MsgBoxは「複数選択をサポートしていません」、vbInformation、「KutoolsforExcel」
GoTo LInput
終了する場合
エラーで次の再開
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
K=1の場合xRg.Rows.Countへ
xColor = xRg.Cells(K、1).Interior.Color
I = xCount To 1Step-1の場合
xRg.Cells(K、I).Interior.Color = xColor
xRg.Cells(K、I).Interior.TintAndShade = I / xCount


End Subの
このコメントは、サイトのモデレーターによって最小化されました
このグラデーションを左下から右上に実行することは可能ですか?
このコメントは、サイトのモデレーターによって最小化されました
ねえ、私はVBAコードに慣れていません。 コードに別の色を設定するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ポール、
別の色を設定する場合は、セルに目的の色を塗りつぶしてから、この記事で上記のコードを適用する必要があります。
ぜひお試しください。
このコメントは、サイトのモデレーターによって最小化されました
ありがとう! できます :)
このコメントは、サイトのモデレーターによって最小化されました
グラデーションの代わりに白黒の色を使用した理由
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ピヤファン、
上記のコードは私のワークシートでうまく機能しますが、どのExcelバージョンを使用していますか?
または、問題をより詳細に説明することもできます。
ありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは! 同じ問題があります。グラデーションの色を選択しますが、コードを適用すると、黒から白のグラデーションに変わります。 助けて? ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、どうすれば黄色から赤に変更できますか(たとえば)? 白から他の色までしか機能しません。 私は左から右にコードを操作します。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ジャスミン、
申し訳ありませんが、このコードはXNUMXつの色にのみ適用されます。左からタイトにグラデーションを塗りつぶしたい場合は、以下のコメントに解決策があります。確認してください。
ありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、これを1から5のような範囲に適用できますか?セルには数字が含まれ、5が最も暗いセルになりますか?

Kutoolsは上記と少し似たようなことをすることができますが、それから数字の行をスケールに配置します-説明するのは得意ではありません。 1から5のスケールで回答する調査を言うと、1、2、3、4、5の回答の割合を示す質問ごとに5つのバーがグラフィカルに表示されます。 1%10、2%15、3%50、4%20、5%2ですが、水平バーに色のグラデーションが表示されます(XNUMX色の場合に適しています)。

ありがとう、ゴード
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、VBAコードをコピーしようとしましたが、実行しようとすると、「コンパイルエラー:無効な外部プロシージャ」というメッセージが表示され続けます。


どうすればこれを修正できますか?


ありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、これを1から5のような範囲に適用できますか?セルには数字が含まれ、5が最も暗いセルになりますか?
Kutoolsは上記と少し似たようなことをすることができますが、それから数字の行をスケールに配置します-説明するのは得意ではありません。 1から5のスケールで回答する調査を言うと、1、2、3、4、5の回答の割合を示す質問ごとに5つのバーがグラフィカルに表示されます。 1%10、2%15、3%50、4%20、5%2ですが、水平バーに色のグラデーションが表示されます(XNUMX色の場合に適しています)。
ありがとう、ゴード
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、どうすればこの式をXNUMX色に適用できますか?上記の解決策は見られません。 お願いします
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所