Несоответствующее условное форматирование - PullRequest
0 голосов
/ 23 января 2019

У меня есть диапазон спецификации, который я хочу, чтобы код условного форматирования ссылался, и заполнял ячейку цветом (или не использовал цвет), если значение выходит за пределы диапазона спецификации. Работает с некоторыми номерами, а не со всеми. Например, если для диапазона низких значений установлено значение 305, а 305 вводится в ячейку данных, он выделяется КРАСНЫМ цветом как не соответствующим спецификации, когда этого не должно быть. Но если диапазон низких значений равен 299 и введен 299, он не выделяется, что именно то, что я хочу. То же самое относится и к высокому спектру.

Имейте в виду, что мои диапазоны низкой / высокой спецификации вытягиваются с помощью vlookup, поэтому я не уверен, что это создает проблему?

Надеюсь, все это имеет смысл.

Спасибо!

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lowspec As Double, highspec As Double

Dim width As Range

Dim C As Range

lowspec = Me.Range("l6")
highspec = Me.Range("p6")


Set width = Intersect(Target, Me.Range("i16:o101"))

Application.EnableEvents = False
 If Not width Is Nothing Then

    For Each C In width.Cells
       v = C.Value
       If Len(v) > 0 Then
           Select Case v
               Case Is < lowspec: newcolor = 3
               Case Is > highspec: newcolor = 45
           End Select
       Else
           newcolor = xlNone
       End If
       C.Interior.ColorIndex = newcolor
    Next C
 End If

Application.EnableEvents = True

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...