EXCLE日期的自动跳转功能（如何在excle中写今日日期）

点击工作表标签,右键查看代码,将下面代码复制到光标定位处。回到工作表即可实现如下效果：先点击其他工作表，然后在点击这个加了代码的工作表,它就会在自动定位到A列日期是本日的位置。日期所在单元格内容是本日:2008-2-28或者公式=Today()。

如果是在其他列例如E列,修改代码中的2处Range("A:A")为Range("E:E"

)Private Sub Worksheet_Activate()Dim I As LongI = DateWith Application.WorksheetFunctionIf .CountIf(Range("A:A"), I) Then Cells(.Match(I, Range("A:A"), 0), 1).SelectEnd IfEnd WithEnd Sub*********************2007的.xlsx格式的文件是不能保存宏的，要另存为.xlsm格式的文件才行。这样可以么？