- 追加された行はこの色です。
- 削除された行はこの色です。
#author("2017-02-06T23:24:29+09:00","default:Authors","Authors")
#author("2017-02-06T23:47:56+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 ' 最初のシートでないなら '
If 1 < ActiveSheet.Index Then ' 最初のシートでないなら '
ActiveSheet.Previous.Select ' 前のシートに移動する '
End If
End Sub
Sub nextSheet()
If Worksheets.Count > ActiveSheet.Index Then ' 最後のシートでないなら '
If Worksheets.Count > ActiveSheet.Index Then ' 最後のシートでないなら '
ActiveSheet.Next.Select ' 次のシートに移動する '
End If
End Sub
*** 参考ページ [#x466ae40]
~