如何在多个单元格之间应用颜色渐变？

网友投稿 1497 2023-10-23

如何在多个单元格之间应用颜色渐变？

在Excel中，我们可以轻松地为一个单元格或多个单元格填充背景色，但是有时，我们需要按照下面的截图所示填充渐变色，如何在Excel中获得一个单元格或多个单元格中的颜色渐变？

颜色渐变到一个单元格 跨多个单元格的颜色渐变

使用“设置单元格格式”功能将渐变颜色应用于一个单元格

使用VBA代码跨多个单元格应用渐变颜色

使用“设置单元格格式”功能将渐变颜色应用于一个单元格

在Excel中，“设置单元格格式”功能可以帮助您在一个单元格中填充颜色渐变，请执行以下操作：

1。选择一个或多个要用每个单元的颜色渐变填充的单元，然后右键单击以选择 单元格格式 从上下文菜单的 单元格格式 对话框中的填标签，请点击 填充效果 按钮，请参见屏幕截图：

2。在 填充效果 对话框中，从以下两个下拉列表中选择要使用的两种颜色颜色部分，然后根据需要选择一种阴影样式，例如水平，垂直等。看截图：

3。然后点击 OK > OK 关闭对话框，并为每个单元格填充渐变颜色，如以下屏幕截图所示：

使用VBA代码跨多个单元格应用渐变颜色

上面的方法可以帮助我们在单个单元格内进行颜色渐变，如果您需要在多个单元格之间遮蔽颜色渐变，则需要应用VBA代码来解决。

1。首先，为一系列单元格填充特定的背景色。

2。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

Copy

4。然后按 F5 键以运行此代码，并出现一个提示框，提醒您选择要填充渐变色的彩色单元格，请参见屏幕截图：

5。然后点击 OK 按钮，多个单元格中的颜色已显示为渐变颜色，请参见屏幕截图：

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。