Добрый день. Имеется таблица со значениями. Необходимо высчитать процент соотношения ячеек, а именно - Сколько ячеек в колонке C зеленого цвета (Точнее .ThemeColor = xlThemeColorAccent3 .TintAndShade = 0.399975585192419) - Сколько ячеек в колонке B не красного цвета.
Т.е. макрос должен выдать количество зеленых ячеек = 6. Всего ячеек = 21. Значит зеленых 28,6%
Сделал без макроса. Тему можно закрыть.
Добрый день. Имеется таблица со значениями. Необходимо высчитать процент соотношения ячеек, а именно - Сколько ячеек в колонке C зеленого цвета (Точнее .ThemeColor = xlThemeColorAccent3 .TintAndShade = 0.399975585192419) - Сколько ячеек в колонке B не красного цвета.
Т.е. макрос должен выдать количество зеленых ячеек = 6. Всего ячеек = 21. Значит зеленых 28,6%
rever27, не нужно удалять файл, раз уж Вы тему создали. Лучше выложите решение, которое Вы нашли для своей задачи.
Прикладываю исходный файл с макросом
[vba]
Код
Sub green_cells() Dim countGreen As Long: countGreen = 0 Dim kol As Long: kol = 0 Dim lr As Long lr = Cells(Rows.Count, 2).End(xlUp).Row 'последняя ячейка в столбце B For i = 9 To lr If Cells(i, 3).Interior.Color = 10213316 Then countGreen = countGreen + 1 End If If Cells(i, 3).Interior.Color <> vbRed Then kol = kol + 1 End If Debug.Print i Next i If kol <> 0 Then MsgBox "Зеленых ячеек " & Round(countGreen / kol * 100, 2) & "%" End Sub
[/vba]
rever27, не нужно удалять файл, раз уж Вы тему создали. Лучше выложите решение, которое Вы нашли для своей задачи.
Прикладываю исходный файл с макросом
[vba]
Код
Sub green_cells() Dim countGreen As Long: countGreen = 0 Dim kol As Long: kol = 0 Dim lr As Long lr = Cells(Rows.Count, 2).End(xlUp).Row 'последняя ячейка в столбце B For i = 9 To lr If Cells(i, 3).Interior.Color = 10213316 Then countGreen = countGreen + 1 End If If Cells(i, 3).Interior.Color <> vbRed Then kol = kol + 1 End If Debug.Print i Next i If kol <> 0 Then MsgBox "Зеленых ячеек " & Round(countGreen / kol * 100, 2) & "%" End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
