柱状图如何通过数值自动调节颜色？

ynkmyxs · 发表于 2019-4-15 10:45

求助：想把柱状图的不同数值区间分为劣、差、常、良、优的级别，每个级别的颜色不同，如何实现图表通过数值自动变成相应的颜色？

Datous · 发表于 2019-4-15 11:29

只能用代码加。

可以点击一下控件换色，也可以点哪个颜色单元格，换哪种颜色。

ynkmyxs · 发表于 2019-4-15 13:35

Datous 发表于 2019-4-15 11:29
只能用代码加。

可以点击一下控件换色，也可以点哪个颜色单元格，换哪种颜色。

具体怎么做呢？

Datous · 发表于 2019-4-15 18:17

本帖最后由 Datous 于 2019-4-15 19:24 编辑

Private Sub CommandButton1_Click()
Dim rngStd As Range
Dim A As Byte, B As Byte
Set rngStd = Me.Range("A1").CurrentRegion
With Me.Shapes("图表 1").Chart.SeriesCollection(1)
.Format.Fill.Solid
For A = 1 To .Points.Count
For B = 1 To rngStd.Columns.Count / 2
If .Values()(A) <= rngStd.Cells(2, B * 2 - 1) And .Values()(A) >= rngStd.Cells(2, B * 2) Then
.Points(A).Format.Fill.ForeColor.RGB = rngStd.Cells(3, B * 2 - 1).Interior.Color
Exit For
End If
Next B
Next A
End With
End Sub

复制代码

Datous · 发表于 2019-4-15 18:19

dengxingchang · 发表于 2019-4-15 20:32

把原数据按成绩拆成5组，每组不同着色即可

dengxingchang · 发表于 2019-4-16 03:21

dengxingchang 发表于 2019-4-15 20:32
把原数据按成绩拆成5组，每组不同着色即可

作图方法参考如下，数据重组公式如附图
分色的柱形.PNG

ynkmyxs · 发表于 2019-4-16 11:16

本帖最后由 ynkmyxs 于 2019-4-16 13:08 编辑

dengxingchang 发表于 2019-4-16 03:21
作图方法参考如下，数据重组公式如附图

怎么消除NA的符号？

dengxingchang · 发表于 2019-4-16 14:52

ynkmyxs 发表于 2019-4-16 11:16
怎么消除NA的符号？

为什么要消除呢？NA是有意设置的

ynkmyxs · 发表于 2019-4-16 16:35

本帖最后由 ynkmyxs 于 2019-4-16 16:39 编辑

dengxingchang 发表于 2019-4-16 14:52
为什么要消除呢？NA是有意设置的

就是图表下部会显示NA#
为什么我不能贴图呢
我加了附件，麻烦你看一下

		自动登录	找回密码
密码			免费注册

[求助] 柱状图如何通过数值自动调节颜色？