为何我的VBA仅一个错误处理程序能捕获错误？

一、错误捕获失效的原因与修复方案 #

你遇到的这个问题其实是VBA错误处理机制的一个常见坑——错误状态残留。当Short_Date = CDate(...)触发错误进入Short_Date_Error后，你只是设置了Not_A_Short_Date = True然后用GoTo Long_Date跳转，但没有清除之前的错误状态。VBA的错误处理在错误未被Resume系列语句（Resume/Resume Next/Resume <标签>）重置的情况下，后续的On Error指令会失效，导致Long_Date行的错误直接突破错误处理，弹出运行时窗口。

修复方法（二选一即可） #

1. 用Err.Clear手动清除错误状态
   修改你的错误处理代码：

   Short_Date_Error:
       Not_A_Short_Date = True
       Err.Clear ' 清除之前的错误状态，让后续错误处理正常工作
       GoTo Long_Date
   

2. 用Resume跳转（更规范的写法）
   Resume语句会自动清除错误状态，同时跳转到指定标签，比GoTo更符合VBA错误处理的规范：

   Short_Date_Error:
       Not_A_Short_Date = True
       Resume Long_Date ' 自动清除错误并跳转到Long_Date标签
   

修改后，Long_Date行的错误就能正常被Long_Date_Error捕获了。

二、日期搜索的实用技巧与优化建议 #

其实你现在的错误捕获思路可以更简化，给你几个实用的VBA日期处理技巧：

• 优先用IsDate()做前置判断：这是VBA内置的日期合法性判断函数，比错误捕获更高效。比如先判断If IsDate(Find_What) Then，再去转换格式，从源头避免错误：

  If IsDate(Find_What) Then
      Short_Date = CDate(Format(Find_What, "Short Date"))
      Long_Date = CDate(Format(Find_What, "Long Date"))
  Else
      ' 处理非日期输入的逻辑
      Not_A_Short_Date = True
      Not_A_Long_Date = True
  End If
  

• Excel单元格日期搜索注意点：如果是在Excel单元格中搜索日期，要记住Excel是把日期存为数值的。用Range.Find时，可以把LookIn参数设为xlValues（匹配显示的日期文本）或xlFormulas（匹配单元格的日期数值），根据你的需求选择。
• 日期范围搜索简化：要搜索某个时间段的日期，直接用比较运算符更直观，比如：

  If cell.Value >= #2024-01-01# And cell.Value <= #2024-12-31# Then
      ' 符合日期范围的逻辑
  End If
  

• 用户输入日期的规范化：如果是用户输入的日期，建议用InputBox配合IsDate验证，或者直接使用Excel的DatePicker控件，从输入环节就避免非日期内容。

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