MENU

ブックを閉じたとき、全シートのカーソルをA1セルに戻す

無料アプリで、すぐにエクセルVBAマクロを作成できます。

例として、「入力欄のデータを、リストの末尾に転記し、入力欄を空欄に戻す」VBAマクロを作成します。

(ページの末尾に、VBAコード掲載)

事例

ブックを閉じたとき、自動でカーソルをA1にもどします。

ブックを閉じて、再びブックを開けると、カーソルがA1にあります。

できました(^^)/

 

アプリの設定

アプリの設定です。

アプリのトップページ 

⇒▼ カーソル 

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

表示されるVBAコード 

アプリで作成されたコードを、VBE画面に貼り付ければ、マクロの完成です。

 
Sub デモ_1() '全シートA1セル
Application.ScreenUpdating = False ' 画面描画を停止
Application.DisplayAlerts = False  ' 警告表示を停止 
Dim  シート As Worksheet
For Each シート In Worksheets
    シート.Activate
    シート.Range("A1").Select
Next
Worksheets(1).Activate  
Application.DisplayAlerts = true   ' 警告表示を再開
Application.ScreenUpdating = True  ' 画面描画を再開
End sub      


Private Sub Auto_Close()
Call デモ_1
End Sub
   

マクロを使うメリット

手作業で数分かかる作業が、1秒で終わります。

ぜひ、アプリをご利用ください。

 

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