Добрый день! На работе попросили переделать Excel файл (Более 20 000 строк). Необходимо перебрать даты, чтобы получилось как в примере во вложении.
Суть задачи: Есть клиенты с датой подключения к услуге и датой отключения от услуги. Необходимо сравнивая эти даты копировать строки ниже просматриваемой строки, либо переходить к следующей.
Если ДатаКонец="-", тогда ДатаРезультат = "-" и переход к след. строчке. Иначе выполняем условие:
ДатаРезультат = "-" и
Если ДатаНачала<ДатаКонец, тогда необходимо добавить строку ниже и скопировать все содержимое строки изменив в ДатаНачало = Добавить 1 месяц к ДатеНачало.
Как только дата датаНачало>ДатыКонец, переход к след строке и все по новой.
Очень надеюсь на вашу помощь!!! А, то вручную это не реально сделать((( А с VBA вообще не знаю как работать.
Добрый день! На работе попросили переделать Excel файл (Более 20 000 строк). Необходимо перебрать даты, чтобы получилось как в примере во вложении.
Суть задачи: Есть клиенты с датой подключения к услуге и датой отключения от услуги. Необходимо сравнивая эти даты копировать строки ниже просматриваемой строки, либо переходить к следующей.
Если ДатаКонец="-", тогда ДатаРезультат = "-" и переход к след. строчке. Иначе выполняем условие:
ДатаРезультат = "-" и
Если ДатаНачала<ДатаКонец, тогда необходимо добавить строку ниже и скопировать все содержимое строки изменив в ДатаНачало = Добавить 1 месяц к ДатеНачало.
Как только дата датаНачало>ДатыКонец, переход к след строке и все по новой.
Очень надеюсь на вашу помощь!!! А, то вручную это не реально сделать((( А с VBA вообще не знаю как работать.koshelevdmitry
Я прошу о помощи, а не хочу нанимать людей. Сейчас пытаюсь сам разобраться с макросами. Но увы я не ахти какой программер. Поэтому и пишу сюда...
Я прошу о помощи, а не хочу нанимать людей. Сейчас пытаюсь сам разобраться с макросами. Но увы я не ахти какой программер. Поэтому и пишу сюда...koshelevdmitry
AlexM, Здравствуйте. AlexM, Разбираю (я взрослый неофит 100%. вчера зарегистрировался) ваш код по частям, так как столкнулся (по работе\учёбе) с более-менее похожей задачей. Мне подходит, короче. Несложно ли вам будет ответить на вопрос о втором цикле - как можно неравенство написать так, что типы разные, и чтоб всё это ещё и работало? Почему спрашиваю. Ежемесячно получаю файл Excel. Страшно взглянуть. Дизайн я подправил встроенным VB (сделал в макросе). А теперь есть необходимость сделать цикл чтения ячеек (первая дата всегда в определённой ячейке) в столбце дат, который прерывается при нахождении другой (следующей, большей) даты, чтобы передать управление процедуре суммирования цифр в соседнем столбце (идущие параллельно - напротив дат, которые цикл уже исследовал). И так далее, до конца столбца. Такая проблема. Мне не нужно, чтобы вы за меня всё сделали, как koshelevdmitry в Четверг, 17.01.2013, 19:20. (так круто, так изящно, так кратко! чисто ассемблерный от Нортона - как "по железу" почти блин! ни дать , ни взять... без лести и сарказма говорю... пусть все знают). Дайте направление. Справлюсь. Попробую справиться. Пожалуйста. Научите HOW. А то я даже не знаю как номер ячейке присвоить - вручную пишу. И ещё. Перед завершением\в начале кода строка (скринАпдейтин тру и фэлс) - почему? (транслитерирую, чтобы админ не ругался) Файл не прикрепил(ся)
AlexM, Здравствуйте. AlexM, Разбираю (я взрослый неофит 100%. вчера зарегистрировался) ваш код по частям, так как столкнулся (по работе\учёбе) с более-менее похожей задачей. Мне подходит, короче. Несложно ли вам будет ответить на вопрос о втором цикле - как можно неравенство написать так, что типы разные, и чтоб всё это ещё и работало? Почему спрашиваю. Ежемесячно получаю файл Excel. Страшно взглянуть. Дизайн я подправил встроенным VB (сделал в макросе). А теперь есть необходимость сделать цикл чтения ячеек (первая дата всегда в определённой ячейке) в столбце дат, который прерывается при нахождении другой (следующей, большей) даты, чтобы передать управление процедуре суммирования цифр в соседнем столбце (идущие параллельно - напротив дат, которые цикл уже исследовал). И так далее, до конца столбца. Такая проблема. Мне не нужно, чтобы вы за меня всё сделали, как koshelevdmitry в Четверг, 17.01.2013, 19:20. (так круто, так изящно, так кратко! чисто ассемблерный от Нортона - как "по железу" почти блин! ни дать , ни взять... без лести и сарказма говорю... пусть все знают). Дайте направление. Справлюсь. Попробую справиться. Пожалуйста. Научите HOW. А то я даже не знаю как номер ячейке присвоить - вручную пишу. И ещё. Перед завершением\в начале кода строка (скринАпдейтин тру и фэлс) - почему? (транслитерирую, чтобы админ не ругался) Файл не прикрепил(ся)nimr
nimr, прочитайте Правила форума, создайте свою тему, приложите небольшой файл с примером и Вам обязательно помогут. Ссылку на эту тему можете тоже дать
nimr, прочитайте Правила форума, создайте свою тему, приложите небольшой файл с примером и Вам обязательно помогут. Ссылку на эту тему можете тоже датьPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816