Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 07.11.2019
Сообщений: 5

Сумма ячеек в таблице с несколькими условиями (MS Excel2003)

08.11.2019, 20:15. Показов 2661. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, ув. форумчане.
По работе приходится подсчитывать количество пациентов, процедур и процедурных единиц за определённый период времени (месяц, квартал …). Ежемесячно «вручную» считал и заносил в таблицу вышеперечисленные данные, а самостоятельно написанные макросы выдавали сумму этих данных в соответствующих ячейках. Однажды мне надоело считать «крестики» и я решил полностью автоматизировать этот процесс.
В прилагаемом файле с задачей подсчёта пациентов я справился (Макрос 1). А, вот, с подсчётом количества процедур (Макрос 2) возникли проблемы – в ячейках появляются какие-то «левые» числа. Понимаю, что нужно правильно прописать код макроса, но, к сожалению, в программировании я полный ноль, катастрофически не хватает знаний в области VBA …
Просьба помочь в решении данной задачи (прописать код или ткнуть носом, где «копать»), а с подсчётом единиц, надеюсь, справлюсь сам (опираясь на Ваши советы). Заранее благодарен.

P.S. Несколько дней чтения Форума и поисков в Сети не помогли решить проблему (((
P.P.S. Пользуюсь MS Office 2003.
Вложения
Тип файла: xls Пример.xls (88.5 Кб, 9 просмотров)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.11.2019, 20:15
Ответы с готовыми решениями:

Как увеличть кол-во ячеек на рабочем листе Excel2003
Как увеличть кол-во ячеек на рабочем листе Excel 2003. Там по умолчанию сейчас 256 ячеек в ширину, а надо доабвить еще окло 100.. Как это...

While c несколькими условиями
Добрый день! Подскажите, пожалуйста, мне нужно найти строку в которой ячейки в 2 определенных столбцах единовременно принимают...

do While с несколькими условиями
В пособии дан пример использования цикла: int a = 4; do { System.Console.WriteLine(a); a++; } while (a < ...

8
209 / 184 / 43
Регистрация: 02.08.2019
Сообщений: 586
Записей в блоге: 23
09.11.2019, 09:03
samass, Привет!
я вам предлагаю поменять подход, использовать умные таблицы и сводные из них
это даст больше гибкости в формировании отчетов, тогда придется формировать из листа база листы по месячные

файл прилагаю

если что пишите!)

Надстройка: Macro Tools VBA – инструменты разработки макросов VBATools
Вложения
Тип файла: xls Пример.xls (90.5 Кб, 6 просмотров)
1
0 / 0 / 0
Регистрация: 07.11.2019
Сообщений: 5
09.11.2019, 10:49  [ТС]
art1289, благодарю за участие! Ваше решение для меня слегка сложновато - пользуюсь Excel на уровне чайника и работать с умными таблицами пока ещё не приходилось. Ещё раз спасибо, попробую разобраться, отпишусь позже ...
0
209 / 184 / 43
Регистрация: 02.08.2019
Сообщений: 586
Записей в блоге: 23
09.11.2019, 12:08
samass, пишите научу, я вам предлагаю более гибкое решение на основе одно таблицы вы сможете создавать множество отчетов, без макросов,
По идееи вам нужен один макрос который будет разбивать лист база на листы по месячно
0
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
09.11.2019, 13:24
Лучший ответ Сообщение было отмечено samass как решение

Решение

samass,

Как вариант файл :
3 кнопки на ленте (Гланая--Запуск макросов)- каждая из кнопок запускает процесс заполнения данных изактивного в данный момент листа (Октябрь, Ноябрь или другой месяц) в листы, соответствующие названия кнопок...
с автоматическим обновлением квартальных и других отчетных столбцов...
Вложения
Тип файла: xls DOCTOR.xls (80.0 Кб, 6 просмотров)
1
0 / 0 / 0
Регистрация: 07.11.2019
Сообщений: 5
09.11.2019, 22:58  [ТС]
Цитата Сообщение от art1289 Посмотреть сообщение
samass, пишите научу ...
art1289, освоение "Умной таблицы" отложил на дальнюю перспективу. Для начала мне необходимо повысить свой уровень знаний в программировании и работе с Excel, чтобы Вам не пришлось выслушивать от меня глупые вопросы ...
Ещё раз хочу поблагодарить за предложение и участие в решении моей задачи. Всех благ!!!
0
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
09.11.2019, 23:19
samass
Цитата Сообщение от samass Посмотреть сообщение
Всех благ!!!

Взаимно...
0
0 / 0 / 0
Регистрация: 07.11.2019
Сообщений: 5
09.11.2019, 23:23  [ТС]
Цитата Сообщение от Narimanych Посмотреть сообщение
samass,
Как вариант файл : ...
Narimanych, супер, это - отличный вариант, как раз то, что мне нужно ...
Огромное спасибо за помощь, Вы меня здорово выручили. Удачи Вам и всяческих ништяков!!!
P.S На этом Форуме есть возможность отправлять Личные сообщения?
0
0 / 0 / 0
Регистрация: 07.11.2019
Сообщений: 5
14.11.2019, 18:33  [ТС]
В процессе тестирования Решения, предложенном Narimanych, выявилась досадная ошибка, которая была им же оперативно исправлена ...
С разрешения Narimanych выкладываю исправленный файл в этом посте и ещё раз хочу выразить ему огромную благодарность за проделанный труд ...
Вложения
Тип файла: xls DOCTOR REV1.xls (80.0 Кб, 4 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.11.2019, 18:33
Помогаю со студенческими работами здесь

СЧЕТЕСЛИ с несколькими условиями
В прилагаемом примере табеля у слесаря и мастера учет рабочих дней ведется по-разному: у слесаря посменно - смены обозначаются...

Обноление с несколькими условиями
День добрый, уважаемые форумчане. Пользуюсь Access 2010. Пытаюсь сделать запрос на обновление через VBA, необходимо в таблице...

Запрос с несколькими условиями
Здравствуйте Уважаемые! Необходимо опять Ваша помощь и вот в чем: Уважаемые знатоки: однажды ученик накидал маленькую учебную базу где...

Map с несколькими условиями
Друзья, добрый день. Здоровье уже не позволяет "без поллитра не разберешь", поэтому прошу помощи. Пытаюсь скрестить в map...

Формула с несколькими условиями
Уважаемые форумчане,подскажите с формулой,нужно в ячейке D1 функцию =ЕСЛИ(И( которая может выполнить сравнение с несколькими условиями,что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru