Ігор Гончаренко, спасибо, что подсказали использовать именно формат в дате 01.01.2021. Сделал то, что над чем долго долбился! И теперь моя минитабличка помогает мне и облегчила работу!
Благодарю всех за помощь!!!
Благодарю всех за помощь!!!
|
09.06.2021 12:48:32
Ігор Гончаренко, спасибо, что подсказали использовать именно формат в дате 01.01.2021. Сделал то, что над чем долго долбился! И теперь моя минитабличка помогает мне и облегчила работу!
Благодарю всех за помощь!!! |
|
|
|
|
|
09.06.2021 10:37:56
|
|||
|
|
|
|
08.11.2019 09:54:21
|
|||
|
|
|
|
07.11.2019 13:34:20
Ну все таки есть один вопрос....вот макрос
Но он получается работает, если в ячейке выделенной цветом есть какое-то значение, данные, буква, число. А что надо изменить, чтоб просто считало, когда ячейка просто закрашена.
Изменено: - 07.11.2019 14:59:31
|
|||
|
|
|
|
07.11.2019 11:28:10
Добрый день! Помогите пожалуйста! У меня в таблице есть уже 2 макроса (считает сумму ячеек выделенных цветом и считает кол-во ячеек выделенных цветом). И мне теперь нужно еще один макрос (считать кол-во ячеек) по другому столбцу с другим цветом....И я не могу вспомнить как делал макрос чтоб он работал!!!! Помогите!!! Инструкции читаю не могу понять...создал уже кучу модулей, не знаю как их удалить...
|
|
|
|
|
|
03.06.2019 08:21:25
Добрый день. Поблагодарить хочу за такой прекрасный сайт и массу полезной информации.
Помогите пожалуйста. Я ввел код (считает сумму ячеек с выделенным цветом) Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double Dim Sum As Double Application.Volatile True For Each cell In DataRange If cell.Interior.Color = ColorSample.Interior.Color Then Sum = Sum + cell.Value End If Next cell SumByColor = Sum End Function И создал второй модуль с кодом где изменил (считает кол-во ячеек с выделенным цветом) Sum = Sum + 1 Все считает отлично, но...возникли трудности со 2 модулем, когда ячейка с нулевым значением и ее не нужно брать, подскажите что нужно изменить. Спасибо Извините, изначально не в ту тему написал. |
|
|
|
|
|
31.05.2019 13:49:02
Добрый день. Поблагодарить хочу за такой прекрасный сайт и массу полезной информации.
Помогите пожалуйста. Я ввел код (считает сумму ячеек с выделенным цветом) Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double Dim Sum As Double Application.Volatile True For Each cell In DataRange If cell.Interior.Color = ColorSample.Interior.Color Then Sum = Sum + cell.Value End If Next cell SumByColor = Sum End Function И создал второй модуль с кодом где изменил (считает кол-во ячеек с выделенным цветом) Sum = Sum + 1 Все считает отлично, но...возникли трудности со 2 модулем, когда ячейка с нулевым значением и ее не нужно брать, подскажите что нужно изменить. Спасибо |
|
|
|
|