Выполнить макрос в отфильтрованных данных

@Michael99 · Регистрация: 16.07.2013

Author24 — интернет-сервис помощи студентам

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

по коду:
выделяю один столбец и потом он начинает красить все ячейки в зависимости от значения в первой ячейки (больше зеленые, меньше красные)

0,5 первая ячейка(зеленая)
0,4 красная
0,6 зеленая
0,8 зеленая
0,3 красная

код макроса:

Visual Basic

sub Raskraska()
    Set rngAll = Application.InputBox(Prompt:=Prompt, Title:=Title, Default:=ActiveCell.Address, Type:=8)
    
    rngFirst = rngAll.Cells(1, 1)
 
    For Each rngAll In rngAll.Cells
    
    If Not TypeName(rngAll.Cells.Value) = "Double" Then
    Else
    
        If rngAll.Cells.Value < rngFirst Then
            rngAll.Cells.Interior.Color = 255
        Else
            rngAll.Cells.Interior.Color = 5296274
        End If
 
    End If
    Next rngAll
end sub

~~Shersh~~ · 27.01.2016, 13:58

Исправленный фрагмент вашего кода -

Visual Basic

    If Not TypeName(rngAll.Cells.Value) = "Double" Then
    ElseIf rngAll.RowHeight Then
        If rngAll.Cells.Value < rngFirst Then
            rngAll.Cells.Interior.Color = 255
        Else
            rngAll.Cells.Interior.Color = 5296274
        End If
    End If

@Michael99 · 27.01.2016, 14:15 **[ТС]**

все ок, работает как надо, спасибо!

@Michael99 190 / 59 / 20 Регистрация: 16.07.2013 Сообщений: 234
	27.01.2016, 14:15 [ТС]	3
	все ок, работает как надо, спасибо! 0

Выполнить макрос в отфильтрованных данных

Решение