发布网友 发布时间:2022-04-26 17:12
共4个回答
热心网友 时间:2023-10-16 11:08
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
i = [N1]
Select Case i
Case 1
Range("8:12").EntireRow.Hidden = True
Range("3:7").EntireRow.Hidden = False
Case 2
Range("8:12").EntireRow.Hidden = False
Range("3:7").EntireRow.Hidden = True
End Select
End Sub
热心网友 时间:2023-10-16 11:08
或直接筛选
或
将 入库0且出库0且结余0时,该行字体变为无色
或
将 入库不为0,且出库不为0,且,结余不为0的数据,用函数,提取到其他表。
热心网友 时间:2023-10-16 11:09
一般情况下的话,我觉得如果说条件,他到时候隐藏行的话,我觉得确实是出现了这种情况的,这种反应的吧!追问试过用条件格式的话 弄不出来
热心网友 时间:2023-10-16 11:10
要自动隐藏行操作需代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$1" Then
Cells.EntireRow.Hidden = False
If Target = 1 Then
Rows("8:12").Hidden = True
ElseIf Target = 2 Then
Rows("3:7").Hidden = True
End If
End If
End Sub