发布网友 发布时间: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(),然后复制代码后运行,由于代码没有指定工作表,所以运行时作用于活动工作表。