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

質問

エクセルでマクロを使ってイコールで同じものを表示できますがどっち入力してもどちらにも反映する事は出来ますか？
シートを変えて例えば上代なら上代でどちらのシートからも入力しても
同じ表記になるようにしたいです。
これが使えればかなり便利なのですが＞＜
宜しくお願いします＠＾＾＠

回答No.3

merlionXX · ベストアンサー

あちゃ、（￣ロ￣；）！！
やってしまいました、ケアレスミス！
マナー違反だなんてとんでもない、これは指摘されねばなりませぬぅ。
ham_kamoさん、ありがとうございました。

というわけでbenitier59さん、#1のmerlionXXです。

５以下を、次のように修正させてくださいませ。
ごめんなさ～い。(o。_。)oペコッ

５．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

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

'*****ここより上までをコピペ*****

６．Alt+F11キーでワークシートへもどります。

補足

出来ました！！
感動です＞＜
ついでに欲を出して質問ですが
同じシートの場合どうしたらいいのでしょうか？＾＾；

回答No.2

ham_kamo

他の回答に横やりを入れるのはマナー違反だと承知の上ですが、ご容赦ください。
No.1さんの回答の、５．の方のマクロの、
Sheets("Sheet2").Range("A1") = Target.Value
は、
Sheets("Sheet1").Range("A1") = Target.Value
だと思うのですが…。

回答No.1

merlionXX

ご質問の日本語がとても難しくて、わたしがちゃんと理解できたかどうか、まったく自信がないのですが、仮にSheet1とSheet2のA1同士でそういう設定を行いたい場合のマクロの例です。

１．Sheet1のタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

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

'*****ここより上までをコピペ*****

３．Alt+F11キーでワークシートへもどります。

４．Sheet2のタブを右クリックし、「コードの表示」を選択。
５．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

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

'*****ここより上までをコピペ*****

６．Alt+F11キーでワークシートへもどります。

これでSheet1のA1に入れた数字や文字は、自動的にSheet2のA1にも表示されますし、逆にSheet2のA1に入れたものは、Sheet1のA1にも表示されます。

ぜんぜんbenitier59さんの意図したものと違った場合はご容赦ください。