[已解决]选择求和VBA

wuliao_tao

详见附件

Book1.rar (3.48 KB, 下载次数: 22)

2013-2-3 23:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-4 08:37

重新改了下，这个比较简单，正好昨天看视频学到了。

1. Sub 选择2()
   
2.     Dim check As CheckBox
   
3.     Application.ScreenUpdating = False
   
4.     For Each check In ActiveSheet.CheckBoxes
   
5.         If check.TopLeftCell.Address Like "$A$*" And check.Value <> 1 Then
   
6.             check.TopLeftCell.EntireRow.Hidden = True
   
7.             check.Visible = False
   
8.         End If
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11. End Sub
    
12. 
    
13. Sub 恢复2()
    
14.     Dim check As CheckBox
    
15.     Application.ScreenUpdating = False
    
16.     For Each check In ActiveSheet.CheckBoxes
    
17.         If check.TopLeftCell.Address Like "$A$*" And check.Value <> 1 Then
    
18.             check.TopLeftCell.EntireRow.Hidden = False
    
19.             check.Visible = True
    
20.         End If
    
21.     Next
    
22.     Application.ScreenUpdating = True
    
23. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

统计用SUBTOTAL就可以实现。

hwc2ycy

隐藏行就得V了。

hwc2ycy

Book1.rar (12.08 KB, 下载次数: 26)

2013-2-3 23:59 上传

点击文件名下载附件

hwc2ycy

重新改了下，这个比较简单，正好昨天看视频学到了。

1. Sub 选择2()
   
2.     Dim check As CheckBox
   
3.     Application.ScreenUpdating = False
   
4.     For Each check In ActiveSheet.CheckBoxes
   
5.         If check.TopLeftCell.Address Like "$A$*" And check.Value <> 1 Then
   
6.             check.TopLeftCell.EntireRow.Hidden = True
   
7.             check.Visible = False
   
8.         End If
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11. End Sub
    
12. 
    
13. Sub 恢复2()
    
14.     Dim check As CheckBox
    
15.     Application.ScreenUpdating = False
    
16.     For Each check In ActiveSheet.CheckBoxes
    
17.         If check.TopLeftCell.Address Like "$A$*" And check.Value <> 1 Then
    
18.             check.TopLeftCell.EntireRow.Hidden = False
    
19.             check.Visible = True
    
20.         End If
    
21.     Next
    
22.     Application.ScreenUpdating = True
    
23. End Sub

复制代码

wuliao_tao

hwc2ycy 发表于 2013-2-4 08:37
重新改了下，这个比较简单，正好昨天看视频学到了。

如果点恢复如何做到，第一列中的“√”也同是去掉呢

hwc2ycy

勾不选是吧？

hwc2ycy

1. check.Value=false

复制代码

你加这一句试下。有问题再说。