Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30087 / 76807

←次へ　｜　前へ→


	【51993】Re:選択した複数のシートをソート

Jaka - 07/10/15(月) 9:19 -


	引用なし

	パスワード

すでにichinoseさんからコードの提示があるけど書いてきたので。

Sub main()
Dim tb() As String, Ws As Worksheet, i As Long, ii As Long
Dim Sav As String

AcShNm = ActiveSheet.Name
ReDim tb(1 To 2, 1 To ActiveWindow.SelectedSheets.Count)
Application.ScreenUpdating = False
For Each Ws In ActiveWindow.SelectedSheets
　　i = i + 1
　　tb(1, i) = Ws.Index
　　tb(2, i) = Ws.Name
Next
'昇順バブルソート
For i = 1 To UBound(tb, 2)
　　For ii = i To UBound(tb, 2)
　　　　If tb(2, i) > tb(2, ii) Then
　　　　　 Sav = tb(2, i)
　　　　　 tb(2, i) = tb(2, ii)
　　　　　 tb(2, ii) = Sav
　　　　End If
　　Next
Next
'選択してあるシートを対象に昇順ソート
For i = 1 To UBound(tb, 2)
　　Sheets(tb(2, i)).Move after:=Sheets(Int(tb(1, i)))
Next
'選択シートしてあったシートを選択状態にする
For i = UBound(tb, 2) To 1 Step -1
　　Sheets(tb(2, i)).Select 0
Next
Sheets(AcShNm).Activate
Application.ScreenUpdating = False
Erase tb

End Sub

0 hits

▼

【51943】選択した複数のシートをソート 美貴 07/10/12(金) 15:25