再再質問：エクセルでマクロを使ってイコールで同じものを表示できますがどっち入力してもどちらにも反映する事は出来ますか？

質問

http://okwave.jp/qa2598070.html
で質問したのですがシート１で入力したのを
シート２に自動的に入力してどちらが変更になっても
同じ値が出るようになったのですが
同じシート内はわかったのですが違うブックはどうしたらいいのでしょうか？＞＜
宜しくお願い致します０＾＾０

回答No.1

merlionXX · ベストアンサー

benitier59さん、がんばりますね。

では、別なブックの場合です。

Book1.xlsとBook2.xlsのSheet1のA1同士に設定する例です。

Book1のSheet1のモジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Windows("Book2.xls").Activate
Application.EnableEvents = False
ActiveWorkbook.Sheets("Sheet1").Range("A1") = Target.Value
Application.EnableEvents = True
End Sub

Book2のSheet1のモジュールには、

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Windows("Book1.xls").Activate
Application.EnableEvents = False
ActiveWorkbook.Sheets("Sheet1").Range("A1") = Target.Value
Application.EnableEvents = True
End Sub

として、二つのブックを立ち上げたままで実行（A1へ入力）してみてください。