添加一句代码，返回目录

lk710618

各位老师好，请教一个问题

我在表格中建了一个控件，点击后就进入右边的sheet，代码如下：
Sub NextSheet()
    Dim currentSheetIndex As Integer
    currentSheetIndex = ActiveSheet.Index
    If currentSheetIndex < Worksheets.Count Then
        Sheets(currentSheetIndex + 1).Select
    End If
End Sub

当进入到最后一个sheet时，我希望再点击控件时能返回到“目录”这个sheet去，我加了下面红色这句代码，但点击后没有反应，是哪里错了吗，需要怎么改呢？
Sub NextSheet()
    Dim currentSheetIndex As Integer
    currentSheetIndex = ActiveSheet.Index
    If currentSheetIndex < Worksheets.Count Then
        Sheets(currentSheetIndex + 1).Select
        If currentSheetIndex = Worksheets.Count Then
            Sheets("目录").Activate
        End If
    End If
End Sub

大灰狼1976

If currentSheetIndex < Worksheets.Count Then
你这个判断里面，根本不会有符合If currentSheetIndex = Worksheets.Count Then的情况

大灰狼1976

Sub NextSheet()
    Dim currentSheetIndex As Integer
    currentSheetIndex = ActiveSheet.Index
    If currentSheetIndex < Worksheets.Count Then
        Sheets(currentSheetIndex + 1).Select
    Else
        Sheets("目录").Activate
    End If
End Sub

lss001

'去掉If ...改为Else

qdtzq

红色部分改动两处，1.if前加Else,2.把结尾的EndIf删除
ElseIf currentSheetIndex = Worksheets.Count Then
            Sheets("目录").Activate

lk710618

终于解决了

         ElseIf currentSheetIndex = Worksheets.Count Then
            Sheets("目录").Activate

lk710618

大灰狼1976 发表于 2024-9-12 15:12
Sub NextSheet()
    Dim currentSheetIndex As Integer
    currentSheetIndex = ActiveSheet.Index

感谢帮助
真奇怪，为啥我回帖说终于解决的时候，是看不到你们跟帖的

ykcbf1100

lk710618 发表于 2024-9-12 16:19
终于解决了

         ElseIf currentSheetIndex = Worksheets.Count Then

3楼代码最简洁了，你还搞个elseif

lk710618

ykcbf1100 发表于 2024-9-13 08:57
3楼代码最简洁了，你还搞个elseif

现在是改成3楼这种简洁的模式了

昨天我看是没人回帖，根本看不到 2 - 6 楼的回复，才自己回帖说解决了的，当时我的回帖显示是2楼，今天再进来看才发现中间有好几个留言了