Einfache variable Inkrementierung Excel-Makro

Question

Ich kann nicht herausfinden, warum ein einfacher VBA-Code eine Variable nicht inkrementieren wird. Jede Hilfe wäre sehr

Sub regression_coeff() 

Dim x1 As Integer, x2 As Integer, i As Integer 
Dim inc As Integer 

inc = 1 
x1 = 1 
x2 = 1 

    For i = 0 To 10 



    x2 = x2 + 1 

    Next i 

    End 

'x1 = x1/x 
'x2 = x2/x 



Cells(1, 3).Value = x1 
'Cells(1, 4).Value = x2 



End Sub 

geschätzt werden Ich dachte, es aufgrund der Variablendefinition sein könnte, aber es half nicht Beifall

D

Answer 1

Option Explicit 

Sub regression_coeff() 

Dim x1 As Integer, x2 As Integer, i As Integer 
Dim inc As Integer 

inc = 1 
x1 = 1 
x2 = 1 

    For i = 0 To 10 

    x2 = x2 + 1 

    Next i 

'x1 = x1/x 
'x2 = x2/x 

Cells(1, 3).Value = x1 
Cells(1, 4).Value = x2 

End Sub 

Es wird von mir funktioniert wie folgt. Das Problem mit Ihrem Code war die End, die es stoppt. Hier ist ein bisschen mehr über END.