循環参照を回避したいのですが・・・

Question

いつもありがとうございます。

いま、ExcelVBAで列1をx、列2をyとし、各列は互いに依存しており、x列に値を入れるとy列にも同じ値が自動的に入り、y列に値を入れるとx列にも同じ値が入るものとします。

当たり前ですが循環参照を起こします。かといってx列、y列には同じ値であることが分かっている前提なのでどちらかに入力すれば済むようにしたいです。

なにかよい方法があればご教示下さいますよう、よろしくお願い致します。

Private Sub Worksheet_Change(ByVal Target As Range)

  'x列が変化
  If Not Intersect(Target, Range(Cells(2, 1), Cells(Rows.Count, 1))) Is Nothing Then
    
    If Target <> Cells(Target.Row, 2).Value Then
      'イベント中断
       Application.EnableEvents = False
      Cells(Target.Row, 2).Value = Target
      Exit Sub
    End If
  
  'y列が変化
  ElseIf Not Intersect(Target, Range(Cells(2, 2), Cells(Rows.Count, 2))) Is Nothing Then
  
    If Target <> Cells(Target.Row, 1).Value Then
      'イベント中断
      Application.EnableEvents = False
      Cells(Target.Row, 1).Value = Target
      Exit Sub
    End If
    
  End If
  
  'イベント再開
  Application.EnableEvents = True

End Sub

Answer 1

申し訳ありません。ふつうに循環参照なしになりました。

実は全然違う作業のところで循環参照に陥っていてそこを直したらこっちもうまくいきました。お騒がせしました。

Private Sub Worksheet_Change(ByVal Target As Range)

'x列が変化
If Not Intersect(Target, Range(Cells(2, 1), Cells(Rows.Count, 1))) Is Nothing Then

If Target <> Cells(Target.Row, 2).Value Then
  Cells(Target.Row, 2).Value = Target
End If

'y列が変化
ElseIf Not Intersect(Target, Range(Cells(2, 2), Cells(Rows.Count, 2))) Is Nothing Then

If Target <> Cells(Target.Row, 1).Value Then
  Cells(Target.Row, 1).Value = Target
End If

End If

End Sub