[算表] Excel快速畫圖表巨集

作者: ninjaxin (逢甲金城武)   2015-03-23 23:59:09
軟體: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數量的圓餅圖
請問我該怎麼修改這個程式碼讓我更方便畫圖呢
謝謝
作者: soyoso (我是耀宗)   2015-03-24 07:12:00
改為Range("工作表1!A1:A5,工作表1!C1:C5")
作者: ninjaxin (逢甲金城武)   2015-03-24 10:39:00
請問樓上大大 我有辦法設定一個範圍內的資料都自動畫出圓餅圖嗎因為按照你的範圍下去修改它變成只能畫出A對應到C 那如果我資料量很大到X或Z 我要怎麼修改呢 謝謝
作者: soyoso (我是耀宗)   2015-03-24 12:17:00
是希望每欄數量就畫出一張圖餅圖嗎?
作者: ninjaxin (逢甲金城武)   2015-03-24 13:48:00
是的~~謝謝您熱心解答
作者: soyoso (我是耀宗)   2015-03-24 15:03:00
http://goo.gl/4cd0Rd 加上迴圈試試
作者: ninjaxin (逢甲金城武)   2015-03-24 17:20:00
可以了 謝謝soyoso

Links booklink

Contact Us: admin [ a t ] ucptt.com