Thắc mắc bị lỗi khi Redim Preserve một mảng

[thuctien]

Xin hỏi các anh chị về vấn đề báo lỗi khi Redim Preserve" Máy báo lỗi 09 Subscript out of range tại dòng Redim Preserve myArr(Ubound(MyArr)+1,1)
Em kiểm tra kỹ vẫn chưa biết được tại sao lại lỗi, xin hỏi các anh chị ạ.

Public Sub ReDimArr()
Dim MyArr() As Variant
ReDim MyArr(1, 1)
If UBound(MyArr) < 5 Then
    ReDim Preserve MyArr(UBound(MyArr) + 1, 1)
End If
End Sub

Em cảm ơn rất nhiều.

 

[Phuocam]

Xem thêm ở đây:

https://www.giaiphapexcel.com/diend...edim-preserve-trong-bài-này.67641/post-413935

 

[ndu96081631]

Xin hỏi các anh chị về vấn đề báo lỗi khi Redim Preserve" Máy báo lỗi 09 Subscript out of range tại dòng Redim Preserve myArr(Ubound(MyArr)+1,1)
Em kiểm tra kỹ vẫn chưa biết được tại sao lại lỗi, xin hỏi các anh chị ạ.

Public Sub ReDimArr()
Dim MyArr() As Variant
ReDim MyArr(1, 1)
If UBound(MyArr) < 5 Then
    ReDim Preserve MyArr(UBound(MyArr) + 1, 1)
End If
End Sub

Em cảm ơn rất nhiều.

Đương nhiên code lỗi rồi. ReDim Preserve chỉ cho phép điều chỉnh kích thước của chiều cuối cùng thôi
Ví dụ bạn có MyArr(a, b) thì bạn chỉ chỉnh được cái b mà không thể chỉnh được a

 

[thuctien]

Đương nhiên code lỗi rồi. ReDim Preserve chỉ cho phép điều chỉnh kích thước của chiều cuối cùng thôi
Ví dụ bạn có MyArr(a, b) thì bạn chỉ chỉnh được cái b mà không thể chỉnh được a

Em cảm ơn anh rất nhiều vì câu trả lời quá rõ ràng. Đọc ở các trang khác cũng có nói tới điều này nhưng em lại hiểu nhầm là chỉ cho phép điều chỉnh cận dưới của mảng.

 

[truongvu317]

Đương nhiên code lỗi rồi. ReDim Preserve chỉ cho phép điều chỉnh kích thước của chiều cuối cùng thôi
Ví dụ bạn có MyArr(a, b) thì bạn chỉ chỉnh được cái b mà không thể chỉnh được a

Nói như vậy chưa chính xác, nó là chỉ cho phép thay đổi biên trên của chiều cuối cùng.