九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

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

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

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

（注：也就是選擇題時(shí)，會(huì)有四個(gè)選項(xiàng)，所占的4列，填空題時(shí)，不需要這4列）

A

B

C

D

當(dāng)題型"1選擇"被選中時(shí)，顯示，沒(méi)有被選中時(shí)，隱藏

這里面需要學(xué)習(xí)的是對(duì)這種事件接收的處理的寫(xiě)法。

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