TopPage

Excelシート移動

Ctrl+PgUp?、Ctrl+PgDn?で移動するのは面倒で遅いため、マクロ化を考えました。
prevSheetにCtrl+q、nextSheetにCtrl+eをショートカットとして割当てると効率的でしょう。

関連ページ


ファイル名: 任意

Sub prevSheet()
If 1 < ActiveSheet.Index Then                        ' 最初のシートでないなら                           '
    ActiveSheet.Previous.Select                         ' 前のシートに移動する                             '
End If
End Sub

Sub nextSheet()
If Worksheets.Count > ActiveSheet.Index Then         ' 最後のシートでないなら                           '
    ActiveSheet.Next.Select                             ' 次のシートに移動する                             '
End If
End Sub

参考ページ



トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS