Excelmacros查询：根据单元格值隐藏行

嗨，我已经尝试了下面的代码，但它似乎并没有工作，任何人都可以帮助我。 我只想隐藏第3和4行，当B1有文本Delete 。 但是我想在Delete进入B1时自动运行。

谢谢

Answer 1

像这样的东西应该工作

 Option Explicit 'Very first line to ensure that variables are declared Private Sub Worksheet_Change(ByVal Target As Range) 'check if target address is B1 If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = "B1" Then ShowHideRows End If End Sub Public Sub ShowHideRows() If Range("B1").Value = "Delete" Then Rows("3:4").EntireRow.Hidden = True Rows("7:8").EntireRow.Hidden = False ElseIf Range("B1").Value = "Open" Then 'use ElseIf if possible like here Rows("3:4").EntireRow.Hidden = False Rows("7:8").EntireRow.Hidden = True End If End Sub 

注意：这是区分大小写的。 所以如果你inputB1 delete而不是Delete它将不会运行。 要使其不区分大小写，请使用LCase() ：

 LCase(Range("B1").Value) = "delete" 'string delete must be lower case!