Excel如何让数据标签带箭头并按值区分颜色 _Excel

在前面的文章《Excel高阶图表之箭头批注n型》中我利用误差线和数据标签做出了n型箭头批注柱状图。直接指出了数据的同比情况。本篇我将做出带箭头的数据标签，并且将增长标记为红色，下降标记为绿色。利用颜色，更加直观的体现同比情况。效果如下图所示。

文章插图

本图主要利用了组合图、数据自定义格式、VBA知识。
自定义格式为"↗+"0.0%;"↘-"0.0%;"="0.0%
首先我随机准备了一些数据。

文章插图

第一步：选择数据，插入组合图。

文章插图

第二步：点击图表，右键选择更改图表类型，修改成如下图所示结果。

文章插图

【Excel如何让数据标签带箭头并按值区分颜色】第三步：点击散点，右键添加数据标签，点击数据标签右键设置数据标签格式。

文章插图

第四步：点击任意柱状图，右键设置数据系列格式，调整系列层叠系数。

文章插图

第五步：调整颜色，删除不需要的项。如果你做的图数据源是不会变动的，那么只需要逐个修改数据标签颜色即可。首先点击任意数据标签，然后点击你需要修改的数据标签即可。

文章插图

如果你的数据源是变动的，比如我有一个下拉菜单控制着我的数据源，那么就需要下面一段代码。

文章插图

代码放置位置如下图，其中图表名称，和散点数据第几个系列需要修改，别的不需要改动。然后点击组合框，右键指定宏，选择标签颜色，确定即可。

文章插图

Sub 标签颜色()Set M = ActiveSheet.ChartObjects("图表 1") '你的图表名称（需要修改）M.ActivateSet N = ActiveChart.FullSeriesCollection(3) '散点数据第几个系列，此处3代表第个（需要修改）'*****所有标签显示黑色*****N.DataLabels.SelectSelection.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)'*****根据正负号修改标签颜色*****For i = 1 To N.DataLabels.CountN.DataLabels(i).SelectIf Mid(N.DataLabels(i).Text, 2, 1) = "+" ThenSelection.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)ElseIf Mid(N.DataLabels(i).Text, 2, 1) = "-" ThenSelection.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(84, 130, 53)End IfEnd IfNextM.ActivateEnd Sub