Присвоение значений двумерному массиву

@Trigun68 · Регистрация: 26.12.2011

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

Столкнулся с такой незадачей: при попытке заполнить двумерный массив значениями (константами) вываливается ошибка. Прошу совета.

Visual Basic

1 2	Dim J() J = Array(Array("1", "2"), Array("3", "4"))

@Vlad999 · 09.07.2015, 15:06

ошибка то какая, у меня именно эти две строчки прошли без ошибки.

@Trigun68 · 09.07.2015, 15:38 **[ТС]**

Ошибка "subscribe out of range" вылетает при дальнейшей попытке вывести этот массив

Visual Basic

1	Sheets("Лист1").Range("A3").Offset(0, 0).Resize(3, 3).Value = j()

@Vlad999 · 09.07.2015, 16:06

у вас массив 2 на 2, а вы выделяете 3 на 3 (Resize(3, 3)).

Visual Basic

1	Sheets("Лист1").Range("A3").Offset(0, 0).Resize(2, 2)=WorksheetFunction.Transpose(J())

offset можно не писать если вы не смещаетесь ни куда.

@Trigun68 · 09.07.2015, 16:23 **[ТС]**

В своем варианте использовал изменение рабочей области 3 на 3 и массив 3 на 3.

А можно но как-то избежать транспонироания массива а просто выложить в область? Ведь массив изначально задавался по строкам.

@Казанский · 09.07.2015, 16:51

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

при попытке заполнить двумерный массив значениями (константами) вываливается ошибка

То, что Вы получаете - не двумерный массив, а одномерный массив одномерных массивов. Вы не можете обратиться к элементу массива J(1, 1), только так: J(1)(1). Transpose преобразует такую структуру в двумерный массив, который можно помещать в диапазон.
В VBA Excel двумерные массивы можно задавать так:

Visual Basic

1
2
3

J = [{1,2;3,4}]
'или
J = Evaluate("{1,2;3,4}")

@Undermail · 04.03.2021, 14:29

Казанский,

Помогите, пожалуйста. Вы отвечали на эту тему, но...

По этому принципу задаю массив, выдаёт ошибку. Не могу понять причину.
Если массив не определять в начале и по тексту основной программы использовать, тогда все нормально.
Но нужно именно глобальный массив, доступный во всех функциях потом.

Что я делаю не так?

Visual Basic

Dim shape(2, 4) As Integer
      
Sub SetShape()
  shape = [{ 1, 2, 3, 4; 5, 6, 7, 8 }]
End Sub
 
Sub main()
Randomize
 
SetShape
 
End Sub

@Zeag · 04.03.2021, 14:43

Глобальный сделать можно, но вот так:

Visual Basic

Dim vShape '(2, 4) As Integer
 
Sub SetShape()
   vShape = [{ 1, 2, 3, 4; 5, 6, 7, 8 }] ' работает
   'vShape = Evaluate("{ 1, 2, 3, 4; 5, 6, 7, 8 }") ' тоже работает
End Sub
 
Sub main()
   Randomize
   SetShape
End Sub

То есть без указания типа (будет Variant) и размерности (она задастся при инициализации).
Проверял в Excel 2007

@Vlad999 3919 / 2316 / 785 Регистрация: 02.11.2012 Сообщений: 6,159
	09.07.2015, 15:06	2
	ошибка то какая, у меня именно эти две строчки прошли без ошибки. 1

@Trigun68 2 / 2 / 0 Регистрация: 26.12.2011 Сообщений: 46
	09.07.2015, 16:23 [ТС]	5
	В своем варианте использовал изменение рабочей области 3 на 3 и массив 3 на 3. А можно но как-то избежать транспонироания массива а просто выложить в область? Ведь массив изначально задавался по строкам. 0

	04.03.2021, 14:43

Присвоение значений двумерному массиву

Решение