[[20200511162408]]　『A1に移動マクロ』（yagi）　ページの最後に飛ぶ

『A1に移動マクロ』（yagi）

前にseiyaさんがﾏｸﾛを書かれています。
１）sheet2,3・・になってもA1に移動するﾏｸﾛを教えて下さい。

２)　sheetの名前を変更しても（sheet名 10枚ぐらい）A1に
　　　移動するﾏｸﾛできますか？
　　　無理でしたら、１）でやります。

Private Sub Workbook_Open()

 Sheets("Sheet1").Select
 range("a1").activate
 end sub

 (seiya)

　よろしくお願いいたします。

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

 ご質問の意図をあまり理解できていないのですが、
 すべてのシートのA1セルをアクティブにしていく
 イメージと理解しました。

 Private Sub Workbook_Open()
    Dim i As Long
    For i = Sheets.Count To 1 Step -1
        Sheets(i).Select
        Range("A1").Activate
    Next i
 End Sub
（助六） 2020/05/11(月) 16:46

 Shiftキーを押しながら対象の左端のシートと右端のシートをクリック
 でシート選択
 でシートがグループ化されます。
 この状態で一つのシートでA1セルを選択したら全シートでA1が選択
 されます。
 終わったら適当なシートタブクリックでシートのグループ化を解除します。
（OK） 2020/05/11(月) 16:51

 ↑をマクロ化したらこんな感じです。

Sub test()

 Worksheets.Select
 Range("A1").Select
 Worksheets(1).Select
End Sub

（OK） 2020/05/11(月) 16:54

 ActivateやSelectは親から順に指定する必要があるので移動させたいだけなら
Goto　がお勧めです。。。

 Dim ws As Worksheet
For Each ws In Worksheets
    Application.Goto ws.Range("A1")
Next
（SoulMan） 2020/05/11(月) 20:42

助六さん、OKさん
どうもありがとうございました。
がんばってやってみます。

（yagi） 2020/05/12(火) 11:32

コメント返信：

[ 一覧(最新更新順) ]

[[20200511162408]] 『A1に移動マクロ』（yagi） ページの最後に飛ぶ

[[20200511162408]]　『A1に移動マクロ』（yagi）　ページの最後に飛ぶ