| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 自动筛选问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134273) |
|||||
| -- 作者：jick0526 -- 发布时间：2019/5/2 22:02:00 -- 自动筛选问题 老师，我有一列字符列，如下图，我想在窗口做个按钮，只要点击按钮，就会自动筛选出和系统日期相同的月份和日，比如今天是5月3日，那么点击按钮后会自动筛选出0503，这个代码要怎么写，麻烦老师帮我写下，谢谢！
|
|||||
| -- 作者：xiangyushi -- 发布时间：2019/5/3 6:45:00 -- Dim md As String md= Right(Format(Date.Now, "yyyyMMdd"),4) \'生成当前时间的筛选值,月日 Tables("表名").Filter = "A列 = \'" & md & "\'" \'执行筛选 |
|||||
| -- 作者：有点甜 -- 发布时间：2019/5/4 10:14:00 -- 参考
Dim md As String = Format(Date.Now, "MMdd")
|