VBA中XLookup返回#N/A求助：日期格式转换查询失败

你的XLookup返回#N/A，核心问题是构建查找日期时漏掉了用户输入的年份，导致生成的cur_wk和prv_wk年份不对，和表格C列的日期无法匹配。

具体问题点 #

你当前的代码里，cur_wk = DateValue(src_mo_num & "/" & src_dy_val)只拼接了月和日，没有加入用户输入的src_yr_val，DateValue会默认使用当前系统年份，而你表格里的C列是带完整年份的日期（比如12/31/2022），自然匹配不到。

修复步骤 #

1. 补全年份，生成完整日期
   修改日期构建代码，把用户输入的年份加进去：

   cur_wk = DateValue(src_mo_num & "/" & src_dy_val & "/" & src_yr_val)
   prv_wk = cur_wk - 7  '直接基于cur_wk减7，避免重复拼接代码
   

2. 可选：添加输入合法性校验
   避免用户输入无效日期导致报错，比如加个判断：

   On Error Resume Next
   cur_wk = DateValue(src_mo_num & "/" & src_dy_val & "/" & src_yr_val)
   On Error GoTo 0
   If IsDate(cur_wk) = False Then
       MsgBox "输入的日期无效，请重新运行脚本！"
       Exit Sub
   End If
   prv_wk = cur_wk - 7
   

3. 确保XLookup精确匹配
   虽然XLookup默认是精确匹配，但明确指定匹配模式更稳妥：

   cur_wk_long = Application.XLookup(cur_wk, Sheets("week number").Range("C2:C53"), Sheets("week number").Range("D2:D53"), , 0)
   prv_wk_long = Application.XLookup(prv_wk, Sheets("week number").Range("C2:C53"), Sheets("week number").Range("D2:D53"), , 0)
   

额外检查点 #

• 确认表格C列的单元格是日期类型（不是文本格式）：可以选中C列，右键查看单元格格式，确保是“日期”或自定义日期格式，而非“文本”。
• 检查prv_wk对应的日期是否确实存在于C列中（比如当用户输入的是当年第一周的周五时，减7可能会到上一年，需要确保表格包含上一年的日期数据）。

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