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

如何在多個單元格之間應用顏色漸變?

在Excel中,我們可以輕鬆地為一個單元格或多個單元格填充背景色,但是有時,我們需要按照下面的截圖所示填充漸變色,如何在Excel中獲得一個單元格或多個單元格中的顏色漸變?

顏色漸變到一個單元格 跨多個單元格的顏色漸變
doc顏色漸變1 doc顏色漸變2

使用“設置單元格格式”功能將漸變顏色應用於一個單元格

使用VBA代碼跨多個單元格應用漸變顏色


箭頭藍色右氣泡 使用“設置單元格格式”功能將漸變顏色應用於一個單元格

在Excel中,“設置單元格格式”功能可以幫助您在一個單元格中填充顏色漸變,請執行以下操作:

1。 選擇一個或多個要用每個單元的顏色漸變填充的單元,然後右鍵單擊以選擇 單元格格式 從上下文菜單的 單元格格式 對話框中的 標籤,請點擊 填充效果 按鈕,請參見屏幕截圖:

doc顏色漸變3

2。 在 填充效果 對話框中,從以下兩個下拉列表中選擇要使用的兩種顏色 顏色 部分,然後根據需要選擇一種陰影樣式,例如水平,垂直等。 看截圖:

doc顏色漸變4

3。 然後點擊 OK > OK 關閉對話框,並為每個單元格填充漸變顏色,如下所示:

doc顏色漸變5


箭頭藍色右氣泡 使用VBA代碼跨多個單元格應用漸變顏色

上面的方法可以幫助我們在單個單元格內進行顏色漸變,如果您需要在多個單元格之間遮蔽顏色漸變,則需要應用VBA代碼來解決。

1。 首先,為一系列單元格填充特定的背景色。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。

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 鍵運行此代碼,並出現一個提示框,提醒您選擇要填充漸變色的彩色單元格,請參見屏幕截圖:

 

doc顏色漸變6

5。 然後點擊 OK 按鈕,多個單元格中的顏色已顯示為漸變顏色,請參見屏幕截圖:

 

doc顏色漸變7


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (22)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
如何讓漸變從左到右?
網站主持人對此評論進行了最小化
你好,肖恩,
要從左到右應用顏色漸變,請使用以下 VBA 代碼:

