быть в VBA! Если серьезно, Excel лучше - вы можете использовать отмену, он будет обновляться автоматически, он будет обрабатывать вставку столбцов, покажет вам шаги расчета, вам не нужно включать макросы ...
я есть даты вместе со временем под полковником К и некоторые значения (числа), соответствующие этим дням под полковником М.
У меня есть код, который меняет цвет этих значений, если они больше, чем 1, и если у них есть текст "ожидания" в столбце P.
Что я не знаю, это добавить следующее условие в этот код:
1. Я хочу определить, относится ли эти дни к воскресенью.
2.Если да, то я хочу проверить, вычитаются ли из воскресенья часы (скажем, формат даты / времени «15/1/2016 17:00», поэтому оставшееся до воскресенья время для перехода составляет 0,3 дня) число в Col M, и если оно по-прежнему> 1, то оно должно быть выделено красным цветом.
3. Вычитание не должно влиять или появляться в текущем листе.
Я попробовал приведенный ниже код, но я не уверен, где я делаю ошибку, потому что нет результата.
Sub Datefilter()
Dim r As Long
Dim m As Long
On Error GoTo ExitHere:
m = Range("M:P").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Application.ScreenUpdating = False
For r = 1 To m
remainingDay = 0
If Weekday(Range("K" & r)) = 1 Then
remainingDay = Round((24 - Format(TimeValue(Range("K" & r)), "h")) / 24, 1)
End If
If Range("P" & r) = "*waiting*" Then
If Range("M" & r) - remainingDay >= 1 Then
Range("M" & r).Cells.Font.ColorIndex = 3
Else
Range("M" & r).Cells.Font.ColorIndex = 0
End If
End If
Next r
ExitHere:
Application.ScreenUpdating = True
End Sub