- Krok 1Vychutnajte si interaktívny návod VBA zadarmo
- Krok 2Náš doplnok VBA uľahčuje sťahovanie kódovania
- Krok 3Pozrite si náš vzorový kód VBA
- Najmite si násKomplexná požiadavka VBA? Najmite si našich odborníkov.
Premeňte jednoradový vektor na maticu
Toto je opačný tutoriál tutoriálu Previesť maticu na vektor.
Nasledujúca funkcia má jeden riadkový vektor a prevádza ho na maticu:
| 123456789101112131415161718 | Funkcia Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) As VariantReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector as integerDim Col_Count ako celé číslo, Row_Count ako celé čísloDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Odstráňte NULL podmienkyAk funkcia Vector_Range nie je nič, ukončite funkciuAk No_Of_Cols_in_output = 0, potom funkciu ukončiteAk No_of_Rows_in_output = 0, potom funkciu ukončiteAk No_Of_Elements_In_Vector = 0, potom funkciu ukončitePre Col_Count = 1 až No_Of_Cols_in_outputPre Row_Count = 1 do No_of_Rows_in_outputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells (((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Ďalší riadok_PočetNasledujúce Col_CountCreate_Matrix = Temp_ArrayKoncová funkcia |
Funkcia má 3 argumenty:
• Rozsah počiatočného vektora
• Počet riadkov požadovaných v matici
• Počet stĺpcov požadovaný v matici
Ak teda máme:
Potom môžeme svoju funkciu nazvať:
Convert_to_matrix (c7: c16,2,5)
Kde:
1. c7: c16 je rozsah matice
2. 2 je počet riadkov požadovaných v matici
3. 5 je požadovaný počet stĺpcov
A dostaneme:
Kliknite sem, ak si chcete stiahnuť súbor .XLSM z tejto funkcie.
