EXCELVBAについて質問です。

質問

VBAにて、全てのシートを選択しＡ1セルをアクティブにするコードを作りたいのですが、計算後、表示位置がばらばらになってしまいます。

Sub シートをすべて選択後A1セルへ移動()

Worksheets.Select
Application.Goto reference:=Range("a1"), scroll:=True
Sheets(1).Select
Sheets(1).Range("A1").Activate

End Sub

上記のコードなのですが、非アクティブシートは移動せず、セルＡ1へ移動するのはアクティブシートのSheets(1)のみとなります。
ファイルにあるシート全てをＡ1に移動後ウィンドウもＡ1に移動するような命令文はあるのでしょうか？

回答No.1

merlionXX · ベストアンサー

Scrollが出来るのはアクティブなシートに限られると思います。
見えないように全シートをアクティブにして実行したらどうでしょう？

一例です。

Sub シートをすべて選択後A1セルへ移動()
　　Dim ws As Worksheet
　　Application.ScreenUpdating = False
　　For Each ws In Worksheets
　　　　ws.Activate
　　　　Application.Goto reference:=Range("A1"), Scroll:=True
　　Next ws
　　Sheets(1).Select
　　Sheets(1).Range("A1").Activate
　　Application.ScreenUpdating = True
End Sub

お礼

明けましておめでとうございます。
こんなに早く沢山のご回答を頂けるとは思っていませんでした。
ここにあるほぼ全ての方法で解決できるようです。

どの方法も解決方法であり、甲乙付けがたいのですが。
ポイントは先着順とさせていただきます。

皆様ありがとうございました。

回答No.5

layy

追記。

アドイン「すべてのシートをＨＯＭＥポジションへ」で
作ったときのコードはこれでした。

Sub To_Home()
Dim ws As Variant
For Each ws In Worksheets
If Sheets(ws.Name).Visible = True Then
Sheets(ws.Name).Select
Range("A1").Select
End If
Next
Sheets(1).Select
End Sub

参考。

回答No.4

Wendy02

私の解釈が合っていれば、このようにすればよいと思います。

'この場合は、標準モジュールのほうがよい。
Sub TestSelectA1()
Dim Ac As Worksheet
　Set Ac = ActiveSheet
　ActiveWorkbook.Worksheets.Select
　Range("A1").Select
　Ac.Select
End Sub

回答No.3

layy

かなり前
すべてのシートでＡ１ポジションにする、これを右クリックメニューに組み込むアドインサンプルを見たことあります。

CTRL+HOMEでもすぐですが。

あいにくサイトはすぐに思い出せません。検索してみては？。

回答No.2

tom04

こんにちは！
ごく単純に・・・

Sub test()
Dim i As Long
For i = 1 To Worksheets.Count
With Worksheets(i)
.Select
.Range("A1").Activate
End With
Next i
End Sub

こんな感じではどうでしょうか？
的外れならごめんなさいね。m(__)m