为什么我用excel的vba编码显示的日期是12月30日不是当前日期

关键字：excel 更新时间：2019-04-29 06:10:37 149次访问

Private Sub Worksheet_Change(ByVal Target As Range)

  i = Target.Row

  Cells(i, 2) = Format(Time, "m-d h:m:s")End Sub

Time改成Now

m-d h:m:s不改，格式是yyyy-m-d h:m，不会一致；

如果是m月d日 h:m:s格式就一致了。

怎么使其一致呢？用下面代码。

Private Sub Worksheet_Change(ByVal Target As Range)

  Application.EnableEvents = False  '用这一句，下面单元格赋值后不会触发此事件

  i = Target.Row

  Cells(i, 2) = Now

  Cells(i, 2).NumberFormatLocal = "m-d h:mm"

  Application.EnableEvents = True

End Sub

Time函数返回正确的时间，但其中的日期不是当天的；

若要显示当前日期，把Time改为Now即可。

示的日期是12月

相关标签：excel