Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Присвоить диапазон массиву пользовательской функции - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Присвоить диапазон массиву пользовательской функции (Макросы/Sub)
Присвоить диапазон массиву пользовательской функции
Bamboo Дата: Пятница, 25.03.2016, 20:00 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

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
 
Ответить
СообщениеСделал вот так:

[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]

Автор - Bamboo
Дата добавления - 25.03.2016 в 20:00
Апострофф Дата: Пятница, 25.03.2016, 20:45 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 28 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Array_DistMapKey = DistMapKey.VALUE
[/vba]?
 
Ответить
Сообщение[vba]
Код
Array_DistMapKey = DistMapKey.VALUE
[/vba]?

Автор - Апострофф
Дата добавления - 25.03.2016 в 20:45
МВТ Дата: Пятница, 25.03.2016, 20:55 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 136 ±
Замечаний: 0% ±

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

Автор - МВТ
Дата добавления - 25.03.2016 в 20:55
Bamboo Дата: Пятница, 25.03.2016, 21:45 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - Bamboo
Дата добавления - 25.03.2016 в 21:45
Bamboo Дата: Пятница, 25.03.2016, 22:08 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Апострофф, Спасибо болшое, кажется сработало :)
 
Ответить
СообщениеАпострофф, Спасибо болшое, кажется сработало :)

Автор - Bamboo
Дата добавления - 25.03.2016 в 22:08
StoTisteg Дата: Пятница, 25.03.2016, 22:15 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

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


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

Автор - StoTisteg
Дата добавления - 25.03.2016 в 22:15
StoTisteg Дата: Пятница, 25.03.2016, 22:20 | Сообщение № 7
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

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

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
Апострофф, Спасибо болшое, кажется сработало

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

Автор - StoTisteg
Дата добавления - 25.03.2016 в 22:20
Bamboo Дата: Пятница, 25.03.2016, 23:16 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - Bamboo
Дата добавления - 25.03.2016 в 23:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Присвоить диапазон массиву пользовательской функции (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!