同一程式代碼在工作表與模組執行出現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),上面代碼如何改？
又在工作表中設計代碼，又該注意什麼？

樓主熱帖

希望支持!

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2019-2-28 21:40 | 只看該作者

For Each arr In Range([代號!y1], [代號!z65536].End(xlUp))
If arr(1, 2) "" Then d(arr(1, 2) & " ...
s7659109 發表於 2019-2-27 10:46

[代號!y1] 形式的儲存格位址表示方式,
其實是用在儲存格的公式裡的,
僅適用於全域程式(即模組內)中.

若是在工作表內的VB程式則應使用 Sheets("工作表名稱").[儲存格位址] 的表示方式 :

Sub nn()
Dim arr, d
Set d = CreateObject("Scripting.Dictionary")
With Sheets("代號")
For Each arr In .Range(.[y1], .[z65536].End(xlUp)) ' Range 前面必須有個點, 才能索引到 Sheets("代號") 裡的儲存格
If arr(1, 2) <> "" Then d(arr(1, 2) & "-") = arr(1, 1)
Next
End With
End Sub

複製代碼

TOP

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

3^#

發表於 2019-3-4 08:48 | 只看該作者

另外 For Each arr In .Range(.[y1], .[z65536].End(xlUp))也有人這樣寫 For Each arr In .Range(.[y1], .[y65536].End(xlUp)),確有一樣的效果，為何？不解？

希望支持!

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2019-3-5 22:45 | 只看該作者

本帖最後由 luhpro 於 2019-3-5 22:50 編輯

另外 For Each arr In .Range(.[y1], .[z65536].End(xlUp))也有人這樣寫 For Each arr In .Range(.[y1], .[ ...
s7659109 發表於 2019-3-4 08:48

那兩個式子結果是不一樣的喔,
要了解其原因首先要知道 Range.End(xlUp) 是甚麼意思.

所謂 Range.End(xlUp) 是指 :

從 Range 這個儲存格開始 "往上" 找到第一個有資料的儲存格,傳回該儲存格

所以你上面舉的例子兩個式子結果是不同的,
找到的儲存格一個在 Z 欄, 一個在 X 欄,
可能會列號相同, (同列的兩欄都有資料時)
但不會是同一個儲存格.

前面再加上 Range(.[y1], 後,
前者會遍歷 Y 與 Z 兩欄的標的列,
後者則只會跑 Y (也只有這一個)欄的標的列喔.

TOP