- Pasul 1Scoateți interactiv VBA Tutorial gratuit
- Pasul 2Add-in-ul nostru VBA facilitează descărcarea codificării
- Pasul 3Consultați exemplul nostru de cod VBA
- Angajați-neCerință VBA complexă? Angajați experții noștri.
Convertiți vectorul cu un singur rând într-o matrice
Acesta este tutorialul opus tutorialului Convert Matrix în Vector.
Următoarea funcție ia un singur vector de rând și se transformă într-o matrice:
| 123456789101112131415161718 | Funcție Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Ca VariantReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector Ca întregDim Col_Count As Integer, Row_Count As IntegerDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count„Eliminați condițiile NULLDacă Vector_Range nu este nimic, ieșiți din funcțieDacă No_Of_Cols_in_output = 0 atunci Ieșiți din funcțieDacă No_of_Rows_in_output = 0 atunci Ieșiți din funcțieDacă No_Of_Elements_In_Vector = 0 atunci Ieșiți din funcțiePentru Col_Count = 1 To No_Of_Cols_in_outputPentru 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)Următorul Row_CountUrmătorul Col_CountCreate_Matrix = Temp_ArrayFuncția de sfârșit |
Funcția are 3 argumente:
• Intervalul vectorului inițial
• Numărul de rânduri necesare în matrice
• Numărul de coloane necesare în matrice
Deci, dacă avem:
Apoi ne putem apela funcția:
Convert_to_matrix (c7: c16,2,5)
Unde:
1. c7: c16 este gama de matrice
2. 2 este numărul de rânduri necesare în matrice
3. 5 este numărul de coloane necesare
Și obținem:
Pentru a descărca fișierul .XLSM din această funcție, faceți clic aici.
