作者：绿色风
分类：
时间：2022-08-17
浏览：122
楼主
biaotiger1 |
Q：如何实现在指定区域单击鼠标则图表数据源即时更新？
A：右键单击sheet1工作表标签，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下：- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- '如果在工作表中选择不同的单元格时运行本子程序
- Dim i
- '定义二个变量
- If ActiveCell.Row = 5 And ActiveCell.Column >= 2 And ActiveCell.Column <= 13 Then
- '如果选中单元格的行在第五行，且列在2到13列之间
- i = ActiveCell.Column '设所选单元格的列数为i
- With ActiveSheet.ChartObjects(1).Chart 'Select
- '选中图表
- .SeriesCollection(1).XValues = "=月度发展情况表!R6C1:R16C1"
- '设置图表的分类(X)轴引用A6:A16单元格区域
- .SeriesCollection(1).Values = Target.Offset(1).Resize(11) '设置系列一的数据源
- '设置图表的数据系列1引用第i列的6:16行区域
- '或者
- '.SeriesCollection(1).Values ="=月度发展情况表!R6C" & i & ":R16C" & i
- End With
- End If
- '结束if语句
- If ActiveCell.Column = 1 And ActiveCell.Row >= 6 And ActiveCell.Row <= 16 Then
- '如果选中单元格在第一列，且行在6到16行之间
- i = ActiveCell.Row '设所选单元格的行数为i
- With ActiveSheet.ChartObjects(1).Chart 'Select
- '选中图表
- .SeriesCollection(1).XValues = "=月度发展情况表!R5C2:R5C13"
- '设置图表的分类(X)轴引用B5:M5单元格区域
- .SeriesCollection(1).Values = Target.Offset(, 1).Resize(, 12) '"=月度发展情况表!R" & i & "C2:R" & i & "C13"
- '设置图表的数据系列1引用第i行的2:13列区域
- End With
- End If
- '结束if语句
- End Sub
- '程序结束
在sheet1工作表中插入一个折线图后，当鼠标在单元格区域B5:M5及A6:A16单元格区域内单击时，图表数据源即发生变化并同时显示在折线图中。
详见附件。
 动态数据源图表.rar
|
2楼
rongjun |
学习了
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一