exl如何根据条件隐藏单元格?
你这个问题啊,建议用VBA吧。
如果你的工作簿格式是.xls或.xlsx格式,必须另存为 启用宏的工作簿.xlsm格式。
另外,在打开.xlsm格式的工作簿时,如果提示你启用宏,必须点击启用。
方法:
第一步:按Alt+F11打开VBA编辑器。
第二步:在左侧双击要编程的工作表。
第三步:在右侧输入或粘贴下边这段程序。
然后关闭VBA编辑器即可。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "N2" Then 'N2的值发生变更时
'根据不同值,指定不同行号
Dim Str$
Select Case Target.Value
Case 1
Str = "12:23"
Case 1.5, 2
Str = "15:23"
Case 2.5, 3
Str = "18:23"
Case 3.5, 4
Str = "21:23"
End Select
'隐藏指定的行号
If Str <> "" Then
Rows("1:" & Rows.Count).Hidden = False '显示全表所有行
Rows(Str).Hidden = True '隐藏指定的行号
End If
End If
End Sub
你好
非常高兴能看到你的解答
我也实验了一下 但是输出4.5,5时
整个表格21-23不显示了 怎么办
再帮下忙我提下悬赏 谢谢啦
还有一个问题假如我N2位置发生改变
我在VBS里修改N2相应的位置就可以了啊