如何制作打开工作簿便自动按日期排序，并提醒当日需做业务的台账

作者：绿色风分类：时间：2022-08-18 浏览：168

楼主 xmyjk	如何制作，一打开工作簿，便自动按日期排序，提醒当日需做业务笔数，并转跳记录所在行，的业务台账？ Private Sub Workbook_Open() Dim rng As Range, fad$, ur As Range Range("A1").CurrentRegion.Sort [a1], xlAscending, , , , , , xlYes With Range([a2], [a65536].End(3)) Set rng = .Find(Date) fad = rng.Address Set ur = rng Do Set rng = .FindNext(rng) Set ur = Union(rng, ur) Loop While Not rng Is Nothing And rng.Address <> fad End With ur.Select MsgBox "今日需汇款" & [COUNTIF(A:A,TODAY())] & "笔" End Sub 如图操作。自动提醒台账.gif 台账.zip
2楼 xyf2210	学习
3楼 eliane_lei	进来学习，谢谢分享！
4楼秋天的无花果	学习
5楼 Sαη	学习了，谢谢分享~
6楼 pkpkyb	提醒一下好

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表