Question

一个EXCEL表格中，根据条件一个单元格的内容，显示和隐藏特定行？

比如D1值为空显示2-6行；
D1值A则隐藏2-6行同时显示7-15行，
D1值为B则隐藏2-15行，同时显示16-20行，
D1值为C则隐藏2-20,同时显示21-30行。

Answer 1

复制到 VBA 窗口，即可
Sub 条件隐藏()
Rows("2:30").Select
Selection.EntireRow.Hidden = False
If [D1] = "" Then
Rows("2:7").Select
Selection.EntireRow.Hidden = False
End If
If [D1] = "A" Then
Rows("2:6").Select
Selection.EntireRow.Hidden = True
Rows("7:15").Select
Selection.EntireRow.Hidden = False
End If

If [D1] = "B" Then
Rows("2:15").Select
Selection.EntireRow.Hidden = True
Rows("16:20").Select
Selection.EntireRow.Hidden = False
End If

If [D1] = "C" Then
Rows("7:20").Select
Selection.EntireRow.Hidden = True
Rows("21:30").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Then
条件隐藏
End If
End Sub

追问

工作表保护模式下，怎么允许以上宏的运行呢？同时要让锁定的单元格里面的内容不能更改