Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос изменения даты и времени
 
#1
16.02.2017 15:14:57
 Добрый день.

Пытался решить проблему формулами, но пришёл к выводу, что если это возможно сделать макросом, то было бы лучше, так как файл настроен и переделывать его из-за одного расчёта не представляется возможным.

Есть большая таблица, а в столбце F содержится дата и время. Необходимо, что бы проходила проверка по времени, если оно больше 18:59:00, то дата меняется на +1 и время выставляется 09:00:00. У ячеек со временем в диапазоне от 00:00:00 до 08:59:00 необходимо поменять только время на 09:00:00 оставим дату неизменной.
 
 
 
#2
16.02.2017 15:40:52
Оно
Мой канал
 
 
 
#3
16.02.2017 15:43:41
Не похоже, в 50 строке, например остались и дата и время незименённые 01.10.2016 19:08, а должно было стать 02.10.2016 09:00
 
 
 
#4
16.02.2017 15:48:49
Маленькая заминка!
Код
Sub ее()
arrBaza = Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row).Value
For I = 1 To UBound(arrBaza)
If Hour(arrBaza(I, 1)) >= 19 Then
    arrBaza(I, 1) = DateSerial(Year(arrBaza(I, 1)), Month(arrBaza(I, 1)), Day(arrBaza(I, 1))) + 1 + TimeValue("09:00:00")
End If
If Hour(arrBaza(I, 1)) < 9 Then
    arrBaza(I, 1) = DateSerial(Year(arrBaza(I, 1)), Month(arrBaza(I, 1)), Day(arrBaza(I, 1))) + TimeValue("09:00:00")
End If
Next I
Range("F2").Resize(UBound(arrBaza, 1), 1) = arrBaza
End Sub
Изменено: skais675 - 16.02.2017 15:49:54
Мой канал
 
 
 
#5
16.02.2017 15:51:52
Божественно, спасли)

Спасибо.
 
 
 
#6
16.02.2017 16:46:51
А ещё вопрос.
А удален еще вопрос!
Правила.
 
 
 
Страницы: 1
Наверх