Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.11.2016, 20:15   #1
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
Вопрос Не связанные (не смежные) диапазоны в UDF

Добрый вечер всем!
Сделал свою функцию:

Код:
Public Function Найти_вых(Диапазон_с_набором_дат_выходных As Range, Ячейка_с_датой As Variant) As Variant
    For Each spisokVihodnih In Диапазон_с_набором_дат_выходных
        If spisokVihodnih = Ячейка_с_датой Then Найти_вых = "Выходной": Exit Function
    Next
    Найти_вых = Ячейка_с_датой
End Function
Проблема в том, что она не работает с не смежными диапазонами. Таких диапазонов может быть до 12 шт.
Помогите доделать функцию.
Вложения
Тип файла: zip вых.zip (11.3 Кб, 10 просмотров)

Последний раз редактировалось Demetros; 08.11.2016 в 20:28.
Demetros вне форума Ответить с цитированием
Старый 08.11.2016, 20:57   #2
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Вариант без переделки :

Код:
=Найти_вых((A12:A16;C17:C21);F12)
pashulka вне форума Ответить с цитированием
Старый 08.11.2016, 21:09   #3
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию

Цитата:
Сообщение от pashulka Посмотреть сообщение
Вариант без переделки :

Код:
=Найти_вых((A12:A16;C17:C21);F12)
Не ожидал что все так просто.
Спасибо!
Demetros вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C++ смежные матрицы! Евгеша777 Помощь студентам 1 01.11.2013 21:41
Выделить смежные ячейки. solnce60 Microsoft Office Excel 8 19.05.2013 19:55
Смежные протоколы Federal Помощь студентам 0 21.10.2010 23:26
UDF Cartman18 БД в Delphi 0 06.05.2010 21:52