Excelでのウィンドウの操作方法について

質問

VBAについての質問です。スタートメニューから、Excelを2回立ち上げたとき、一方のExcelからもう一方のExceｌを選択する方法が分かりません。その記述方法を教えてください。宜しくお願いします。

回答No.3

Siegrune · ベストアンサー

ANo2のものですが。
目的が、
＞一方のExcelから、もう一方を見ながらコマンドボタンを使いデータを入力すること等です。
ならば、
>スタートメニューから、Excelを2回立ち上げたとき
でなく、
スタートメニューから、Excelを1回立ち上げ、2個のファイルを開く、か、Explororから２個のファイルをクリックして開く、かをしないとANo2に書いたようになってしまいます。
こちらの操作はあくまで、Excelを１回立ち上げ、そのExcel上に２個のファイルを開いています。
スタートメニューから、Excelを2回立ち上げるとExcelを２回立ち上げそれぞれのExcelで
それぞれ１個のファイルを開いているのでまったく異なる状態です。

後者なら、マクロの記録ボタンを押してから、
ウィンドウの並べて比較を選べば、２ファイルが並んで出ますし、それぞれのファイルの特定セルを
クリックしてあげたらそれぞれの指定方法もマクロに記録されています。

Windows.CompareSideBySideWith "Book200:1"
Windows("Book200.xls:1").Activate
Windows("Book200.xls:2").Activate
とかいった命令がでてくるはずです。
他にANo1の方が書かれているような方法もあります。

お礼

ご回答ありがとうございます。
双方のBookを比較することができ、データの入力も容易に出来るようになりました。

回答No.2

Siegrune

簡単には、無理です。

別のプロセスで立ち上がっているので、
まったく独立したアプリケーション相互での受け渡しの扱いを受けます。
DDLを使ってプロセスＩＤを調べてそのWindowをアクティブにするとか、
クリップボード経由のコピー＆ペーストとかはできなくはないですが、
普通にExcelを１個起動して、その中でBookを２個起動するのと
同じようなことをしようと思っているなら無理です。
（大変苦労すれば、できるかもしれませんがまあ意味はないと思いますが。）

>一方のExcelからもう一方のExceｌを選択する
の内容が具体的にどういったことか教えてもらえますか？

お礼

ご解答ありがとうございます。
一方のExcelから、もう一方を見ながらコマンドボタンを使いデータを入力すること等です。
Excelを1個起動し、タスクバーで双方ののウィンドウを切り替える手間を無くすためにも、そう考えたのですが。

回答No.1

soixante

２回立ち上げたとき、ということですが、ブックを二つ開いた、という意味であれば、
以下はどうでしょうか。

現在ブックを Wb1 とし、そこから新規ブックを立ち上げて Wb2 とする。
新規ブック立ち上げ時には、それがアクティブになっています。

Sub aaa()

Dim Wb1 As Workbook, Wb2 As Workbook
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Add

必要処理

Set Wb1 = Nothing
Set Wb2 = Nothing

End Sub

お礼

ご解答ありがとうございます。