Сравнить время макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнить время макросом (Макросы/Sub)

ant6729

Дата: Вторник, 17.07.2018, 15:06 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Всем привет!

Как понять, как сравнить время?

[vba]

Код

Sub kkk()

For x = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

    If TimeValue(Cells(x, 3).Value) > TimeValue("03:00:00") Then 1

Next x

End Sub

[/vba]

Ответить

StoTisteg

Дата: Вторник, 17.07.2018, 15:13 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

ant6729, [offtop]что-то (кажется, название темы и отсутствие файла) мне подсказывает, что Вам сейчас ещё 20% прилетит...

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Вторник, 17.07.2018, 15:14

Ответить

sboy

Дата: Вторник, 17.07.2018, 15:13 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Как понять, что вы хотите спросить?

Яндекс: 410016850021169

Ответить

ant6729

Дата: Вторник, 17.07.2018, 15:25 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Если в колонке значение времени больше 3 00 00
То сработает решение

К сообщению приложен файл: 3341738.xlsx (8.4 Kb)

Ответить

ant6729

Дата: Вторник, 17.07.2018, 15:30 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

ячейка закраситься, если хотите

Ответить

nilem

Дата: Вторник, 17.07.2018, 15:56 | Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

ant6729, привет
типа такого, наверное
[vba]

Код

Sub kkk()
Dim i&
For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1'можно и сверху вниз
If Cells(i, 3).Value > TimeSerial(3, 0, 0) Then Cells(i, 3).Interior.ColorIndex = 43
Next i
End Sub

[/vba]
И еще УФ вполне может справиться.

Яндекс.Деньги 4100159601573

Ответить

ant6729

Дата: Вторник, 17.07.2018, 16:00 | Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Спасибо, про УФ в текучке работы как-то забыл...
Если честно, настолько наотвлекался, что сдался сюда со своим вопросом.
Я Time Serial тоже перекопал... даже использовал как у Вас, только оборачивал Cells(i, 3).Value в другие типы.

Блин.
Код любит тишину.

Ответить

StoTisteg

Дата: Вторник, 17.07.2018, 16:21 | Сообщение № 8

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

nilem, я бы на всякий случай написал[vba]

Код

If CDate(Cells(i, 3).Value) > TimeSerial(3, 0, 0) Then Cells(i, 3).Interior.ColorIndex = 43

[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

_Boroda_

Дата: Вторник, 17.07.2018, 16:23 | Сообщение № 9

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Можно еще так
[vba]

Код

If CDate(Cells(i, 3).Value) > CDate("3:0") Then

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнить время макросом (Макросы/Sub)

Страница 1 из 1
1