修改日期生成逻辑后Range.Find无法查找当前日期问题咨询

我更新了任务/统计追踪工作簿，调整顶部日期范围的起始日期后，后端的Range.Find子程序失效，无法查找当前日期。这个查找功能是为了指导Post函数通过类似sheet.cells(myDate.Row, myDate.Column)的代码将值放入正确列。

我在同一工作簿中创建了带按钮的示例工作表，按钮绑定的简易宏与后端代码完全一致，但该宏能正常找到目标日期。

问题复现代码 #

Public dateOne As Range
Public testDate As Variant
Public wb As Workbook
Public testSht As Worksheet

Public Sub loadRange()
    Set wb = Workbooks("Tracker 2.1 - CAOC Edition DEV")
    Set testSht = wb.Sheets("TEST")
    
    Set dateOne = testSht.Range("E2:M2")
End Sub

Sub findDateOne()
    'this one uses a Range.Find
    loadRange
    
    Set testDate = dateOne.Find(What:=DateValue(Date), LookIn:=xlValues)
    
    testSht.Cells(15, 2).Value = testDate
    testSht.Cells(17, 2).Value = testDate.row
    testSht.Cells(18, 2).Value = testDate.Column
    
End Sub

后端失效代码 #

Public Sub currentDate()
'sub to assign current date to global values
    MsgBox("WTF")
    'This can no longer find the correct date since I converted to a 
    'formula system to allow for re-use
    
    Set myDate = taskRange.Find(What:=DateValue(Date), LookIn:=xlValues)
    
    If myDate Is Nothing Then
        MsgBox("Date not found")
    Else
        MsgBox(myDate.Address)
    End If  
End Sub

说明：myDate为Variant类型，taskRange通过独立的loadData()子程序设置。待查找的日期行基于起始日期生成（例如A1为6/24/2023，后续单元格为A1+1、B1+1等），工作表中这些单元格格式为日期。

疑问 #

1. 为何后端代码无法正常工作？
2. 为何示例工作表中的宏能正常运行？

1. 后端代码失效的可能原因 #

• taskRange范围错误：检查loadData()中设置的taskRange是否覆盖了正确的日期行。调整起始日期后，日期列范围可能已变更，但taskRange未同步更新，导致查找范围不对。
• Range.Find参数残留：Excel的Find方法会记住上一次使用的参数（如LookAt、SearchOrder），如果之前有操作设置了LookAt:=xlPart这类非默认参数，后端代码未显式指定参数时会沿用错误配置，导致匹配失败。
• 日期值精度问题：公式生成的日期可能带有小数形式的时间部分（如6/24/2023 12:00:00），而你查找的是DateValue(Date)生成的纯日期值，xlValues模式下无法匹配带时间的单元格。
• 全局变量冲突：如果myDate或taskRange是全局变量，其他子程序可能修改了它们的值，导致currentDate()运行时拿到的不是预期的范围或数据。

2. 示例宏正常运行的原因 #

• 参数环境干净：示例宏单独运行，之前没有其他Find操作残留参数，默认使用LookAt:=xlWhole等正确参数，因此能正常匹配。
• 范围明确无误差：示例中直接指定testSht.Range("E2:M2")，该范围准确覆盖目标日期行，不存在范围错误。
• 变量无外部干扰：示例使用独立的全局变量（dateOne、testDate），不会被其他代码修改，运行时变量值完全符合预期。

排查建议 #

1. 给后端Find方法补充完整参数，避免残留参数影响：

Set myDate = taskRange.Find(What:=DateValue(Date), _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    SearchOrder:=xlByColumns, _
    MatchCase:=False)

2. 检查loadData()中的taskRange设置，用MsgBox taskRange.Address确认范围是否正确覆盖日期行。
3. 验证日期单元格的实际值：在工作表中用=CELL("contents", A1)查看单元格真实值，若带时间部分，可改用Int(单元格值)取整数部分后再匹配。
4. 将全局变量改为局部变量，或在currentDate()开头重新初始化taskRange，避免被其他代码干扰。

内容的提问来源于stack exchange，提问作者vypr907