Question

我有上学的任务。在我的工作表上有一个带有下一张纸和上一张纸的按钮。但我希望它始终检查是否可以移动到下一张纸。

例如，三张。我从表1开始，然后单击下一步。然后在表2中我点击下一步。我在第3页，我点击下一步，所以出现一个消息框“没有剩下的纸张。”但如果我添加另一张纸，则需要转到第4页。

以下是我已有的代码：

If ActiveSheet.Index = Worksheets.Count Then
Worksheets(1).Select

Else
ActiveSheet.Previous.Select
End If

Answer 1

If ActiveSheet.Index <> Worksheets.Count Then

    ActiveSheet.Next.Select

Else

    MsgBox "There are no more sheets left."

End If

Answer 2

如果您只想在每个页面上添加命令按钮，那么您必须在所有页面上的每个命令按钮中复制此代码（设计模式 - 双击命令按钮）

Private Sub CommandButton1_Click()
Dim sheetnum As Integer

sheetnum = ActiveSheet.Index
If sheetnum = ThisWorkbook.Sheets.Count Then
    ThisWorkbook.Sheets(1).Activate
    MsgBox "You are at last sheet returning to the first sheet."
Else
    ThisWorkbook.Sheets(sheetnum + 1).Activate

End If
End Sub

或者您必须从命令按钮创建模块并调用函数。像这样：在每个页面的CommandButton代码中：

Call newpage

在Module1中：

Public Sub newpage()
Dim sheetnum As Integer

sheetnum = ActiveSheet.Index
If sheetnum = ThisWorkbook.Sheets.Count Then
    ThisWorkbook.Sheets(1).Activate
    MsgBox "You are at last sheet returning to the first sheet."
Else
    ThisWorkbook.Sheets(sheetnum + 1).Activate

End If
End Sub

导航直到没有纸张

2 个答案: