Код |
---|
HT = InputBox("Input temperature:") |
"HТ" у вас, это не число, а текст, и он всегда будет отличаться от числа.
"InputBox" должен быть в самом начале макроса, чтобы вы не выполняли ненужные действия, когда не введите температуру => "Cancel" или пустой текст.
"HT" должен быть типом "вариант" ( "As Variant" - желательно).
После ввода "HT" проверьте, является ли это числом, и преобразуйте его в тип "Double" (CDbl).
В случае успеха у вас есть число для сравнения в цикле, в противном случае вы должны обработать ошибку.
Заголовки "Дата" и "Температура" введите вне цикла.
Вместо:
Код |
---|
= Selection.Cells(i, 3) & "." & Selection.Cells(i, 2) & "." & Selection.Cells(i, 1)
|
напишите:
Код |
---|
DateSerial(Cells(i, "A").Value, Cells(i, "B").Value, Cells(i, "C").Value)
|
и отформатируйте диапазон дат соответствующим образом:
Код |
---|
.NumberFormat = "dd/mm/yyyy"
|
Не используйте слово "Reset" в названиях процедур, функций и переменных, констант - это внутреннее имя vba:
"
Reset Statement - Closes all disk files opened using the Open statement"