|
▼でめ さん:
>コメントアウトをはずすと無限ループに入ったような挙動を起こします。
たとえば、[G11]セルが変化したら、
> Range("H11").Value = Range("g11").Value
[H11]セルを書き換えてますね?
[H11]セルが変われば、また Changeイベントが発生します。
場合により、Changeイベントの連鎖反応が起きます。
Changeイベントのなかで、セルを書き換えるときは、イベントを抑止して
おきましょう
>Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address(0,0)
Case "G11"
Range("H11").Value = Target.Value
Case "G12"
Range("H12").Value = Target.Value
Case "G16"
Range("G17").Value = Target.Value
Range("G23").Value = Target.Value
Range("G24").Value = Target.Value
End Select
Application.EnableEvents = True
>End Sub
|
|