Lang L: none (table-of-contents)
Teisendage maatriks vektoriks
See on vastupidine õpetus üherealise vektori muutmiseks maatriksi õpetuseks.
Järgmine funktsioon võtab maatriksina vahemiku ja teisendab selle ühe veeru vektoriks:
Valik Selgesõnaline funktsioon Create_Vector (maatriksi_vahemiku vahemik) Variandina Dim No_of_Cols täisarvuna, No_Of_Rows täisarvuna Dim i täisarvuna Dim j täisarvuna Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = Matrix_Range.Row_Rows.Rows 'Likvideerige NULL -tingimused, kui maatriksi_vahemik pole midagi, siis väljuge funktsioonist Kui No_of_Cols = 0 Siis väljuge funktsioonist, kui No_Of_Rows = 0 Siis väljuge funktsioonist j = 1 kuni No_Of_Rows jaoks i = 0 kuni No_of_Cols - 1 Temp_Array (((i * No_Of_Rows) + j) = Matrix_Range.Cells (j, i + 1) Järgmine i Järgmine j Create_Vector = Temp_Array End Function
Näiteks vektor:
Saab:
Kui oleme vektori printimiseks kasutanud järgmist alamprogrammi:
Privaatne alamkäsk CommandButton1_Click () Dim Vector Dim k As Integer Vector = Create_Vector (Sheets ("Sheet1"). Range ("A4: D8")) For k = 1 to UBound (Vector) Sheets ("Sheet1"). Vahemik (" B20 "). Nihe (k, 1) .Väärtus = vektor (k) Järgmine k Lõpp Alam
Pange tähele, et need rutiinid töötavad nii numbrite kui ka tekstiga.
.XLSM -faili allalaadimiseks sellest õpetusest klõpsake siin.