jesscc

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

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-3-7 22:03 | 顯示全部帖子

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

[版主管理留言]

GBKEE(2019/3/8 10:56): 看你的程式碼沒問題,可附檔讓大家看看

我想在儲存格輸入一個數值，來決定 Br 陣列的大小，然後把陣列的元素存入字典裡，但是出現了"陣列索引超出範圍"的提示，請問各位大大是哪裡出錯了?
Dim Br() As String,k%
k = [U1].Value
Set d = CreateObject("Scripting.Dictionary")
For Each A In Range([A9], [A6000].End(xlUp))
ReDim Preserve Br(k)
For j = 1 To k
Br(j) = A.Offset(, j + 159).Value
Next j
d(A & "") = Br(k)
Next

樓主熱帖

Jess

jesscc

中學生 Rank: 2

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

論壇贊助勳章

2^#

發表於 2019-3-8 19:19 | 顯示全部帖子

回復 2# 准提部林
准大，我試了，還是同樣出現偵錯。

Jess

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

3^#

發表於 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

jesscc

中學生 Rank: 2

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

論壇贊助勳章

4^#

發表於 2019-3-8 19:38 | 顯示全部帖子

回復 4# jackyq
j大，同樣偵錯

Jess

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

5^#

發表於 2019-3-8 20:11 | 顯示全部帖子

貼出原始程式碼，活頁簿及工作表名稱有略做修改

Option Base 1
開啟另一個非工作中活頁簿WK(以下省略).
.
.
.
With Sheets("Inventory Report")
IRM1 = .[C4]
IRM2 = .[C5]
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
For Each A In .Range(.[A9], .[A6000].End(xlUp))
Dim Ar(13), Br(24)
For i = 1 To 13
Ar(i) = A.Offset(, i).Value
Next i
d(A & "") = Ar
For j = 1 To 24
Br(j) = A.Offset(, j + 159).Value
Next j
d1(A & "") = Br
Next
End With
Workbooks("L.xlsm").Activate
With Sheets("A INV Report")
.[E10,G10,G11,G12:AR3000].ClearContents
.[G10] = IRM1
.[G11] = IRM2
If .[H9] Like "* A *" Then: .[E10] = "A"
If .[H9] Like "* B *" Then: .[E10] = "B"
For Each A In .Range(.[F12], .[F10000].End(xlUp))
If d.exists(A & "") Then
A.Offset(, 1).Resize(, 13) = d(A & "")
End If
If d1.exists(A & "") Then
A.Offset(, 15).Resize(, 24) = d1(A & "")
Else: A.Offset(, 1).Value = "查無此 PN"
End If
Next
End With
Erase Ar,Br
Set d = Nothing
Set d1 = Nothing
End Sub

複製代碼

Jess

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

6^#

發表於 2019-3-8 21:40 | 顯示全部帖子

回復 8# jackyq
原始程式執行沒有問題，我只是想把原本的Br陣列(大小固定為24個元素)改成可依儲存格輸入的數值隨意變動大小

Jess

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

7^#

發表於 2019-3-8 22:10 | 顯示全部帖子

我修改程式時一開始就把U1的值指定給k了--> k = [U1].Value，而U1的值確定是大於等於1的。(實際工作時U1的輸入值必定是大於等於24)

Jess

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

8^#

發表於 2019-3-8 22:34 | 顯示全部帖子

' 有可能你的 k值出現
jackyq 發表於 2019-3-8 21:54

雖然沒有出現偵錯，但是查詢結果變成這樣

Jess

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

9^#

發表於 2019-3-8 22:54 | 顯示全部帖子

If k >= 1 Then
'       For Each a In .Range(.[A9], .[A6000].End(xlUp))
'          ReDim Br(k)
'
'          For j = 1 To k
'          Br(j) = a.Offset(, j + 159).Value
'          Next j
'          d1(a & "") = Br
'       Next
' End If

不好意思，j大。測試已OK，是我少修改了一個地方。不過我還是不太明白為什麼加了這段
If k >= 1 Then
.
.

End If
就沒問題了

Jess

TOP