Hỏi về khai báo biến kiểu Type

[minhxaydungvinh]

Mình có đoạn code sau không hiểu sao nó laij bị lỗi ở dòng ReDim Preserve Capnhat(UBound(Capnhat) + 1)

Type NK_TC
    STT As Integer
    NoiDung As String
    Ngay As Date
End Type
Dim Capnhat() As NK_TC

Sub test()

For i = 1 To 6
    ReDim Preserve Capnhat(UBound(Capnhat) + 1)
    Capnhat(UBound(Capnhat) - 1).STT = Sheet5.Range("A" & i)
    Capnhat(UBound(Capnhat) - 1).NoiDung = Sheet5.Range("B" & i)
    Capnhat(UBound(Capnhat) - 1).Ngay = Sheet5.Range("C" & i)
Next
For i = 1 To UBound(Capnhat)
    Debug.Print Capnhat(i).STT
    Debug.Print Capnhat(i).NoiDung
    Debug.Print Capnhat(i).Ngay
Next
End Sub

Mong mọi người giúp mình sửa cho đúng với ạ

 

[befaint]

Sub test()
ReDim Capnhat(1 To 1)
For i = 1 To 6
    ReDim Preserve Capnhat(1 To UBound(Capnhat) + 1)
'....
End Sub

 

[minhxaydungvinh]

Sub test()
ReDim Capnhat(1 To 1)
For i = 1 To 6
    ReDim Preserve Capnhat(1 To UBound(Capnhat) + 1)
'....
End Sub

Cảm ơn bác nhé. Lâu quá không động đến code nên quên