Сбой макроса VBA

Question

Я пытаюсь создать макрос, но когда он запускается сам, excel не справляется с ним и падает.

Вот макрос:

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim i As Integer 
Dim sous As Integer 
If Not IsEmpty(Cells(4, 2)) And IsNumeric(Cells(4, 2).Value) And Not IsEmpty(Cells(4, 3)) And IsNumeric(Cells(4, 3).Value) Then 
    For i = Cells(4, 3).Value To Cells(4, 2).Value 
     sous = i - Cells(4, 3).Value 
     Cells(5 + sous, 4).Value = i 
    Next i 
MsgBox "Yataaaah" 
End If 
End Sub 

Проблема заключается линия Cells(5 + sous, 4).Value = i, потому что если я положил его на комментарий, это работает.

У кого-нибудь есть идеи, почему Excel не справится с этим?

спасибо. Пс: Я нахожусь на mac, и я использую Excel 15.19.1

Answer 1

Вы должны отключить события. Причина сбоя Excel заключается в том, что событие изменения выбора изменяет значение, которое вызывает событие изменения выбора. Он застрял в бесконечном цикле.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Application.EnableEvents = False 
    Dim i As Integer 
    Dim sous As Integer 
    If Not IsEmpty(Cells(4, 2)) And IsNumeric(Cells(4, 2).Value) And Not IsEmpty(Cells(4, 3)) And IsNumeric(Cells(4, 3).Value) Then 
     For i = Cells(4, 3).Value To Cells(4, 2).Value 
      sous = i - Cells(4, 3).Value 
      Cells(5 + sous, 4).Value = i 
     Next i 
     MsgBox "Yataaaah" 
    End If 

    Application.EnableEvents = True 
End Sub