Question

我有一本带封面的工作簿，其余的表不可见。勾选框会显示选项卡。

封面在书中四处移动。我希望封面始终处于第一位置。

有没有办法做到这一点？

Sub CheckBoxA1_Click()
    Sheets("A").Visible = Not Sheets("A").Visible
End Sub

Sub CheckBox2_Click()
    Sheets("B").Visible = Not Sheets("B").Visible
End Sub

尽管封面在不同的地方向上延伸，但其他表格变得可见，因此宏效果很好。我希望它始终处于第一位。这可能吗？

Answer 1

打开工作簿时，使用Workbook.Open事件将特定的工作表移动到第一位置。

将此代码添加到ThisWorkbook模块，并将Sheet1更改为该工作表的代码名：

Private Sub Workbook_Open()
    Sheet1.Move Before:=Me.Sheets(1)
End Sub

将工作表放在工作簿中的第一位

1 个答案: