返回列表 上一主題 發帖

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

luhpro

帖子
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("工作表名稱").[儲存格位址] 的表示方式 :
  1. Sub nn()
  2.   Dim arr, d

  4.   Set d = CreateObject("Scripting.Dictionary")

  6.   With Sheets("代號")
  7.     For Each arr In .Range(.[y1], .[z65536].End(xlUp))   ' Range 前面必須有個點, 才能索引到 Sheets("代號") 裡的儲存格
  8.       If arr(1, 2) <> "" Then d(arr(1, 2) & "-") = arr(1, 1)
  9.     Next
  10.   End With
  11. End Sub
複製代碼

TOP

s7659109

帖子
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

帖子
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

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題