Доброго всем дня. Возникла проблема с написанием кода, если сравнить два числа, например больше или меньше, тут все понятно, а как сравнить время? То есть например "00:40:00" минут с другим временем больше оно или меньше. Если больше то ячейка должна окраситься в красный цвет. Пробовал условным форматированием, тормозит жутко, так как перебирает все ячейки, вот я и пробую написать макрос который проверяет только последнее введенное значение. Прикладываю примерный код и файлик. Заранее спасибо. С кодами мог написать не верно, только учусь.... [vba]
Code
Sub xls()
Dim xl As Long Dim t As Long
t = TimeValue("00:40:00") With Worksheets("Лист1") xl = Cells(Rows.Count, "A").End(xlUp).Row ' Поиск последней незаполненной ячейки If Range("A" & xl).Value = "Вариант 3" And _ Range("B" & xl).Value > t Then _ Range("B" & xl).Interior.Color = RGB(255, 0, 0) Exit Sub
End With
End Sub
[/vba]
Доброго всем дня. Возникла проблема с написанием кода, если сравнить два числа, например больше или меньше, тут все понятно, а как сравнить время? То есть например "00:40:00" минут с другим временем больше оно или меньше. Если больше то ячейка должна окраситься в красный цвет. Пробовал условным форматированием, тормозит жутко, так как перебирает все ячейки, вот я и пробую написать макрос который проверяет только последнее введенное значение. Прикладываю примерный код и файлик. Заранее спасибо. С кодами мог написать не верно, только учусь.... [vba]
Code
Sub xls()
Dim xl As Long Dim t As Long
t = TimeValue("00:40:00") With Worksheets("Лист1") xl = Cells(Rows.Count, "A").End(xlUp).Row ' Поиск последней незаполненной ячейки If Range("A" & xl).Value = "Вариант 3" And _ Range("B" & xl).Value > t Then _ Range("B" & xl).Interior.Color = RGB(255, 0, 0) Exit Sub
да, внутри конструкции With перед словами Range и Cells поставь точки, тогда все будет относиться к соотв. листу. в файле у тебя With Worksheets("Лист2"), хотя без точек это все равно пустое место
расскажи, что ты делаешь и что не правильно.
да, внутри конструкции With перед словами Range и Cells поставь точки, тогда все будет относиться к соотв. листу. в файле у тебя With Worksheets("Лист2"), хотя без точек это все равно пустое местоСаня
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
