Excel VBA質問箱 IV

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

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


29611 / 76738 ←次へ | 前へ→

【52406】シートをリストどおりに並べ替えるには?
質問  アオガエル  - 07/11/13(火) 13:31 -

引用なし
パスワード
   初歩的な質問ですがよろしくお願いします。
100枚のシートがあるブックのシートを左端のシートに書いてあるリストどおりに並べ替えるマクロを作って
みましたがデバッグで動きませんでした初歩的なミスだろうと思うのですが分かりません。
何卒よろしくお願いします。

Sub 並べ替え()

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

  Sheets(1).Select
End Sub

シート名は株式コードなので4桁の数字になっています。
シート名は他のマクロでも使いますので数字の方が都合がいいです。
左端のシートのリストにはセルA2からA101にかけてコードが順番に並んでいます。
デバッグは
Sheets(シート名).Move before:=Sheets(シート順)
に出ます。
自分なりに書き換えてみたのですがいつも同じコードにデバッグが出ます。
なにとぞ御教授お願いいたします。
0 hits

【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 お礼

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