作者：绿色风
分类：
时间：2022-08-18
浏览：98
楼主
herelazy |
Q：如何用vba代码实现柱状图序列与对应数据区条件格式颜色一致？
A：- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Rng As Range, ActCell As Range
- Application.EnableEvents = False '关闭事件响应
- Set ActCell = ActiveCell '记住活动单元格位置
- Set Rng = [d6:h6] '设定数据源区域
- If Not Intersect(Target, Rng) Is Nothing Then '判断数据源发生变化时则执行
- Dim N%
- ActiveSheet.ChartObjects("图表 1").Activate '先选定图表
- With ActiveChart.SeriesCollection(2) '处理系统区域
- For N = 1 To Rng.Cells.Count '循环数据源各单元格
- If Not Intersect(Rng(N), Target) Is Nothing Then '如果单元格有发生变化
- With .Points(N).Format.Fill.ForeColor '则对应的柱形图的填充色依条件格式相同条件判断进行修改
- Select Case Rng(N).Value
- Case Is > Rng(N).Offset(-1).Value * 1.1
- .RGB = RGB(255, 0, 0)
- Case Is >= Rng(N).Offset(-1).Value
- .RGB = RGB(255, 255, 0)
- Case Else
- .RGB = RGB(0, 255, 0)
- End Select
- End With
- End If
- Next N
- End With
- ActCell.Activate '恢复活动单元格激活状态
- End If
- Application.EnableEvents = True '打开事件响应
- End Sub
效果图：
 同步变色.rar
|
2楼
biaotiger1 |
有意思的图表。柱形图的数据点与条件格式的颜色一致。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一