Satura rādītājs
☰
- 1. darbībaIzņemiet bezmaksas interaktīvo VBA apmācību
- 2. solisMūsu VBA pievienojumprogramma atvieglo kodēšanu
- 3. solisSkatiet mūsu VBA parauga kodu
- Nomājiet mūsSarežģīta VBA prasība? Nolīgojiet mūsu ekspertus.
Pārvērst vienas rindas vektoru matricā
Šī ir pretējā apmācība apmācībai Konvertēt matricu par vektoru.
Šī funkcija ņem vienas rindas vektoru un pārvērš matricā:
123456789101112131415161718 | Funkcija Create_Matrix (Vector_Range kā diapazons, No_Of_Cols_in_output kā vesels skaitlis, No_of_Rows_in_output kā vesels skaitlis) kā variantsReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector kā vesels skaitlisDim Col_Count As Integer, Row_Count As IntegerDim šūnaNo_Of_Elements_In_Vector = Vector_Range.Rows.Count"Novērst NULL nosacījumusJa Vector_Range nav nekas, izejiet no funkcijasJa No_Of_Cols_in_output = 0, tad izejiet no funkcijasJa No_of_Rows_in_output = 0, tad izejiet no funkcijasJa No_Of_Elements_In_Vector = 0, tad izejiet no funkcijasCol_Count = 1 uz No_Of_Cols_in_putputRindas_skaitlim = 1 uz izvades NrTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((([No_of_Rows_in_output] * (Col_Count - 1) + Row_Count), 1)Nākamā rinda_skaitNākamais kolCreate_Matrix = Temp_ArrayBeigu funkcija |
Funkcijai ir 3 argumenti:
• Sākotnējā vektora diapazons
• Matricā nepieciešamais rindu skaits
• Matricā nepieciešamo kolonnu skaits
Tātad, ja mums ir:
Tad mēs varam izsaukt savu funkciju:
Konvertēt uz matricu (c7: c16,2,5)
Kur:
1. c7: c16 ir matricas diapazons
2. 2 ir matricā nepieciešamais rindu skaits
3. 5 ir vajadzīgo kolonnu skaits
Un mēs iegūstam:
Lai lejupielādētu .XLSM failu no šīs funkcijas, noklikšķiniet šeit.