|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.03.2019, 16:31 | #11 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Макрос в модуле Smeta. А сам имеет имя Пересчет_пустых_строк
|
31.03.2019, 22:23 | #12 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Код:
Последний раз редактировалось СтаниславАВ; 01.04.2019 в 16:53. |
01.04.2019, 06:02 | #13 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
01.04.2019, 09:29 | #14 | |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Цитата:
Формула расчета была такая: =если(и(U15="да";или(BW15=$V$4;$V$4 =BZ$20));округлвверх(O15*P15;0);0)* если(индекс(Smeta_contractor_all_wo rks;поискпоз(Smeta_contractor_finis h;Smeta_all_contractor;0);поискпоз( $BX15;Smeta_contractor_works;0))="д а";1;0) В столбце E расположены материалы, в строке E15 материал нужного вида, количество материала берется из ячейки O15, округляется вверх до целого значения но при условии если в ячейке U15 стоит надпись "да", соблюдается одно из условий ячейки BW15=$V$4 (выбранный человек сравнивается сам с собой) или $V$4=BZ$20 (выбранный человек сравнивается с эталоном), и еще одно сравнение, делает ли этот человек вообще такие работы =если(индекс(Smeta_contractor_all_w orks;поискпоз(Smeta_contractor_fini sh;Smeta_all_contractor;0);поискпоз ($BX15;Smeta_contractor_works;0))=" да";1;0), если делает данные умножаются на 1, если не делает, то умножаются на 0. |
|
01.04.2019, 09:53 | #15 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Код:
Последний раз редактировалось СтаниславАВ; 01.04.2019 в 16:53. |
01.04.2019, 10:24 | #16 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Первая итеррация
Задача разбивается на несколько этапов:
1. определяем наличие объёма в столбце N соответствующей ячейки. Если значение отсутствует, смысла считать нет. 2. проверяем столбец U, если стоит "да" продолжаем расчёты дальше. 3. проверяем столбец bW, если в ячейке соответствует человеку в ячейке $V$4, или в ячейке $V$4=BZ$20 стоит эталон, продолжаем расчеты дальше 4. И последнее условие, выполняет ли соответствующий человек в ячейке bw соответствующую работу из диапазона by1h20. Если все ок. То берем значение из ячейки N, умножаем на значение ячейки P и округляем вверх до целого значения. |
01.04.2019, 12:40 | #17 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Первый пункт попробую отработать так: If VB_Smeta_wm_volume(i, 17) <> 0 Then
Код:
Последний раз редактировалось СтаниславАВ; 01.04.2019 в 16:52. |
01.04.2019, 12:47 | #18 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Второй вопрос попробую решить так
If VB_Smeta_wm_volume(i, 23) = "да" Then Третий вопрос попробую решить так Ячейке v4 даю имя Smeta_contractor Ячейке bz20 даю имя Smeta_contractor_fix Далее копирую её в память VB_Smeta_contractor = Range("Smeta_contractor").Value И сортирую If VB_Smeta_wm_volume(i, 75) = VB_Smeta_contractor Then Код:
Последний раз редактировалось СтаниславАВ; 02.04.2019 в 09:18. |
02.04.2019, 15:19 | #19 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Код:
Smeta_m_full = Материалы A2:AB1166 диапазону присвоил имя Smeta_w_full = Работы A2:X451 диапазону присвоил имя Занёс их в пямять макроса |
02.04.2019, 16:02 | #20 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Код:
Последний раз редактировалось СтаниславАВ; 02.04.2019 в 17:45. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запись с вариантами | andrei_belko | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 03.06.2014 17:12 |
Записи вариантами. | alexeu121 | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 28.05.2014 10:26 |
Записи с вариантами | megabobik | Помощь студентам | 0 | 31.01.2010 16:17 |
Запись с вариантами | Rusl92 | Помощь студентам | 1 | 14.11.2009 10:27 |
MainMenu с вариантами | beegl | Компоненты Delphi | 4 | 08.06.2008 12:09 |