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

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Присвоить диапазон массиву пользовательской функции (Макросы/Sub)

Bamboo

Дата: Пятница, 25.03.2016, 20:00 | Сообщение № 1

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

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

Сообщений: 107

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

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

Excel 2010

Сделал вот так:

[vba]

Код

Function HighLevЦА(ЦА, DistMapKey, DistMapData)
Dim Array_DistMapKey() As Variant
Dim Array_DistMapData() As Variant

Array_DistMapKey = DistMapKey
Array_DistMapData = DistMapData

End Function

[/vba]

Но не работает
[moder]Оформляйте коды тегами (кнопка #)[/moder]

Сообщение отредактировал Pelena - Пятница, 25.03.2016, 20:05

Ответить

Апострофф

Дата: Пятница, 25.03.2016, 20:45 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 445

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

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

Excel 1997

[vba]

Код

Array_DistMapKey = DistMapKey.VALUE

[/vba]?

Ответить

МВТ

Дата: Пятница, 25.03.2016, 20:55 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 476

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

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

Excel 2007

А какого результата Вы ждете? Сама функция у Вас в коде никакого значения не возвращает даже теоретически. Где у Вас что-то типа HighLevЦА=?

Ответить

Bamboo

Дата: Пятница, 25.03.2016, 21:45 | Сообщение № 4

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

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

Сообщений: 107

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

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

Excel 2010

МВТ, Это не весь код, функция промежуточное значение дает. Просто я показал здесь только те части кода, которые связаны с ошибкой.

Ответить

Bamboo

Дата: Пятница, 25.03.2016, 22:08 | Сообщение № 5

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

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

Сообщений: 107

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

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

Excel 2010

Апострофф, Спасибо болшое, кажется сработало

Ответить

StoTisteg

Дата: Пятница, 25.03.2016, 22:15 | Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Я, конечно, человек, укушенный [url=https://ru.wikipedia.org/wiki/Вирт,_Никлаус]Виртом[/url]. Но мне всё же интересен тип передаваемых в функцию переменных DistMapKey и DistMapData. Ибо если там, скажем, Object, то было бы дюже удивительно, если бы оно работало.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

StoTisteg

Дата: Пятница, 25.03.2016, 22:20 | Сообщение № 7

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Цитата Bamboo, 25.03.2016 в 22:08, в сообщении № 5

Апострофф, Спасибо болшое, кажется сработало

А. Ну так ByVal спасёт отца русской демократии yes

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Bamboo

Дата: Пятница, 25.03.2016, 23:16 | Сообщение № 8

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

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

Сообщений: 107

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

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

Excel 2010

StoTisteg, DistMapKey и DistMapData это массивы текстовых значений.
Мэппинг одного на другое. Я не силен в VBA, поэтому решил разбить их на два массива. Возможно, подскажите как можно реализовать поиск по таблице мэппинг без цикла?

Ответить

Страница 1 из 1
1