Sisällysluettelo
Muunna matriisi vektoriksi
Tämä on päinvastainen opetusohjelma yhden rivin vektorin muuntamisesta matriisiohjeeksi.
Seuraava funktio ottaa alueen matriisiksi ja muuntaa sen yhden sarakkeen vektoriksi:
Vaihtoehto Explicit Function Create_Vector (Matrix_Range As Range) Varianttina Dim No_of_Cols kokonaislukuna, No_Of_Rows kokonaislukuna Dim i Kuten Integer Dim j Integer Dim Sol No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = Matrix_Range.Ross_Rows.Rows.Rows 'Poista NULL -ehdot, jos Matrix_Range ei ole mitään, poistu toiminnosta, jos No_of_Cols = 0 Sitten Exit -toiminnosta, jos No_Of_Rows = 0 Sitten Exit -funktiosta j = 1 To No_Of_Rows For i = 0 To No_of_Cols - 1 Temp_Array ((i * No_Of_Rows) + j) = Matrix_Range.Cells (j, i + 1) Seuraava i Seuraava j Create_Vector = Temp_Array End Function
Esimerkiksi vektori:
Tulee:
Missä olemme käyttäneet seuraavaa aliohjelmaa vektorin tulostamiseen:
Yksityinen alikomentoButton1_Click () Himmennä vektori Dim k kokonaislukuvektorina = Luo_Vektori (Arkit ("Sheet1"). Alue ("A4: D8")) K = 1 - UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Siirtymä (k, 1). Arvo = Vektori (k) Seuraava k Loppuosa
Huomaa, että nämä rutiinit toimivat sekä numeroilla että tekstillä.
Voit ladata .XLSM -tiedoston tästä opetusohjelmasta napsauttamalla tätä.
