Pretvarjanje vektorja ene vrstice v matriko - primeri kode VBA

☰

• Korak 1Brezplačno vzemite interaktivni VBA vadnik
• 2. korakNaš dodatek VBA olajša kodiranje
• 3. korakOglejte si vzorčno kodo VBA
• Najemite nasKompleksna zahteva VBA? Najemite naše strokovnjake.

Naučite se VBA

Pretvorite vektor enojne vrstice v matriko

To je nasprotna vadnica vadnice Pretvori matriko v vektor.

Naslednja funkcija vzame vektor ene vrstice in se pretvori v matriko:

123456789101112131415161718

Funkcija Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Kot različicaReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Zatemni No_Of_Elements_In_Vector As IntegerZatemni Col_Count kot celo število, Row_Count kot celo številoZatemnjena celicaNo_Of_Elements_In_Vector = Vector_Range.Rows.Count„Odpravite NULL pogojeČe Vector_Range ni nič, zapustite funkcijoČe je No_Of_Cols_in_output = 0, potem zapustite funkcijoČe je No_of_Rows_in_output = 0, potem zapustite funkcijoČe je No_Of_Elements_In_Vector = 0, potem zapustite funkcijoZa Col_Count = 1 Za No_Of_Cols_in_outputZa vrstico_številka = 1 do štTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells (((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Naslednji Row_CountNaslednji Col_CountCreate_Matrix = Temp_ArrayKončana funkcija

Funkcija ima 3 argumente:
• Območje začetnega vektorja
• Število zahtevanih vrstic v matriki
• Število zahtevanih stolpcev v matrici

Torej, če imamo:

Nato lahko pokličemo našo funkcijo:

Pretvori v_matriko (c7: c16,2,5)

Kje:

1. c7: c16 je matrično območje
2. 2 je število zahtevanih vrstic v matrici
3. 5 je število zahtevanih stolpcev

In dobimo:

Če želite prenesti datoteko .XLSM s te funkcije, kliknite tukaj.