[已解决]麻烦各位大师帮我检查，是不是我这个循环语句写错了。

colour250

Sub Dosomething()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 6 To 11
        Sheets(i).Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
我想工作表sheets(6)，sheets(7)........sheets(11) 依次执行 这个【Runcode】 这个宏，但是好像只有sheets(6)才执行了，麻烦老师们帮我检查下，是不是循环语句写错了

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-12 21:31

colour250 发表于 2021-11-12 21:23
For u = 6 To 11
        Sheets(u).Select

跳转到最佳答案楼层

砂海

最简单的判断方法:
Call 下面 来一句:
Debug.print i
就可以 看出来了.

cutecpu

循环没有错，RunCode 里面的代码有问题机率大

colour250

cutecpu 发表于 2021-11-12 13:11
循环没有错，RunCode 里面的代码有问题机率大

Sub Dosomething()
    Dim u As Integer
    Application.ScreenUpdating = False
    For u = 6 To 11
        Sheets(u).Select
    Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
        Dim i&, rng As Range
For i = 3 To Cells(Rows.Count, 2).End(3).Row
  If Cells(i, 2) <> "" Then
    If Cells(i, 2) < Date-1 Or Cells(i, "i") = 0 Then
      If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
    End If
  End If
Next i
If Not rng Is Nothing Then rng.EntireRow.Hidden = True: Set rng = Nothing
End Sub

就是想让这个几个工作表sheet(6)......sheet(11) 执行RunCode这个宏，可是为什么就只有一两个表才执行到，其他无法执行的，而且不在这个范围的其他表也一样会执行的？麻烦老师帮我检查下，谢谢。RunCode宏的内容是： 首先如果B列单元格的日期小于昨天的日期就隐藏该行   2、其次如果I列单元格的数值为0也隐藏该行

colour250

colour250 发表于 2021-11-12 20:00
Sub Dosomething()
    Dim u As Integer
    Application.ScreenUpdating = False

因为有很多个工作表，所以列举了几个。这个就是老师上次帮我处理的。现在想更进一步。谢谢老师

colour250

colour250 发表于 2021-11-12 20:00
Sub Dosomething()
    Dim u As Integer
    Application.ScreenUpdating = False

原来是我的工作表引用出错了，导致顺序有问题，请问老师，如果我想引用这个类似这种工作表的名称即  Sheet(6) 。。。。要怎么写这个循环语句？

colour250

colour250 发表于 2021-11-12 20:45
原来是我的工作表引用出错了，导致顺序有问题，请问老师，如果我想引用这个类似这种工作表的名称即  Shee ...

For u = 6 To 11
        Sheets(u).Select

这里等到的Sheets(6)   与图片的Sheet6 是一样的吗？好像不一样的吧

cutecpu

colour250 发表于 2021-11-12 21:23
For u = 6 To 11
        Sheets(u).Select

colour250

cutecpu 发表于 2021-11-12 21:31

感谢指导，工作表的引用已经明白问题也已经解决，谢谢！