標題: 請問各位大大有關圖表的小問題...謝謝!! [打印本頁]

---

作者: samneng    時間: 2016-1-26 15:59     標題: 請問各位大大有關圖表的小問題...謝謝!!

不好意思小的又來發問了!.. 實在是因為工作太雜碰到問題太多
只能上來請教各位大大!... 謝謝!!

目前小的有製作一份圖表(雷達圖)想要想辦法將圖表內容自動更新為同上方週期資料的內容
如圖示:
[attach]23182[/attach]

附件 :
[attach]23183[/attach]

小的利用巨集只能寫出如下語法 :

1. With Sheets("樞紐人員分析")
   
2. ' 雷達分析圖的資料來源
   
3. .ChartObjects("圖表 2").Activate    '指定圖表的資料來源
   
4. ActiveChart.PlotArea.Select
   
5. ActiveChart.SetSourceData Source:=Range("A10:A14,A17,D10:D14,D17")  '選擇資料來源
   
6. ActiveChart.SeriesCollection(1).Name = "=樞紐人員分析!$D$2" '數列名稱
   
7. End With

複製代碼

但是如法自動更新請問各位大大有沒有更好的方式可以處理....謝謝!

---

作者: stillfish00    時間: 2016-1-26 18:39

回復 1# samneng

1. Private Sub CommandButton1_Click()
   
2.     Dim c As Long
   
3.     Sheets("樞紐人員分析").Activate
   
4.     c = Cells(3, Columns.Count).End(xlToLeft).Column    '第三列最後一筆欄號
   
5.    
   
6.     With ActiveSheet.ChartObjects("圖表 2").Chart
   
7.         .SetSourceData Source:=Union([A10:A14], [A17], Cells(10, c).Resize(5), Cells(17, c)) '選擇資料來源
   
8.         .SeriesCollection(1).Name = Cells(2, c) '數列名稱
   
9.     End With
   
10. End Sub

複製代碼

---

作者: samneng    時間: 2016-1-27 11:34

謝謝stillfish00 大大的指導小的會用心學習的...  

小的已經試過無誤目前努力分析語法中.... 希望可以學習吸收 !...~~

萬分感激!... 謝謝~..感謝!....

附上更新過後的檔案以便後續有相似問題的人可以參考!...

[attach]23186[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)