Excel VBA「堆棧空間不足」錯誤

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")，然後另一個消息框會彈出並說

「對象'範圍'的方法'值'失敗「

我不知道什麼是錯......非常感謝您的幫助。

Answer 1

的問題是，你正在改變細胞的變化事件，這將再次觸發事件，又一次，又一次......

您需要暫時禁用事件：

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