Spisie treści
Konwertuj macierz na wektor
Jest to samouczek znajdujący się naprzeciwko samouczka Konwertowanie wektora jednowierszowego na macierz.
Poniższa funkcja przyjmie zakres jako macierz i przekształci go w wektor jednokolumnowy:
Opcja Funkcja jawna Create_Vector(Matrix_Range As Range) As Variant Dim Liczba_kolumn jako Integer, Liczba_Of_Rows As Integer Dim i As Integer Dim j As Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows. 'Wyeliminuj warunki NULL Jeśli Matrix_Range jest niczym, to zakończ funkcję, jeśli liczba_kolumn = 0, następnie zakończ funkcję, jeśli liczba_rzędów = 0, a następnie zakończ funkcję, dla 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) Next i Next j Utwórz_Wektor = Temp_Array End Function
Na przykład wektor:
Stanie się:
Gdzie użyliśmy następującego podprogramu do wydrukowania wektora:
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").Offset(k, 1)).Value = Vector(k) Następne k End Sub
Zauważ, że te procedury działają zarówno na liczbach, jak i na tekście.
Aby pobrać plik .XLSM z tego samouczka, kliknij tutaj.
