Я новичок в VBA и пытаюсь автоматизировать процесс. Я наткнулся на контрольно-пропускной пункт и не могу понять, почему этот код не работает. Я хотел бы найти то, что мне не хватает, и объяснить, почему это не работает. Я пытаюсь изменить цвет интерьера ячейки, если ее значение находится между двумя параметрами, которые заполнены в пользовательской форме. Например, если в диапазоне были значения 1-4 (включая десятичные дроби) и пользователь хочет выделить все числа в диапазоне 2-3.
Private Sub CommandButton1_Click()
Dim r As Range
Dim i As Range
Dim q As Range
Set r = Range("B5", Range("B5").End(xlToRight))
Set i = Range(r, r.End(xlDown))
For Each q In i
If q.Value <= txtMaxHot.Value And q.Value >= txtMinHot.Value Then
q.Interior.Color = rgbGreen
End If
Next q
Unload Me
End Sub