Excel2013で先頭や最後のシートにシングルクリックのみで移動する方法(個人用マクロ ブックを使用)

excel

クイックアクセスツールバーにボタンを追加して実現する方法を示す。なお、例示したコードは十分なテストを行っていない。

  1. Excelを起動する。
  2. [表示]タブ-[マクロ]-[マクロ]-[マクロの記録(R)...]をクリックして「マクロの記録」ダイアログを表示する。
  3. [マクロの保存先(I):]を「個人用マクロ ブック」にして[OK]をクリック。
  4. Excelで何かする(適当なセルを選択する等)。
  5. [表示]タブ-[マクロ]-[マクロ]-[記録終了(R)]をクリックしてマクロの記録を終了する。
  6. [Alt]+[F11]で「Microsoft Visual Basic for Applications」ウィンドウを開く。
  7. [プロジェクト エクスプローラ]から[VBAProject(PERSONAL.XLSB)]-[標準モジュール]-[Module1]を表示する。
  8. 記録した不要なマクロを全て削除して後述のコードを貼り付ける。
  9. 「Microsoft Visual Basic for Applications」ウィンドウを閉じる。
  • クイックアクセスツールバーの[クイック アクセス ツール バーのユーザー設定]-[その他のコマンド(M)...]を選択して「Excel のオプション」ダイアログを開く。
  1. [コマンドの選択(C):]で「マクロ」を選択する。
  2. 貼り付けたコードの関数名が表示されるので、[追加(A) ＞＞]ボタンで任意の場所に追加する。
  3. 追加した項目を選択して[変更(M)...]ボタンで好みに編集する。
  4. Excelを終了する。
  5. 通常のブックは保存する必要はない(好きに汁)。
  6. 「個人用マクロ ブックの変更を保存しますか？・・・」云々と聞かれるので、[保存(S)]ボタンをクリックして保存する。

なお、このコードは十分なテストを行っていない。

Public Sub JumpFirstSheet()
	Sheets(1).Activate
End Sub

Public Sub JummpLastSheet()
	Sheets(Sheets.Count).Activate
End Sub