gowflow

```
Sub ForStatement()
Dim I As Long, J As Long, X As Long
Dim B(X), C(2 * X)
For I = 1 To X
For J = 0 To 4
C(I) = (B(I) + 1) * (C(J) + 1) - 1
Next J
Next I
End Sub
```

Solved

Posted on 2011-09-24

c array size is x

b array size is x2

I have the following table for example.

c(1) = b(1)

c(2)=((b(2)+1)*(c(1)+1))-1

c(3)=)(b(3)+1)*(c(2)+1))-1

c(4)=)(b(4)+1)*(c(3)+1))-1

c(5)=)(b(5)+1)*(c(4)+1))-1

How would i put these in a for statement? Again C goes until x, B goes until x2.

2 Comments

Comment Utility

I don't know does thismeet the requirement ?

gowflow

gowflow

```
Sub ForStatement()
Dim I As Long, J As Long, X As Long
Dim B(X), C(2 * X)
For I = 1 To X
For J = 0 To 4
C(I) = (B(I) + 1) * (C(J) + 1) - 1
Next J
Next I
End Sub
```

Comment Utility

Here's your solution - note I've initialized x2 as a constant = 5 per your example, which can be changed based on how you're using this in your algorithm. x must be some factor larger than x2, example if x2 = 5, x must be 12, if x2 = 10, x must be 52, etc. As a result, I redimensioned c based on that fact

**For fun, see attached workbook - enter any value for x2 > 3 and you'll see your table of formulas. This demonstrates that what I have given you works exactly as you've specified.**

Cheers,

Dave

genFormula-r1.xlsm

```
Const x2 = 5
'Const x = 12 'must be large enough to get through all the iterations... e.g., if x2 = 5, then x must be 12, if x2 = 10 then x must be 52, etc.
'as array c() is a function of array b(), it stand to reason that c() can be dynamic and allocate what it needs on the fly, thus the declaration,
'and the redim preserve statement
Sub forStmt()
Dim i As Long, j As Long, k As Long
Dim b(1 To x2) As Variant, c() As Variant
k = 1
For i = 1 To x2 - 2
For j = i To x2
ReDim Preserve c(k) As Variant
c(k) = IIf(j = i, b(j), (b(j) + 1) * (c(k - 1) + 1) - 1)
k = k + 1
Next j
Next i
End Sub
```

Cheers,

Dave

genFormula-r1.xlsm

Title | # Comments | Views | Activity |
---|---|---|---|

ms sql stored procedure | 22 | 74 | |

EXCEL Addin problem | 7 | 21 | |

Excel VBA - copying formats | 7 | 15 | |

Opening second Excel workbook and copying contents of worksheet back to first workbook | 8 | 20 |

Join the community of 500,000 technology professionals and ask your questions.

Connect with top rated Experts

**13** Experts available now in Live!