Excel宏需要在该字段中单击才能运行

Question

我有一个非常简单的宏来将文本日期转换为excel中的实际日期字段。

Sub Macro2()
'
' Macro2 Macro
' fixdates
'

'
    Range("AM2:AM5,AJ2:AK5").Select
    Range("AJ2").Activate
    Selection.NumberFormat = "mm/dd/yy;@"
    Range("AJ4").Select
End Sub

但每当我运行它时，我必须实际点击每个单元格才能正确转换。

我在这里缺少什么？

Answer 1

您可以更改子例程以将值设置为值。这将强制将看起来像日期的文本字符串转换为实际日期：

Sub Macro2()
    With Range("AM2:AM5,AJ2:AK5")
        .NumberFormat = "mm/dd/yy;@"
        .Value = .Value
    End With
End Sub