Tartalomjegyzék
A Mátrix konvertálása vektorrá
Ez az ellenkező oktatóanyag, mint az Egysoros vektor mátrix bemutatóvá alakítása.
A következő függvény mátrixként egy tartományt vesz fel, és egyetlen oszlopvektorrá alakítja át:
Opció Explicit függvény Create_Vector (Mátrix_tartomány mint tartomány) Mint variáns Dim No_of_Cols mint Integer, No_Of_Rows mint Integer Dim i Mint Integer Dim j Mint Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = Matrix_Range.Ross_Rows 'Távolítsa el a NULL feltételeket, ha a Mátrix_tartomány semmi, akkor lépjen ki a funkcióból, ha No_of_Cols = 0, akkor lépjen ki a funkcióból, ha No_Of_Rows = 0, akkor lépjen ki a függvényből, ha j = 1 a No_Of_Rows esetén i = 0 A No_of_Cols - 1 Temp_Array ((i * No_Of_Rows) + j) = Matrix_Range.Cells (j, i + 1) Következő i Következő j Create_Vector = Temp_Array End Function
Tehát például a vektor:
Válik:
Ahol a következő alprogramot használtuk a vektor kinyomtatásához:
Privát alparancsButton1_Click () Dim vektor Dim k Integer Vector = Create_Vector (Sheets ("Sheet1"). Range ("A4: D8")) For k = 1 to UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Eltolás (k, 1). Érték = Vektor (k) Következő k Vége Al
Ne feledje, hogy ezek a rutinok a számokon és a szövegen is működnek.
Az .XLSM fájl letöltéséhez az oktatóanyagból kattintson ide.
