請教VBA一個小小的問題

不好意思，我第一次使用VBA，今天晚上已經在網上查了關於loop的語句兩個小時了，但是出現的例子都和我問的不相關，隻好厚著臉皮貼個帖子麻煩大家了。

我要做的其實很簡單，就是在excel做100個表。第一個表的範圍是D3到J18（橫坐標是C4到C18），第二張表的數據是往下走31行，即D34到J49（橫坐標是C35到C49），以此類推，每張表格的數據都往下31行。總共要做100張圖。

我學習了record macro，以下是做第一張表格的宏。我看了一些for語句的應用，但是如何把行數換成自動升值的數字呢？不知道能否請教一下有經驗的朋友，我要如何改動下麵的宏，可以實現自動生成100個表格呢？

另外，不知道有沒有語句可以讓這個生成的圖放到指定的位置。比如第一張圖，我希望左上角放在C19（緊挨著數據），第二張圖，我希望放在C50........

 

 

Sub graph()

'

' graph Macro

'

 

'

    Range("D3:J18").Select

    ActiveSheet.Shapes.AddChart.Select

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

    ActiveChart.ChartType = xlLine

    ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!$C$4:$C$18"

End Sub

所有跟帖： 

• 就是循環+字符串轉化的問題吧 -flywhc- ♂ (657 bytes) () 09/08/2011 postreply 00:21:50

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

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