Сумма по цвету в Excel - Пишем пользовательскую функцию VBA

[@BilyalKhassenov]

Ссылка для скачивания файла из видео: drive.google.com/file/d/1IJOHeUXPojA2dzhSB5bDhRlnEQ-3IkVV/view?usp=sharing

[@ferox1009]

не подскажите как провернуть такой же трюк в гугл таблицах, а то про ексель кучу роликов с этой функцией, а про гугл только один в котором парень не показал как он это сделал, а продемонстрировал лишь готовый результат

[@liudmilacondur9037]

@@ferox1009 нашли ответ на ваш вопрос? столкнулась с такой же задачей)))

[@АлександрМолодцов-ф7ф]

Классный урок. Великолепная подача материала. Билял, спасибо Вам за ваш труд.

[@AlexConglomerate]

Для субботы такие ролики само то! 👍 С удовольствием смотрю, даже если и так всё знаю 🙂 Можно кайфовать как минимум от монтажа)

[@abdumalikzukurov6080]

Спасибо за Ваш труд

[@Stas_Gutsal]

Билял, спасибо за крутой видео видеоурок. У меня тоже есть подобного плана одна проблемка, но к огромному сожалению всё никак дойти до неё не могу. Надеюсь в скором времени у меня появится время и я наконец-то смогу нормально начать изучать VBA, а то из-за работы и решения разных дел в жизни уже 3 месяца не могу нормально отдохнуть и настроить себя на саморазвитие.

[@drup3177]

Мне пригодится данный материал! Спасибо

[@KTOTAMbl4]

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

[@verdiev4799]

нельзя было оставить код?

[@andrdem]

Пришлось с этим столкнуться на практике - люди годами в огромной таблице вычеркивали и заливали красным удаленные строки, и нужно было автоматизировать отчетность по некрасным, то еще удовольствие)) А, этот файл еще в сети, его часто открывают и нежелательно тормозить открытие файла макросами (реально очень замедляется), так пришлось реализовывать в отдельном файле, а внимание, в экселе нет автоматического копирования данных из файла в файл с сохранением формата! Так что в "отчетном" файле несколько макросов работают, один стягивает данные и форматы ячеек с первого, другой определяет цветастость ячеек, далее сортировка и всякие сложенные =ВПР и =СЧЁТЕСЛИМН ... Адовый ад))) А нет случайно урока как стягивать данные в эксель из интернета, если он пишет про ошибку выполнения скриптов на странице?

[@tttttt7606]

Очень мощно!!!супер!!

[@АлександрСорокин-ю3т3ч]

Здравствуйте. Огромное спасибо за ролик, очень полезная информация. Но скажите можно ли заставить работать этот макрос при изменении цвета ячеек через условное форматирование? У меня автоматически используется закрашивание в 3 цвета по заданным условиям, ячейки желтого цвета нужно суммировать величины указанные в них, а зеленые и красные просто подсчитывать количество ячеек каждого цвета. Но еще раз скажу все закрашивание не в ручную, а по условному форматированию и файл с общим доступом к книге для нескольких пользователей для одновременной работы. Возможно это реализовать?

[@ВиталийКудряшов-ж7ч]

У меня подобный пример: нужно суммировать ячейки по цвету, и когда цвет изменишь, чтоб всё пересчитывалось. Можете ли выложить файл, с самим макросом? По видео повторял, но вторая часть с макросом не работает, и при изменении цвета приходится нажимать Ctrl+Alt+F9. По моему это единственное видео, где суммируются ячейки по цвету, и если цвет изменить, то и сумма пересчитается. В других видео сумма ячеек при изменении цвета автоматически не пересчитывается. За труд спасибо!

[@ВикторияВикторовна-ы1п]

Ух-ты 🤘👍

[@СергійСтахнюк-ъ8е]

