MENU

【ツール】全シートのカーソルをA1セルに戻す

ノーコードでこんなことができます

・全てのシートのカーソルを、A1セルに戻します。

・再度開いた時のシートを、そのままのシート、もしくは先頭シートを選べます。

非表示シートを表示できます。

・閉じる前に自動実行します。

アプリのコード作成画面

f:id:The-Alchemist:20211228110003p:plain

コードの解説

ブックを閉じるとき、自動実行

Private Sub Auto_Close()
  Call  全シートA1セル
End Sub

ブックを閉じるときに、下記の”全シートA1セル”を自動実行します。

各シートに対して処理

 Sub 全シートA1セル() 

  Dim シート As Worksheet
    For Each シート In Worksheets
      シート.Activate
      シート.Range("A1").Select
    Next

各シートに対して、下記の処理を繰り返し行います。

 ・シートをアクティブにする

 ・そのシートの”A1”セルを選択する

先頭のシートをアクティブにして、終了

Worksheets(1).Activate

End Sub

先頭のシートをアクティブにします。

アプリはこちらから↓↓↓↓