堆疊空間不足??

Sub RecordPrice()
Dim WR As Long
Dim I As Byte

If Range("E2") < 1 Then Exit Sub

WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or _
((Second(Range("A2")) Mod 5) = 1) Then '總量有異動時才記錄..........................這個地方有寫錯嗎??還是要怎麼改比較好??
Cells(WR, 1).Resize(, 4) = [A2:D2].Value
End If
End Sub

執行程式後為什麼會瘋狂寫入，且出現堆疊空間不足呢??

樓主熱帖

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

2^#

發表於 2016-9-14 17:52 | 顯示全部帖子

回復 2# stillfish00
S大你好小弟有兩個疑問跟你請教一下

1.我程式裡面沒有WorkSheet_Change()，
但有Private Sub Worksheet_Calculate()
      Application.EnableEvents = False.............所以是加在這邊
      Call RecordPrice
      Application.EnableEvents = True..............還有這邊嗎??
      End Sub

2.S大還沒說之前我是加在
Sub RecordPrice()
Dim WR As Long
Dim I As Byte

If Range("E2") < 1 Then Exit Sub

WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or _
((Second(Range("A2")) Mod 5) = 1) Then
Application.EnableEvents = False.................這邊
Cells(WR, 1).Resize(, 4) = [A2:D2].Value
Application.EnableEvents = True...................還有這邊
End If
End Sub

我加完後就可以執行了，請教S大我第一個家的地方對嗎??如果對，那跟第二個加的地方執行起來會有什麼不同呢?

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

3^#

發表於 2016-9-14 18:14 | 顯示全部帖子

回復 3# c_c_lai

C大測試後一樣堆疊空間不足，我昨天是用2#的方法，用Application.EnableEvents去解決的，但是對於加在那裡不是很清楚，C大可以看看4#再給我一些意見

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2016-9-14 18:23 | 顯示全部帖子

回復 6# c_c_lai

C大我也有請教他，另外
Private Sub Worksheet_Calculate()
      Application.EnableEvents = False.............所以是加在這邊
      Call RecordPrice
      Application.EnableEvents = True..............還有這邊嗎??
      End Sub
..............................................................................................................................................................................

Sub RecordPrice()
Dim WR As Long
Dim I As Byte

If Range("E2") < 1 Then Exit Sub

WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or _
((Second(Range("A2")) Mod 5) = 1) Then
Application.EnableEvents = False.................這邊
Cells(WR, 1).Resize(, 4) = [A2:D2].Value
Application.EnableEvents = True...................還有這邊
End If
End Sub

加在上面這兩個地方有甚麼不同??

TOP

藍天麗池