Excelの２つのシートで別のセルに同じ内容を表示する方法

質問

すみません。再度質問なのですが２つのシートの別(シート1のＡ１、シート２のＢ２等)のセルに
同じ内容をどちらのシートからの入力でも表示できる方法で、
その設定が数パターン(シート１のＡ１、シート２のＢ２を１つ。シート１のＤ４、シート２のＥ５等)作りたいのですが
どのような設定を行ったらよろしいのでしょうか？

入力パターン１
ひな型ファイルを開きシート１のＡ１に「100」と入力したときに、シート２のＢ２に「100」と入力出来る様にする。
シート２のＥ５に「200」と入力したときに、シート１のＤ４に「200」と入力できるようにする。

入力パターン２
ひな型ファイルを開きシート２のＢ２に「100」と入力したときに、シート１のＡ１に「100」と入力出来る様にする。
シート１のＤ４に「200」と入力したときに、シート２のＥ５に「200」と入力できるようにする。

かなり複雑でわかりにくいとは思いますがよろしくお願いいたします。

回答No.4

KenKen_SP · ベストアンサー

こんにちは。KenKen_SP です。

> どのような設定を行ったらよろしいのでしょうか？

設定や関数じゃ無理です。VBA を使います。

でもシート名を変更したらコードも修正しなきゃならないし※...かえって
わかり難い仕組みかもしれませんよ？

　　※コードネームでシートを指定する方法に変えれば対応できますが。

それぞれの’シートモジュール’に下記のコードを貼り付けます。

’場所：シート選択タブ[ Sheet1 ]上で右クリック[コードの表示] から
' Sheet1 モジュール
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim rA As Range
　　On Error Resume Next
　　Application.EnableEvents = False
　　For Each rA In Target.Areas
　　　　' シート名はご自分の都合に合わせて下さい
　　　　Worksheets("Sheet2").Range(rA.Address) _
　　　　.Offset(1, 1).Value = rA.Value
　　Next
　　Application.EnableEvents = True
End Sub

’場所：シート選択タブ[ Sheet2 ]上で右クリック[コードの表示] から
' Sheet2 モジュール
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim rA As Range
　　On Error Resume Next
　　Application.EnableEvents = False
　　For Each rA In Target.Areas
　　　　' シート名はご自分の都合に合わせて下さい
　　　　Worksheets("Sheet1").Range(rA.Address) _
　　　　.Offset(-1, -1).Value = rA.Value
　　Next
　　Application.EnableEvents = True
End Sub

お礼

ありがとうございました。

早速試させていただきます。

回答No.3

maron--5

◆なぜ、そのようなことが必要なのでしょうか？
◆理由がわかれば、別の解決法があるかもしれません

回答No.2

hana-hana3

＞かなり複雑でわかりにくいとは思いますがよろしくお願いいたします。

やりたいことは解りますがエクセルの機能では出来ません。
セルに入れる事が可能なのは、「値」か「式」のいずれかになるので、
セルの内容を他のセルに反映（表示）させる事は可能ですが、反映されたセルの内容を変更して参照元のセルに表示させるような、双方向の参照は出来ません。

回答No.1

natsumipapa

ご希望の入力は循環参照となり無理と思います。
入力シートを別にしてすべての入力をそこからにした上で
結果を複数シートの複数セルに表示は可能でしょう。