excel 隐藏问题 用VBS怎么设置
发布网友
发布时间：2022-04-21 08:13
共3个回答
热心网友
时间：2023-10-17 20:01
因为是有数值就隐藏，否则就显示，所以要有一个过程监控A1单元格的值，所以
代码应该是这样。
按ALT+F11,选择左边的sheet1表，双击，讲下面的代码复制过去。
再关闭VBE，回到sheet1表，在A1输入数据或者删除数据试试
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "" Then
Columns("B:B").EntireColumn.Hidden = True
Else
Columns("B:B").EntireColumn.Hidden = False
End If
End Sub
热心网友
时间：2023-10-17 20:02
如下
If range("A1").value="" then
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
endif追问怎么不管用呢 ，我把这三行代码写到哪里去 是通用里边 还是worksheet里？
追答插入---模块---然后写在模块中
算了，帮你完善吧
sub myhide()
If range("A1").value="" then
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
endif
end sub
热心网友
时间：2023-10-17 20:02
对一楼的优化后：
If range("A1").value="" then
Columns("B:B").EntireColumn.Hidden = True
endif追问怎么不管用呢 ，我把这三行代码写到哪里去 是通用里边 还是worksheet里？
追答找开excel表，进入VBE，右键点击插入模块，随便输入一个名称，如：sub yincang()，然后复制代码后运行，由于代码没有指定工作表，所以运行时作用于活动工作表。
