全列

大家好,小问来为大家解答以上问题。全列这个很多人还不知道,现在让我们一起来看看吧！

1、右键点该工作表的名字（在工作簿的左下方呢），查看代码，粘贴如下代码：PrivateSubWorksheet_Change(ByValTargetAsRange)OnErrorGoToLine1IfTarget.Range("A1").Address="$AM$1"ThenColumns("BU:CJ").Hidden=FalseSelectCaseTarget.Range("A1").ValueCase2Columns("BU:CE").Hidden=TrueCase3Range("BU:BZ,CI:CJ").EntireColumn.Hidden=TrueCase4Range("BU:BV,CG:CJ").EntireColumn.Hidden=TrueCase5Range("BU:BU,CE:CJ").EntireColumn.Hidden=TrueCase6Columns("CC:CJ").Hidden=TrueEndSelectEndIfLine1:EndSub回到Excel，功能实现。

2、我试过了，可以。

3、请按步骤操作，最后在单元格AM1输入数据。

4、启用宏你应该知道吧。

5、（2003版，工具，宏，安全性设置，中。

6、重新打开文件，启用宏）你要自动的，要求没提明白:)如果你的微调框是ActiveX控件，在编辑状态下查看其代码；如果是窗体控件，右键指定宏。

7、二者宏的内容都是：Columns("BU:CJ").Hidden=FalseSelectCaseRange("AM1").ValueCase2Columns("BU:CE").Hidden=TrueCase3Range("BU:BZ,CI:CJ").EntireColumn.Hidden=TrueCase4Range("BU:BV,CG:CJ").EntireColumn.Hidden=TrueCase5Range("BU:BU,CE:CJ").EntireColumn.Hidden=TrueCase6Columns("CC:CJ").Hidden=TrueEndSelect我觉得你应该基础很好，既然会用微调框，那么请自己尝试解决问题，怎么依赖心理这么强？如果是窗体控件（就是你可以右键点它），那么右键点它，指定宏，录制宏，停止录制。

8、同时按Alt和F11进入宏界面，找到刚才录制的宏，把里面的内容替换为（Sub和EndSub那两句要保留）：Columns("BU:CJ").Hidden=FalseSelectCaseRange("AM1").ValueCase2Columns("BU:CE").Hidden=TrueCase3Range("BU:BZ,CI:CJ").EntireColumn.Hidden=TrueCase4Range("BU:BV,CG:CJ").EntireColumn.Hidden=TrueCase5Range("BU:BU,CE:CJ").EntireColumn.Hidden=TrueCase6Columns("CC:CJ").Hidden=TrueEndSelect就可以了。

9、看你提这些问题，应该不是ActiveX控件。

以上就是【全列】相关内容。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！