VBAマクロがクラッシュする

Question

マクロを作成しようとしましたが、起動時にそれを処理してクラッシュしません。ここで

はマクロです：

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がそれを処理しない理由を知っていますか？

ありがとうございました。 Ps：私は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