Question

首先道歉，如果在早期的线程中已经解决了这个问题。下面的宏在第一次迭代时停止，我无法弄清楚原因。

基本上，如果cell（x，2）为true，我希望它打开一个文件，如果false则不执行任何操作并转到下一次迭代。

Sub Stack_Daily()

Dim x As Integer

For x = 6 To 12

If Cells(x, 2).Value = True Then

Workbooks.Open Filename:=Cells(x, 6).Value

End If

Next x

End Sub

Answer 1

您的宏确实经历了所有迭代。

这按预期运行：

Sub Stack_Daily()
  Dim x As Integer
  For x = 6 To 12
      Debug.Print Cells(x, 2).Value
      If Cells(x, 2).Value = True Then
          Debug.Print "Cell(" & x & ", 2)" & "=" & Cells(x, 6).Value
      End If
  Next x
End Sub

您的问题出在其他地方。（可能在您的数据中）

需要帮助调试，宏不会运行迭代

1 个答案: