Excel VBA "out of stack space"エラー

Question

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim b As Integer 
    b = 0 

    Dim cell As Range 
    Dim rgn As Range 

    Set rgn = Range("f2:f200") 

    For Each cell In rgn 
     If IsEmpty(cell) = False Then 
      b = b + 1 
     End If 
    Next 

    Range("d2").Value = b 
End Sub 

こんにちは、次のExcel VBAコードを実行しようとしたときに問題が発生しました。メッセージボックスが飛び出すと「「スタック領域不足」

問題は、Set rgn = range("f2:f200")行目に、別のメッセージボックスが飛び出しますと言う

があると言うだろうメソッド 'value'オブジェクト 'range'の失敗 "

私は何が間違っているかわかりません...どうもありがとうございました。

Answer 1

問題はあなたが一時的にイベントを無効にする必要が再び...

再度イベントをトリガする、Changeイベント内のセルを変更し、再度されていることである、と：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim b As Integer 
    b = 0 

    Dim cell As Range 
    Dim rgn As Range 

    Set rgn = Range("f2:f200") 

    For Each cell In rgn 
     If IsEmpty(cell) = False Then 
      b = b + 1 
     End If 
    Next 
    Application.Enableevents = False 
    Range("d2").Value = b 
    Application.Enableevents = True 
End Sub