[已解决]求老师写个VBA

teddyjin1984

要求：如果有行在B列和C列中的数值都为0，则隐藏整行。

最佳答案

月排行榜 / 总排行榜

dsmch

2015-5-29 21:09

1. Private Sub CommandButton1_Click()
   
2. If CommandButton1.Caption = "隐藏" Then
   
3.     For i = 3 To Range("a65536").End(xlUp).Row
   
4.         If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then Rows(i).Hidden = True
   
5.     Next
   
6.     CommandButton1.Caption = "显示"
   
7. Else
   
8.      Rows.Hidden = False
   
9.      CommandButton1.Caption = "隐藏"
   
10. End If
    
11. End Sub

复制代码

跳转到最佳答案楼层

心正意诚身修

看下可以不
Sub AA()
Dim X As Integer
For X = 3 To 19
If Cells(X, 2) = 0 And Cells(X, 3) = 0 Then
Rows(X).Hidden = True
End If
Next
End Sub

文轩馨婷

1. Sub 隐藏行()
   
2. Application.ScreenUpdating = False
   
3. Set Rng = Range("A1").CurrentRegion
   
4. For i = 3 To Rng.Rows.Count
   
5.     If Rng(i, 2) = 0 And Rng(i, 3) = 0 Then
   
6.         Rows(i).Hidden = True
   
7.     End If
   
8. Next
   
9. End Sub
   

复制代码

teddyjin1984

文轩馨婷 发表于 2015-5-29 09:24

老师不是很对唉，如果B和C列里面有一个值是0另一个是空值也会被隐藏，麻烦老师改一下，如果我不想固定0值只能输入在B和C列，而任意输在其他列，但是任意的两列只要是0值，就会被隐藏，我该在VB里面怎么改，另外可以按一下隐藏，再按一次取消隐藏吗？谢谢！

teddyjin1984

心正意诚身修 发表于 2015-5-29 06:46
看下可以不
Sub AA()
Dim X As Integer

完全对，还能帮忙再稍微修改下吗，就是按一下隐藏，再按一下取消隐藏。谢谢！另外能不能不隐藏空值的行啊？

dsmch

1. Private Sub CommandButton1_Click()
   
2. If CommandButton1.Caption = "隐藏" Then
   
3.     For i = 3 To Range("a65536").End(xlUp).Row
   
4.         If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then Rows(i).Hidden = True
   
5.     Next
   
6.     CommandButton1.Caption = "显示"
   
7. Else
   
8.      Rows.Hidden = False
   
9.      CommandButton1.Caption = "隐藏"
   
10. End If
    
11. End Sub

复制代码

teddyjin1984

dsmch 发表于 2015-5-29 21:09

{:221:}太给力，就是我想要的。

文轩馨婷

dsmch 发表于 2015-5-29 21:09

老师关于这个显示隐藏的代码，我自己插入控件时找不到宏，点击“设计模式”才看到是公式，这个怎么做？

如果把这代码改成模块的形式，应该怎么改呢？