Sadržaj
Pretvorite matricu u vektor
Ovo je suprotno uputstvo Pretvaranja vektora jednog retka u vodič Matrice.
Sljedeća funkcija uzet će raspon kao matricu i pretvoriti ga u vektor jednog stupca:
Opcija Eksplicitna funkcija Create_Vector (Matrix_Range As Range) Kao varijanta 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_Rows_Ross 'Uklonite NULL uvjete ako Matrix_Range nije ništa Tada izađite iz funkcije Ako je No_of_Cols = 0 Zatim izađite iz funkcije Ako je No_Of_Rows = 0 Zatim izađite iz funkcije Za j = 1 Na No_Of_Rows Za i = 0 Na No_of_Cols - 1 Temp_Array ((i * No_Of_Rows) Matrix_Range.Cells (j, i + 1) Next i Next j Create_Vector = Temp_Array End Funkcija
Tako na primjer vektor:
Postati:
Tamo gdje smo koristili sljedeću potprogram za ispis vektora:
Private Sub CommandButton1_Click () Dim Vector Vektor Dim k As Integer Vector = Create_Vector (Sheets ("Sheet1"). Range ("A4: D8")) For k = 1 To UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Odmak (k, 1). Vrijednost = Vektor (k) Sljedeće k Završi sub
Imajte na umu da ove rutine djeluju i na brojeve i na tekst.
Kliknite ovdje za preuzimanje .XLSM datoteke iz ovog vodiča.
