咨询：基于ActiveSheet实现可见工作表循环切换的宏代码问题

原代码存在两个核心问题：

• Forward宏仅检查下一张表是否隐藏，无法处理连续隐藏工作表的场景，且硬编码跳转目标不符合循环需求
• Backward宏未考虑隐藏工作表，直接切换前后表会导致选中隐藏表或触发错误

完善后的Forward宏 #

Sub Forward()
    Dim currentIdx As Integer
    Dim nextIdx As Integer
    Dim totalSheets As Integer
    
    currentIdx = ActiveSheet.Index
    totalSheets = ThisWorkbook.Sheets.Count
    
    ' 从当前表的下一个开始遍历，循环查找下一个可见工作表
    For nextIdx = currentIdx + 1 To totalSheets
        If ThisWorkbook.Sheets(nextIdx).Visible = xlSheetVisible Then
            ThisWorkbook.Sheets(nextIdx).Activate
            Exit Sub
        End If
    Next nextIdx
    
    ' 如果遍历到最后一张表仍未找到，从第一张表开始查找
    For nextIdx = 1 To currentIdx - 1
        If ThisWorkbook.Sheets(nextIdx).Visible = xlSheetVisible Then
            ThisWorkbook.Sheets(nextIdx).Activate
            Exit Sub
        End If
    Next nextIdx
End Sub

完善后的Backward宏 #

Sub Backward()
    Dim currentIdx As Integer
    Dim prevIdx As Integer
    Dim totalSheets As Integer
    
    currentIdx = ActiveSheet.Index
    totalSheets = ThisWorkbook.Sheets.Count
    
    ' 从当前表的上一个开始倒序遍历，循环查找上一个可见工作表
    For prevIdx = currentIdx - 1 To 1 Step -1
        If ThisWorkbook.Sheets(prevIdx).Visible = xlSheetVisible Then
            ThisWorkbook.Sheets(prevIdx).Activate
            Exit Sub
        End If
    Next prevIdx
    
    ' 如果遍历到第一张表仍未找到，从最后一张表开始倒序查找
    For prevIdx = totalSheets To currentIdx + 1 Step -1
        If ThisWorkbook.Sheets(prevIdx).Visible = xlSheetVisible Then
            ThisWorkbook.Sheets(prevIdx).Activate
            Exit Sub
        End If
    Next prevIdx
End Sub

代码说明 #

• 使用xlSheetVisible替代直接判断False，更符合VBA规范，避免误判半隐藏（xlSheetVeryHidden）的表
• 双层循环实现循环查找：先从当前表的下/上方向遍历，若找不到则反向从头/尾开始查找，确保始终切换到可见表
• 遍历范围严格限定在工作簿内的所有工作表，避免越界错误

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