Assegnazione dei valori a un tipo di dati definito dall'utente

Question

Vorrei assegnare un valori di un intervallo a un tipo di dati definito dall'utente.

Ho un set di dati di misurazioni prese in tempi mutili nel corso di una settimana immagazzinati in un foglio Excel. Ho creato una variabile per l'intervallo del set di dati. Quindi ho creato un tipo di dati definito dall'utente con data e singoli tipi. Ora vorrei assegnare i valori dell'intervallo al tipo di dati definito dall'utente.

Set di dati:

02/11/2011  3.8

02/11/2011  2.4

02/11/2011  8.9

02/12/2011  5.7

02/12/2011  4.6

02/12/2011  2.6

Ho realizzato un tipo di dati di definizione dell'utente:

Type phData
    Dy As Date
    ph As Single
End Type

e ha creato una variabile del tipo di phdata e abbinato le dimensioni all'intervallo:

Dim dailyData() As tradeData
Dim nrec as Integer
nrec = dataRng.Rows.Count
ReDim dailyData(nrec)

e definito l'intervallo del set di dati sul foglio di calcolo Excel:

Dim dataRng As Range
Set dataRng = Range("A2", Range("A2").End(xlDown).End(xlToRight))

E ora vorrei assegnare i valori nell'intervallo al tipo di phdata. Posso assegnare un valore alla volta usando:

 dailyData(1).Dy= dataRng(1).Value

Ma ho bisogno di qualcosa di più efficiente poiché ho circa 4.000 record.