如何实现打开excel时自动跳转到当前日期所在的行
1个回答
展开全部
点击工作表标签,右键查看代码,将下面代码复制到光标定位处。
回到工作表即可实现如下效果：
先点击其他工作表，然后在点击这个加了代码的工作表,它就会在自动定位到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格式的文件才行。
这样可以么？
回到工作表即可实现如下效果：
先点击其他工作表，然后在点击这个加了代码的工作表,它就会在自动定位到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格式的文件才行。
这样可以么？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
