重新排列Excel中的隱藏選項卡

Question

在工作中，我們已經使用Excel和VBA開發了一個工具。 該工具具有隱藏的工作表，只有在上一步完成后才能打開。 我在以前的編碼器中遇到的問題之一是，在最后一步，有一個額外的按鈕，我們稱它為A，可以單擊它。 根據先前編碼器創建的圖紙順序，此圖紙是10張紙中的第二張，單擊A時，它會自動移至第二個位置。

有什么辦法可以將其修改到最右邊的選項卡？

我遇到的問題是，當我進入最后一步時，可以將選項卡手動移至右側，但這僅是在我完成分析之后，並且無法開始，因此不允許我救。

Answer 1

這會將您隱藏的工作表移動到所有可見工作表的末尾：

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