Страницы: 1
RSS
Перед сравнением вычесть значение из ячейки, в макросе cells ( x , x )
 
Здравствуйте.

есть макрос который закрашивает фигуры разным цветом в зависимости от полученных числовых значений
Код
Select Case Range("AT2").Value
            Case 1 To Cells(25, 44)
                      
                x1.Fill.ForeColor.RGB = Range("AR6").Interior.Color
            Case 70 To 200
                x1.Fill.ForeColor.RGB = Range("AR7").Interior.Color
            Case ""
                x1.Fill.ForeColor.RGB = Range("AR8").Interior.Color
        End Select
Главный фокус на case 1
там мы прописываем что значение от 1 до значение которое в ячейке должно закрашиваться цветом определенном
но как бы прописать в первом case чтобы можно было сначало вычисть из cells(25,44 ) определенный поправочный коэфициент а потом он уже сравнивал и закрашивал значение

то есть , допустим в ячейке есть значение 70
Case 1 To Cells(25, 44) - 10
но так как мы вычитаем из ячейки 10 то мы получим значение 60

как можно реализовать это ?
 
Вычитайте (вычисляйте) нужное значение в самой ячейке формулой
Согласие есть продукт при полном непротивлении сторон
 
Homavi, так чем не устраивает вариант Case 1 To Cells(25, 44) - 10 ?
Может, следующий кейс исправить на Case Is <= 200
Страницы: 1
Наверх