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
Last-modified: 2017-02-06 (月) 23:47:56 (473d)