![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
http://okwave.jp/qa/q8383406.html
以前も質問させて頂きました。
任意の順番にシートを並び替えるプログラムです。
Sub Sheet_sort_Select()
Dim A As Variant, I As Integer
A = Array("更新履歴", "統計", "全データ", "商品金額", "販売台数", "販売累計")
For I = 0 To UBound(A)
Worksheets(A(I)).Move after:=Worksheets(Worksheets.Count)
Next I
End Sub
上記方法で並び替えを行っています。
色んなシートから並び替えを実行するのですが、
最後に選択していたシートに戻るということは可能でしょうか?
このsortをした後に、またselectなりすれば
シート選択できますが、他に方法はあるのでしょうか?
Excel2003を使用しています。
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
回答ありがとうございます!
並び替えの前に、アクティブシートを保持しておくのですね!
全く思いつきもしませんでした…orz
回答頂き、ありがとうございます!
良いプログラムを組めるようにがんばります!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) vba シートの並び替え 1 2023/04/19 13:44
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
InputBoxに入力した言葉をシー...
-
EXCELで複数のシートを一度に「...
-
ワークシートそのものの色を変...
-
テキストボックスをグループ化...
-
ハイパーリンクでジャンプした...
-
エクセルのシート連番の振り直し
-
エクセルで複数のシートに画像...
-
エクセルのシートのタイトルバ...
-
エクセル2003で、複数のシート...
-
エクセルでシート数が分からな...
-
【エクセル】参照セルに何も入...
-
エクセルで、シートの名前を変...
-
ギャップレスCDの作成
-
エクセルでシートを追加したと...
-
Excel(エクセル)で表紙(トップ...
-
エクセルのカレンダーから条件...
-
【Excel(エクセル)】複数シー...
-
差込印刷でのExcelシートの区別。
-
エクセルの2つのシートを並び...
-
エクセルで開くページを指定したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
ワークシートそのものの色を変...
-
【ExcelVBA】マクロの入ったシ...
-
ハイパーリンクでジャンプした...
-
エクセルのシート連番の振り直し
-
エクセル、特定のシートにパス...
-
エクセルの2つのシートを並び...
-
エクセルのシー名を二段表示に...
-
Wordで差し込み印刷時に表示す...
-
Accessのテーブルを既存のExcel...
-
【Excel VBA】データ貼り付け先...
-
EXCELの「シートの見出し」のフ...
-
EXCELの図形(テキストボックス)...
-
accessへエクセルの複数のシー...
-
アクセスからエクセルのシート...
-
特定の複数のシートに同じ処理...
-
エクセルで、シートの名前を変...
おすすめ情報