如何 用VBA 按条件 隐藏 行和列？

dufu021

kevinzhe 发表于 2013-4-23 09:51
如下是我编写的 最新版 代码，目前功能是 奇次触发A表单元格 隐显判断，偶次触发 整体恢复。
缺陷1： 不 ...

这样看，你需要大神级的指导，我这个初学者，不能给你更多的帮助啦！

471541388

19楼的建议很好

1. Sub 行列隐藏显示()
   
2. 
   
3. Application.ScreenUpdating = False
   
4. Dim i As Integer
   
5. Dim j As Integer
   
6.     For i = 2 To [A65536].End(xlUp).Row
   
7.         If Cells(i, 1).Value = "" Then
   
8.             Cells(i, 1).EntireRow.Hidden = True
   
9.         Else
   
10.             Cells(i, 1).EntireRow.Hidden = False
    
11.         End If
    
12.     Next i
    
13.     For j = 3 To 7
    
14.         If Cells(1, j).Value = "" Then
    
15.             Cells(1, j).EntireColumn.Hidden = True
    
16.         Else
    
17.             Cells(1, j).EntireColumn.Hidden = False
    
18.         End If
    
19.     Next
    
20.   Application.ScreenUpdating = True
    
21. End Sub
    
22. Sub 恢复初始()
    
23. Application.ScreenUpdating = False
    
24. Dim i As Integer
    
25. Dim j As Integer
    
26.     For i = 3 To 7
    
27.     Cells(1, i).Select
    
28.     Selection.EntireColumn.Hidden = False
    
29.     Next i
    
30.     For j = 2 To 21
    
31.     Cells(j, 1).Select
    
32.     Selection.EntireRow.Hidden = False
    
33.     Next j
    
34. Application.ScreenUpdating = True
    
35. End Sub
    

复制代码

，完善下就不闪烁了

蔡明江

谢谢分享 学习了

wangdeya

谢谢 学习了，受益非浅

dudu485

dufu021 发表于 2013-4-22 15:01
你试一下，第一个是隐藏，
第二段是取消隐藏

大神  能帮忙看看这个贴么  求指教   [求助] 根据选择要求，自动隐藏和取消隐藏某个指定区域

ning84

1. Private Sub HideRow()
   
2.       
   
3.    Dim Rng As Range, Rng1 As Range, Rng2 As Range
   
4.    Dim oRng As Range
   
5.    Dim oDate As Date, oDay
   
6.        With Sheet1
   
7.             Set oRng = Selection
   
8.             Set oRng = .Range(oRng(2, 1).Formula)
   
9.             Set Rng = .Range("A5", "L5")
   
10.             ''
    
11.             For jj = 1 To Rng.Columns.Count
    
12.                  Set Rng1 = .Range(Rng(2, jj).Formula)
    
13.                  Rng1.EntireRow.Select
    
14.                  Selection.EntireRow.Hidden = False
    
15.                  If Rng1.Address <> oRng.Address Then
    
16.                       Selection.EntireRow.Hidden = True
    
17.                  End If
    
18.             Next jj
    
19.        End With
    
20. End Sub
    
21. 
    

复制代码