通過改變一個單元格的內(nèi)容，出發(fā)一個事件，根據(jù)改變的內(nèi)容，進行相應的處理。

具體內(nèi)容是，有一個單元個，里面的內(nèi)容可以選擇，分別是”1 選擇；2填空；3讀程序；4寫代碼“

這里，實現(xiàn)的功能是，選擇部分的列

（注：也就是選擇題時，會有四個選項，所占的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