Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5143 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52406】シートをリストどおりに並べ替えるには？ アオガエル 07/11/13(火) 13:31 質問[未読]
【52410】Re:シートをリストどおりに並べ替えるには？ じゅんじゅん 07/11/13(火) 14:45 発言[未読]
【52411】Re:シートをリストどおりに並べ替えるには？ statis 07/11/13(火) 14:50 回答[未読]
【52413】Re:シートをリストどおりに並べ替えるには？ アオガエル 07/11/13(火) 15:54 お礼[未読]
【52406】シートをリストどおりに並べ替えるには？
質問  アオガエル  - 07/11/13(火) 13:31 -
引用なし
パスワード
   初歩的な質問ですがよろしくお願いします。
１００枚のシートがあるブックのシートを左端のシートに書いてあるリストどおりに並べ替えるマクロを作って
みましたがデバッグで動きませんでした初歩的なミスだろうと思うのですが分かりません。
何卒よろしくお願いします。

Sub 並べ替え()

For シート順 = 2 To Sheets.Count
　　
　　シート名 = Sheets(1).Cells(シート順, 1)
　　
　　Sheets(シート名).Move before:=Sheets(シート順)
Next

　　Sheets(1).Select
End Sub

シート名は株式コードなので４桁の数字になっています。
シート名は他のマクロでも使いますので数字の方が都合がいいです。
左端のシートのリストにはセルＡ２からＡ１０１にかけてコードが順番に並んでいます。
デバッグは
Sheets(シート名).Move before:=Sheets(シート順)
に出ます。
自分なりに書き換えてみたのですがいつも同じコードにデバッグが出ます。
なにとぞ御教授お願いいたします。
【52410】Re:シートをリストどおりに並べ替えるに...
発言  じゅんじゅん  - 07/11/13(火) 14:45 -
引用なし
パスワード
   Sheets(シート名).Move After:=Sheets(Sheets.Count)
順次最後に移動させれば、いいのでは？
【52411】Re:シートをリストどおりに並べ替えるに...
回答  statis  - 07/11/13(火) 14:50 -
引用なし
パスワード
   こんにちは

これで如何かな？

Sub Test()
Dim C As Range, Co As Long
Co = 2
For Each C In Sheets(1).Range("A2", _
　　　　　　　　 Sheets(1).Range("A65536").End(xlUp))
　　Sheets(C.Value).Move Before:=Sheets(Co)
　　Co = Co + 1
Next
End Sub
【52413】Re:シートをリストどおりに並べ替えるに...
お礼  アオガエル  - 07/11/13(火) 15:54 -
引用なし
パスワード
   statis さんじゅんじゅんさん早速のレスどうも有り難うございました。
皆様のおかげですっかり解決できました。
今後ともよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5143 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free