Такая ситуация. Есть столбец с датами месяца. Некоторые даты могут отсутствовать. К примеру, 1.07.2018, 2.07.2018,08.07.2018, 11.07.2018 и тд. Нужно привести к определённому шаблону. Определить наибольшую дату до 10.07.2018 (т.е. первая декада) и вставить число пустых строк по значению разницы между 10 и получившимся наибольшим значением+1. Т.е. если максимальное значение в первой декаде 8.07.2018, то нужно вставить 3 пустые строки, в последнюю из добавленных строк прописать "Итого за 1 декаду". Если значение 10.07.2018, то добавить 1 строку и написать в ней "итого за 1 декаду". И так с каждой декадой. Никак не могу сообразить как правильно это прописать. Я в vba совсем новичок, поэтому если есть возможность прописать с пояснениями, то буду очень благодарна. Помогите, пожалуйста
Добавить строку если достигнуто максимальное значение из определенного диапозона
31.08.2018 03:03:26
|
|
|
|
31.08.2018 08:53:29
|
|||
|
|
31.08.2018 10:49:14
Спасибо, исправилась. В файле 2 листа. Исходные данные и как должны эти данные выглядеть в идеале
|
|
|
|
31.08.2018 11:42:46
Вот, поправила.
|
|
|
|
31.08.2018 11:49:24
То есть количество строк в декадах равно 10(11) (первая декада 10 строк, 2 декада 10 строк, 3 декада -11 строк на случай если в месяце 31 день) независимо от количества строк с данными
|
|
|
|
31.08.2018 12:13:54
Julia VK, 4, 5, 7 в итогах - это сумма или счет?
То, что Вы выложили в #4 (без вставки строк), делается инструментом Данные - (структура) - Промежуточные итоги. Только надо добавить заголовок и столбец с формулой для определения декады
Потом в режиме Страничный убрать разрыв страницы между 1 и 2 декадой. |
|||
|
|
31.08.2018 14:08:47
Спасибо большое, но я видимо не правильно выразилась. Мне нужно прописать эту задачу именно с помощью макроса. У меня уже создан макрос, но застопорилась именно на вопросе добавления строк по декадам.
|
|
|
|
31.08.2018 14:17:39
Вот посмотрите мой
|
|||||
|
|
31.08.2018 14:19:10
Julia VK, То есть на одном листе всегда один месяц? И да, что за странная фраза "оборотная сторона" после второй декады? Она вообще нужна?
|
|
|
|
31.08.2018 14:28:50
Да в форме всегда 1 месяц. Это отчетный период. Формируется отчет, который распечатывается на 1 листе с двух сторон, поэтому и написано что оборотная сторона. Это бухгалтерская форма отчета.
Kuzmich,вы гений!! спасибо большое! Макрос у меня на работе, но там элементарный перенос данных из одной формы в другую и изменение формата ячеек. Если бы вы увидели тот макрос, вы бы наверное долго над ним смеялись. Это был мой первый опыт) |
|
|
|
31.08.2018 14:56:51
Писала про разделение на страницы потому, что шапка таблицы сквозная и переносится на оборотную сторону
|
|
|
|
31.08.2018 16:03:13
У меня покороче получилось...
Изменено: |
|||
|
|
31.08.2018 19:29:11
StoTisteg, А как быть со вставкой недостающих пустых строк в каждой декаде и с суммой за месяц?
|
|
|
|
02.09.2018 13:13:09
Kuzmich, подскажите еще пожалуйста, не пойму что я делаю не так. Сегодня была на работе и посмотрела рабочий файл, который мне нужно доработать. В итоге получилось, что мне нужно не с 1ой строки начинать отсчет, а с 17 и по столбцу С. Суммы по столбцам F, I, J, K, L, V. W. Вопросы будут глупые, потому что я ни разу не программист
|
|||||||
|
|
02.09.2018 13:55:24
|
|||||||
|
|
02.09.2018 15:59:42
"Анализ..." это исходные данные, "ФАУ-15.." - это куда мне нужно данные скопировать, но подекадно. Хочу в файле "Анализ" привести в вид в который мне надо, а потом данные скопировать в ФАУ-15. Скопировать данные проблем нет. Как разбить на декады вы мне помогли, а вот как начать с 17 строки не знаю, не могу понять где я допускаю ошибку, варианты разные перепробовала, но знаний нет и как применять разные функции vba не знаю
|
|
|
|
02.09.2018 16:40:07
|
|||||||
|
|
03.09.2018 02:20:04
Kuzmich,спасибо большое, добрый человек!!
|
|
|
|
03.09.2018 10:34:28
|
|||||
|
|
03.09.2018 12:06:27
|
|||
|
|
03.09.2018 12:42:06
Kuzmich,спасибо ещё раз!!
|
|
|
|
03.09.2018 12:46:45
Вам тоже спасибо большое за труд! Вообще не ожидала, что кто-нибудь ответит, а тут сразу 2 решения предложили! |
||||
|
|
|||