Страницы: 1
RSS
Преобразование формул в значение, но с условем
 

Доброго времени суток!
Есть код, преобразовывает формулы в значения по условию выделения ячеек.
Необходимо добавить еще одно условие, преобразовывать только ячейки с  формулами в которых значение больше 0 или если это возможно ячейки с заливкой.

Код
Sub Macros1()
Sheets("База").Range("E6:DH53") 
.Value = .Value 
End With
End Sub



Заранее спасибо
 
Код
Sub Macros1()
Dim x
    For Each x In Sheets("База").Range("E6:DH53")
        If x > 0 Or x.Interior.Color <> xlNone Then
            x.Formula = x.Value
        End If
    Next
End Sub
Изменено: nor - 21.03.2020 21:02:02
 
nor большое спасибо за помощь!!!
 
Цитата
по условию выделения ячеек.
Не по условию выделения, а в диапазоне Range("E6:DH53")
Страницы: 1
Наверх