[已解决]求助哪位大虾能帮忙编个程

tanxiao_2009

要求红色字体隐藏按钮和恢复按钮

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-6-29 09:06

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False
   
3. Dim i&
   
4. For i = 4 To [a65536].End(3).Row
   
5.   If Cells(i, 11) <> "" And Cells(i, 11) <= 0 Then Rows(i).Hidden = True
   
6. Next i
   
7. Application.ScreenUpdating = True
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton2_Click()
    
11. Cells.EntireRow.Hidden = False
    
12. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False
   
3. Dim i&
   
4. For i = 4 To [a65536].End(3).Row
   
5.   If Cells(i, 11) <> "" And Cells(i, 11) <= 0 Then Rows(i).Hidden = True
   
6. Next i
   
7. Application.ScreenUpdating = True
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton2_Click()
    
11. Cells.EntireRow.Hidden = False
    
12. End Sub

复制代码