通用Excel模板中轻松实现隐藏或显示明细表区域
通用Excel模板中,有时候会遇到一个模版中存在多个明细表,这在填报时,极大的不方便。笔者这里就介绍一个隐藏和显示明细表的方法,让报表更加人性化。
操作方法
- 01
1.先将需要实现此功能的模版做好,并设置按钮,如(图一);
- 02
2.设置定位参数; 我们需要在固定单元格设置一个定位行的参数,输入函数 =ROW(C8) 这里我们选择D4单元格,如(图二): 注:C8是我们需要隐藏区域的最后一行的行标。
- 03
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的坐标。 完成后,即可看到如(图三)效果: 同理,根据上述做法,可以将其它明细表部分都实现隐藏和现实的效果。
赞 (0)