Pretvaranje vektora jednog reda u matricu - primjeri VBA koda

☰

• Korak 1Besplatno preuzmite interaktivni VBA vodič
• Korak 2Naš dodatak VBA olakšava preuzimanje kodiranja
• Korak 3Pogledajte naš primjerak koda VBA
• Unajmite nasSloženi VBA zahtjev? Angažirajte naše stručnjake.

Naučite VBA

Pretvorite vektor jednoga reda u matricu

Ovo je suprotni vodič tutorijala Pretvori matricu u vektor.

Sljedeća funkcija uzima vektor jednog retka i pretvara se u matricu:

123456789101112131415161718

Funkcija Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Kao varijantaReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector As IntegerZatamni Col_Count kao cijeli broj, Row_Count kao cijeli brojZatamnjena ćelijaNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Uklonite NULL uvjeteAko Vector_Range nije ništa, izađite iz funkcijeAko je No_Of_Cols_in_output = 0 Zatim izađite iz funkcijeAko je No_of_Rows_in_output = 0, tada izađite iz funkcijeAko je No_Of_Elements_In_Vector = 0, tada izađite iz funkcijeZa Col_Count = 1 do No_Of_Cols_in_outputZa red_broj = 1 do broj_redova_u_izlazuTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Sljedeći red_brojSljedeći Col_CountCreate_Matrix = Temp_ArrayZavršna funkcija

Funkcija ima 3 argumenta:
• Raspon početnog vektora
• Broj redaka potrebnih u matrici
• Broj stupaca potrebnih u matrici

Dakle, ako imamo:

Tada možemo pozvati našu funkciju:

Pretvori u_matricu (c7: c16,2,5)

Gdje:

1. c7: c16 je raspon matrica
2. 2 je broj redova potrebnih u matrici
3. 5 je broj potrebnih stupaca

I dobivamo:

Kliknite ovdje da biste preuzeli .XLSM datoteku s ove funkcije.