[已解决]按条件隐藏列

jwjnet1

求VBA代码。

表格如图，

根据条件隐藏列。

想要达到的目的：

如果第三行，某列值为0，则隐藏该列。

例如，如果A3=0，则隐藏A列。如果B3=0，则隐藏B列。

以此类推。

查了很久网络，因楼主修为太浅不得其果，敬请高人指点，谢谢！

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2013-2-16 15:20

技巧加代码法
技巧,使用 Ctrl + F 查找 0 ,然后在 窗口中使用 Ctrl + A 选中这些单元格,再使用代码

代码如下:

1. 
   
2. Sub cc()
   
3.   Selection.EntireColumn.Hidden = 1
   
4. End Sub
   

复制代码

操作图片如下:

跳转到最佳答案楼层

无聊的疯子

技巧加代码法
技巧,使用 Ctrl + F 查找 0 ,然后在 窗口中使用 Ctrl + A 选中这些单元格,再使用代码

代码如下:

1. 
   
2. Sub cc()
   
3.   Selection.EntireColumn.Hidden = 1
   
4. End Sub
   

复制代码

操作图片如下:

jwjnet1

无聊的疯子 发表于 2013-2-16 15:20
技巧加代码法
技巧,使用 Ctrl + F 查找 0 ,然后在 窗口中使用 Ctrl + A 选中这些单元格,再使用代码

感谢疯老师回复。代码很好用。
不过有一点问题，就是如果条件的值是1000，其值所在的单元格也会被选中。希望疯老师再给费心想想办法，{:3112:}本人实在 是菜啊，悔当初没有好好学习。{:4012:}

那么的帅

jwjnet1 发表于 2013-2-16 15:32
感谢疯老师回复。代码很好用。
不过有一点问题，就是如果条件的值是1000，其值所在的单元格也会被选中。 ...

查找时，选项 里 设置 ，勾选 单元格匹配

jwjnet1

那么的帅 发表于 2013-2-16 15:39
查找时，选项 里 设置 ，勾选 单元格匹配

欧了，问题，解决了，谢谢疯老师和帅哥指点！

happytiger2012

1. Sub Test()
   
2.     Dim maxColumn As Integer
   
3.     maxColumn = ActiveSheet.UsedRange.Columns.Count
   
4.     For i = 1 To maxColumn
   
5.         If Cells(3, i).Value = 0 Then Cells(3, i).EntireColumn.Hidden = True
   
6.     Next
   
7. End Sub
   

复制代码

望采纳！

jwjnet1

happytiger2012 发表于 2013-2-16 16:09
望采纳！

谢谢您的解答，其实，您的答案才是我最希望得到的结果，虽然表面上看起来貌似运行速度较慢，但，操作起来比较简洁，而且，经过读代码，有利于我自己进一步的提高，遗憾的是一个问题只能派一个最佳答案。谢谢！