子顏色梯度multiplecells()
將 xRg 調暗為範圍
將 xTxt 調暗為字符串
將 xCell 調暗為範圍
將 xColor 變暗
暗淡我只要
暗K只要
調暗 xCount 一樣長
在錯誤恢復下一頁
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
輸入:
Set xRg = Application.InputBox("請選擇單元格範圍:", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是,則退出 Sub
如果 xRg.Areas.Count > 1 那麼
MsgBox "不支持多選", vbInformation, "Kutools for Excel"
轉到 LInput
如果結束
在錯誤恢復下一頁
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
對於 K = 1 到 xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
對於 I = xCount 到 1 步 -1
xRg.Cells(K,I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = (xCount - (I - 1)) / xCount
下一頁
下一頁
END SUB

希望對你有幫助,謝謝!
網站主持人對此評論進行了最小化
如果我想要從左上角到右下角的漸變,我該怎麼做?
網站主持人對此評論進行了最小化
是否可以發布從上到下進行漸變的代碼? 我真的很感激。
網站主持人對此評論進行了最小化
我需要從頂部最暗的陰影到底部較淺的陰影的代碼.. :(
網站主持人對此評論進行了最小化
嗨,勞拉,
為了完成您的任務,請應用以下代碼:

子顏色梯度multiplecells()

'Updateby Extendoffcie

將 xRg 調暗為範圍

將 xTxt 調暗為字符串

將 xCell 調暗為範圍

將 xColor 變暗

暗淡我只要

暗K只要

調暗 xCount 一樣長

在錯誤恢復下一頁

如果 ActiveWindow.RangeSelection.Count > 1 那麼

xTxt = ActiveWindow.RangeSelection.AddressLocal

其他

xTxt = ActiveSheet.UsedRange.AddressLocal

如果結束

輸入:

Set xRg = Application.InputBox("請選擇單元格範圍:", "Kutools for Excel", xTxt, , , , , 8)

如果 xRg 什麼都不是,則退出 Sub

如果 xRg.Areas.Count > 1 那麼

MsgBox "不支持多選", vbInformation, "Kutools for Excel"

轉到 LInput

如果結束

在錯誤恢復下一頁

Application.ScreenUpdating = False

xCount = xRg.Rows.Count

對於 K = 1 到 xRg.Columns.Count

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

對於 I = xCount 到 1 步 -1

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

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

下一頁

下一頁

END SUB

請嘗試,希望對您有所幫助!
網站主持人對此評論進行了最小化
我怎樣才能讓代碼從右到左,提前謝謝
網站主持人對此評論進行了最小化
你好,阿什利,
要使顏色從右到左漸變,下面的vba代碼可以幫助你,請嘗試一下。

子顏色梯度multiplecells()
將 xRg 調暗為範圍
將 xTxt 調暗為字符串
將 xCell 調暗為範圍
將 xColor 變暗
暗淡我只要
暗K只要
調暗 xCount 一樣長
在錯誤恢復下一頁
如果 ActiveWindow.RangeSelection.Count > 1 那麼
xTxt = ActiveWindow.RangeSelection.AddressLocal
其他
xTxt = ActiveSheet.UsedRange.AddressLocal
如果結束
輸入:
Set xRg = Application.InputBox("請選擇單元格範圍:", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是,則退出 Sub
如果 xRg.Areas.Count > 1 那麼
MsgBox "不支持多選", vbInformation, "Kutools for Excel"
轉到 LInput
如果結束
在錯誤恢復下一頁
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
對於 K = 1 到 xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
對於 I = xCount 到 1 步 -1
xRg.Cells(K,I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = I / xCount
下一頁
下一頁
END SUB
網站主持人對此評論進行了最小化
是否可以執行此漸變,但從左下角到右上角?
網站主持人對此評論進行了最小化
嘿,我不習慣 VBA 代碼。 如何在代碼中設置另一種顏色?
網站主持人對此評論進行了最小化
你好,保羅,
如果要設置另一種顏色,只需將所需的顏色填充到單元格中,然後應用本文中的上述代碼即可。
請嘗試一下。
網站主持人對此評論進行了最小化
謝謝! 有用 :)
網站主持人對此評論進行了最小化
為什麼我得到黑白顏色替換我的漸變
網站主持人對此評論進行了最小化
你好,皮亞潘,
上面的代碼在我的工作表中運行良好,您使用哪個 Excel 版本?
或者您可以更詳細地說明您的問題。
感謝您!
網站主持人對此評論進行了最小化
你好! 我有同樣的問題,我為我的漸變選擇顏色,但是在應用代碼時它變成黑色到白色的漸變。 有什麼幫助嗎?? 謝謝!
網站主持人對此評論進行了最小化
您好,我怎樣才能從黃色變為紅色(例如)? 它僅適用於從白色到其他顏色。 我從左到右處理代碼。
網站主持人對此評論進行了最小化
你好,茉莉,
抱歉,此代碼僅適用於一種顏色,如果您想從左到緊填充漸變,下面的評論有解決方案,請查看。
感謝您!
網站主持人對此評論進行了最小化
你好,你能把它應用到像 1 到 5 這樣的範圍內,單元格中有一個數字,5 是最暗的嗎?

Kutools 是否可以做一些與上麵類似的事情,但是然後將一排數字排列成一個比例 - 不擅長解釋。 假設以 1 到 5 的比例回答調查,然後以圖形方式顯示每個問題一個條形圖,顯示 1、2、3、4、5 中答案的百分比; 5% 1、10% 2、15% 3 和 50% 4、20% 5,但在水平條中顯示顏色漸變(最好是 2 種顏色)。

謝謝,戈德
網站主持人對此評論進行了最小化
嗨,我試過複製 VBA 代碼,但是當我嘗試運行它時,我不斷收到一條消息,上面寫著“編譯錯誤:外部過程無效”......


我該如何解決??


謝謝!
網站主持人對此評論進行了最小化
你好,你能把它應用到像 1 到 5 這樣的範圍內,單元格中有一個數字,5 是最暗的嗎?
Kutools 是否可以做一些與上麵類似的事情,但然後將一排數字排列成一個比例 - 不擅長解釋。 假設以 1 到 5 的比例回答調查,然後以圖形方式顯示每個問題一個條形圖,顯示 1、2、3、4、5 中答案的百分比; 5% 1、10% 2、15% 3 和 50% 4、20% 5,但在水平條中顯示顏色漸變(最好是 2 種顏色)。
謝謝,戈德
網站主持人對此評論進行了最小化
您好,我如何將這個公式應用於兩種顏色,上面我看不到解決方案。 請
網站主持人對此評論進行了最小化
您好!

Ich habe zu erst den ersten code verwendet, das funktioniert aber leider nicht。 der färbt nur einzelne Zellen 並死於 komplett anderen Farben。 Der Code für dunkel oben nach hell unten funktioniert gar nicht bei mir。 Da kommt immer ein 語法錯誤。 Gibt es noch andere möglichkeiten einen Farbverlauf über mehrere Zellen zu erschaffen oder gibt es da eine andere Lösung für mich?

Vielen lieben Dank vorab schon mal。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護