Привет, я сейчас пытаюсь автоматизировать рабочий процесс в Excel.
Есть одна вещь, которая сейчас не работает для меня.
Я форматирую столбец для даты, чтобы я моготфильтруйте это.я пробовал это двумя способами.
v1:
Dim a As Long, i As Long
With ZWS 'worksheet name
.Columns(20).NumberFormat = "DD.MM.YYYY HH:MM"
a = .Cells(Cells.Rows.Count, 20).End(xlUp).row
For i = a To 2 Step -1
.Cells(i, 20).Value = CDate(.Cells(i, 20).Value)
v2:
With ZWS 'worksheet name
.Columns(20).NumberFormat = "DD.MM.YYYY HH:MM"
Столбец форматируется, но когда я запускаю свой фильтр VBA, который работалкогда я отформатировал его вручную, он не показывает результатов, но скрывает все.
Код фильтра:
Dim date1 As Date, datum2 As Date
date1 = CDate("16.09.2019")
date2 = CDate("22.09.2019")
With ZWS 'Worksheet name
.Range("T:T"):AutoFilter Field:=1, Criteria:=">=" & date1 *1, _
Operator:=xlAnd, Criteria2:="<" & date2
Я понятия не имею, что не так с кодом или почему он не будет фильтровать его, когда яотформатируйте его в VBA, было бы неплохо, если бы у somone была идея, как решить эту проблему в VBA.