| 如何在多个单元格之间应用颜色渐变？ | 您所在的位置：网站首页 › ppt中怎么更改颜色为渐变范围的颜色 › 如何在多个单元格之间应用颜色渐变？ |
如何在多个单元格之间应用颜色渐变？
|
如何在多个单元格之间应用颜色渐变？
作者：晓阳
最后修改时间：2020-04-28
在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 Sub4。 然后按 F5 键以运行此代码，并出现一个提示框，提醒您选择要填充渐变色的彩色单元格，请参见屏幕截图：
5。 然后点击 OK 按钮，多个单元格中的颜色已显示为渐变颜色，请参见屏幕截图：
使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... 
阅读更多
免费下载...
|
【本文地址】