Макрос на выделение значений с долеей более 20%

Автор Leanna, 12.10.2011, 13:37

« назад - далее »

Leanna

Добрый день!

Помогите пожалуйста написать макрос, который выделял бы значения которые составляет 20% и более в диапазоне выделения.

Во вложении пример с описанием задачки.

iron priest

а условное_форматирование не подойдет? или ячейки нужно только выделить курсором?

Leanna

#2
Не подойдет, потому что расчетов приведенных в столбце 3 нету, есть только выделенный в сводной таблице диапазон. Доли считаться должны внутри макроса.

Я вроде могу сама макрос написать я встаю в ступор на 2х этапах

1. Как сделать "суммировать все значения выделения". Selection.Sum не работает.

2. Как выделить цветом обработанную cell
cell.ColorIndex = 6 - НЕ РАБОТАЕТ

        For Each cell In Selection
                If cell.Value > 1000 Then
                cell.ColorIndex = 6 - НЕ РАБОТАЕТ
            End If
    Next cell
   

nilem

Попробуйте так:
Sub Leanna()
Dim r As Range, s#
s = WorksheetFunction.Sum(Selection)
If s = 0 Then Exit Sub
Selection.Interior.Color = xlNone
For Each r In Selection.Cells
    If IsNumeric(r.Value) Then
        If r.Value / s > 0.2 Then r.Interior.ColorIndex = 6
    End If
Next r
End Sub

exceleved

Кто мешает использовать эту формулу использовать в условии УФ? (см. файл)

> cell.ColorIndex = 6 - НЕ РАБОТАЕТ

cell.Interior.ColorIndex = 6
или
cell.Font.ColorIndex = 6

Leanna


iron priest

Цитата: Leanna от 13.10.2011, 09:29
Спасибо большое, то что надо   :D

Цитата: iron priest от 12.10.2011, 13:44
а условное_форматирование не подойдет? или ячейки нужно только выделить курсором?

то о чем я говорил не подошло, а это подошло О_о