跳到主要内容

如何在Excel中根据单元格颜色为图表着色?

通常,当您创建图表时,列栏的颜色是默认颜色。 如果您需要根据显示的单元格颜色来设置每个条形上的填充颜色的格式,如下所示,那么如何在Excel中解决呢?

使用VBA代码根据单元格颜色使用一个或多个数据系列为图表着色

使用具有惊人功能的基于单元格颜色的一个或多个数据系列为图表着色


使用VBA代码根据单元格颜色使用一个或多个数据系列为图表着色

使用基于单元格颜色的一个数据系列为图表着色

使用以下VBA代码,您可以根据原始单元格值的颜色快速更改包含一个数据系列的图表的颜色,方法如下:

1。 首先,按照显示的屏幕截图创建条形图或柱形图(选择数据并单击 插页 > 插入柱形图或条形图):

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

3。 点击 插页 > 模块,然后将以下代码粘贴到“模块窗口”中。

VBA代码:具有基于单元格颜色的一个数据系列的颜色图表条:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

备注:在上面的代码中, 图1 是您要使用的图表名称,请更改为您自己的名称。

4。 粘贴以上代码后,请按 F5 键以运行此代码,并且图表条的颜色已根据原始单元格颜色进行了更改,请参见屏幕截图:


根据单元格颜色为图表添加多个数据系列

如果您的图表包含多个数据系列,请应用以下VBA代码:

1。 请创建包含多个数据系列的条形图或柱形图,如下图所示:

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

3。 点击 插页 > 模块,然后将以下代码粘贴到“模块”窗口中。

VBA代码:具有基于单元格颜色的多个数据系列的颜色图表条:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4。 然后按 F5 运行此代码的关键,图表条会立即充满原始单元格颜色,请参见屏幕截图:

笔记:

1.在上面的代码中, 图1 是您要使用的图表名称,请更改为您自己的名称。

2.此代码也可以应用于折线图。


使用具有惊人功能的基于单元格颜色的一个或多个数据系列为图表着色

通过使用上述代码,图表的颜色将不会始终与单元格颜色匹配,要解决此问题,在这里,我将介绍一个有用的工具- 根据单元格颜色更改图表颜色 of Kutools for Excel,借助此方便的功能,您可以快速轻松地根据单元格颜色为图表着色。

请注意: 申请这个 根据单元格颜色更改图表颜色,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。

安装后 Kutools for Excel,请这样做:

1。 首先,请插入要使用的图表,然后选择图表,然后单击 库工具 > 图表 > 图表工具 > 根据单元格颜色更改图表颜色,请参见屏幕截图:

2。 然后弹出一个提示框,请点击 OK 按钮。

3。 现在,所选的图表已根据单元格颜色进行了着色,如下图所示:

使用基于单元格颜色的一个数据系列为图表着色

根据单元格颜色为图表添加多个数据系列

立即下载和免费试用Excel的Kutools!


更多相关图表文章:

  • 在Excel中创建覆盖另一个条形图的条形图
  • 当我们创建具有两个数据系列的群集条形图或柱形图时,两个数据系列条形图将并排显示。 但是,有时候,我们需要使用重叠或重叠的条形图来更清晰地比较两个数据系列。 在本文中,我将讨论如何在Excel中创建重叠的条形图。
  • 在Excel中将一种图表格式复制到其他图表格式
  • 假设工作表中有多种不同类型的图表,您已根据需要设置了一个图表的格式,现在您希望将此图表格式应用于其他图表。 当然,您可以手动手动设置其他格式,但这会浪费很多时间,是否有任何快速或便捷的方法可以将一种图表格式复制到Excel中的其他格式?
  • 在图表中突出显示最大和最小数据点
  • 如果您有一个柱形图,想要用不同的颜色突出显示最高或最小的数据点,以使其脱颖而出,如下面的屏幕截图所示。 您如何确定最大值和最小值,然后快速突出显示图表中的数据点?
  • 在Excel中创建步骤图
  • 步进图用于显示不定期发生的变化,它是折线图的扩展版本。 但是,没有直接的方法可以在Excel中创建它。 本文,我将讨论如何在Excel工作表中逐步创建步骤图。
  • 在Excel中创建进度条形图
  • 在Excel中,进度条形图可以帮助您监视实现目标的进度,如下图所示。 但是,如何在Excel工作表中创建进度条形图?

最佳办公生产力工具

热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

kte选项卡201905


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For more than 1 Chart:



Sub CellColorsToChart()'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long, Y As Long
Dim xRowsOrCols As Long, xSCount As Long Dim xRg As Range, xCell As Range
On Error Resume Next

For Y = 1 To 100Set xChart = ActiveSheet.ChartObjects("Chart "&Y).Chart If xChart Is Nothing Then Exit Sub
xSCount = xChart.SeriesCollection.Count
For I = 1 To xSCount
J = 1
With xChart.SeriesCollection(I)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
If xSCount > 4 Then
xRowsOrCols = xRg.Columns.Count
Else
xRowsOrCols = xRg.Rows.Count
End If
For Each xCell In xRg
.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
.Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
J = J + 1
Next
End WithNext
Next
End Sub

This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
This comment was minimized by the moderator on the site
It is ok. But... why simply not going to "Format Legend Entry" option in every data series in the chart, and go "Fill" and make it the color you want. I mean... all is ok, but a VBA code for this simple task is kinda overkill. But thanks. Appreciate you share it.
This comment was minimized by the moderator on the site
i cant make it work :( is this supposed to work on a stacked bar chart? Thanks
This comment was minimized by the moderator on the site
This was an awesome start, but the colors of the chart and the cells don't always match. Any idea why?
This comment was minimized by the moderator on the site
Thank you for the codes! How would you add a conditional format when the format is already established?
This comment was minimized by the moderator on the site
Thank you for these codes! This was exactly what I've been looking for with one detail not quite fitting. When I ran the code, the bar graphs colored in correctly but not legend which stayed unchanged. Is there a variation to the code that would include the legend? Or is there a way to match the Legend to the changes in the chart without a code?
This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations