[[20200911110114]]　『Office365 VBA【全シート表示倍率100%･A1(左上端)』（スイートコーン）　ページの最後に飛ぶ

『Office365 VBA【全シート表示倍率100%･A1(左上端)へカーソル調整】』（スイートコーン）

スイートコーンと申します。

題記の件、
ブック内の全シートの表示倍率を100%、カーソルをA1(左上端)に調整したく、
どのようにマクロを記述すればよいかご指導願いたく投稿致しました。

本件、自組織で作成している資料について、
組織外に提出する場合に、先方に見やすくするべくブック内の全シートにおける表示倍率とカーソルを調整した上で提出するためにマクロ作成を試みている次第です。

以上、お手数ですが、ご教授のほど宜しくお願い致します。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 この手の処理は対象ファイルではないところに置いた方がよさそうな気がします。
 下記のような手順で個人用マクロブックにマクロを置き、直接実行でもよいですが、
 ショートカット、ボタンなどで 実行できるようにすると便利かと思います。
https://www.excelspeedup.com/personalmacro/

 Sub SetWorksheetView()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ActiveWorkbook
    For Each ws In wb.Worksheets
        ws.Activate
        ActiveWindow.Zoom = 100
        Application.Goto Reference:=Range("A1"), Scroll:=True
    Next
    wb.Worksheets(1).Activate
 End Sub
（QS） 2020/09/11(金) 11:46

個人用マクロブックにて上記マクロを組んだところ、思い通りの結果が反映されました。ショートカットも構築したので作業効率が上がりそうです。ありがとうございました。
（スイートコーン） 2020/09/11(金) 13:21

コメント返信：

[ 一覧(最新更新順) ]

[[20200911110114]] 『Office365 VBA【全シート表示倍率100%･A1(左上端)』（スイートコーン） ページの最後に飛ぶ

[[20200911110114]]　『Office365 VBA【全シート表示倍率100%･A1(左上端)』（スイートコーン）　ページの最後に飛ぶ