VBAmacrosexcel：如果单元格等于FALSE，如何隐藏行

我有一个项目，需要Excel来隐藏单独的工作表（在同一工作簿）行后用户select活动页上的特定选项。 macros被链接到一个button，当单击的行将被隐藏在单独的工作表上，整个过程发生在后台。 如果用户想用隐藏的行检查表格，他们需要导航到单独的表格来查看结果。

图像说明： http : //postimg.org/image/ek6981vg1/

工作表（“input – select笔”） – >有活页的地方有button

工作表（“input笔”） – >单独的工作表在哪里有隐藏的行

我已经尝试了几种方法，但都没有工作：方法1：

Sub selectPens() Dim c As Range Application.EnableEvents = False On Error Resume Next For Each c In Range("E6:E35") If c.Value = "FALSE" Then Worksheets("Input- Pen").c.EntireRow.Hidden = True ElseIf c.Value = "TRUE" Then Worksheets("Input- Pen").c.EntireRow.Hidden = False End If Next c On Error GoTo 0 Application.EnableEvents = True End Sub 

方法2：

 Sub selectPens() Dim i As Long Set wselect = Sheet11 With wselect For i = 6 To 35 If ActiveSheet.Cells(i, 5).Value = "FALSE" Then .Range("i:i").EntireRow.Hidden = True ' .Rows(i).EntireRow.Hidden = True ElseIf ActiveSheet.Cells(i, 5).Value = "TRUE" Then ' .Rows(i).EntireRow.Hidden = False .Range("i:i").EntireRow.Hidden = False End If Next i End With End Sub 

任何帮助，我将不胜感激。

非常感谢！

Answer 1

 Sub selectPens() Dim i As Long, wsselect Set wselect = Sheet11 For i = 6 To 35 'EDIT wselect.Rows(i).Hidden = (ActiveSheet.Cells(i, 5).Value = False) Next i End Sub