堆疊空間不足??

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-9-13 21:28 | 只看該作者

堆疊空間不足??

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

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

樓主熱帖

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

11^#

發表於 2016-9-15 11:13 | 只看該作者

回復 10# 准提部林

準大我了解了，感謝你

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

10^#

發表於 2016-9-15 10:28 | 只看該作者

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Call RecordPrice
Application.EnableEvents = True
End Sub

有人進教室時
全體起立
敬禮
全體坐下
================================
Private Sub Worksheet_Calculate()
If 條件判斷 = True Then
　Application.EnableEvents = False
　Call RecordPrice
　Application.EnableEvents = True
End If
有人進教室時
如果進來的是老師
全體起立
敬禮
全體坐下
End Sub

假設進來的有１００個人次，而老師只有５人，試想看看兩種狀況差別多少？？？　
　
　

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

9^#

發表於 2016-9-14 18:35 | 只看該作者

回復 8# c_c_lai

C大我了解了

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2016-9-14 18:29 | 只看該作者

回復 7# 藍天麗池
你自己先測試觀察有何差異？
答案是一樣的。
差別僅在於你洗澡時將換洗衣服放在臥室與事先拿進浴室
有何差別？

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

7^#

發表於 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

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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-9-14 18:21 | 只看該作者

回復 5# 藍天麗池
你應該請教 stillfish00 大大的。

Sub RecordPrice()
Dim WR As Long
Dim I As Byte
If Range("E2") < 1 Then Exit Sub
Application.EnableEvents = False
.
.
.
Application.EnableEvents = True
End Sub

複製代碼

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

5^#

發表於 2016-9-14 18:14 | 只看該作者

回復 3# c_c_lai

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

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

4^#

發表於 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大我第一個家的地方對嗎??如果對，那跟第二個加的地方執行起來會有什麼不同呢?