关于单元格值的改变和自动触发宏

关于单元格值的改变和自动触发宏在线等
excel大侠们小弟求救来了

小弟在做一个excel表，遇到一个问题，试了一下午还没解决，前来求救。

简言之，在一个工作表里，我把A1的取值用数据有效性下拉菜单限定为0或1
然后我想实现选0的时候隐藏第2行，选1的时候显示第2行
本来想的使用worksheet_selectionchange来做，但是发现一旦选定之后就没办法改了（就是选了0之后没办法改成1了，因为一点A1，用来实现隐藏第2行的宏就运行了）

现在想请大侠们帮忙完善这段vba，能让它实现*选择的功能。

感激不尽！！

------解决方案--------------------
用Worksheet_Change事件！
如：

VBScript code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Sheet1.Rows("2:2").EntireRow.Hidden = Target = 0
End Sub

------解决方案--------------------

VBScript code

For r = 5 To 1200
    If Range("P" & r).Value <> "" Then
        i = Range("P" & r).Value
        j = Range("Q" & r).Value
        Rows("i:j").Hidden = True
    End If
Next

关于 单元格值的改变和自动触发宏

相关推荐

关于单元格值的改变和自动触发宏