Разбиение одномерного массива на двумерный - VBA
Формулировка задачи:
Добрый день. Я новичок в VBA, поэтому прошу помощи у вас.
Мне нужно создать модуль, который разбивает одномерный массив на набор двумерных массивов произвольной размерности. Конечные двумерные массивы должны иметь одинаковые размеры.И еще нужно сделать возможным заполнение матриц как по строкам, так и по столбцам в зависимости от выбора пользователя.
У самого ничего не получается сделать.
Решение задачи: «Разбиение одномерного массива на двумерный»
textual
Листинг программы
- Sub Bangobang()
- Dim b
- Cells.Clear
- Dim a(1 To 3, 1 To 4), c(1 To 2, 1 To 6)
- Dim i&, x&, y&
- b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
- i = -1
- For x = 1 To 3
- For y = 1 To 4
- i = i + 1
- a(x, y) = b(i)
- Next
- Next
- [a2].Resize(3, 4) = a
- i = -1
- For x = 1 To 2
- For y = 1 To 6
- i = i + 1
- c(x, y) = b(i)
- Next
- Next
- [a7].Resize(2, 6) = c
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
