[求助]隐藏行及显示行

stx1980710

是因为你添加的位置不对！如下：

Sub 显示()
  Dim sh As Worksheet
  For Each sh In Worksheets
   sh.Unprotect
    sh.Range("B8:B200").EntireRow.Hidden = False
   sh.Protect
  Next sh
End Sub
Sub 隐藏()
  Dim sh As Worksheet, rw As Range
  Application.ScreenUpdating = False
  For Each sh In Worksheets
   sh.Unprotect
    For Each rw In sh.Range("B8:B200")
      If rw = 0 Then rw.EntireRow.Hidden = True
    Next rw
   sh.Protect
  Next sh
  Application.ScreenUpdating = True

End Sub

stx1980710

QUOTE:

以下是引用星语心愿在2006-11-13 11:44:43的发言：

版主的这段代码很简洁，可是详细的加些注释吗？我是新手，想学习一下。好吗？

Sub 显示()
  Dim sh As Worksheet
  For Each sh In Worksheets‘在所有的工作表中循环
    sh.Range("B8:B200").EntireRow.Hidden = False’显示符合条件的行
  Next sh
End Sub
Sub 隐藏()
  Dim sh As Worksheet, rw As Range
  Application.ScreenUpdating = False
  For Each sh In Worksheets‘在所有的工作表中循环

    For Each rw In sh.Range("B8:B200")‘在每个工作表中指定的范围循环

      If rw = 0 Then rw.EntireRow.Hidden = True‘隐藏符合条件的行

    Next rw
  Next sh
  Application.ScreenUpdating = True
End Sub

lvzhiyong

谢谢楼上的解释

有个问题，单个工作表循环,代码应怎样改写。

stx1980710

QUOTE:

以下是引用lvzhiyong在2006-11-23 12:55:55的发言：

谢谢楼上的解释

有个问题，单个工作表循环,代码应怎样改写。

Sub 显示()
    Range("B8:B200").EntireRow.Hidden = False’显示符合条件的行
  End Sub

Sub 隐藏()
  Dim rw As Range
  Application.ScreenUpdating = False

    For Each rw In Range("B8:B200")‘在每个工作表中指定的范围循环

      If rw = 0 Then rw.EntireRow.Hidden = True‘隐藏符合条件的行

    Next rw
  Application.ScreenUpdating = True
End Sub