excel表格怎么跳转时间

1.如何实现打开excel时自动跳转到当前日期所在的行

点击工作表标签，右键查看代码，将下面代码复制到光标定位处。

回到工作表即可实现如下效果：

先点击其他工作表，然后在点击这个加了代码的工作表，它就会在自动定位到A列日期是本日的位置。

日期所在单元格内容是本日：2008-2-28或者公式=Today()。

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

Private Sub Worksheet_Activate()

Dim I As Long

I = Date

With Application.WorksheetFunction

If .CountIf(Range("A:A"), I) Then

Cells(.Match(I, Range("A:A"), 0), 1).Select

End If

End With

End Sub

*********************

2007的.xlsx格式的文件是不能保存宏的，要另存为.xlsm格式的文件才行。

这样可以么？