2017-04-04 1 views
0
Private Sub Worksheet_Change(ByVal Target As Range) 

'Hvis du på noget tidspunkt tilføjer flere rows, så sig til. 
Application.EnableEvents = False 
If Not Intersect(Range("B27:B33"), Target) Is Nothing Then 
    Target.Offset(, 1).Formula = "=UDF_Now()" 
End If 
Application.EnableEvents = True 
End Sub 

Range ("B27 : B33")의 셀 값이 변경 될 때마다 다음 사용자 정의 함수를 실행하기 위해 다음 VBA 코드를 사용하고 있습니다.ByVal은 수식이 사용되는 범위입니다.

수동으로 범위의 셀 값을 변경하는 한이 작동합니다. 문제는 이제 수식으로 구성된 주어진 범위에서이 매크로가 작동하게하려는 것입니다. 전례 중 하나를 변경할 때마다 범위의 셀 값이 변경되지만 내 매크로는 실행되지 않습니다.

전례를 변경하고 따라서 범위 내의 셀 값을 변경할 때마다 매크로가 실행되도록 수식과 함께 작업하고 싶습니다.

유용한 설명입니다.

답변

0

수식으로 인해 셀 내용이 변경되면 변경 이벤트 코드가 트리거되지 않습니다. 값을 수식으로 변경할 때 이벤트를 트리거하려면 Worksheet_Calculate도 필요하면 변경 이벤트 코드와 함께 고려해야합니다.