Inhoudsopgave
☰
- Stap 1Neem gratis interactieve VBA-zelfstudie
- Stap 2Onze VBA-invoegtoepassing maakt codering eenvoudig te downloaden
- Stap 3Raadpleeg onze VBA-voorbeeldcode
- Huur ons inComplexe VBA-vereiste? Huur onze experts in.
Converteer enkele rijvector naar een matrix
Dit is de tegenovergestelde tutorial van de Convert Matrix to Vector tutorial.
De volgende functie neemt een enkele rijvector en converteert deze naar een matrix:
| 123456789101112131415161718 | Functie Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Als VariantReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector als geheel getalDim Col_Count As Integer, Row_Count As IntegerDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Elimineren NULL-voorwaarden'Als Vector_Range niets is, sluit dan de functie afAls No_Of_Cols_in_output = 0 dan functie afsluitenAls No_of_Rows_in_output = 0, dan functie verlatenAls No_Of_Elements_In_Vector = 0, sluit functie dan afVoor Col_Count = 1 To No_Of_Cols_in_outputVoor Row_Count = 1 To No_of_Rows_in_outputTemp_Array(Col_Count, Row_Count) = Vector_Range.Cells(((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Volgende rij_tellingVolgende Col_CountCreate_Matrix = Temp_ArrayFunctie beëindigen |
De functie heeft 3 argumenten:
• Het bereik van de initiële vector
• Het aantal vereiste rijen in de matrix
• Het aantal vereiste kolommen in de matrix
Dus als we hebben:
Dan kunnen we onze functie aanroepen:
Convert_to_matrix(c7:c16,2,5)
Waar:
1. c7:c16 is het matrixbereik
2. 2 is het aantal rijen dat nodig is in de matrix
3. 5 is het aantal benodigde kolommen
En we krijgen:
Klik hier om het .XLSM-bestand van deze functie te downloaden.
