如何修改Excel VBA代码实现直接选择单个工作表而非单元格

原代码依赖Type:=8触发单元格选择逻辑，要求用户输入类似=Sheet1!$E$4的单元格引用才能获取工作表，无法直接选择或输入工作表名称。以下是两种针对性修改方案：

方案一：输入工作表名称并验证 #

适合简单场景，让用户直接输入工作表名称，代码自动验证有效性：

Dim wsName As String
Dim ws2 As Worksheet

wsName = InputBox(Prompt:="请输入要选择的工作表名称（如Sheet1）", Title:="选择工作表")

If wsName = "" Then
    MsgBox "用户已取消...", vbInformation
    Exit Sub
End If

On Error Resume Next
Set ws2 = ThisWorkbook.Worksheets(wsName)
On Error GoTo 0

If ws2 Is Nothing Then
    MsgBox "不存在名为'" & wsName & "'的工作表，请重新输入。", vbExclamation
Else
    ' 此处编写选中工作表后的执行逻辑
    MsgBox "已选中工作表：" & ws2.Name, vbInformation
End If

方案二：用列表框选择（更直观） #

避免输入错误，通过用户窗体展示所有工作表，让用户直接选择：

1. 插入用户窗体，命名为frmSelectSheet，添加一个列表框（ListBox1）和一个命令按钮（CommandButton1，标题设为"确定"）
2. 在窗体代码中添加以下内容：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Me.ListBox1.AddItem ws.Name
    Next ws
End Sub

Private Sub CommandButton1_Click()
    If Me.ListBox1.ListIndex <> -1 Then
        Set ws2 = ThisWorkbook.Worksheets(Me.ListBox1.Value)
        Me.Hide
    Else
        MsgBox "请选择一个工作表。", vbExclamation
    End If
End Sub

3. 在模块中调用窗体：

Dim ws2 As Worksheet

frmSelectSheet.Show
If Not ws2 Is Nothing Then
    ' 此处编写选中工作表后的执行逻辑
    MsgBox "已选中工作表：" & ws2.Name, vbInformation
Else
    MsgBox "用户已取消...", vbInformation
End If

内容的提问来源于stack exchange，提问作者user23357972