excel每段数据做一个图表
发布网友
发布时间：2022-04-24 04:28
共5个回答
热心网友
时间：2023-10-28 01:55
得用宏，稍微麻烦些，我举的是例子，看能否理解。
假设画图的数据是列上，比如你想分别显示C1:C9、D1:D9、E1:E9、F1:F9的图形，右键点你工作表的名字（在下面呢），查看代码，粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If Target.Column > 2 And Target.Column < 7 Then '如果你点中的格子在C到F列（第3到第7列）里
ActiveSheet.ChartObjects(1).Activate '第一张图表选中，如果是第二张，请改为2
ActiveChart.SetSourceData Source:=Range("A1:A9").Offset(0, Target.Column - 1) '改图标到相应的区域
Target.Activate
End If
Line1:
End Sub
回到Excel中，功能实现。
如果数据在行中，如C6:H10中，代码改为：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If Target.Row > 5 And Target.Row < 11 Then '如果你点中的格子在第6到10行里，可以根据实际情况改的
ActiveSheet.ChartObjects(1).Activate '第一张图表选中，如果是第二张，请改为2
ActiveChart.SetSourceData Source:=Range("C1:H1").Offset(Target.Row - 1, 0) '改图标到相应的区域
Target.Activate
End If
Line1:
End Sub
请尽量自己理解，可以先按我说的做个简单的图标试试。实在不行，把你文件发我邮箱，下周我有空给你做好。
热心网友
时间：2023-10-28 01:55
得用宏，稍微麻烦些，我举的是例子，看能否理解。
假设画图的数据是列上，比如你想分别显示C1:C9、D1:D9、E1:E9、F1:F9的图形，右键点你工作表的名字（在下面呢），查看代码，粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If Target.Column > 2 And Target.Column < 7 Then '如果你点中的格子在C到F列（第3到第7列）里
ActiveSheet.ChartObjects(1).Activate '第一张图表选中，如果是第二张，请改为2
ActiveChart.SetSourceData Source:=Range("A1:A9").Offset(0, Target.Column - 1) '改图标到相应的区域
Target.Activate
End If
Line1:
End Sub
回到Excel中，功能实现。
如果数据在行中，如C6:H10中，代码改为：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If Target.Row > 5 And Target.Row < 11 Then '如果你点中的格子在第6到10行里，可以根据实际情况改的
ActiveSheet.ChartObjects(1).Activate '第一张图表选中，如果是第二张，请改为2
ActiveChart.SetSourceData Source:=Range("C1:H1").Offset(Target.Row - 1, 0) '改图标到相应的区域
Target.Activate
End If
Line1:
End Sub
请尽量自己理解，可以先按我说的做个简单的图标试试。实在不行，把你文件发我邮箱，下周我有空给你做好。
热心网友
时间：2023-10-28 01:55
用数据透视表和数据透视图，例子如下：那两个红色圈出来的都有下拉菜单，可以随意选择想显示在图上的内容 数据透视图做法举例如下：数据透视表也有相关下拉箭头，可以随意选择数据也可以换成别的图表类型
热心网友
时间：2023-10-28 01:55
得用宏，稍微麻烦些，我举的是例子，看能否理解。
假设画图的数据是列上，比如你想分别显示C1:C9、D1:D9、E1:E9、F1:F9的图形，右键点你工作表的名字（在下面呢），查看代码，粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If Target.Column > 2 And Target.Column < 7 Then '如果你点中的格子在C到F列（第3到第7列）里
ActiveSheet.ChartObjects(1).Activate '第一张图表选中，如果是第二张，请改为2
ActiveChart.SetSourceData Source:=Range("A1:A9").Offset(0, Target.Column - 1) '改图标到相应的区域
Target.Activate
End If
Line1:
End Sub
回到Excel中，功能实现。
如果数据在行中，如C6:H10中，代码改为：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If Target.Row > 5 And Target.Row < 11 Then '如果你点中的格子在第6到10行里，可以根据实际情况改的
ActiveSheet.ChartObjects(1).Activate '第一张图表选中，如果是第二张，请改为2
ActiveChart.SetSourceData Source:=Range("C1:H1").Offset(Target.Row - 1, 0) '改图标到相应的区域
Target.Activate
End If
Line1:
End Sub
请尽量自己理解，可以先按我说的做个简单的图标试试。实在不行，把你文件发我邮箱，下周我有空给你做好。
热心网友
时间：2023-10-28 01:55
用数据透视表和数据透视图，例子如下：那两个红色圈出来的都有下拉菜单，可以随意选择想显示在图上的内容 数据透视图做法举例如下：数据透视表也有相关下拉箭头，可以随意选择数据也可以换成别的图表类型
热心网友
时间：2023-10-28 01:56
先选一段数据做一个图表，需要另一段数据的图表时改图表引用的数据区域就行了。
热心网友
时间：2023-10-28 01:56
先选一段数据做一个图表，需要另一段数据的图表时改图表引用的数据区域就行了。
热心网友
时间：2023-10-28 01:56
楼主你好，看见你提问Excel的这个问题，嘿嘿，好像在那里看见过，所以我来解答你，不过我怕我说的不是很清楚，这样好了我给你个网址你进去看看，里面绝对可以解决你的问题的答案，我基本都是在那边学的，什么都有，绝对全面，网址是 http://www.blue1000.com/bkhtml/c118/，你记得只找你的问题，看的太多小心眼花!..
热心网友
时间：2023-10-28 01:57
好象EXCEL不支持吧只能全部显示或者一个一个制作
热心网友
时间：2023-10-28 01:56
楼主你好，看见你提问Excel的这个问题，嘿嘿，好像在那里看见过，所以我来解答你，不过我怕我说的不是很清楚，这样好了我给你个网址你进去看看，里面绝对可以解决你的问题的答案，我基本都是在那边学的，什么都有，绝对全面，网址是 http://www.blue1000.com/bkhtml/c118/，你记得只找你的问题，看的太多小心眼花!..
热心网友
时间：2023-10-28 01:57
好象EXCEL不支持吧只能全部显示或者一个一个制作
热心网友
时间：2023-10-28 01:55
用数据透视表和数据透视图，例子如下：那两个红色圈出来的都有下拉菜单，可以随意选择想显示在图上的内容 数据透视图做法举例如下：数据透视表也有相关下拉箭头，可以随意选择数据也可以换成别的图表类型
热心网友
时间：2023-10-28 01:56
先选一段数据做一个图表，需要另一段数据的图表时改图表引用的数据区域就行了。
热心网友
时间：2023-10-28 01:56
楼主你好，看见你提问Excel的这个问题，嘿嘿，好像在那里看见过，所以我来解答你，不过我怕我说的不是很清楚，这样好了我给你个网址你进去看看，里面绝对可以解决你的问题的答案，我基本都是在那边学的，什么都有，绝对全面，网址是 http://www.blue1000.com/bkhtml/c118/，你记得只找你的问题，看的太多小心眼花!..
热心网友
时间：2023-10-28 01:57
好象EXCEL不支持吧只能全部显示或者一个一个制作
