添加一句代码，返回目录

lk710618 · 发表于 2024-9-12 12:45

本帖最后由 lk710618 于 2024-9-12 14:40 编辑

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

我在表格中建了一个控件，点击后就进入右边的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 · 发表于 2024-9-12 15:11

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

大灰狼1976 · 发表于 2024-9-12 15:12

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 · 发表于 2024-9-12 15:21

本帖最后由 lss001 于 2024-9-12 19:46 编辑

'去掉If ...改为Else

qdtzq · 发表于 2024-9-12 15:39

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

lk710618 · 发表于 2024-9-12 16:19

终于解决了

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

lk710618 · 发表于 2024-9-13 08:44

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

感谢帮助

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

ykcbf1100 · 发表于 2024-9-13 08:57

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

ElseIf currentSheetIndex = Worksheets.Count Then

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

lk710618 · 发表于 2024-9-13 09:17

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

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

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

		自动登录	找回密码
密码			免费注册

[求助] 添加一句代码，返回目录

评分

评分

评分