Sisällysluettelo
☰
- Vaihe 1Ota interaktiivinen VBA -opetusohjelma ilmaiseksi
- Vaihe 2VBA-apuohjelmamme tekee koodauksesta helppoa ladata
- Vaihe 3Katso VBA -mallikoodimme
- Vuokraa meidätMonimutkainen VBA -vaatimus? Palkkaa asiantuntijamme.
Muunna yksirivinen vektori matriisiksi
Tämä on käänteismatriisin vektori -opetusohjelman vastainen opetusohjelma.
Seuraava funktio ottaa yhden rivin vektorin ja muuntuu matriisiksi:
123456789101112131415161718 | Toiminto Create_Matrix (Vector_Range as Range, No_Of_Cols_in_output as Integer, No_of_Rows_in_output as Integer) VarianttinaReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector kokonaislukunaDim Col_Count as Integer, Row_Count as IntegerHimmeä soluNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Poista NULL -ehdotJos Vector_Range ei ole mitään, sulje toimintoJos No_Of_Cols_in_output = 0, Lopeta toimintoJos No_of_Rows_in_output = 0, Lopeta toimintoJos No_Of_Elements_In_Vector = 0, sulje toimintoCol_Count = 1 To No_Of_Cols_in_outputRivi_laskulle = 1 Ei_rivien_lähdölleTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Seuraava rivi_laskSeuraava Col_CountCreate_Matrix = Temp_ArrayLopeta toiminto |
Funktio sisältää 3 argumenttia:
• Alkuvektorin alue
• Matriisissa vaadittujen rivien määrä
• Matriisissa vaadittujen sarakkeiden määrä
Joten jos meillä on:
Sitten voimme kutsua toimintoamme:
Muunna_matriisiksi (c7: c16,2,5)
Missä:
1. c7: c16 on matriisialue
2. 2 on matriisissa vaadittujen rivien määrä
3. 5 on vaadittu sarakkeiden määrä
Ja saamme:
Voit ladata .XLSM -tiedoston tästä toiminnosta napsauttamalla tätä.