Спасибо Билял за видео! Но почему-то при включении функции пересчета (Application.Calculate) не производится перерасчет в функции SUMIFCOLOR (знаначення не меняются в ячейке Е2 при изменении заливки в диапазоне (B3: B12). Может нужно использовать вместо Application.Calculate две строки кода: EnableCalculation = False EnableCalculation = True?

[@BilyalKhassenov]

Всегда пожалуйста! :) Хм, странно. Вы не забыли вписать Application.Volatile в начале кода функции?

[@kuzmineu]

вот так работает

[@TheSmehSumy]

Где в начале? Перед всем кодом? У меня не работат@@BilyalKhassenov

[@SerTur72]

Вместе с этим видео пришла мысль: эксель, как абсолютная истина, к которой все время приближаешься, но которой до конца так никогда и не познаешь. Когда будет продолжение сводных таблиц?

[@BilyalKhassenov]

Вот сейчас пишу текст - надеюсь успею до этой субботы дописать и записать видео :)

[@ОлегПаламарчук-в9у]

Автор, спасибо за великолепный ролик, очень помог! у меня ещё вопрос, как записать код, чтобы к каждому параметру было описание? ArgumentDescriptions:=Array(В скобках перечислял операторы функции) не помогает

[@lagarimandao6987]

не работает при применении условного форматирования ячеек, это как то можно исправить?

[@sergpol9866]

Нельзя. В VBA нет инструментов, позволяющих определить цвет заливки ячейки, если было применено условное форматирование.

[@BilyalKhassenov]

Ошибаетесь :) Вот как узнать цвет, заданный условным форматированием: Range.DisplayFormat.Interior.Color

[@sergpol9866]

@@BilyalKhassenov тогда по этому нужно видео сделать))))

[@Анатолич-м2н]

@@BilyalKhassenov Сделайте пожалуйста видео на эту тему

[@investngdu7291]

Здравствуйте Билял. Как в exel сделать так чтобы при наборе цифр в ячейке в 1 листе на 2 листе автоматически находил ячейку с той же цифрой и заливал определенным цветом.

[@kip4ak929]

Можно ли в ексел сделать базу данных. Чтобы я ее обновлял на своем компе. И у начальника она бы тоже обновлялась автоматически

[@kip4ak929]

@@ПавелИгнатьев-в4у может дадите ссылку. А дальше я сам разберусь

[@BilyalKhassenov]

Да прям, поделитесь. Я пока на эту тему видео сниму, времени очень много уйдёт. А так человеку поможем ссылкой :)

[@kip4ak929]

@@ПавелИгнатьев-в4у буду очень благодарен) тем более автор видео не против)

[@ОлегПаламарчук-в9у]

Расположи книгу Excel в общей папке и дай к неё доступ нескольким пользователям, тогда ты обновишь, а начальник всё увидит

[@АлександрОшаров-ы4х]

Билял привет, спасибо за труд. Есть два момента: 1) В видео не сказано о том что в начале кода функции нужно прописать Application.Volatile 2) Возможно я допустил ошибку, но у меня функция пересчитывается всегда когда изменяется выбранная ячейка, не только в заданном диапазоне b3:b12. Билял ты проверял код? У меня все работа как буд то в модуле листа код Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.Calculate End Sub

[@АлександрОшаров-ы4х]

Сорян, всё работает

[@anyaabitskaya3819]

Добрый день. Вроде бы все так и набрала текст sumifcolor, а в ячейке не понимает имя функции - пишет имя?

[@pavelpruss5220]

Такой вопрос, а можно наколдовать как-то так, чтобы при условном форматировании цвета функция также работала?

[@user-kostroma-78]

Написать макрос условного форматирования

[@Gulya-s8c1e]

функция Alt+f11 не работает,как иначе открыть?

[@адвокатеадвокат]

В скачанном у Вас файле нет макросов.

[@dmitrij_maloushkin]

Sendkey F9 В функцию Почему нет?

[@АлексейСоков-ь8и]

2021

[@ВладимирМарченко-у7т]

Какой отвратительный синтаксис (

[@kuzmineu]

А почему отвратительный?

[@ВладимирМарченко-у7т]

@@kuzmineu я сужу от удобства и внешнего вида..😅