就是循環+字符串轉化的問題吧

沒怎麽用過VBA，但這些Basic語言的東西都是一猜就好了

 

自動生成的下麵這行的常量變成變量就好了：

ActiveChart.SetSourceData Source:=Range("'Sheet1'!$D$3:$J$18")

比如：

ActiveChart.SetSourceData Source:=Range("'Sheet1'!$D$" & Row*31 + 3 & ":$J$" & (Row*31 + 18)")

 

然後用For循環 Row這個變量，把做表格的部分套進去，比如

For Row = 0 to 99

     AcitveChart....

Next

 

VBA很強大，什麽插圖一類的操作，你先用record macro做出來，然後看源碼就好了

建議花幾個小時看看VB的語法，做做練習，挺簡單的，有一晚上就會了。

所有跟帖： 

• 回複：就是循環+字符串轉化的問題吧 -JaneYu- ♀ (314 bytes) () 09/08/2011 postreply 08:59:41

• 格式不就是我寫的這樣了麽？ -flywhc- ♂ (319 bytes) () 09/09/2011 postreply 04:08:26