返回列表 上一主題 發帖

同一程式代碼在工作表與模組執行出現1004

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-2-27 10:46 | 顯示全部帖子

同一程式代碼在工作表與模組執行出現1004

For Each arr In Range([代號!y1], [代號!z65536].End(xlUp))
    If arr(1, 2) <> "" Then d(arr(1, 2) & "-") = arr(1, 1)
Next
上面代碼在模組可組正常執行
但放在工作表（data),引用代號工作表資料，則出現1004錯誤卡住了，故放在工作表(data),上面代碼如何改？
又在工作表中設計代碼，又該注意什麼？
收藏 分享
希望支持!

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
2#
發表於 2019-3-4 08:48 | 顯示全部帖子
另外 For Each arr In .Range(.[y1], .[z65536].End(xlUp))也有人這樣寫 For Each arr In .Range(.[y1], .[y65536].End(xlUp)),確有一樣的效果，為何？不解？
希望支持!

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題