Excel VBA Loop x = x + 1

Question

私はExcel VBAを初めて使用していますが、X = X + 1を合計するループを作成しようとしていますが、ループが終了すると最後のXが続き、開始しません再び。 これは私が持っているものです。

For I = 1 To 3 
    J = 2 
    For K = 1 To J * 2 Step 1 
     Debug.Print K 
    Next K 
Next I 

これは私が得るものです：1 2 3 4 1 2 3 4 1 2 3 4。

1 2 3 4 5 6 7 8 9 10 11 12です。

ご協力ありがとうございます。私はこれが私の問題を解決すると思ったが、もう少し複雑です。

は

For I = 1 To 6 
X = 0 
J = 10 

RobApp.Project.Structure.Nodes.Create X = X + 1, 0, 0, J * (I - 1) 
RobApp.Project.Structure.Nodes.Create X = X + 1, Range("N34") * 0.15, 0, J * 
(I - 1) 

Next I 

"X = X + 1" ノード番号である：私はこのコードでX、Y、Z形式で座標を追加しているので、私はこれを必要とします。 JがZ座標で増加している間、それはシーケンシャル、1,2,3,4などになりたい。たとえば、コードの最初の行には、

Node 1 = 0,0,0 

Node 2 = 0,0,10 

Node 3 = 0,0,20 

などがあります。

Answer 1

あなたがループ・イン・ループを試してみて、その結果を取得したい場合は、この必要があります。

For I = 1 To 3 
    J = 2 
     For K = 1 To J * 2 Step 1 
      L = K + J * 2 * (i - 1) 
      Debug.Print L 
     Next K 
Next I 

Answer 2

というか、あなたは当初の予定通り、余分な変数Xを使用します。

X = 0 
For I = 1 To 3 
    J = 2 
    For K = 1 To J * 2 Step 1 
     X = X + 1 
     Debug.Print X 
    Next K 
Next I