如何基于下拉列表值与数值切换Excel特定工作表？

原代码已实现通过下拉列表（RESUMO表E7单元格的值）匹配工作表名称并切换显示，以下是加入数值判断逻辑的优化方案：

基础版：单一数值条件判断 #

假设你需要根据RESUMO表中某单元格（示例为E8）的数值，仅当数值满足指定条件时才执行工作表切换逻辑。修改后的代码如下：

Option Explicit ' 强制变量声明，避免隐性报错
Sub VistaCliente()
    Dim MySelectedSheet As String
    Dim MyJudgeValue As Double ' 根据实际数值类型调整，整数用Integer
    Dim sh As Worksheet
    Dim TempName As String
    
    ' 获取下拉关键词和判断用数值
    MySelectedSheet = Worksheets("RESUMO").Cells(7, 5).Value
    MyJudgeValue = Worksheets("RESUMO").Cells(8, 5).Value ' 替换为你实际的数值单元格
    
    For Each sh In Worksheets
        TempName = sh.Name
        ' 同时满足：工作表名包含关键词 + 数值符合条件（示例为>=100，可修改）
        If InStr(1, TempName, MySelectedSheet) > 0 And MyJudgeValue >= 100 Then
            sh.Visible = True
            sh.Select
            sh.Range("A1").Select
        ElseIf sh.Name <> "RESUMO" Then
            sh.Visible = False
        End If
    Next
    
    Condicoes.Show
End Sub

进阶版：多数值分支判断 #

如果需要根据不同数值切换到不同规则的工作表组，可使用Select Case实现多分支逻辑：

Option Explicit
Sub VistaCliente()
    Dim MySelectedSheet As String
    Dim MyJudgeValue As Integer
    Dim sh As Worksheet
    Dim TempName As String
    
    MySelectedSheet = Worksheets("RESUMO").Cells(7, 5).Value
    MyJudgeValue = Worksheets("RESUMO").Cells(8, 5).Value ' 替换为实际数值单元格
    
    For Each sh In Worksheets
        TempName = sh.Name
        Select Case MyJudgeValue
            Case 1 ' 数值为1时，显示包含关键词的主工作表
                If InStr(1, TempName, MySelectedSheet) > 0 Then
                    sh.Visible = True
                    sh.Select
                    sh.Range("A1").Select
                ElseIf sh.Name <> "RESUMO" Then
                    sh.Visible = False
                End If
            Case 2 ' 数值为2时，显示带"备份_"前缀的对应工作表
                If InStr(1, TempName, "备份_" & MySelectedSheet) > 0 Then
                    sh.Visible = True
                    sh.Select
                    sh.Range("A1").Select
                ElseIf sh.Name <> "RESUMO" Then
                    sh.Visible = False
                End If
            Case Else ' 数值不符合时，仅保留RESUMO表可见
                If sh.Name <> "RESUMO" Then
                    sh.Visible = False
                End If
        End Select
    Next
    
    Condicoes.Show
End Sub

关键修改说明 #

• 加入Option Explicit强制变量声明，避免因变量名拼写错误导致的隐性问题
• 新增MyJudgeValue变量存储用于判断的数值，需根据实际单元格位置替换
• 在原有的工作表名称匹配逻辑中，加入数值判断条件（And连接）或使用Select Case处理多分支场景
• 可根据实际需求调整数值判断规则（如等于特定值、区间判断等）

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