通用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的坐标。

 

完成后，即可看到如下效果：

 



 

同理，根据上述做法，可以将其它明细表部分都实现隐藏和现实的效果。

 

以上由互和科技原创，转载请注明来源。

上一篇：通用Excel填报保存或流程传递时提示“无法绑定由多个部分组成的标识符tabDIYTable***”

下一篇：通用Excel明细表中，实现每一列独立排序（升序和降序）