12
返回列表 上一主題 發帖

[發問] 陣列大小如何以變數替代

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
6# 跳轉到 »
發表於 2019-3-8 19:38 | 只看該作者
回復 4# jackyq
j大，同樣偵錯
Jess

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
5#
發表於 2019-3-8 19:34 | 只看該作者
版主GBKEE
因為這程式是要按設定好的路徑開啟另一個活頁簿去抓資料，所以範例檔很難做，我在想是不是轉資料的部分有誤，我再貼出轉資料的部分如下
    For Each A In .Range(.[F12], .[F10000].End(xlUp))
      If d.exists(A & "") Then
      A.Offset(, 15).Resize(, k) = d(A & "")
      Else: A.Offset(, 1).Value = "查無此 PN"
      End If
    Next
Jess

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
4#
發表於 2019-3-8 19:34 | 只看該作者
try .....

d(A & "") = Br

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
3#
發表於 2019-3-8 19:19 | 只看該作者
回復 2# 准提部林
准大，我試了，還是同樣出現偵錯。
Jess

TOP

准提部林

帖子
2808 
主題
10 
精華
0 
積分
2864 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-18 
2#
發表於 2019-3-8 10:43 | 只看該作者
ReDim Preserve Br(k)
改成>> ReDim Br(1 To k)

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
12
返回列表 上一主題