学步园

通过改变一个单元格的内容，出发一个事件，根据改变的内容，进行相应的处理。

具体内容是，有一个单元个，里面的内容可以选择，分别是”1 选择；2填空；3读程序；4写代码“

这里，实现的功能是，选择部分的列

（注：也就是选择题时，会有四个选项，所占的4列，填空题时，不需要这4列）

A

B

C

D

当题型"1选择"被选中时，显示，没有被选中时，隐藏

这里面需要学习的是对这种事件接收的处理的写法。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
       
        If Target.Address = "$E$1" Then
           
            If Range("E1").Value = "1 選択" Then
           
                Rows("4:7").Select
                Range("B4").Activate
                Selection.EntireRow.Hidden = False
           
            End If
           
            If Range("E1").Value <> "1 選択" Then
           
                Rows("4:7").Select
                Range("B4").Activate
                Selection.EntireRow.Hidden = True
           
            End If
           
           

        End If
    
    Application.EnableEvents = True
End Sub