软件:Excel 2010
大家好
因为小弟有资料每个月会更新然后要画图表
所以录制一个宏 但是遇到一个问题是
无法跨栏快速绘制
宏程式码如下
Sub 画圆饼图()
'
' 画圆饼图 宏
' 画出圆饼图
'
' 快速键: Ctrl+p
'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Range("工作表1!$A$1:$B$5")
End Sub
因为我默认是直接A1品项 B是数量去画圆饼图
但我无法直接把该宏套用在C字段
画出A1品项和C数量的圆饼图
请问我该怎么修改这个程式码让我更方便画图呢
谢谢

改为Range("工作表1!A1:A5,工作表1!C1:C5")

请问楼上大大 我有办法设定一个范围内的资料都自动画出圆饼图吗因为按照你的范围下去修改它变成只能画出A对应到C 那如果我资料量很大到X或Z 我要怎么修改呢 谢谢

是希望每栏数量就画出一张图饼图吗？

是的~~谢谢您热心解答

http://goo.gl/4cd0Rd 加上循环试试

可以了 谢谢soyoso