需要點擊現場運行的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