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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.04.2012, 08:09   #1
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию Количество рабочих дней в качестве критерия

Если с макросами более менее разобрался, то с формулами - тормоз
Необходимо организовать ссылку на ячейку находящуюся на заданном расстоянии рабочих дней от вычисляемой.
Функцию рабочего дня сделал, а с этой не пойму как.
Подскажите ак это сделать
Вложения
Тип файла: rar Подсчёт рабочих дней формулой.rar (12.1 Кб, 10 просмотров)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 18.04.2012, 11:14   #2
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Столько просмотров и никаких идей?
Не будет ли это слишком тупо?
Решил проблему таким способом:
1 Написал функцию подсчёта рабочих дней:
Код:
Function Строк(Ячейка As Range, Число_рабочих_дней As Range)
Dim R, Стр As Byte
Do
R = R - 1
If Ячейка.Offset(R).Text = "Р" Then Стр = Стр + 1
If R >= 100 Then Строка = "Н/Д": Exit Function
Loop While Стр < Число_рабочих_дней + 1
Строк = Ячейка.Offset(R).Row
End Function
2 составил формулу:
Код:
=ДВССЫЛ("D"&Строк(B26;$B$4))
Мжно было бы ещё подумать как не показывать 0, но думаю лучше не усложнять формулу, а снять галку показа нелевых значений
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 18.04.2012, 11:43   #3
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

не понимаю общей задачи, но подсчет рабочих дней в диапазоне
=счетесли(диапазон;"Р")
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 18.04.2012, 12:38   #4
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
...не понимаю общей задачи...
Аналогично

Как понял - во вложении
Вложения
Тип файла: rar alex77755.rar (16.1 Кб, 10 просмотров)
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 18.04.2012, 12:41   #5
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Нужно отсчитать необходимое количетсво строк с рабочими днями и плучить значение из ячейки.
Допустим в ячейку E26 необходимо получить значение из столбца D, Из строки, которая находится выше на определённое количество рабочих дней.
Вот я такое и придумал: в функцию передаю ячейку, находящиюся на моей строку и ячейку с количеством рабочих дней. функция бежит по ячейкам столбца и считает рабочие дни. насчитала - выдала номер строки. Я его в ссылку. Работает так как мне надо. Стандартными не получилось - знаний мало.
Единственное: добавил опциональный параметр. Без него вверх бежит. с ним вниз
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 18.04.2012, 12:45   #6
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от alex77755 Посмотреть сообщение
...в ячейку E26 необходимо получить значение из столбца D, Из строки, которая находится выше на определённое количество рабочих дней.
=ИНДЕКС(столбец D;начало_диапазона - определённое_количество_рабочих_дне й + количество_нерабочих_дней)
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 18.04.2012, 12:48   #7
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Видимо и словами не могу объснить
Может на картинке будет понятней
Изображения
Тип файла: jpg 14.jpg (67.9 Кб, 69 просмотров)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 18.04.2012, 12:52   #8
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Цитата:
определённое_количество_рабочих_дне й + количество_нерабочих_дней
Осталось только их где-то взять. Рабочих дней-то известно. А где брать нерабочие?
Моя функция меня устраивает: сразу выдаёт номер строки
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 18.04.2012, 13:00   #9
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от alex77755 Посмотреть сообщение
Осталось только их где-то взять. Рабочих дней-то известно. А где брать нерабочие?
=Дней_всего - дней_рабочих

Цитата:
Сообщение от alex77755 Посмотреть сообщение
Моя функция меня устраивает: сразу выдаёт номер строки
Почему =Строк(B26;$B$4) возвращает 25 при пустой ячейке B4?
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 18.04.2012, 13:10   #10
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Цитата:
=Дней_всего
А где их взять? У меня есть только текущий день и на сколько рабочих дней от него надо отступить вверх или вниз! Не могу я узнать сколько дней всего!

Цитата:
Почему =Строк(B26;$B$4) возвращает 25 при пустой ячейке B4?
Не думал в эту сторону. Посмотрю. поправлю. Но по заданию оно не может равняться 0.
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Узнать количество дней gephaest Microsoft Office Access 7 28.11.2011 18:47
количество рабочих дней в месяце. RKS Общие вопросы Delphi 6 30.10.2010 08:00
количество дней denis_stell Помощь студентам 4 11.04.2010 00:28
подсчет рабочих дней ruavia3 Microsoft Office Excel 14 01.03.2010 11:22
как расчитать кол-во рабочих дней за"-" выходных??? ЦЕРЦЕЯ Microsoft Office Excel 5 30.11.2009 14:16