[[20080113231743]]　『作業グループの解除』（みかん）　ページの最後に飛ぶ

『作業グループの解除』（みかん）

 いつもお世話になっております。
 全てのシート（２５枚あります）を選択して新しいブックにコピーしました。
 全てのシートを選択したブックに戻って、グループ解除したいのですが
 （グループ解除後Sheets(1)を選択させたい）
 マクロでグループ解除を教えてください。

 エクセルバージョン：２００３　OS：WindowsXP

 マクロの記録で、「グループ解除」が記録出来ませんか？

 ライブラリより『マクロの自動記録』
https://www.excel.studio-kazu.jp/lib/e4b/e4b.html

 例えば、Sheet1,Sheet2,Sheet3を作業グループにした状態から
 マクロの記録を開始し、Sheet1のシートタブ上で右クリック
 一番上の「作業グループ解除(U)」を選択し、記録終了。
 出来たコードを見ると
Sub Macro1()
    Sheets("Sheet1").Select
End Sub
 になっていると思います。
 これを
 ＞グループ解除後Sheets(1)を選択させたい
 と言うことなので
 Sheets("Sheet1") → Sheets(1)
 に変更すれば良いのではないでしょうか？

 (HANA)

（みかん）

 HANAさん、大変ご丁寧な解答有難うございました。
 自動記録はやってみました。

 全て選択した後コピーをして、新ブックに貼り付けています。
 すると新しいブックのSheet(1)が選択されます。
 全シートを選択したブックはそのまま選択されたままなんです・・・
 しかし、そうやって貼り付けた新しいブックには、マクロが組み込まれなくなってしまって、
 新しいブック上でマクロを実行すると、全シートを選択したブックが立ち上がってしまいます。

 ご解答大変感謝いたします。
 もう少し考え直します。

 本当に有難うございました。

 以下のようにSaveCopyAsを使えば実行元のブックのシートがアクティブになったままです。
 また、全シートの選択は必要ないですがいかがでしょう。　　(Hatch)
Sub test()
Dim bName As String
    bName = ActiveWorkbook.Name
    bName = Left(bName, Len(bName) - 4)
    ActiveWorkbook.SaveCopyAs Filename:=bName & "_Copy.xls"
End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20080113231743]] 『作業グループの解除』（みかん） ページの最後に飛ぶ

[[20080113231743]]　『作業グループの解除』（みかん）　ページの最後に飛ぶ