[[20031118113801]]　『シートの並び替え』（MOMOKA☆）　ページの最後に飛ぶ

『シートの並び替え』（MOMOKA☆）

こんにちわ。またまたお願いします。
各シートが個人名になっています。あるシートにある順番（順番が変わる）に個人シートを並び替えたいのですが、できますか？宜しくお願い致します。

 シートタブで左ボタンを押すと、白シートが表示されます｡そのまま移動したいシートまでドラッグします。
移動先シートタブに▼マークが表示されたらボタンをはなします。これでシート順序を入れ替えられます。
 (シニア)

説明が悪くてすみません。その作業をマクロかなにかで、自動的にする方法はありますか？

 シート上のセルにシート名が順番に記載されているのでしょうか？
 その点のレイアウトなどが分かりませんが、
 シートの移動であれば、シニアさんの方法を自動記録すれば、コードは作成されます。

 sheet1 Ａ列　にシート名が入力されているとして、

 Sub sample()
 Dim i As Long
 With Worksheets("sheet1")
    For i = 2 To ThisWorkbook.Sheets.Count
    MsgBox "i=" & i & ":" & .Cells(i, 1).Value & " to " & .Cells(i - 1, 1).Value
        Sheets(.Cells(i, 1).Value).Move After:=Sheets(.Cells(i - 1, 1).Value)
    Next i
 End With
 End Sub

   (INA)

いつもお世話になっております。
えっと、シート名が○○でC６から下方向へシートを並べたい順番で名前が入っています。
なにせ超初心者なもので、応用できません。上記コードのどこを変えればよろしいでしょうか？
お教え下さい。お願いします。

 Sub sample()
 Dim i As Long
 With Worksheets("○○")
    For i = 2 To ThisWorkbook.Sheets.Count
    MsgBox "i=" & i & ":" & .Cells(i+5, 3).Value & " to " & .Cells(i+4, 3).Value
        Sheets(.Cells(i+5, 3).Value).Move After:=Sheets(.Cells(i+4, 3).Value)
    Next i
 End With
 End Sub

 これで動くかな？ (INA)

パチパチ！！凄い！サスガ！！ちゃんと動きましたよ。
そこで、もうひとつお願いがあります。
このコードをコマンドボタンに貼り付け、動かした時に、ＯＫをしなくてもいい方法(シートが100枚ぐらいあるため、全部ＯＫするのは辛いので)ありますか？
しつこくてすみまんせが、宜しくお願い致します。

 確認用のメッセージボックスの行を削除すればよいのです。  (INA)

 Private Sub CommandButton1_Click()
 Dim i As Long
 With Worksheets("○○")
    For i = 2 To ThisWorkbook.Sheets.Count
      Sheets(.Cells(i + 5, 3).Value).Move After:=Sheets(.Cells(i + 4, 3).Value)
    Next i
 End With
 End Sub

出来ました。あのとても言いにくいのですが…最後の最後の最後のお願いです！
○○シートのＣ90まででストップしたい時のコードも付け加えていただけたら、とってもとってーーも嬉しいのですが…本当に何度もすみません。

 これでいかがでしょうか？ (INA)

 Private Sub CommandButton1_Click()
 Dim i As Long
 With Worksheets("○○")
    For i = 2 To 85
      Sheets(.Cells(i + 5, 3).Value).Move After:=Sheets(.Cells(i + 4, 3).Value)
    Next i
 End With
 End Sub

かなり最高です！！沢山、ご丁寧にどうもありがとうございました。感謝♪

コメント返信：

[ 一覧(最新更新順) ]

[[20031118113801]] 『シートの並び替え』（MOMOKA☆） ページの最後に飛ぶ

[[20031118113801]]　『シートの並び替え』（MOMOKA☆）　ページの最後に飛ぶ