Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Исключение столбцов из диапазона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исключение столбцов из диапазона (Макросы/Sub)
Исключение столбцов из диапазона
EvgenyApMr Дата: Среда, 22.04.2020, 12:10 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день!)

Есть процедура, которая считает ячейки с определенным цветом.

[vba]
Код
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 + 1
End If
Next cell
SumByColor = Sum
End Function
[/vba]

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



Должен происходить подсчет только тех "Б", которые не попадают под коричневый столбец. Или наоборот - счёт только тех, которые попадают.

Например, в формуле
Код
=СЧЁТЕСЛИ(E6:AH6;"Б")*1
нужно удалить ячейки под окрашенным столбцом (H6, I6, O6 и т.д.)


Сообщение отредактировал EvgenyApMr - Среда, 22.04.2020, 13:55
 
Ответить
СообщениеДобрый день!)

Есть процедура, которая считает ячейки с определенным цветом.

[vba]
Код
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 + 1
End If
Next cell
SumByColor = Sum
End Function
[/vba]

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



Должен происходить подсчет только тех "Б", которые не попадают под коричневый столбец. Или наоборот - счёт только тех, которые попадают.

Например, в формуле
Код
=СЧЁТЕСЛИ(E6:AH6;"Б")*1
нужно удалить ячейки под окрашенным столбцом (H6, I6, O6 и т.д.)

Автор - EvgenyApMr
Дата добавления - 22.04.2020 в 12:10
mgt Дата: Четверг, 23.04.2020, 15:55 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 5 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
If cell.Interior.Color = ColorSample.Interior.Color And Cells(6, cell.Column).Interior.Color = 16777215 Then
[/vba]
 
Ответить
Сообщение[vba]
Код
If cell.Interior.Color = ColorSample.Interior.Color And Cells(6, cell.Column).Interior.Color = 16777215 Then
[/vba]

Автор - mgt
Дата добавления - 23.04.2020 в 15:55
Dmitriy_37 Дата: Четверг, 23.04.2020, 22:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 4 ±
Замечаний: 0% ±

Excel 2010
День добрый! Может такой вариант
К сообщению приложен файл: ____.xlsm(14.5 Kb)
 
Ответить
СообщениеДень добрый! Может такой вариант

Автор - Dmitriy_37
Дата добавления - 23.04.2020 в 22:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исключение столбцов из диапазона (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!