如何通过设置Excel行距提升工作表可读性和美观度
241
2023-12-16
如何在Excel中根据单元格颜色为图表着色？
如何在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
Copy
备注：在上面的代码中， 图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
Copy
4。 然后按 F5 运行此代码的关键，图表条会立即充满原始单元格颜色，请参见屏幕截图：
笔记：
1.在上面的代码中， 图1 是您要使用的图表名称，请更改为您自己的名称。
2.此代码也可以应用于折线图。
使用具有惊人功能的基于单元格颜色的一个或多个数据系列为图表着色通过使用上述代码，图表的颜色将不会始终与单元格颜色匹配，要解决此问题，在这里，我将介绍一个有用的工具- 根据单元格颜色更改图表颜色 of Kutools for Excel，借助此方便的功能，您可以快速轻松地根据单元格颜色为图表着色。
请注意： 申请这个 根据单元格颜色更改图表颜色，首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。
安装后 Kutools for Excel，请这样做：
1。 首先，请插入要使用的图表，然后选择图表，然后单击 Kutools > 图表 > 图表工具 > 根据单元格颜色更改图表颜色，请参见屏幕截图：
2。 然后弹出一个提示框，请点击 OK 按钮。
3。 现在，所选的图表已根据单元格颜色进行了着色，如下图所示：
使用基于单元格颜色的一个数据系列为图表着色
根据单元格颜色为图表添加多个数据系列
下载并免费试用 Kutools for Excel 现在 ！
更多相关图表文章：
在Excel中创建覆盖另一个条形图的条形图
当我们创建具有两个数据系列的群集条形图或柱形图时，两个数据系列条形图将并排显示。 但是，有时候，我们需要使用重叠或重叠的条形图来更清晰地比较两个数据系列。 在本文中，我将讨论如何在Excel中创建重叠的条形图。
在Excel中将一种图表格式复制到其他图表格式
假设工作表中有多种不同类型的图表，您已根据需要设置了一个图表的格式，现在您希望将此图表格式应用于其他图表。 当然，您可以手动手动设置其他格式，但这会浪费很多时间，是否有任何快速或便捷的方法可以将一种图表格式复制到Excel中的其他格式？
在图表中突出显示最大和最小数据点
如果您有一个柱形图，想要用不同的颜色突出显示最高或最小的数据点，以使其脱颖而出，如下面的屏幕截图所示。 您如何确定最大值和最小值，然后快速突出显示图表中的数据点？
在Excel中创建步骤图
步进图用于显示不定期发生的变化，它是折线图的扩展版本。 但是，没有直接的方法可以在Excel中创建它。 本文，我将讨论如何在Excel工作表中逐步创建步骤图。
在Excel中创建进度条形图
在Excel中，进度条形图可以帮助您监视实现目标的进度，如下图所示。 但是，如何在Excel工作表中创建进度条形图？
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
立即下载，与 Excel 一起穿越时空！
阅读更多
免费下载... 采购...
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
阅读更多
免费下载... 采购...
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
