我正在创建一个用于隐藏工作表选项卡的客户端的Excel工作簿。我想要弹出一个用户窗体,客户可以在复选框中选择他们想要的页面,然后一起选择这些页面(以便更新页面编号)以及连续打印。Excel VBA:基于用户表单的结果选择多个工作表 - 用于更新和打印
从我所看到的其他选项,我已经填充了表名称的名称作为这样的特定片材:我已经尝试过转向这些值到一个数组,移调或
Dim iRow As Long
Set PP = Worksheets("Printing Page")
Dim CB1 As Worksheet
Set CB1 = Worksheets("Retail, Mall, Shopping Centres")
Dim CB2 As Worksheet
Set CB2 = Worksheets("Sports & Social Clubs")
'Clear & Populate the sheet
PP.Cells.Clear
PP.Cells(1, 1).Value = Chr(34) & CB1.Name & Chr(34)
PP.Cells(2, 1).Value = Chr(34) & CB2.Name & Chr(34)
'Check each checkbox and enter the sheet number in PP
If Me.CBRetailMallSC = False Then
PP.Rows(1).Delete
End If
If Me.CBSportsSocial = False Then
PP.Rows(2).Delete
End If
从那里运行一个像这样的功能link。 但是,我总是收到一条错误消息,指出“运行时错误9 - 下标超出范围”并指向表格(x)。选择代码行。
请大家帮忙,我完全失去了!
PS:如果只有一个复选框被选中,那么一切运行良好,但只要2就会中断。