Excel VBA質問箱 IV

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

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


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

30059 / 76732

←次へ　｜　前へ→


	【51943】選択した複数のシートをソート

美貴 - 07/10/12(金) 15:25 -


	引用なし

	パスワード

みなさま、こんにちはー♪
久しぶりの投稿になります。(^。^)
会社の仕事で、うまく行かなくって困っています。
お助け、お願い致します。

ブック内の全シートのソートは、下記コード（某サイトから引用）で
OKなのですが、
選択した複数のシートを対象にソートするには、
どうしたらいいんでしょうか？
ActiveWindow.SelectedSheetsを使用すればできそうなのですが
私のレベルだと、うまくいきません！^^;

Sub シートの並べ替え()
'
Dim ShMax As Integer
Dim MyWS As Object
Dim CurMax As Integer
Dim i As Integer

With ActiveWorkbook

　　ShMax = ActiveWorkbook.Sheets.count

　　If ShMax = 1 Then Exit Sub

　　CurMax = 0
　　For Each MyWS In .Worksheets
　　　　CurMax = CurMax + 1
　　　　If CurMax = 1 Then
'　　　　　　最初の１枚は先頭に。
　　　　　　MyWS.Move before:=.Sheets(1)
　　　　Else
'　　　　　　(CurMax - 1)は処理済みシート数を表す。
　　　　　　For i = 1 To CurMax - 1
'　　　　　　　　MyWSより大きな名前の処理済みシートが
'　　　　　　　　存在した場合、その直前に移動させる。
　　　　　　　　If MyWS.Name < .Sheets(i).Name Then
　　　　　　　　　　MyWS.Move before:=.Sheets(i)
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next i
'　　　　　　MyWSより大きな名前の処理済みシートが存在
'　　　　　　しなかった（i = CurMaxになっている。）場合、
'　　　　　　処理済みの直後に移動させる。
　　　　　　If i = CurMax Then
　　　　　　　　MyWS.Move after:=.Sheets(CurMax - 1)
　　　　　　End If
　　　　End If
　　Next
　　Sheets(1).Select

End With

End Sub

0 hits

▼

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

≪