[[20041201105614]] 『シートの並び替え』(mii) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シートの並び替え』(mii)

例えばシート1に名簿一覧があってセルA1から順に氏名が入っていて(縦に)

シート2以降は名簿に名前がある人のシート名で30枚分あるとします。

シート1の名簿の名前を変えても自動的にシートの並びが同じ順に変更できる

ようにするのは可能でしょうか?質問が下手ですみません。。


 どうぞ。

 Sub sample()
 Dim i As Long
    With Worksheets("Sheet1")
        For i = 2 To Worksheets.Count
            Worksheets(.Cells(i - 1, 1).Value).Move After:=Worksheets(i)
        Next i

        .Activate
    End With
 End Sub

 (INA)


INAさん回答ありがとうございます。

できました。

mii


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.