Satura rādītājs
Pārvērst matricu par vektoru
Šī ir pretēja apmācība vienas rindas vektora pārvēršanai matricas apmācībā.
Šī funkcija uzņems diapazonu kā matricu un pārvērsīs to par vienas kolonnas vektoru:
Opcija Skaidra funkcija Create_Vector (Matricas_ diapazons kā diapazons) Kā variants Dim No_of_Cols kā vesels skaitlis, No_Of_Rows kā vesels skaitlis Dim i Kā vesels skaitlis Dim j kā vesels skaitliskais šūnu skaits No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = Matrix_Range.Row_Row.Chrom 'Novērst NULL nosacījumus, ja Matrix_Range nav nekas, tad iziet no funkcijas Ja No_of_Cols = 0, tad Iziet no funkcijas Ja No_Of_Rows = 0 Tad iziet no funkcijas J = 1 uz No_Of_Rows Attiecībā uz i = 0 uz 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
Tātad, piemēram, vektors:
Kļūs:
Vektora izdrukāšanai mēs esam izmantojuši šādu apakšprogrammu:
Privāta apakškomanda CommandButton1_Click () Dim vektors Dim k Kā vesels skaitlis Vector = Create_Vector (Sheets ("Sheet1"). Diapazons ("A4: D8")) K = 1 To UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Nobīde (k, 1). Vērtība = vektors (k) Nākamais k Beigt apakš
Ņemiet vērā, ka šīs rutīnas darbojas gan ar cipariem, gan ar tekstu.
Lai lejupielādētu .XLSM failu no šīs apmācības, noklikšķiniet šeit.