Tartalomjegyzék
☰
- 1. lépésVegye ki az ingyenes interaktív VBA bemutatót
- 2. lépésVBA bővítményünk megkönnyíti a kódolást
- 3. lépésTekintse meg VBA mintakódunkat
- Béreljen minketÖsszetett VBA követelmény? Alkalmazza szakértőinket.
Konvertálja az egysoros vektort mátrixgá
Ez az ellentétes oktatóanyag a Mátrix vektorrá konvertálása bemutatóhoz.
A következő függvény egyetlen sor vektort vesz fel és mátrixgá alakítja át:
123456789101112131415161718 | Funkció Create_Matrix (Vector_Range as Range, No_Of_Cols_in_output as Integer, No_of_Rows_in_output as Integer) mint VariantReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector as IntegerHalvány oszlopszám egészként, sor_szám egészkéntDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count„Távolítsa el a NULL feltételeketHa a Vector_Range semmi, akkor lépjen ki a funkcióbólHa No_Of_Cols_in_output = 0, akkor lépjen ki a funkcióbólHa No_of_Rows_in_output = 0, akkor lépjen ki a funkcióbólHa No_Of_Elements_In_Vector = 0, akkor lépjen ki a funkcióbólCol_Count = 1 esetén No_Of_Cols_in_outputRow_Count = 1 esetén No_of_Rows_in_putputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((([No_of_Rows_in_output] * (Col_Count - 1) + Row_Count), 1)Következő sor_számKövetkező oszlopszámCreate_Matrix = Temp_ArrayVége funkció |
A függvény 3 érvet tartalmaz:
• A kezdeti vektor tartománya
• A mátrixban szükséges sorok száma
• A mátrixban szükséges oszlopok száma
Tehát ha megvan:
Akkor hívhatjuk a függvényünket:
Átalakítás_mátrixra (c7: c16,2,5)
Ahol:
1. c7: c16 a mátrix tartománya
2. 2 a mátrixban szükséges sorok száma
3. 5 a szükséges oszlopok száma
És kapjuk:
Ha le szeretné tölteni a .XLSM fájlt erről a funkcióról, kattintson ide.