stillfish00

回復 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

複製代碼