人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルのVBAに関する質問です。同じブックの別シートを画面分割して見せたり、隠したりしたいのですが、どうするといいのでしょうか?

●質問者: kaiketsu
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:VBA エクセル
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● SALINGER
●27ポイント ベストアンサー

VBAで行う場合、複数の関数の組み合わせで実現します。


新しいウインドウを開く

 ActiveWindow.NewWindow

アクティブなウインドウを閉じる

 ActiveWindow.Close

上下に整列させる

 Windows.Arrange ArrangeStyle:=xlHorizontal

整列を解除してウインドウいっぱいにする

 ActiveWindow.WindowState = xlMaximized

例えば、新しいシートを開いて上下に整列させて、シート2をアクティブにするなら

 ActiveWindow.NewWindow
 Windows.Arrange ArrangeStyle:=xlHorizontal
 Worksheet("シート2").Activate

アクティブなウインドウを閉じて、もう一つをいっぱいに開くには

 ActiveWindow.Close
 ActiveWindow.WindowState = xlMaximized

http://q.hatena.ne.jp/


2 ● ken3memo
●27ポイント

マクロ記録で ウインドウ--新しいウインドウを開く を記録して修正してみました。

テストしてみて下さい。

Sub Macro1() 'ウインドウの分割

 Dim strBookName As String
 
 strBookName = ThisWorkbook.Name  'ブックの名前を保存

 ActiveWindow.NewWindow  'メニュー ウインドウ--新しいウインドウを開く
 
 Windows(strBookName & ":1").Activate '元を指定 Book:1
 Range("A1").Select  '左上にカーソルをセット
 
 Windows.CompareSideBySideWith "Book1:2" '並べて表示モードで表示します

 Windows(strBookName & ":2").Activate 'コピーした先を指定 Book:2
 Range("A1").Select  '左上にカーソルをセット
 
End Sub

Sub Macro2() '分割解除

 Windows.BreakSideBySide '並べて比較を解除
 ActiveWindow.Close  '1:とか2:指定していないのでチョット危ないけど手抜き
End Sub

からくりは

ウインドウ--新しいウインドウを開く

book1:1 と book1:2 ができるので、並べて表示しただけです。

何かの参考となれば幸いです。

Excel 新しいウインドウを開く

http://support.microsoft.com/kb/254791/ja

http://www.trickpalace.net/windows/tips/excel.open.window.htm

http://win98.pasokoma.jp/3_2397

など..


3 ● 黒ひよこ
●26ポイント

新しいウィンドウを開く/閉じる事で出来ると思います。

参考サイト(Excel 97?2003)

参考サイト(Excel 2007)


サンプルとしてExcel 2007でマクロに記録して、少し手を入れたモノを載せます。

参考にして下さい。

Sub 並列表示()
'変数定義
 Dim O1 As Object
'新しいウィンドウ開く
 ActiveWindow.NewWindow
'並べて表示
 Windows.Arrange ArrangeStyle:=xlVertical
'アクティブセルを指定
 For Each O1 In Windows
 Application.Goto O1.ActiveSheet.Range("A1")
 Next
End Sub

Sub 片方閉じる()
'片方ウィンドウ閉じる
 ActiveWindow.Close
'ウィンドウ最大化
 ActiveWindow.WindowState = xlMaximized
'アクティブセルを指定
 Application.Goto Range("A1")
End Sub
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