Question

我无法弄清楚为什么简单的vba代码不会增加变量。任何帮助将不胜感激

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

我认为这可能是由于变量定义，但它没有帮助干杯

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

它像我这样工作。代码的问题是End，它会阻止它。这里有一点关于END。

简单的变量增量优于宏

1 个答案: