2011年7月31日 星期日

[Excel VBA] Add chart after worksheet

若果想將 Master Data 分析做以下結構

Master Data
Data Sheet 1
Chart 1
Data Sheet 2
Chart 2
Data Sheet 3
Chart 3
.
.
.


' 先 filter data
x = 'filter criteria set by user
Sheets(1).Range("a:c").AutoFilter field:=1, Criteria1:=x
Sheets.Add(After:=Sheets(Worksheets.Count + Charts.Count)).Name = x
Sheets(1).Range("a:c").Copy Destination:=Worksheets(x).Cells(1, 1)

Charts.Add
ActiveChart.Move After:=Worksheets(Worksheets.Count)


'重點是藍色字

沒有留言: