全シートのA1セルを選択して1シート目を選択して保存するVBAマクロ

いちいち作るのはめんどくさいけどショートカットに登録してあったら意外と使えるマクロ。

あの人のExcelは必ずすべてのシートでカーソルがA1セルにあって1シート目を選んで保存されている、周りの立場になるとちょっと怖い気もするちょっとホラー系VBAです。

いきなり答え

For文で1～シートの数だけ繰り返して、シートを選びながらセルA1を選びます。

Sub A1CellSelect()

    ' s = シートの数から1まで減算しながら繰り返す
    For s = Sheets.Count To 1 Step -1

        ' シートが表示されている（非表示ではない）場合
        If Sheets(s).Visible = True Then

            ' シートsのA1セルを選択する
            Sheets(s).Activate
            Range("A1").Select

        End If

    Next s

    ' ブックを保存する
    ActiveWorkbook.Save

End Sub

これだけ組むのもめんどくさい、今はとにかく設計のことを考えてたい感じです。

他にも便利なマクロをメモしていきます

紹介とかするつもりではなく職場でダイレクトに使えるものを作っていこうと思っています。

CodeShelfって本来そういう意味で名付けたので、本来の役割を果たしていきたいなと。