VBA - Erro de incompatibilidade de tipo com loop e matriz 2D

0

O que estou tentando fazer é copiar uma matriz para uma matriz temporária enquanto redimensiono a matriz original e depois copio a matriz temporária de volta para o original redimensionado.

Mas estou encontrando o erro "incompatibilidade de tipos" quando o primeiro loop for executado.

o que estou fazendo errado para receber esse erro?

Public Sub UpdateNamesPaid(NameValue As String, Paid As String)

    NamesPaid(NamesPaidSize, 0) = NameValue
    NamesPaid(NamesPaidSize, 1) = Paid

    NamesPaidSize = NamesPaidSize + 1
    Dim TempArray() As Variant
    ReDim TempArray(0 To NamesPaidSize, 0 To 1)

    Dim i As Integer
    Dim j As Integer

    i = 0
    j = 0

    For i = 0 To UBound(NamesPaid(i, j)) 

        For j = 0 To UBound(NamesPaid(i, j))

            TempArray(i, j) = NamesPaid(i, j)

        Next j
    Next i

    ReDim NamesPaid(0 To NamesPaidSize, 0 To 1)
    NamesPaid() = TempArray()

End Sub
    
por Matthew Johnston 09.01.2016 / 18:49

1 resposta

0

Você entendeu mal como os parâmetros da função UBound() se destinam: o primeiro parâmetro é o nome da matriz, o segundo é a dimensão que você está observando.
O código correto seria:

    Public Sub UpdateNamesPaid(NameValue As String, Paid As String)
    Dim i As Long, j As Long
    Dim NamesPaidSize As Long
    Dim NamesPaid() As String
    ReDim NamesPaid(0 To 0, 0 To 1)

    NamesPaidSize = LBound(NamesPaid, 1) ' or whatever you meant...
    NamesPaid(NamesPaidSize, 0) = NameValue
    NamesPaid(NamesPaidSize, 1) = Paid

    Dim TempArray() As String
    ReDim TempArray(0 To NamesPaidSize, 0 To 1)


    For i = LBound(NamesPaid, 1) To UBound(NamesPaid, 1)
        For j = LBound(NamesPaid, 2) To UBound(NamesPaid, 2)
            TempArray(i, j) = NamesPaid(i, j)
        Next j
    Next i

    NamesPaidSize = NamesPaidSize + 1
    ReDim NamesPaid(0 To NamesPaidSize, 0 To 1)

   ' NamesPaid = TempArray
    For i = LBound(TempArray, 1) To UBound(TempArray, 1)
        For j = LBound(TempArray, 2) To UBound(TempArray, 2)
             NamesPaid(i, j) = TempArray(i, j)
        Next j
    Next i
End Sub

Esteja avisado que isso pode ser muito ineficiente para incrementos de 1. Você pode fazer a matriz inicial de tamanho 10, preencher isso, depois colocar na etapa de cópia e incrementar mais 10.

    
por 09.01.2016 / 19:13