エクセルでカーソル位置をA1（左上）に揃える方法！【マクロ自動化】

カーソル位置をキーボード操作のみで”A1″に揃える方法

この面倒な作業をキーボード操作で済ませる方法があります。

[Ctrl] + [Home]

[Ctrl] + [PageUp] / [PageDown]

この2つの操作を繰り返せば10秒とかからない間にカーソル位置を揃えることができます。

処理したいファイルの数が片手で数えられるくらい少ない場合は、この方法で事足りるでしょう。これが10ファイル、20ファイル、30ファイル…となると、かなり面倒くさいですね。

そんなときのために、こういった定型的な操作はマクロに任せてしまうのが定石です！

カーソル位置をマクロで”A1″に揃える方法

カーソルを左上のセルに移動する操作をマクロ（VBA）で書くと、次のようになります。

Range("A1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

1行目で文字通りA1セルを選択し、2行目と3行目で画面のスクロール位置を1行目の1列目に移動しています。

これをエクセルファイルの全てのシートに対して行うには、次のコードを追加します。

Sub sample()
    Dim wb As Workbook
    '現在選択されているブックを変数に格納
    Set wb = ActiveWorkbook
    Dim ws As Worksheet
    'ブックの中のシートを１枚ずつループ
    For Each ws In wb.Worksheets
        '処理対象のシートを有効にする
        ws.Activate
        '"A1"セルを選択
        Range("A1").Select
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
    Next ws
    '先頭のシートを有効にする
    wb.Worksheets(1).Activate
    '使用したオブジェクトを破棄
    Set wb = Nothing
End Sub

11行目~13行目のA1のセルを選択する処理のためだけに大げさな感じになりましたが、この選択中のブックのシートをループする処理は、全てのシートに対して何度となく繰り返し発生する操作(ルーチン作業)を自動化するのに非常に有用です。

以上、今回はこのへんで。

にほんブログ村

エクセルでカーソル位置をA1（左上）に揃える方法！【マクロ自動化】

カーソル位置をキーボード操作のみで”A1″に揃える方法

カーソル位置をマクロで”A1″に揃える方法

関連

コメント