Üherealise vektori teisendamine maatriksiks - VBA koodi näited

☰

• Samm 1Võtke tasuta interaktiivne VBA õpetus välja
• 2. sammMeie VBA lisandmoodul muudab kodeerimise lihtsaks allalaadimiseks
• 3. sammVaadake meie VBA näidiskoodi
• Võtke meid tööleKeeruline VBA nõue? Palgake meie eksperdid.

Õppige VBA -d

Teisendage ühe rea vektor maatriksiks

See on õpetuse teisendamise maatriksi vektoriks õpetus.

Järgmine funktsioon võtab ühe rea vektori ja teisendatakse maatriksiks:

123456789101112131415161718

Funktsioon Create_Matrix (Vector_Range kui vahemik, No_Of_Cols_in_output kui täisarv, No_of_Rows_in_output kui täisarv) VariandinaReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector kui täisarvDim Col_Count as Integer, Row_Count as täisarvDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count"Likvideerida NULL tingimusedKui Vector_Range pole midagi, siis väljuge funktsioonistKui No_Of_Cols_in_output = 0, siis väljuge funktsioonistKui No_of_Rows_in_output = 0, siis väljuge funktsioonistKui No_Of_Elements_In_Vector = 0, siis väljuge funktsioonistCol_Count = 1 To No_Of_Cols_in_putputRida_arvestus = 1 Väljundi_arvu_arvudTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Järgmine rida_arvJärgmine veergCreate_Matrix = Temp_ArrayLõppfunktsioon

Funktsioon sisaldab 3 argumenti:
• Algvektori ulatus
• maatriksis nõutavate ridade arv
• maatriksis nõutavate veergude arv

Nii et kui meil on:

Siis võime oma funktsiooni nimetada:

Teisenda_maatriksiks (c7: c16,2,5)

Kus:

1. c7: c16 on maatriksi vahemik
2. 2 on maatriksis nõutav ridade arv
3. 5 on nõutav veergude arv

Ja saame:

Selle funktsiooni .XLSM -faili allalaadimiseks klõpsake siin.