[[20191203110630]]　『並べて表示したシートを元の画面に戻すマクロ』（コン）　ページの最後に飛ぶ

『並べて表示したシートを元の画面に戻すマクロ』（コン）

マクロ初心者となります。

現在、作成中の表にて…
A・Bシートを並べて作業行いたく、左右並べて表示するマクロ（ボタンを押すと左右並んで表示される）を作成する事は出来たのですが、また元の画面Aに戻るボタンのマクロの作成が出来ず悩んでおります。

※自分でおこなってみた結果…左右のシート共にA画面に戻る…左右の画面は開いたまま。。。となってしまします。

【左右並べて表示のマクロ】
Sub B表示ボタン()
'
' B表示ボタン Macro
'

   Worksheets("シートB").Activate

    ActiveWindow.NewWindow
    Worksheets("シートA").Activate

    Windows.Arrange ArrangeStyle:=xlVertical

Range("A2").Select

    ActiveWindow.FreezePanes = True

    ActiveWindow.DisplayZeros = False

End Sub

Range以降は表作成の都合による？指示となります。
【Aシートに戻るボタン】を作成しボタンpushでA画面に戻れるようなマクロの作成ができましたらどなたかご教示お願い致します。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 activewindow.Close
 だけじゃダメなの？

（稲葉） 2019/12/03(火) 11:35

稲葉　様

早速お返事頂きましてありがとうございました。

 activewindow.Closeにて画面を元に戻す事ができました。

ただ、その後に一番行いたかった作業の説明文が抜けておりました…

画面をまた元に戻し、そのままですと半分の画面のままですので、フル画面にまでもっていくマクロにて作成を考えておりました。

現在、「全画面表示」をツールに表示させそれを利用してフル画面表示できないかいろいろしておりましたが、全画面表示にまではもっていけるのですが通常のフル画面（ツール表示）までもっていく事が出来ず苦戦しております。

もし、B画面閉じる→「フル画面表示にする」までのマクロがわかりましたら教えていただけますでしょうか。

（コン） 2019/12/03(火) 11:59

 こういうことでなくて？
 ツール表示ってなんだろう
https://www.officepro.jp/excelvba/window_ope/index7.html

（稲葉） 2019/12/03(火) 12:09

 こういうことですか？
 自動記録の抜粋ですが

 ActiveWindow.Close
 ActiveWindow.WindowState = xlMaximized

（渡辺ひかる） 2019/12/03(火) 12:27

稲葉　様
渡辺　様

今回も早急にお返事頂きまして
ありがとうございます。

稲葉様の添付URLにてマクロの意味を確認行う事ができ、渡辺様が添付下さいました
内容にて行いたかった作業のボタンを作成する事ができました。

ありがとうございました！！
（コン） 2019/12/03(火) 14:11

コメント返信：