如何实现打开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格式的文件才行。
这样可以么?
注:不是我原创,是人家的答案
回到工作表即可实现如下效果:
先点击其他工作表,然后在点击这个加了代码的工作表,它就会在自动定位到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格式的文件才行。
这样可以么?
注:不是我原创,是人家的答案
追问
谢谢 不过这个我试过了 就是打开的时候不会定位到当前日期 比如日期在Sheet1 要点到Sheet2再点回去Sheet1才会定位到当前日期 我是想要那种一打开就有会定位到当期日期的那种
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
筛选?打开后自动筛选数据
追问
不要筛选 想要那种一打开就能显示的那种 或者自动定位到当前日期所在的行次
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |