- [返回列表] [ 发布:2014/12/26 19:12:57 ] [ 浏览: ] [ 字体:大 | 小 ]
- 通用Excel模板中实现隐藏/显示明细表
通用Excel模板中,有时候会遇到一个模版中存在多个明细表,这在填报时,极大的不方便。这里就介绍一个隐藏和显示明细表的方法。
1.先将需要实现此功能的模版做好,并设置按钮;
2.设置定位参数;
我们需要在固定单元格设置一个定位行的参数,输入函数 =ROW(C8) 这里我们选择D4单元格,如图:
注:C8是我们需要隐藏区域的最后一行的行标。
3.设置VBA代码;
在VBA窗口中,输入以下代码,并保存:
Private Sub CheckBox2_Click()
Dim m As Integer, n As Integer, i As Integer
On Error Resume Next
For n = 5 To Cells(4, 4).Value
If Me.CheckBox2.Value = True Then
Rows(n).EntireRow.Hidden = True
Else
Rows(n).EntireRow.Hidden = False
End If
Next n
End Sub
注:代码中的 For n = 5 To Cells(4, 4).Value 5表示需要隐藏的起始行 Cells(4, 4) 表示单元格D4的坐标。
完成后,即可看到如下效果:
同理,根据上述做法,可以将其它明细表部分都实现隐藏和现实的效果。
以上由互和科技原创,转载请注明来源。