Převod jednoradového vektoru na matici - příklady kódu VBA

☰

• Krok 1Vezměte si interaktivní výukový program VBA zdarma
• Krok 2Náš doplněk VBA usnadňuje stahování kódování
• Krok 3Viz náš ukázkový kód VBA
• Najměte násSložitý požadavek VBA? Najměte si naše odborníky.

Naučte se VBA

Převeďte jednořadý vektor na matici

Toto je opačný tutoriál tutoriálu Convert Matrix to Vector.

Následující funkce přebírá jeden řádkový vektor a převádí se na matici:

123456789101112131415161718

Funkce 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 jako celé číslo, Row_Count jako celé čísloDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Odstranit NULL podmínkyPokud Vector_Range není nic, ukončete funkciPokud No_Of_Cols_in_output = 0, ukončete funkciPokud No_of_Rows_in_output = 0, ukončete funkciPokud No_Of_Elements_In_Vector = 0, pak funkci ukončetePro Col_Count = 1 až No_Of_Cols_in_outputPro Row_Count = 1 až No_of_Rows_in_outputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells (((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Další řádek_PočetDalší Col_CountCreate_Matrix = Temp_ArrayKoncová funkce

Funkce má 3 argumenty:
• Rozsah počátečního vektoru
• Počet řádků požadovaných v matici
• Počet požadovaných sloupců v matici

Pokud tedy máme:

Pak můžeme volat naši funkci:

Convert_to_matrix (c7: c16,2,5)

Kde:

1. c7: c16 je rozsah matice
2. 2 je počet řádků požadovaných v matici
3. 5 je počet požadovaných sloupců

A dostáváme:

Chcete -li stáhnout soubor .XLSM z této funkce, klikněte sem.