关于触发事件的求助

zhongjingquan

各位老师好，我是VBA新手，最近在一个关于触发事件的问题上有个疑问，例如在工作薄某个环节中，工作需求有三种：销售，调剂，销退。“销售”和“销退”是单个客户的行为，只需要一列表格显示客户，而“调剂”是客户间的行为，需要两列表格显示客户，所以当前sheet1在Activate时，根据range("F2")内容显示是否隐藏E列。第二步，就是在当前sheet1中，如果选择“销售”和“销退”任意一个工作需求，则直接隐藏E列，如果选择“调剂”的话，则显示E列，但是这时候，修改任何一个表格内容，则还是触发隐藏E列，是不是需要加个限制触发的代码还是我的逻辑有问题？因为VBA是才开始学习，而且根据工作需求挑着学，所以很多内容实在不了解，麻烦各位老师有时间指点一下，感恩不尽！

tanglf188

加个判断

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address <> "$F$2" Then Exit Sub
   
3.     If Target.Address = "$F$2" And Target.Value = "调剂" Then
   
4.         Columns("E:E").EntireColumn.Hidden = False
   
5.     Else
   
6.         Columns("E:E").EntireColumn.Hidden = True
   
7.     End If
   
8. End Sub
   
9. 
   

复制代码

zhongjingquan

tanglf188 发表于 2023-2-23 11:18
加个判断

感谢老师指导，茅塞顿开

gbgbxgb

zhongjingquan 发表于 2023-2-23 14:04
感谢老师指导，茅塞顿开

这样才合理，即在Change事件代码中，把Else分支的语句修改如下：
If Not Range("f2").Value = "调剂" Then Columns("E:E").EntireColumn.Hidden = True