|
ご教授お願いします。エクセル2003です。
下記のようなワークシートのチェンジイベントで、今は正常に動いています。
ところが、コメントアウトをはずすと無限ループに入ったような挙動を起こします。
データは2カ所あるいは3カ所に正常に複写されています。
何が原因か教えていただければと思います。
よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim セル As String
セル = ActiveWindow.ActiveCell.Address
Select Case セル
Case "$G$11"
Range("H11").Value = Range("g11").Value
Case "$G$12"
Range("h12").Value = Range("g12").Value
Case "$G$16"
Range("g17").Value = Range("g16").Value
' Range("g23").Value = Range("g16").Value
' Range("g24").Value = Range("g16").Value
End Select
End Sub
|
|