• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Excel 指定順にシートの並び替え VBA)

Excel VBAで任意の順番にシートを並び替える方法

このQ&Aのポイント
  • ExcelのVBAを使用して、任意の順番にシートを並び替える方法について説明します。
  • 指定した順番にシートを並び替えるためには、VBAのプログラムを使用します。
  • プログラムを実行すると、指定したシートが末尾に移動され、指定した順番で表示されます。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

事前にオブジェクト(今回はシート)を変数に放り込んで、記録しておきます。 Sub Sheet_sort_Select()   Dim A As Variant, s As Worksheet, I As Integer   A = Array("更新履歴", "統計", "全データ", "商品金額", "販売台数", "販売累計")   Set s = ActiveSheet   For I = 0 To UBound(A)     Worksheets(A(I)).Move after:=Worksheets(Worksheets.Count)   Next I   s.Select  ' 1 シートのみを選択したい場合は「s.Activate」と書いてもよい End Sub

satoron666
質問者

お礼

回答ありがとうございます! 並び替えの前に、アクティブシートを保持しておくのですね! 全く思いつきもしませんでした…orz 回答頂き、ありがとうございます! 良いプログラムを組めるようにがんばります!

関連するQ&A

専門家に質問してみよう