[已解决]有关for循环

969341591

有这样一段代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim x%
   For x = 1 To 10
      Cells(x, 1) = x
   Next x
End Sub
如果在第一次x=1循环后,间隔2秒再循环x=2,间隔2秒再循环x=3,依次类推该怎样做?

最佳答案

月排行榜 / 总排行榜

youfang

2013-10-16 20:26

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim x%
   For x = 1 To 10
      Cells(x, 1) = x
      Application.Wait (Now + TimeValue("0:00:10"))
   Next x
End Sub

据烟花提示后找到的代码

跳转到最佳答案楼层

hwc2ycy

用application.wait去实现。

youfang

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim x%
   For x = 1 To 10
      Cells(x, 1) = x
      Application.Wait (Now + TimeValue("0:00:10"))
   Next x
End Sub

据烟花提示后找到的代码

sliang28

请参考

969341591

youfang 发表于 2013-10-16 20:26
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim x%
   For x = 1 To 10

谢谢你的帮助.

969341591

sliang28 发表于 2013-10-16 20:34
请参考

谢谢您的帮助.