返回列表 上一主題 發帖

請問各位大大有關圖表的小問題...謝謝!!

samneng

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-1-26 15:59 | 只看該作者

請問各位大大有關圖表的小問題...謝謝!!

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

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


附件 :
圖表更新項目.zip (22.88 KB)

小的利用巨集只能寫出如下語法 :
  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

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

samneng

帖子
17 
主題
6 
精華
0 
積分
28 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2015-12-11 
最後登錄
2016-2-16 
3#
發表於 2016-1-27 11:34 | 只看該作者
謝謝stillfish00 大大的指導小的會用心學習的...  

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

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

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

圖表更新項目.zip (23.75 KB)

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題