1.右擊sheet懊蒸，選擇查看代碼，打開vb編輯器
2.在vb編輯器里編寫代碼：
PrivateSub Worksheet_Change(ByVal Target As Range)
If
Range("B4").Value = "任務(wù)事項" Then
?Rows("10:10").EntireRow.Hidden =True
?Rows("11:11").EntireRow.Hidden =True
?Rows("12:12").EntireRow.Hidden =True
?Rows("13:13").EntireRow.Hidden =True
?Rows("14:14").EntireRow.Hidden =True
?Rows("15:15").EntireRow.Hidden =True
?Rows("16:16").EntireRow.Hidden =True
Else
?Rows("10:10").EntireRow.Hidden =False
?Rows("11:11").EntireRow.Hidden =False
?Rows("12:12").EntireRow.Hidden =False
?Rows("13:13").EntireRow.Hidden =False
?Rows("14:14").EntireRow.Hidden =False
?Rows("15:15").EntireRow.Hidden =False
?Rows("16:16").EntireRow.Hidden =False
End If
End Sub
3.點擊右上角關(guān)閉按鈕磅摹，并保存excel為啟用宏格式
4.打開.xlsm或者.xltm文件查看功能即可（有時候需要手動啟用宏）。
