[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シートの並び替え』(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.