엑셀 VBA, 워크 시트의 코드가 작동하지

Question

I가 시트 1 (참고 -이 코드는 wroksheet 오브젝트의 통합 문서 객체 또는 모듈 아닙니다)에 다음 코드 :

는

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim r As Integer 
r = ActiveCell.Row 
Cells(r - 1, 7).Value = Now() 
ActiveWorkbook.save 
End Sub 

누군가가 나에게 이유를 말해 줄 수 : 1. ActiveWorkbook.save가 작동하지 않습니다. 대신 무한 루프에 빠지게됩니다. 2. F8 키를 눌러 코드를 단계별로 실행할 수없는 이유는 무엇입니까?

ActiveWorkbook.save를 별도의 모듈에 넣은 다음 해당 함수를 워크 시트의 코드에서 호출하려고 시도했지만 무한 루프로 고정되어 있습니다. 잘.

Answer 1

당신은 당신이 다시 이벤트 코드를 호출하는 워크 시트 변경 이벤트의 원인이되는 현재 날짜로 셀을 업데이트 할 때 무한 루프로 인해 발생

Private Sub Worksheet_Change(ByVal Target As Range) 
application.enableevents=false 
    Cells(target.row - 1, 7).Value = Now() 
application.enableevents=true 

ActiveWorkbook.save 
End Sub 

Answer 2

무한 루프를 방지하기 위해 이벤트를 비활성화해야 . 다음과 같이 이벤트를 비활성화해야합니다.

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim r As Integer 
r = ActiveCell.Row 

Application.EnableEvents = False  
Cells(r - 1, 7).Value = Now()  
Application.EnableEvents = True  
ActiveWorkbook.Save 

End Sub