Excel VBA循環x = x + 1

-1

我是Excel VBA的新手，我試圖創建一個總計X = X + 1的循環，但是當循環結束時它會繼續執行最後一個X並且不會啓動再次。這是我有：Excel VBA循環x = x + 1

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。

感謝您提供的幫助。我認爲這可以解決我的問題，但這有點複雜。我需要這是因爲我添加在X，Y，Z座標的格式與此代碼：

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」是節點號。我希望它是順序的，1,2,3,4等等，而J在Z座標中增加。例如對於第一行代碼：

Node 1 = 0,0,0 

Node 2 = 0,0,10 

Node 3 = 0,0,20

等等！

來源

2017-04-16 Hugo Cruz

在哪裏你的'X = X + 1'？ – Trimax

這是我記得描述我想要做的最好的方式！ –

如果你想用K指數在你的循環中獲得12次迭代，那麼就像'For K = 1 to 12'一樣簡單' – Trimax

如果你想嘗試循環的迴路和得到這一結果，你需要這樣的：

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

來源

2017-04-16 14:47:34 Masoud

馬蘇德你好。請看我的新文本，也許你可以幫助我。 –

或者說，用你原來計劃的額外變量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

來源

2017-04-16 16:21:04 user1016274

Excel VBA循環x = x + 1

回答

相關問題