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

使用Range对象的NumberFormat属性

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