Добрый день. Имеется таблица со значениями. Необходимо высчитать процент соотношения ячеек, а именно - Сколько ячеек в колонке 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