#author("2017-02-06T23:24:29+09:00","default:Authors","Authors") ''[[TopPage]]'' * Excelシート移動 [#x91f3ceb] Ctrl+PgUp、Ctrl+PgDnで移動するのは面倒で遅いため、マクロ化を考えました。~ prevSheetにCtrl+q、nextSheetにCtrl+eをショートカットとして割当てると効率的でしょう。~ ** 関連ページ [#j3b8f3b6] ~ ファイル名: 任意 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 *** 参考ページ [#x466ae40] ~