Помесячный отчет на VBA - Microsoft Office Excel

ESTerekhov · 21.11.2014, 10:13

Добрый день. делаю для одного предприятия вот такую программу отчетов. На первом скрине можно видеть отчет, который пишется каждый день и он нормально работает. Однако у меня не получается сделать толковый помесячный отчет.

Как написать небольшой автоматический календарик, чтобы при вводе даты на первом листе со календарь отображался и проставлял чиста автоматически именно в ячейках, выделенных желтым на втором рисунке?

Еще необходимо, чтобы подсчитанное среднее значение за день появлялось в ячейке под соответствующим днем в отчете за месяц.
Изображения получилось прикрепить только в виде ссылок.
Заранее извиняюсь, если туманно выразился. Если нужно, я готов пояснить.

IgorGO · 21.11.2014, 11:43

Код:

=ЕСЛИ(ДЕНЬНЕД(дата1;2)>СТОЛБЕЦ()/2;"";СТОЛБЕЦ()/2)

где дата1 - ссылка на ячейку, содержащую начальную дату (1 число. месяцю.год)

IgorGO · 21.11.2014, 12:01

извините, так будет точнее

ESTerekhov · 21.11.2014, 13:21

Спасибо, а как можно сделать так, чтобы данные с одного листа переносились в этот календарь соответственно числу.
То есть, имеем значение за 15 ноября (к примеру) как сделать так, чтобы оно автоматически вставилось в ячейку, которая соответствуйте 15-му числу в календаре, а после этого при вводе данных за 16 ноября, они появлялись далее

IgorGO · 21.11.2014, 13:32

Вы правильно все описали, так и делайте - данные за 15 января пишите в ячейку соответсвующую 15 числу, а данные за 16 - в следующую... и т.д. (это описание можно продолжить до 31 числа)

ESTerekhov · 21.11.2014, 15:25

Цитата:

Сообщение от IgorGO

Вы правильно все описали, так и делайте - данные за 15 января пишите в ячейку соответсвующую 15 числу, а данные за 16 - в следующую... и т.д. (это описание можно продолжить до 31 числа)

Не совсем так. Нужно чтобы на отдельном листе (первый скриншот в шапке темы) дата писалась вручную, а резюмированные данные с него переносились в лист с календариком автоматически.

ESTerekhov · 24.11.2014, 08:29

выразился туманно... Сейчас исправлю:
Есть два листа с отчетами, один лист заполняется каждый день (первый), а второй лист заполняется по итогам месяца. В первом листе ведутся отдельные расчеты и выносится резюмированная средняя величина - просто два числа одно в процентах, второе обычное целое число). Так вот эти два числа должны автоматически переноситься в календарь и заполняться в графе, соответствующей числу на календаре. А число это выбирается вручную на первом листе.

ESTerekhov · 24.11.2014, 14:27

Разобьем задачу на два этапа. С первым (созданием самого календаря) я кое-как разобрался. а вот как быть со вторым?
Посмотрите еще раз на рисунок с примером календаря на следующий месяц, нужно сделать так, чтобы в зависимости от введенной даты определенное значение вставлялось в ячейку, соответствующую этой дате.
Например за 1 декабря одно число, а когда вводим в расчетах 2-е декабря работа ведется уже в соседней ячейке.
Помогите, пожалуйста разобраться...

IgorGO · 24.11.2014, 15:11

Цитата:

Разобьем задачу на два этапа.

на первом этапе - Вы обьясняете, как это должно работать (что хотите получить)
на втором этапе - (в зависимости от того, насколько успешным будет первый) Вам, возможно, помогут все реализовать

ESTerekhov · 26.11.2014, 11:35

Здравствуйте еще раз. Не хотел создавать новую тему, решил тут написать. Как можно вычислить на VBA среднее арифметическое нескольких чисел? Задача осложняется тем, что среди этих чисел могут быть нули и программа не должна их учитывать. Т.е. если имеем ряд чисел 10; 10; 5; 5; 10; 8; 8, то среднее арифм. равно 8 также, а для ряда 20; 0; 10; 0; 10; 0; 16 оно должно быть не 8, а 11,2.

21.11.2014, 10:13	#1
ESTerekhov Регистрация: 04.06.2014 Сообщений: 7	Помесячный отчет на VBA Добрый день. делаю для одного предприятия вот такую программу отчетов. На первом скрине можно видеть отчет, который пишется каждый день и он нормально работает. Однако у меня не получается сделать толковый помесячный отчет. Как написать небольшой автоматический календарик, чтобы при вводе даты на первом листе со календарь отображался и проставлял чиста автоматически именно в ячейках, выделенных желтым на втором рисунке? Еще необходимо, чтобы подсчитанное среднее значение за день появлялось в ячейке под соответствующим днем в отчете за месяц. Изображения получилось прикрепить только в виде ссылок. Заранее извиняюсь, если туманно выразился. Если нужно, я готов пояснить.

21.11.2014, 11:43	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `=ЕСЛИ(ДЕНЬНЕД(дата1;2)>СТОЛБЕЦ()/2;"";СТОЛБЕЦ()/2)` где дата1 - ссылка на ячейку, содержащую начальную дату (1 число. месяцю.год) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

21.11.2014, 13:32	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Вы правильно все описали, так и делайте - данные за 15 января пишите в ячейку соответсвующую 15 числу, а данные за 16 - в следующую... и т.д. (это описание можно продолжить до 31 числа) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отчет	Vitalii197777	Microsoft Office Access	1	30.05.2014 17:24
Ребят может есть у кого-нибудь отчет по преддипломной практике по средствам VBA и Access	Виктория94	Microsoft Office Access	1	29.04.2014 08:24
VBA и Oracle: stored procedure из VBA и сохранение текста в переменной	Lionne	Microsoft Office Excel	1	15.04.2013 19:51
VBA Word,VBA Excel решить 2 задачи	fafolo4ka	Фриланс	6	05.03.2012 01:15
Создать отчет средствами VBA или SQL	ZBEP	Microsoft Office Access	8	30.01.2012 19:32

21.11.2014, 13:21	#4
ESTerekhov Регистрация: 04.06.2014 Сообщений: 7	Спасибо, а как можно сделать так, чтобы данные с одного листа переносились в этот календарь соответственно числу. То есть, имеем значение за 15 ноября (к примеру) как сделать так, чтобы оно автоматически вставилось в ячейку, которая соответствуйте 15-му числу в календаре, а после этого при вводе данных за 16 ноября, они появлялись далее

26.11.2014, 11:35	#10
ESTerekhov Регистрация: 04.06.2014 Сообщений: 7	Здравствуйте еще раз. Не хотел создавать новую тему, решил тут написать. Как можно вычислить на VBA среднее арифметическое нескольких чисел? Задача осложняется тем, что среди этих чисел могут быть нули и программа не должна их учитывать. Т.е. если имеем ряд чисел 10; 10; 5; 5; 10; 8; 8, то среднее арифм. равно 8 также, а для ряда 20; 0; 10; 0; 10; 0; 16 оно должно быть не 8, а 11,2.