为何vba不起作用了

wwin80

老师好，

我的一份excel文件有两个vba程序：

程序1：查询日期对应的区域（步骤是 1. 输入日期 2. 点击按钮查询 3. 显示日期对应的数据区域）
错误：仅能查询两个区域 （2019-09-16 和 2019-09-17），而不能任意查询区域（请测试文件），见附图



程序2：当天日期填充背景色
错误：原来希望打开文件，就能看到当天区域加深背景色（同时前天区域恢复成统一的背景色），比如今天是 2019-09-24，那么我今天打开后，我希望看到2019-09-24 对应的数据区域颜色加深，同时 2019-09-23 对应的数据区域颜色恢复成统一的背景色，但是每次打开文件或切换到另外的工作表，都没有任何反应，见附件并测试

非常感谢老师愿意提供宝贵帮助

wwin80

谢谢各位老师能够帮助修正程序错误，达到希望的效果

wwin80

谢谢各位老师下载提供帮助，程序2 是右键查看本工作表的代码

lovemh1987

你d列  除了 2019-9-16 和2019-9-17  是数值，别的都是公式，  你可以把公式转成数值试试。

lsdongjh

格式问题，代码中 用format约束一下日期格式，公式中同样用text约束一下格式，两者保持一致

wwin80

lsdongjh 发表于 2019-9-24 16:15
格式问题，代码中 用format约束一下日期格式，公式中同样用text约束一下格式，两者保持一致

谢谢老师提供帮助

wwin80

lsdongjh 发表于 2019-9-24 16:15
格式问题，代码中 用format约束一下日期格式，公式中同样用text约束一下格式，两者保持一致

谢谢老师的帮助，但是我的查询日期单元格（B2）和需要查询的D列对应单元格都已经设置了 yyyy-mm-dd 日期格式，那么 vba 中怎么设置 format 呢

wwin80

lsdongjh 发表于 2019-9-24 16:15
格式问题，代码中 用format约束一下日期格式，公式中同样用text约束一下格式，两者保持一致

老师，这段 vba 中怎么使用 format 去约束日期格式呢，非常感谢老师的帮助

Sub DateChecker()

Dim dc

On Error Resume Next

dc = Application.WorksheetFunction.Match(Sheet1.Range("B2"), Sheet1.Columns("D"), False)

Range(Sheet1.Cells(dc - 1, 1), Sheet1.Cells(dc + 11, 12)).Select

End Sub

lsdongjh

假设你在公式中约束的格式为 【yyyy-mm-dd】

dc = Application.WorksheetFunction.Match(format(Sheet1.Range("B2"),"yyyy-mm-dd"), Sheet1.Columns("D"), False)

wwin80

lsdongjh 发表于 2019-9-24 16:42
假设你在公式中约束的格式为 【yyyy-mm-dd】

dc = Application.WorksheetFunction.Match(format(Sheet1. ...

太谢谢老师了，这个问题解决了