Как присвоить массиву аргумент пользовательской фунцкции

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Как присвоить массиву аргумент пользовательской фунцкции (Макросы/Sub)

Bamboo

Дата: Воскресенье, 27.03.2016, 18:51 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Имеется пользовательская функция, аргумент которой ссылается на диапазон ячеек. Как значения ячеек этого диапазона присвоит массиву?
Сокращенный код:[vba]

Код

Function HighLevACC(DistMapKey)
Dim vX As Integer
Dim Array_DistMapKey() As Variant
vX = DistMapKey.Count
ReDim Array_DistMapKey(1 To vX)
Array_DistMapKey = DistMapKey.Value
MsgBox Array_DistMapKey(1)
End Function

[/vba]

Выдает ошибку когда код обращается к элементу массива: Subscrip out of range (предпоследняя строка кода)
При этом после присвоения массиву диапазона (3-я снизу строка кода), происходит изменение размера массива. Проверял через Lbound и Ubound.

Сообщение отредактировал Bamboo - Воскресенье, 27.03.2016, 18:52

Ответить

_Boroda_

Дата: Воскресенье, 27.03.2016, 19:01 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А если так?
[vba]

Код

MsgBox Array_DistMapKey(1, 1)

[/vba]
[p.s.]В код не вникал

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995