返回列表 上一主題 發帖

[發問] 想不明白為何程式會進入無線迴圈

lpk187

帖子
552 
主題
6 
精華
0 
積分
576 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2026-9-10 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-12-8 17:55 | 顯示全部帖子
本帖最後由 lpk187 於 2015-12-8 17:57 編輯

回復 1# morris_lth


    Worksheet_Change是變更工作表中的儲存格時會發生此事件
而Cells(I, 2) = Application.VLookup(Cells(I, 1), Range("D1:E10"), 2)而正是做變更的動作，當然會進入無線迴圈入中
所以必須要在這列之前寫Application.EnableEvents = False 來禁止做觸發動作
之後寫Application.EnableEvents = True 來重新啟動觸發動作

Application.EnableEvents = False
For I = 1 To X
      Cells(I, 2) = Application.VLookup(Cells(I, 1), Range("D1:E10"), 2)
Next I
Application.EnableEvents = True

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題