Макрос VBA переключает NumLock

Question

Функция вставляет timesatp в ячейку со следующим кодом:

CrationDate = Now
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, 2).Value = CrationDate

Как я хотел, чтобы он был в правильном формате (чтобы его можно было фильтровать по датам, таким как месяцы и годы, а не позначения, я добавил следующее:

Dim i As String
i = "B" & Cells(Rows.Count, "B").End(xlUp).Row
Range(i).Select
SendKeys "{F2}"
SendKeys "{ENTER}"

Но проблема в том, что функция отправки {F2}, а затем {ENTER} ключей также переключает NumLock, что очень раздражает. Есть идеи, почему?

Answer 1

использование NumberFormat свойство Range объект

With Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, 2)
    .NumberFormat = "m/d/yyyy h:mm"
    .Value = Now
End With