全ワークシートのアクティブセルをホームに移動するマクロ
Excelファイルを他人に渡すときなどに、アクティブセル(カーソル)がホーム(A1セル)にあると整った印象を与えます。
しかしシートがたくさんあると面倒です。
そこで考えたのが、編集中のExcelファイルのすべてのワークシートのアクティブセルをホームに移動するマクロです。
Sub 全ワークシートのアクティブセルをホームに移動()
Dim myWS As Worksheet
For Each myWS In Worksheets
myWS.Select
Range("A1").Select
Next
End Sub
Dim myWS As Worksheet
For Each myWS In Worksheets
myWS.Select
Range("A1").Select
Next
End Sub
[ 2011年8月9日 | カテゴリー: Excel | タグ: VBA , セル ]
« コクヨの紙データ管理アプリ「CamiApp」 | WikipediaAPIを使ってみる »
コメントを残す