worksheet_changeで無限ループ(EnableEvents)
イベントを一旦停止して、値を書き換えた後にイベントを発生を有効にするといいサァ
Application.EnableEvents = False
Cell値代入
Application.EnableEvents = True
イベントを一旦停止して、値を書き換えた後にイベントを発生を有効にするといいサァ
Application.EnableEvents = False
Cell値代入
Application.EnableEvents = True