请教大神们，如何添加按钮自动跳到当日日期，谢谢啦！

桑榆非晚

各位大神，请帮帮忙，后面有宏文件附件，详情如图所示，代码如何编写啊，按钮内容能否改成“返回当日”，谢谢大神们！

xiaoyuemt

在A列查找一下，找到后选择就行

nicleyuan

坐等
似水无痕

nicleyuan

gooood luck..

桑榆非晚

nicleyuan 发表于 2023-1-4 22:42
gooood luck..

谢谢大神，明天才能送花花啊，今天没有了，祝您平安喜乐，如意吉祥！！！

tmplinshi

1. Sub SelectTodayCell()
   
2.     On Error Resume Next
   
3.     Columns(1).Find(Date).Select
   
4. End Sub

复制代码

杨建营

可以根据需要查找日期，请楼主参考。