EXCEL列表中,要求 1.点击A后展开B和C,没有点击会隐藏B和C 2.点击B或...

发布网友发布时间：2024-08-19 18:14

共2个回答

热心网友时间：2024-08-22 12:56

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$1" Then
        [a1].Select
        Rows("2:3").Hidden = Not Rows("2:3").Hidden
    ElseIf Target.Address = "$D$2" Then
        Sheets("sheet2").Select
    ElseIf Target.Address = "$D$3" Then
        Sheets("sheet3").Select
    End If
End Sub

热心网友时间：2024-08-22 12:54

代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 4 Then
Rows("1:4").Select
Selection.EntireRow.Hidden = False
Else
Rows("2:4").Select
Selection.EntireRow.Hidden = True
End If
End Sub

至于点击 D2 ,D3，你设置个超链接即可

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com