Cuprins
Convertiți Matrix într-un vector
Acesta este tutorialul opus convertirii unui singur vector rând într-un tutorial Matrix.
Următoarea funcție va lua un interval ca matrice și îl va converti într-un vector cu o singură coloană:
Opțiune Funcție explicită Create_Vector (Matrix_Range As Range) Ca variantă Dim No_of_Cols Ca întreg, No_Of_Rows Ca Integer Dim i As Integer Dim j As Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = Matrix_Range_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row_Row> 'Eliminați condițiile NULL dacă Matrix_Range nu este nimic, apoi Ieșiți din funcție If No_of_Cols = 0 Apoi Ieșiți din funcție If No_Of_Rows = 0 Apoi Ieșiți din funcție pentru 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) Următorul i Următorul j Create_Vector = Temp_Array Funcția de sfârșit
Deci, de exemplu, vectorul:
Va deveni:
Unde am folosit următorul subrutină pentru a imprima vectorul:
Private Sub CommandButton1_Click () Dim Vector Dim Dim k Integer Vector = Create_Vector (Sheets ("Sheet1"). Range ("A4: D8")) For k = 1 To UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Offset (k, 1). Valoare = Vector (k) Următorul k End Sub
Rețineți că aceste rutine funcționează atât pe numere, cât și pe text.
Pentru a descărca fișierul .XLSM din acest tutorial, faceți clic aici.
