VBA シート間の同期（列、行、選択範囲）

質問

初めての質問となります。
よろしくお願いいたします。

シート間の同期でセルの同期は他の質問を参照してできましたが、
”行”や”列”での同期/相互参照は、どのように書けばいいのでしょうか。。

下記、sheet1”A1”とsheet2の”B1”に記載したcodeです。

'sheet1に以下を記述
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("Sheet2").Range("$B$1").Value = Sheets("Sheet1").Range("$A$1").Value
End If
End Sub

'sheet2に以下を記述
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Sheets("Sheet1").Range("$A$1").Value = Sheets("Sheet2").Range("$B$1").Value
End If
End Sub

【質問内容】
sheet1の”A列”とsheet2の”B列”はどう書くのでしょう？

上記の方法では無理、または負荷が大きい場合は、

sheet1の”A1:C3”とsheet2の”D4:F6”はどう書くのでしょう？

という内容になります。

先日からVBAを触り始め、
自分なりに調べて一通り試してみましたが解決できませんでした。。

お手数おかけしますが何卒よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

シート１：
private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next

　application.enableevents = false
　for each h in application.intersect(target, range("A:A"))
　　worksheets("Sheet2").cells(h.row, "B").value = h.value
　next
　application.enableevents = true
end sub

シート２：
private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next

　application.enableevents = false
　for each h in application.intersect(target, range("B:B"))
　　worksheets("Sheet1").cells(h.row, "A").value = h.value
　next
　application.enableevents = true
end sub

＃補足
次の観点で作成します
○Ａ列やＢ列の複数セルに同時に編集したような場合もエラーを起こさずに反応する事
○Ａ列をＢ列に（同逆）反映するその操作が不要なイベントの引き金にさせない事

お礼

ありがとうございます。

当方の要求する動作を確認しました。

回答:No.2様の回答を見まして、
補足事項が重要な部分であると認識しています。

上記codeを基に色々と拡張しながら勉強しています。

複数の列と任意のセルを同期させるのに1枚のシート上に
纏めて書き方などは成功しましたが、

sheet1の”A1:C3”とsheet2の”D4:F6”はどう書くのでしょうか。

色々と試行錯誤しましたが、
どうもうまくいきません。。

お手すきの時に併せてご教授いただければ幸甚です。

OKwaveもVBAも2日目で、、、
どうも後手後手に回っています。。。

回答No.2

Nouble

既に回答は出ているようなので、横から少し解説を
ネットで読んだのですが、

動きをトレースすると
「此、どうなの？」
と、いう点についてよく解ります。

操作する人が
シート１の当該セルを書き換えます
するとシート１のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート２の当該セルと書き換えます。
するとシート２のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート１の当該セルを書き換えます。
するとシート１のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート２の当該セルと書き換えます。
するとシート２のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート１の当該セルを書き換えます。
するとシート１のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート２の当該セルと書き換えます。
するとシート２のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート１の当該セルを書き換えます。
するとシート１のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート２の当該セルと書き換えます。
するとシート２のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート１の当該セルを書き換えます。
するとシート１のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート２の当該セルと書き換えます。
するとシート２のイベントがサブルーティンコールのように発生して
以前の何物をもが終わる前にシート１の当該セルを書き換えます。
…

このように
全て何もＥＮＤを迎えずに
ルーティーンが延々積み重なっていきます。

正に…　ですね。
あごが床を突き抜けます。
一切終わりゃしないですよね？
なので此を避けるために
イベント発生を抑制してやる必要があるわけです。

へ？
抑制中の他のイベント発生は…　て？
済みません、知ったこっちゃありません　滝汗(^_^;)
少なくとも私の今の能力では対処不能ですね、

如何でしょうか？
お役に立てていたならば幸いです。

お礼

先ほど”お礼入力”を入れた後に気づきましたが、

”お礼入力”に加えて”補足”という欄にコメントを残さなければ一般に公開されず外からは、貴殿の回答をスルーしてるように見えるのですね。。

しかも”解決済み”にしたら、
質問のステータスも戻せないのですね。。。

お気を悪くされましたら、
大変申し訳ございませんでした。