[已解决]包含指定字符的列隐藏

心灵有约

利润表列隐藏.zip (17.77 KB, 下载次数: 18)

2016-3-30 06:55 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sry660

2016-3-30 09:11

1. Sub 隐藏()
   
2.     Dim j%, jmax%
   
3.     jmax = [b5].End(2).Column
   
4.     For j = 2 To jmax
   
5.         If InStr(Cells(5, j), "%") > 0 Or InStr(Cells(5, j), "差额") > 0 Then
   
6.             Cells(5, j).EntireColumn.Hidden = True
   
7.         End If
   
8.     Next
   
9. End Sub
   
10. Sub 取消隐藏()
    
11.     Dim j%, jmax%
    
12.     jmax = [b5].End(2).Column
    
13.     Range(Cells(5, 2), Cells(5, jmax)).EntireColumn.Hidden = False
    
14. End Sub

复制代码

跳转到最佳答案楼层

sry660

1. Sub 隐藏()
   
2.     Dim j%, jmax%
   
3.     jmax = [b5].End(2).Column
   
4.     For j = 2 To jmax
   
5.         If InStr(Cells(5, j), "%") > 0 Or InStr(Cells(5, j), "差额") > 0 Then
   
6.             Cells(5, j).EntireColumn.Hidden = True
   
7.         End If
   
8.     Next
   
9. End Sub
   
10. Sub 取消隐藏()
    
11.     Dim j%, jmax%
    
12.     jmax = [b5].End(2).Column
    
13.     Range(Cells(5, 2), Cells(5, jmax)).EntireColumn.Hidden = False
    
14. End Sub

复制代码

心灵有约

sry660 发表于 2016-3-30 09:11

谢谢。另外可否给做在一个切换按钮上？