Excel VBA質問箱 IV

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

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


30012 / 76732 ←次へ | 前へ→

【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 質問
【51947】Re:選択した複数のシートをソート Jaka 07/10/12(金) 16:33 発言
【51948】Re:選択した複数のシートをソート 美貴 07/10/12(金) 16:41 質問
【51949】Re:選択した複数のシートをソート Jaka 07/10/12(金) 17:29 発言
【51993】Re:選択した複数のシートをソート Jaka 07/10/15(月) 9:19 発言
【51995】Re:選択した複数のシートをソート 美貴 07/10/15(月) 11:11 お礼
【52009】Re:選択した複数のシートをソート Jaka 07/10/16(火) 9:17 発言
【51959】Re:選択した複数のシートをソート ichinose 07/10/12(金) 22:41 発言
【51996】Re:選択した複数のシートをソート 美貴 07/10/15(月) 11:12 お礼

30012 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free