edmondsforum

§A¥i¥H¨Ï¥Î
Private Sub Worksheet_Change ¨Ó°õ¦æ®@
§A¦b¤u§@ªí1 VBA ¶K¤W³o­Ó

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
   If Target.Address = "$A$1" Then Sheets("¤u§@ªí2").Range("A1").Value = [A1].Value
Application.EnableEvents = True
End Sub

¦b¤u§@ªí2 VBA¡@¶K¤W³o­Ó
Private Sub Worksheet_Change(ByVal Target As Range)  
Application.EnableEvents = False
   If Target.Address = "$A$1" Then Sheets("¤u§@ªí1").Range("A1").Value = [A1].Value
Application.EnableEvents = True
End Sub

³o¼Ë´N¥i¥H¤F