3

ユーザーがワークシートを前後に移動するボタンのペア (「続行」と「戻る」) があります。

進むボタンは、表示されているシートを問題なく前方に移動できるようで、非表示のシートをスキップします。

ただし、アクティブなシートと以前の表示されているシートの間に非表示のシートがある場合、[戻る] ボタンは何もしません。

2つのコードは実質的に同一であるため、私は混乱しています:

フォワード: (正常に動作します)

Sub MoveNext()
On Error Resume Next
Sheets(ActiveSheet.Index + 1).Activate
If Err.Number <> 0 Then Sheets(1).Activate
End Sub

裏:(隠しシートで失敗)

Sub MoveBack()
On Error Resume Next
Sheets(ActiveSheet.Index - 1).Activate
If Err.Number <> 0 Then Sheets(1).Activate
End Sub

各ボタンは、上記のサブルーチンに適切にバインドされています。

4

1 に答える 1