- Крок 1Отримайте безкоштовний інтерактивний підручник VBA
- Крок 2Наша надбудова VBA полегшує кодування
- Крок 3Зверніться до нашого зразкового коду VBA
- Найміть насКомплексні вимоги до VBA? Наймайте наших експертів.
Перетворити вектор однорядного рядка в матрицю
Це протилежний підручник з підручника Перетворення матриці у вектор.
Наступна функція бере єдиний вектор рядка і перетворює його в матрицю:
| 123456789101112131415161718 | Функція Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Як варіантReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Затемнити No_Of_Elements_In_Vector як ціле числоDim Col_Count як ціле число, Row_Count як ціле числоDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Усуньте умови NULLЯкщо Vector_Range - це ніщо, закрийте функціюЯкщо No_Of_Cols_in_output = 0 Тоді вийдіть із функціїЯкщо No_of_Rows_in_output = 0 Тоді вийдіть з функціїЯкщо No_Of_Elements_In_Vector = 0 Тоді вийдіть з функціїFor Col_Count = 1 до No_Of_Cols_in_outputFor Row_Count = 1 до No_of_Rows_in_outputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Далі Row_CountДалі Col_CountCreate_Matrix = Temp_ArrayФункція завершення |
Функція приймає 3 аргументи:
• Діапазон початкового вектора
• Кількість рядків, необхідних у матриці
• Кількість стовпців, необхідних у матриці
Отже, якщо у нас є:
Тоді ми можемо викликати нашу функцію:
Перетворити в_матрицю (c7: c16,2,5)
Де:
1. c7: c16 - діапазон матриць
2. 2 - кількість рядків, необхідних у матриці
3. 5 - кількість необхідних стовпців
І отримуємо:
Щоб завантажити файл .XLSM з цієї функції, натисніть тут.
