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

kevinzhe

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

复制代码

kevinzhe

多谢各位老师，楼上的代码是我最新的成果，基本已经达到问题的效果，不过仍然有缺陷：
1 对需要处理行数列数较多的工作表，运行速度极慢无比 （因此出现了新的问题： 如何 判断已经被隐藏的行或者列 所对应的单元格的值 是否为 空值？）
2 现在的代码依然是用按钮来控制，有没有办法可以，自动判断（每更改一次指定区域单元格的值就会触发宏）或者关闭打开工作表后 自动执行判断程序？

kevinzhe

mchscofield 发表于 2013-4-22 18:03

您的代码需要再定义宏吗？ 我这边为什么一点反应都没有呢？

kevinzhe

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

复制代码

dufu021

mchscofield 发表于 2013-4-22 18:03

比我的好多啦！！！
学习一下

kevinzhe

dufu021 发表于 2013-4-22 20:39
比我的好多啦！！！
学习一下

只是凭空硬挤的结果。您知道 如何判断被隐藏行的行号吗？

dufu021

kevinzhe 发表于 2013-4-22 21:01
只是凭空硬挤的结果。您知道 如何判断被隐藏行的行号吗？

我的理解是，空单元格的行号和列号来判断需要被隐藏的行号和列号。
你以为呢？

kevinzhe

dufu021 发表于 2013-4-22 21:10
我的理解是，空单元格的行号和列号来判断需要被隐藏的行号和列号。
你以为呢？

本题的功能我已经实现，但运行效率太低，目前我需要处理的工作表有上百行，所以每次判断需要恢复显示行的时间都是实际的上百倍。如果一次只改一个值（其实改值的概率很低只是纠错用），但程序却A列每行都要判断过来，就是说多少行就是理想代码的多少倍时间。
我刚才的问题的意思是，当判断完需要被隐藏的行后，保存其行号，当发生改值后 对改值后单元格的行号与被隐藏单元格的行号进行比较，如果相同则 取消对改值后单元格所在行的隐藏，如果不同 则 无动作。此法可省去大概将近一分钟的等待时间。

dufu021

建议你A列采用：

1. For i = 2 to [A65536].End(xlUp).row

复制代码

kevinzhe

dufu021 发表于 2013-4-23 08:29
建议你A列采用：

如下是我编写的 最新版 代码，目前功能是 奇次触发A表单元格 隐显判断，偶次触发 整体恢复。
缺陷1： 不能 在 判断 A1 是否 更改值 后， 触发功能
缺陷2： 还是之前的速度慢的问题： 如何记录 被隐藏的行的 行号，并与更改值 的行 进行比较 ？

1. Public k
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. If Target.Count <> 1 Then Exit Sub
   
4. If Target.Column <> 1 Then Exit Sub
   
5. If Target.Row <> 1 Then Exit Sub
   
6.     Call 隐显恢复
   
7. End Sub
   
8. 
   
9. Sub 隐显恢复()
   
10.     k = k + 1
    
11.     If k > 10 Then
    
12.         k = 1
    
13.         Call 行列隐藏显示
    
14.     Else
    
15.         If k Mod 2 = 1 Then
    
16.             Call 行列隐藏显示
    
17.         Else
    
18.             Call 恢复初始
    
19.         End If
    
20.     End If
    
21. End Sub
    
22. Sub 行列隐藏显示()
    
23. Dim i As Integer
    
24. Dim j As Integer
    
25.     For i = 2 To 21
    
26.         If Cells(i, 1).Value = "" Then
    
27.             Cells(i, 1).EntireRow.Hidden = True
    
28.         Else
    
29.             Cells(i, 1).EntireRow.Hidden = False
    
30.         End If
    
31.     Next i
    
32.     For j = 3 To 7
    
33.         If Cells(1, j).Value = "" Then
    
34.             Cells(1, j).EntireColumn.Hidden = True
    
35.         Else
    
36.             Cells(1, j).EntireColumn.Hidden = False
    
37.         End If
    
38.     Next j
    
39. End Sub
    
40. Sub 恢复初始()
    
41. Dim i As Integer
    
42. Dim j As Integer
    
43.     For i = 3 To 7
    
44.     Cells(1, i).Select
    
45.     Selection.EntireColumn.Hidden = False
    
46.     Next i
    
47.     For j = 2 To 21
    
48.     Cells(j, 1).Select
    
49.     Selection.EntireRow.Hidden = False
    
50.     Next j
    
51. End Sub
    
52. 
    
53. Public arr(1 To 1, 1 To 1)
    
54. 
    
55. Sub 集成功能()
    
56. End Sub

复制代码