Записал небольшой макрос для подсчета значений, как вывести сообщение с расчетом значений?

@der alex · Регистрация: 24.07.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, снова появилась идейка для быстродействия, записал макрос, он работает, сортирует как надо, но как прикрутить вывод сообщения MsgBox с расчётом не знаю
сам макросик
этот сценарий оставляет только "Иланская" во втором столбце, из 7 столбца (№ накладной по отправлению) считаю количество накладных то есть не пустые ячейки, и суммирую 15 столбец (Вcего сумма платы без НДС, руб.)

Visual Basic
1
2
3
4
5
Sub КассаЦФТО33()
 
    ActiveSheet.Range("$A$3:$AA$30000").AutoFilter Field:=4, Criteria1:= _
        "=ИЛАНСКАЯ*", Operator:=xlAnd
End Sub

этим сценарием суммируется диапазон вагонов поставленных в отстой в текущем месяце

Visual Basic
1
2
3
4
5
6
7
Sub КассаЦФТО33()
 
    ActiveSheet.Range("$A$3:$AA$30000").AutoFilter Field:=5, Criteria1:= _
        "=*11.2018*", Operator:=xlAnd
    ActiveSheet.Range("$A$3:$AA$30000").AutoFilter Field:=4, Criteria1:= _
        "=ИЛАНСКАЯ*", Operator:=xlAnd
End Sub

вот результат ручного расчёта
118 вагонов выведено по Иланской, считается по 7 столбцу (№ накладной по отправлению)
193 вагона поставил в отстой по ноябрю, (не считать вагоны поставленные раньше текущего месяца)(1 столбец)
405 422,00 рублей списание Кассы ЦФТО по Иланской (15 столбец)

Может есть что проще и быстрее?.
Также пробовал считать формулами, не соображу как просуммировать количество вагонов по Иланской оформленных в текущем месяце, формулой ниже считает только общее количество вагонов по Иланской, и совсем не получилось просуммировать списание по 15 столбцу

Code
1
2
3
=СЧЁТЕСЛИМН(A:AA;D6;E:E;"=*11.2018*")' не работает
=СУММПРОИЗВ(СЧЁТЕСЛИ(A:AA;"*ЛАНСКАЯ*"))
=СЧЁТЕСЛИ(A:AA;"=*ЛАНСКАЯ*")

@Казанский · 18.11.2018, 19:46

Сообщение от der alex

как просуммировать количество вагонов по Иланской оформленных в текущем месяце

Так получается 193

Code
1
=СЧЁТЕСЛИМН(E:E;"??.11.2018*";D:D;"иланская*")

Ссылка A:AA у Вас получается потому, что присутствует объединенная ячейка в 1 строке. Для анализа данных объединенные ячейки - зло. В частности, здесь приходится вводить ссылку вручную, а не кликать по заголовку столбца.

Новые блоги и статьи Все статьи Все блоги /
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 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .