[已解决]在窗体上执行要隐藏的动作

opelwang

点击一个按钮，弹出一个窗体，在窗体上选择要隐藏或显示的项目，并执行动作。
窗体截图：


测试附件：                                                                               DDD.rar (32.98 KB, 下载次数: 13)

2011-7-26 21:16 上传

点击文件名下载附件

‘
’ 敬请好心人帮忙写段代码，谢谢～～～
‘
’

最佳答案

月排行榜 / 总排行榜

Zipall

2011-7-27 21:47

回复 opelwang 的帖子

代码放在userform里.

1. 
   
2. Private Sub Label1_Click()
   
3.     Application.ScreenUpdating = False
   
4.         t = Cells.Find("基本工資合計").Row - 1
   
5.         Range("1:" & t).EntireRow.Hidden = False
   
6.         Range("an:ap").EntireColumn.Hidden = False
   
7. 
   
8.         For i = 1 To 4
   
9.             If Controls("checkbox" & i).Value Then hd i, t
   
10.         Next
    
11.         If CheckBox5 Then
    
12.             For c = 40 To 42
    
13.                 If Cells(2, c) = "" Then Columns(c).Hidden = True
    
14.             Next
    
15.         End If
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    
18. 
    
19. Private Sub Label2_Click()
    
20.     Me.hide
    
21. End Sub
    
22. 
    
23. Sub hd(i, t)
    
24.     For r = 2 + i To t Step 4
    
25.        Rows(r).EntireRow.Hidden = True
    
26.     Next
    
27. End Sub
    

复制代码

跳转到最佳答案楼层

opelwang

自己顶一下~~~~~

Zipall

回复 opelwang 的帖子

代码放在userform里.

1. 
   
2. Private Sub Label1_Click()
   
3.     Application.ScreenUpdating = False
   
4.         t = Cells.Find("基本工資合計").Row - 1
   
5.         Range("1:" & t).EntireRow.Hidden = False
   
6.         Range("an:ap").EntireColumn.Hidden = False
   
7. 
   
8.         For i = 1 To 4
   
9.             If Controls("checkbox" & i).Value Then hd i, t
   
10.         Next
    
11.         If CheckBox5 Then
    
12.             For c = 40 To 42
    
13.                 If Cells(2, c) = "" Then Columns(c).Hidden = True
    
14.             Next
    
15.         End If
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    
18. 
    
19. Private Sub Label2_Click()
    
20.     Me.hide
    
21. End Sub
    
22. 
    
23. Sub hd(i, t)
    
24.     For r = 2 + i To t Step 4
    
25.        Rows(r).EntireRow.Hidden = True
    
26.     Next
    
27. End Sub
    

复制代码

opelwang

非常感谢：Zipall 仁兄的帮忙，经测试，完全达成想要的效果。
再次感谢~~