如何通过用户输入框选择有效Excel工作表？VBA功能实现需求

功能需求 #

• 弹窗询问用户选择数据集（是）或图表（否），暂无需处理“否”分支
• 用户选择“是”时，弹出输入框接收工作表名称，有效格式为数字-数字（示例：10-1、1-1；无效示例：a-a、10-a）
• 验证输入内容的格式与有效性，若无效则重复弹出输入框直至输入符合要求
• 输入有效且工作表存在时，激活对应工作表
• 处理用户取消输入时的退出确认逻辑

初始代码问题 #

原代码存在以下关键问题：

• 变量类型不匹配：MsgBox返回整数类型，却用String类型变量接收
• 格式验证逻辑错误：直接用inp = "#-#" Or "##-#"无法实现通配符匹配
• 工作表存在性判断逻辑错误：未正确检查输入的工作表是否存在
• 未实现循环输入：仅验证一次，未重复弹出输入框直至输入有效
• 取消输入的分支缩进错误，导致逻辑执行异常
• “否”分支未按需求暂不处理

完善后的代码 #

Sub ActivateDatasetWorksheet()
    Dim userChoice As Integer
    Dim inputSheetName As String
    Dim isValidFormat As Boolean
    Dim wsExists As Boolean
    
    ' 询问用户选择数据集或图表
    userChoice = MsgBox("是否选择数据集？(是=数据集，否=图表)", vbQuestion + vbYesNo, "选择操作类型")
    
    If userChoice = vbYes Then
        Do
            isValidFormat = False
            wsExists = False
            
            ' 弹出输入框接收工作表名称
            inputSheetName = InputBox("请输入工作表名称（格式示例：10-1、1-1）", "输入数据集工作表")
            
            ' 处理用户取消输入的情况
            If StrPtr(inputSheetName) = 0 Then
                If MsgBox("确定要退出操作吗？", vbYesNo + vbQuestion, "确认退出") = vbYes Then
                    MsgBox "感谢使用，再见！"
                    Exit Sub
                Else
                    ' 用户取消退出，继续循环
                    Continue Do
                End If
            End If
            
            ' 验证格式：确保是 数字-数字 格式（支持1-2位数字开头，1位数字结尾）
            If inputSheetName Like "#-#" Or inputSheetName Like "##-#" Then
                isValidFormat = True
                
                ' 检查工作表是否存在
                On Error Resume Next
                wsExists = Not Worksheets(inputSheetName) Is Nothing
                On Error GoTo 0
                
                If Not wsExists Then
                    MsgBox "输入的工作表不存在，请重新输入！", vbExclamation, "错误提示"
                End If
            Else
                MsgBox "格式无效，请输入类似10-1、1-1的数字-数字格式！", vbExclamation, "格式错误"
            End If
            
        Loop Until isValidFormat And wsExists ' 循环直到格式有效且工作表存在
        
        ' 激活对应工作表
        Worksheets(inputSheetName).Activate
        MsgBox "已成功激活工作表：" & inputSheetName, vbInformation, "操作成功"
    Else
        ' 暂不处理图表分支，可后续补充
        MsgBox "图表分支暂未实现", vbInformation, "提示"
    End If
End Sub

代码关键说明 #

• 格式验证：使用Like运算符匹配#-#（一位数-一位数）和##-#（两位数-一位数）格式，确保输入符合要求
• 循环输入：通过Do...Loop Until实现循环，直到用户输入有效格式且工作表存在
• 取消输入处理：使用StrPtr(inputSheetName) = 0判断用户点击取消，弹出确认对话框，用户确认则退出，否则继续输入
• 工作表存在性检查：通过错误捕获判断工作表是否存在，避免因输入不存在的工作表导致运行错误

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