返回列表 上一主題 發帖

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

morris_lth

帖子
27 
主題
11 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-15 
最後登錄
2023-10-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-12-8 17:23 | 顯示全部帖子

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

我是VBA新手,在練習以下程式,會進入LOOP跳不出來
原本用意是在欄V位輸入資料(觸發程序)後會在D1:E10範圍內找相同資料後,輸出至相對的欄位B
用一般的 Sub () 可行,改用 Sub Worksheet_Change(ByVal Target As Range)就會進入無限回圈中

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Variant
Dim I As Integer
  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
End Sub

請大家指點....謝謝
收藏 分享

morris_lth

帖子
27 
主題
11 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-15 
最後登錄
2023-10-27 
2#
發表於 2015-12-10 09:43 | 顯示全部帖子
原來是這樣阿~
謝謝大家的說明...

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題