帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-4-8 15:05 | 只看該作者

[發問] 詢問陣列程式哪裡錯誤

出現陣列索引超出範圍
顯示錯誤範圍 ----> ReDim Preserve 文本A(1 To n, 1 To 2)
我看不出有甚麼問題
想問各位大大是哪裡出錯了以及如何改正

Public Sub 測試3()
Dim 文本(), 文本A()
With Worksheets("1111")
n = 0
文本 = .Range("P3").Resize(4, 2).Value
For i = 1 To 4
If 文本(i, 2) <> Empty Or 文本(i, 2) <> "無" Then
n = n + 1
ReDim Preserve 文本A(1 To n, 1 To 2)
For c = 1 To 2
文本A(n, c) = 文本(i, c)
Next
End If
Next
End With
End Sub

複製代碼

樓主熱帖

naruto018

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

8^#

發表於 2017-4-11 08:25 | 只看該作者

回復 6# jackyq

感謝J大的解說
我已了解了

TOP

naruto018

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

7^#

發表於 2017-4-11 08:18 | 只看該作者

回復 5# c_c_lai

感謝c大的提供的網址
原來是這樣

當使用 Preserve 保留字時，您只能改變多維陣列中最後一維的上界；如果改變了其它維數或最後一維的下界，則會發生執行階段的錯誤。

TOP

jackyq

中學生 Rank: 2

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

6^#

發表於 2017-4-10 19:43 | 只看該作者

回復 3# naruto018

因為 VBA 偷懶
底層沒寫搬遷過程
自然無法 ReDim Preserve 文本A(1 To n, 1 To 2)

同理亦無法
ReDim 文本A(1 To 10)
ReDim Preserve 文本A( -10 To 10)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2017-4-10 18:20 | 只看該作者

回復 3# naruto018
可參考：
http://yes.nctu.edu.tw/vb/0_Basis/Variable/ReDim.htm

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2017-4-10 06:07 | 只看該作者

回復 3# naruto018
你用偵測模式便可解或了
ReDim Preserve 文本A(1 To n, 1 To 2) 的變化，
與 ReDim Preserve 文本A(1 To 2,, 1 To n)

TOP

naruto018

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

3^#

發表於 2017-4-9 09:14 | 只看該作者

回復 2# c_c_lai

感謝大大幫助，修改後測試OK
想問一下大大為什麼我修改前會不行
而轉置後卻可以呢?

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2017-4-8 20:03 | 只看該作者

回復 1# naruto018
試試看！
Public Sub 測試3()
Dim 文本(), 文本A()

With Worksheets("1111")
      n = 0
      文本 = .Range("P3").Resize(4, 2).Value
      For i = 1 To 4
         If 文本(i, 2) <> Empty Or 文本(i, 2) <> "無" Then
            n = n + 1

            '  ReDim Preserve 文本A(1 To n, 1 To 2)
            ReDim Preserve 文本A(1 To 2, 1 To n)
            For c = 1 To 2
                  '  文本A(n, c) = 文本(i, c)
                  文本A(c, n) = 文本(i, c)
            Next
         End If
      Next
End With
End Sub

TOP