Innholdsfortegnelse
☰
- Trinn 1Ta ut gratis interaktiv VBA -opplæring
- Steg 2Vårt VBA-tillegg gjør det enkelt å laste ned koding
- Trinn 3Se vår VBA -prøvekode
- Lei ossKomplekse VBA -krav? Ansett våre eksperter.
Konverter enkel radvektor til en matrise
Dette er den motsatte opplæringen til opplæringen Convert Matrix to Vector.
Følgende funksjon tar en enkelt radvektor og konverteres til en matrise:
| 123456789101112131415161718 | Funksjon Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Som variantReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector som heltallDim Col_Count As Integer, Row_Count As IntegerDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.CountEliminer NULL -betingelserHvis Vector_Range ikke er noe, avslutt deretter funksjonenHvis No_Of_Cols_in_output = 0 Avslutt deretter funksjonenHvis No_of_Rows_in_output = 0 Avslutt deretter funksjonenHvis No_Of_Elements_In_Vector = 0 Avslutt deretter funksjonenFor Col_Count = 1 Til No_Of_Cols_in_outputFor Row_Count = 1 Til No_of_Rows_in_outputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Neste rad_tellingNeste Col_CountCreate_Matrix = Temp_ArraySluttfunksjon |
Funksjonen tar 3 argumenter:
• Området til den første vektoren
• Antall rader som kreves i matrisen
• Antall kolonner som kreves i matrisen
Så hvis vi har:
Da kan vi kalle vår funksjon:
Convert_to_matrix (c7: c16,2,5)
Hvor:
1. c7: c16 er matriseområdet
2. 2 er antall rader som kreves i matrisen
3. 5 er antall kolonner som kreves
Og vi får:
For å laste ned .XLSM -filen fra denne funksjonen, klikk her.
