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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-16

2^#

發表於 2019-3-8 10:43 | 只看該作者

ReDim Preserve Br(k)
改成>> ReDim Br(1 To k)

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:19 | 只看該作者

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

Jess

TOP

jackyq

中學生 Rank: 2

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

中學生 Rank: 2

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

jesscc

中學生 Rank: 2

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

中學生 Rank: 2

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

論壇贊助勳章

7^#

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

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

8^#

發表於 2019-3-8 20:50 | 只看該作者

不是只有 Array
以下也會產生 "陣列索引超出範圍"

Workbooks("不存在的wb").Activate
Sheets("不存在的ws").Select

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

9^#

發表於 2019-3-8 21:40 | 只看該作者

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

Jess

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

10^#

發表於 2019-3-8 21:54 | 只看該作者

本帖最後由 jackyq 於 2019-3-8 22:03 編輯

' 有可能你的 k值出現 <=0
' 你可以試試下面

Option Base 1

Sub QX9650_____()

Dim a()

k = 10
ReDim a(k)

k = 1
ReDim a(k)

k = 0
ReDim a(k)  '你把陣列下限設為 1 , 結果變成 Redim  a(1 to 0)

End Sub

' 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

TOP