想不明白為何程式會進入無線迴圈 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 想不明白為何程式會進入無線迴圈

返回列表下一主題上一主題發帖

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

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-4-9

1^# 跳轉到 »

發表於 2015-12-9 09:35 | 顯示全部帖子

因為你的程式在單元格被修改的過程中修改了單元格的內容，導致二次事件激活……
可以做如下修改（增加兩行代碼）：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Variant
Dim I As Integer
Application.EnableEvents = False
X = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To X
Cells(I, 2) = Application.VLookup(Cells(I, 1), Range("D1:E10"), 2)
Next I
Application.EnableEvents = True
End Sub

複製代碼

世界那麼大，可我想去哪？

靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。

返回列表下一主題上一主題