- 1 žingsnisNemokama interaktyvi VBA pamoka
- 2 žingsnisMūsų VBA priedas palengvina kodavimą
- 3 žingsnisŽr. Mūsų VBA pavyzdinį kodą
- Pasamdykite musSudėtingas VBA reikalavimas? Pasamdykite mūsų ekspertus.
Paverskite vienos eilės vektorių į matricą
Tai priešinga pamoka „Konvertuoti matricą į vektorių“.
Ši funkcija paima vienos eilės vektorių ir paverčiama matrica:
| 123456789101112131415161718 | Funkcija Create_Matrix (Vector_Range as Range, No_Of_Cols_in_output as Integer, No_of_Rows_in_output as Integer) kaip variantasReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector As IntegerDim Col_Count As Integer, Row_Count As Integer„Dim Cell“No_Of_Elements_In_Vector = Vector_Range.Rows.Count„Pašalinkite NULL sąlygasJei „Vector_Range“ yra niekas, uždarykite funkcijąJei No_Of_Cols_in_output = 0, tada išeikite iš funkcijosJei No_of_Rows_in_output = 0, tada išeikite iš funkcijosJei No_Of_Elements_In_Vector = 0, tada išeikite iš funkcijosCol_Count = 1 į No_Of_Cols_in_putputRow_Count = 1 iki No_of_Rows_in_putputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Kitas eilutės_skaičiusKitas Col_CountCreate_Matrix = Temp_ArrayPabaigos funkcija |
Funkcija apima 3 argumentus:
• Pradinio vektoriaus diapazonas
• Matricoje būtinas eilučių skaičius
• Matricoje būtinų stulpelių skaičius
Taigi, jei turime:
Tada galime pavadinti savo funkciją:
Konvertuoti į matricą (c7: c16,2,5)
Kur:
1. c7: c16 yra matricos diapazonas
2. 2 yra matricoje būtinas eilučių skaičius
3. 5 yra būtinas stulpelių skaičius
Ir mes gauname:
Norėdami atsisiųsti .XLSM failą iš šios funkcijos, spustelėkite čia.
