Previesť maticu na vektor
Toto je opačný tutoriál ako Návod na konverziu jednoradového vektora na maticu.
Nasledujúca funkcia bude mať rozsah ako maticu a prevedie ho na jeden stĺpcový vektor:
Voľba Explicitná funkcia 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 = Matrix_Range.Rows._ount ReDim T0 „Odstráňte podmienky NULL, ak je rozsah_ matice nič, potom funkciu ukončite, ak nie_vy_Col = 0, potom funkciu ukončite, ak nie_výstupov = 0, potom funkciu ukončenia pre j = 1 až nie_vydarov pre i = 0 až nie_vyp. Matrix_Range.Cells (j, i + 1) Ďalej i Ďalej j Create_Vector = Temp_Array Koniec funkcie
Napríklad vektor:
Bude:
Kde sme na vytlačenie vektora použili nasledujúci podprogram:
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 "). Ofset (k, 1). Hodnota = vektor (k) Ďalší k Koniec Podp
Tieto rutiny fungujú na číslach aj na texte.
Kliknite sem, ak si chcete stiahnuť súbor .XLSM z tohto tutoriálu.
