Inhoudsopgave
Matrix converteren naar een vector
Dit is de tegenovergestelde tutorial van de tutorial Converting a Single Row Vector into a Matrix.
De volgende functie neemt een bereik als matrix en converteert het naar een vector met één kolom:
Optie Expliciete functie Create_Vector (Matrix_Range As Range) As Variant Dim No_of_Cols As Integer, No_Of_Rows As Integer Dim i As Integer Dim j As Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows.Ofray_Of_Rows.Rows.Rows. 'Elimineer NULL-condities als Matrix_Range niets is, sluit dan de functie af als No_of_Cols = 0, sluit de functie af als No_Of_Rows = 0, sluit de functie af voor j = 1 To No_Of_Rows For i = 0 To No_of_Cols - 1 Temp_Array ((i * No_Of_Rows) + j) = Matrix_Range.Cells(j, i + 1) Next i Next j Create_Vector = Temp_Array End Function
Dus bijvoorbeeld de vector:
Zal worden:
Waarbij we de volgende subroutine hebben gebruikt om de vector af te drukken:
Private Sub CommandButton1_Click() Dim Vector Dim k As Integer Vector = Create_Vector(Sheets("Sheet1").Range("A4:D8")) For k = 1 To UBound(Vector) Sheets("Sheet1").Range(" B20").Offset(k, 1).Waarde = Vector(k) Volgende k Einde Sub
Merk op dat deze routines zowel op cijfers als op tekst werken.
Klik hier om het .XLSM-bestand uit deze zelfstudie te downloaden.
