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

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

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

在Excel中创建覆盖另一个条形图的条形图 当我们创建具有两个数据系列的群集条形图或柱形图时，两个数据系列条形图将并排显示。 但是，有时候，我们需要使用重叠或重叠的条形图来更清晰地比较两个数据系列。 在本文中，我将讨论如何在Excel中创建重叠的条形图。

在Excel中将一种图表格式复制到其他图表格式 假设工作表中有多种不同类型的图表，您已根据需要设置了一个图表的格式，现在您希望将此图表格式应用于其他图表。 当然，您可以手动手动设置其他格式，但这会浪费很多时间，是否有任何快速或便捷的方法可以将一种图表格式复制到Excel中的其他格式？

在图表中突出显示最大和最小数据点 如果您有一个柱形图，想要用不同的颜色突出显示最高或最小的数据点，以使其脱颖而出，如下面的屏幕截图所示。 您如何确定最大值和最小值，然后快速突出显示图表中的数据点？

在Excel中创建步骤图 步进图用于显示不定期发生的变化，它是折线图的扩展版本。 但是，没有直接的方法可以在Excel中创建它。 本文，我将讨论如何在Excel工作表中逐步创建步骤图。

在Excel中创建进度条形图 在Excel中，进度条形图可以帮助您监视实现目标的进度，如下图所示。 但是，如何在Excel工作表中创建进度条形图？

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！