[已解决]Excel2003 怎样用VBA 按要求隐藏行 求大师帮忙

5816QQ

请大师帮忙
例如当G4 H4 I4  单元格不等于 0 时 显示    都等于 0 时 运行VBA 代码隐藏本行内容
另外有段恢复代码  运行是 全部显示  求赐教~ 谢谢！

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-3 20:46

5816QQ 发表于 2013-12-2 22:58
Sub 隐藏行()
Dim i As Integer
For i = 4 To 34

你看行不行：
只需要点按钮就能实现隐藏或取消隐藏。
(, 下载次数: 10)

上传

点击文件名下载附件

跳转到最佳答案楼层

5816QQ

  大师~

hwc2ycy

隐藏行在10，07.03下应该没差别吧。

hwc2ycy

1. Rows(4).Hidden = ([g4] = 0 And [h4] = 0 And [i4] = 0)

复制代码

在操作前先加一句取消工作表保护的代码。

5816QQ

谢谢！ 应该是从 4行 到34 行   还需要循环 啊  

5816QQ

大师！

yyyydddd8888

首先你要撤消工作表保护才行:

因为你的工作表设置了密码，所以不能设置按钮，用我的代码，点击一次是隐藏，再点击一次就显示。再点击又隐藏。

1. Sub 隐藏行()
   
2. Dim bl As Boolean
   
3.       
   
4.     bl = Rows(4).Hidden
   
5.       
   
6.     If Range("g4") = Range("h4") And Range("g4") = Range("i4") And Range("g4") = 0 Then
   
7.        Sheets(1).Range("g20").EntireRow.Hidden = Not bl
   
8.     End If
   
9.    
   
10.    
    
11. End Sub
    

复制代码

5816QQ

好像不行啊  大师  密码 123.

5816QQ

  大师

5816QQ

Sub 隐藏行()
Dim bl As Boolean
Dim i As Integer

For i = 4 To 1
bl = Rows(i).Hidden
If Range("F" & "i") = 0 Then
Sheets(1).Range("F" & "i").EntireRow.Hidden = 0
End If
Next
End Sub