Turinys
Konvertuokite matricą į vektorių
Tai priešinga pamoka, skirta paversti vienos eilės vektorių į matricos pamoką.
Ši funkcija ims diapazoną kaip matricą ir konvertuos jį į vieno stulpelio vektorių:
Parinktis Aiškioji funkcija „Create_Vector“ (matricos_ diapazonas kaip diapazonas) Kaip variantas „Dim No_of_Cols“ kaip sveikas skaičius, „No_Of_Rows“ kaip sveikas skaičius Dim i kaip sveikasis skaičius j kaip sveikasis dydis „Cell“ No_of_Cols = „Matrix_Range“. „Pašalinkite NULL sąlygas, jei„ Matrix_Range “yra niekas, tada išeikite iš funkcijos, jei„ No_of_Cols = 0 “, tada išeikite iš funkcijos, jei„ No_Of_Rows = 0 “, tada išeikite iš funkcijos, jei j = 1 į„ No_Of_Rows “, kai„ i = 0 “į„ No_of_Cols “ - 1„ Temp_Array “((i * No_Of_Rows) + j) Matrix_Range.Cells (j, i + 1) Kitas i Kitas j Create_Vector = Temp_Array End Function
Taigi, pavyzdžiui, vektorius:
Taps:
Vektoriui atspausdinti panaudojome šią paprogramę:
Privatus antrinis CommandButton1_Click () Dim Vector Dim Dim As As Integer Vector = Create_Vector (Sheets ("Sheet1"). Diapazonas ("A4: D8")) K = 1 iki UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Poslinkis (k, 1). Vertė = vektorius (k) Kitas k Pabaiga
Atminkite, kad šios procedūros veikia tiek su skaičiais, tiek su tekstu.
Norėdami atsisiųsti .XLSM failą iš šios pamokos, spustelėkite čia.
