EXCEL中VBA隐藏列,所选单元格内有一个公式,单元格内容变化,VBA失效无法隐藏列

查看 40|回复 1
作者:筱筱吾爱   
EXCEL中VBA隐藏列,所选单元格内有一个公式,单元格内容变化,VBA失效无法隐藏列
之前代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
  If Target.Value = "是" Then
    Columns("A").Hidden = True
ElseIf Target.Value = "否" Then
Columns("A").Hidden = False
  End If
End If
End Sub
若是自己更改F1单元格的内容,则代码生效,A列会被隐藏;
同时F1单元格存在公式,=If(E1="","是","否")
通过更改E1单元格内容,让公式生效后,代码却失效,A列无法被隐藏。
求助大佬,看看代码哪里修改,能达成我想要的效果,即通过修改E1单元格,决定A列是否隐藏。

单元格, 公式

winshaw   

我不懂VBA,但是发现这样改可以,你再调试调试target这句?
Private Sub Worksheet_Change(ByVal Target As Range)
  If Cells(1, 6).Value = "是" Then
    Columns("A").Hidden = True
ElseIf Cells(1, 6).Value = "否" Then
Columns("A").Hidden = False
  End If
End Sub
您需要登录后才可以回帖 登录 | 立即注册

返回顶部