本人菜鸟，有一个问题想问一下：为何用do until 条件为True，还在执行命令

leiwenou

Sub tt()
    Dim i As Integer

    i = 1
    Worksheets(1).Activate

    Do Until ActiveSheet.Name = "entire frame"
        Worksheets(i).Activate
        MsgBox Worksheets(i).Name
        Worksheets(i).Cells(1).Value = "OK"
     Loop   
End Sub

我简单写了以上代码，就是我的表单中出现"entire frame"时就停止循环，但是运行以后，还是会执行循环命令，不知道是那里错了，还望大神指导！

Chip_Kenny

請了解代碼中 do 的第一句是甚麼意思，是當前頁的名，而 do 內沒有換頁，那由始至終都是同一頁，那又點會終止

liulang0808

楼主的代码很有问题的
如果左侧第一个sheet 的name是"entire frame"，那么do循环里不会被执行
如果第一个不是，就进入死循环了，因为变量i没有变化，激活表格始终是第一个

Sub tt()
    Dim i As Integer

    i = 1
    Worksheets(1).Activate

    Do Until Worksheets(i).Name = "entire frame"
        Worksheets(i).Activate
        MsgBox Worksheets(i).Name
        Worksheets(i).Cells(1).Value = "OK"
        i = i + 1
     Loop
End Sub

huang1314wei

加一句i=i+1

leiwenou

谢谢各位，我加了一句i+1 还是会执行循环里面的命令。不知道为啥，我把附件传上来。
其实目的就是循环至指定名字表单前停止。各位大神有什么高招？