For loop in excel macro

Hi all,

Here is an off -Ruby topic. Recently I need to do a lot of work in Excel
with repeated work. And macro might be some help.
I wonder how I can loop some ranges of cells using a for loop in
Excel.

Thanks,

Li

For i =0 To 4 Step 1
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range(“A1:D1,A2:D2”)

MsgBox i
Next

###############################
after each step the following line should change as follows:

Range(“A1:D1,A2:D2”)

Range(“A1:D1,A3:D3”)

Range(“A1:D1,A4:D4”)

Li Chen wrote:

Hi all,

Here is an off -Ruby topic. Recently I need to do a lot of work in Excel
with repeated work. And macro might be some help.
I wonder how I can loop some ranges of cells using a for loop in
Excel.

Thanks,

Li

For i =0 To 4 Step 1
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range(“A1:D1,A2:D2”)

MsgBox i
Next

###############################
after each step the following line should change as follows:

Range(“A1:D1,A2:D2”)

Range(“A1:D1,A3:D3”)

Range(“A1:D1,A4:D4”)

You can perform this task using Ruby.
You can find plenty of info about right here:

Then the required loop can be implemented in the ruby way you are used
to.

Rodrigo B. wrote:

You can perform this task using Ruby.
You can find plenty of info about right here:

Ruby on Windows: excel

Then the required loop can be implemented in the ruby way you are used
to.

Hi Rodrigo,

Thanks for the link. I might refer it if I use a lot of Excel
automation. But I need a quick method for my project immediately. I
just get some help from VBA group in Yahoo:

Range(“A1:D1,A” & i + 2 & “:D” & i + 2)

Li