在工作中,我们开发了一个使用 Excel 和 VBA 的工具。这个工具有隐藏的工作表,只有在上一步完成后才会打开。我从上一个编码器中遇到的一个问题是,最后一步,有一个额外的按钮,我们称之为 A,可以单击。根据之前编码人员创建的工作表顺序,这张工作表在 10 个中排在第二位,当单击 A 时,它会自动转到第二个位置。
有什么办法可以修改它到最右边的选项卡?
我遇到的问题是当我到达最后一步时,我可以手动将选项卡移动到右侧,但这只是在我完成分析之后,并且不能转到开头,所以它不允许我来拯救。
这会将您的隐藏工作表移动到所有可见工作表的末尾:
Sub test()
With Sheets("Sheet1")
.Visible = True
Sheets("Sheet1").Move After:=Sheets(Sheets.Count)
.Visible = False
End With
End Sub
这会将您的隐藏工作表移动到所有隐藏和可见工作表的末尾:
Sub moveHiddenSheet()
Dim ws, x, lastSheet
x = 0
For ws = Worksheets.Count To 0 Step -1
x = x + 1
If Sheets(Worksheets.Count - x).Visible = False Then
Sheets(ws).Visible = xlSheetVisible
lastSheet = Sheets(ws).Name
Exit For
End If
Next ws
With Sheets("Sheet1")
.Visible = True
Sheets("Sheet1").Move After:=Sheets(Worksheets.Count)
.Visible = False
End With
Sheets(lastSheet).Visible = False
End Sub