Question

Private Sub CommandButton1_Click()
    Range("C10").Select

    For Range("C10").Value = 0 To 35
        Range("C10").Value = Range("C10").Value + 1
    Next
End Sub

我已经为单元格编写了上面的代码，以遍历0到35的值。我这样做是因为还有其他一些公式，其值会根据Range（“ C10”）的值而变化。

代码不起作用

Answer 1

向您的...下一个循环中添加一个增量变量。

Option Explicit

Private Sub CommandButton1_Click()

    Dim i As Long

    For i = 0 To 35

        Range("C10").Value = i

        'do other stuff here

    Next

End Sub

Answer 2

这不是做您想要的事情的好方法：

您最好使用一个计数器变量，并执行以下操作：

for counter = 0 to 35:
  Range("C10").Value = counter
  // check the values of the things you want to verify,
  // e.g. by putting them in some cells for verification afterwards,
  // like "Range("D10").Offset(0,counter) = ...
Next

（这只是伪代码，可能会有一些语法错误）

Answer 3

此值将从0循环到35，每秒将Range("A1")的值更改为i。看起来很生气：

Public Sub LoopMe()

    Dim i As Long
    For i = 0 To 35
        Worksheets(1).Range("A1") = i
        Application.Wait(Now + TimeValue("00:00:01"))
    Next

End Sub

How to pause for specific amount of time? (Excel/VBA)

如何循环通过同一单元格

3 个答案: