Непонятная ошибка с динамическими матрицами

@AlexSST · Регистрация: 20.06.2017

Студворк — интернет-сервис помощи студентам

ДОбрый день, уважаемые коллеги!
Пишу макрос и возникла проблема с описанием динамических матриц.
Пытаюсь выполнить простейший код:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub matr()
Dim A()
ReDim A(1 To 1, 1 To 1)
A(1, 1) = 12
ReDim Preserve A(1 To 2, 1 To 2)
A(2, 2) = 14
MsgBox A(1, 1)
MsgBox A(2, 2)
End Sub

Ошибка в пятой строке Subscript Out of range. Если убрать команду Preserve - всё работает, но без сохранения данных.
Похоже на внутреннюю ошибку VBA..

@Vlad999 · 20.06.2017, 13:26

в двумерном массива можно менять только последнюю цифру. т.е.
ReDim Preserve A(1 To 1, 1 To 2)
ReDim Preserve A(1 To 1, 1 To 3)

SoftIce · 20.06.2017, 13:28

Сообщение от AlexSST

Ошибка в пятой строке Subscript Out of range

Можно менять только последний размер матрицы.

Добавлено через 1 минуту

Не по теме:

Vlad999, апиридил :)

@AlexSST · 20.06.2017, 13:42 **[ТС]**

Сообщение от AlexSST

ReDim Preserve A(1 To 2, 1 To 2)

Нужна двумерная матрица с изменением количества строк и столбцов в процессе выполнения макроса.
Почему тогда срабатывает без команды Preserve?

Visual Basic
1
ReDim A(1 To 2, 1 To 2)

@Vlad999 · 20.06.2017, 13:44

Сообщение от AlexSST

Почему тогда срабатывает без команды Preserve?

Потому что в данном случае не переписывается, а создается новый с тем же именем.

@AlexSST · 20.06.2017, 13:49 **[ТС]**

Т.е. в VBA нет возможности менять обе рамерности 2-мерной матрицы? Только число столбцов?

@Hugo121 · 20.06.2017, 13:59

Сообщение от AlexSST

Нужна двумерная матрица с изменением количества строк и столбцов в процессе выполнения макроса.

- зачем именно вот так? Можно сделать с помощью существующих средств, и обычно оно отрабатывает быстрее, чем ReDim Preserve.

@AlexSST · 20.06.2017, 14:10 **[ТС]**

зачем именно вот так? Можно сделать с помощью существующих средств, и обычно оно отрабатывает быстрее, чем ReDim Preserve.

Каких не подскажите? Кроме матриц пока на ум ничего не пришло...

@Hugo121 · 20.06.2017, 14:28

Сообщение от AlexSST

Кроме матриц пока на ум ничего не пришло..

Коллекции, словари, словари с коллекциями или массивами, сразу задать массив по максимуму, просто наращивать несколько одномерных массивов, если уж совсем ничего другого не знаете... но это самое медленное.
Не зная задачи - можно и ещё что-нибудь предложить, например скидывать данные тупо в текст, тогда вообще никаких ограничений

@AlexSST · 20.06.2017, 17:17 **[ТС]**

Коллекции, словари, словари с коллекциями
К сожалению не владею данными инструментами.
По самой задаче: есть текстовый файл с данными, необходимо его преобразовать в формат Excel.
Вообщем пошёл другим путём, сначала макрос шерстит файл на предмет определения размерности матрицы, а затем второй этап - заполнение этой матрицы...
Думал можно это реализовать одним этапом по ходу заполения увеличивать размерность...

@Hugo121 · 20.06.2017, 17:59

Каждое Redim Preserve - это создание нового массива и перелопачивание туда данных из старого массива. В общем это можно легко сделать кодом в любую сторону, циклами

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	20.06.2017, 13:26
	в двумерном массива можно менять только последнюю цифру. т.е. ReDim Preserve A(1 To 1, 1 To 2) ReDim Preserve A(1 To 1, 1 To 3) 2

@AlexSST 0 / 0 / 0 Регистрация: 20.06.2017 Сообщений: 5
	20.06.2017, 13:49 [ТС]
	Т.е. в VBA нет возможности менять обе рамерности 2-мерной матрицы? Только число столбцов? 0

@AlexSST 0 / 0 / 0 Регистрация: 20.06.2017 Сообщений: 5
	20.06.2017, 14:10 [ТС]
	зачем именно вот так? Можно сделать с помощью существующих средств, и обычно оно отрабатывает быстрее, чем ReDim Preserve. Каких не подскажите? Кроме матриц пока на ум ничего не пришло... 0

@AlexSST 0 / 0 / 0 Регистрация: 20.06.2017 Сообщений: 5
	20.06.2017, 17:17 [ТС]
	Коллекции, словари, словари с коллекциями К сожалению не владею данными инструментами. По самой задаче: есть текстовый файл с данными, необходимо его преобразовать в формат Excel. Вообщем пошёл другим путём, сначала макрос шерстит файл на предмет определения размерности матрицы, а затем второй этап - заполнение этой матрицы... Думал можно это реализовать одним этапом по ходу заполения увеличивать размерность... 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	20.06.2017, 17:59
	Каждое Redim Preserve - это создание нового массива и перелопачивание туда данных из старого массива. В общем это можно легко сделать кодом в любую сторону, циклами 0