在 excel vba 用户窗体中创建一个后退按钮以转到上一个活动表

Question

我创建了一个用户表单frmNavigation，其中有一个ListBox1，它将列出我的工作簿中存在的所有工作表，我可以双击列表框中列出的任何工作表并转到该工作表。

现在我有近 50 个工作表，所以我从出现在 ListBox1 中的列表中双击并转到该工作表，但现在我想要一个后退按钮“CommandButton2”，以便它可以带我回到我以前的活动工作表.

我创建了一个代码，但它不起作用。

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

Dim i As Integer, Sht As String

'for loop
For i = 0 To ListBox1.ListCount - 1
    'get the name of the selected sheet
    If ListBox1.Selected(i) = True Then
        Sht = ListBox1.List(i - 1)
    End If
Next i

'select the sheet
Sheets(Sht).Select

'reset the userform
Unload Me
frmNavigation.Show

End Sub

Answer 1

试试下面的代码，我不知道如何解释下面代码的逻辑，我已经尽力在代码 cmets 中描述了。

我还修改了ListBox1_DblClick 代码事件，以在您Select 新工作表之前保存最新的ActiveSheet。

代码

Option Explicit

Dim LastSelectedSht As String ' Variable at module level, to store the name of the last selected sheet

'===================================================================

Private Sub CommandButton2_Click()

Dim TmpSht As String

TmpSht = ActiveSheet.Name ' <-- save the current active sheet

' select the previous sheet (stored in LastSelectedSht)
If LastSelectedSht = "" Then
    MsgBox "Error, no sheet stored , is it your first time running ? "
Else
    Sheets(LastSelectedSht).Select
End If 

LastSelectedSht = TmpSht ' <-- use the temp variable to store the latest active sheet

' reset the userform
Unload Me
frmNavigation.Show

End Sub

'===================================================================

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

' modifed code for ListBox double-click event, store the sheet name before switching to the selected item

Dim i As Long

LastSelectedSht = ActiveSheet.Name ' <-- save the current active sheet before selecting a new one
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        Worksheets(ListBox1.List(i)).Activate
    End If
Next i

End Sub

'=================================================================

Private Sub UserForm_Activate()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets
    Me.ListBox1.AddItem ws.Name
Next ws

End Sub