• 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏吧

Excel宏查询:根据单元格值隐藏行

excel 来源:rorymcc91 5次浏览

嗨我已经尝试了下面的代码,但它似乎没有工作,任何人都可以帮助我。我只是想隐藏行3 & 4当B1有文字Delete。但是我想在Delete进入B1时自动运行。Excel宏查询:根据单元格值隐藏行

感谢

Code


===========解决方案如下:

像这样的东西应该工作

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 

注:这是区分大小写的。所以如果你输入B1 delete而不是Delete它将不会运行。为使其不区分大小写,请使用LCase(),例如:

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

版权声明:本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系管理员进行删除。
喜欢 (0)