嘿，我来帮你揪出这个类型不匹配错误的根源，顺便给你优化下代码逻辑！

核心错误原因 #

你遇到的类型不匹配问题，本质是Date_Form_Intern的类型处理错了：

• 从ListBox里取出来的Date_Form_Intern是字符串类型，直接和数字1095做加法（Date_Form_Intern + 1095），VBA完全不知道该怎么把字符串和数字相加，自然就报错了。
• 顺便提个小细节：你注释写的是“有效期1年”，但1095天是整整3年哦！如果确实是1年有效期，得改成对应天数或者用更严谨的日期函数。

修复代码的两种方案 #

方案1：先转日期再计算天数 #

先把字符串格式的日期转成真正的日期类型，再加上对应天数：

' 这里替换1095为365（1年），如果是3年需求就保留1095
ws.Cells(15, fin_col_Form_Intern + 1) = CDate(Date_Form_Intern) + 365

方案2：用DateAdd函数（推荐，更严谨） #

DateAdd会自动处理闰年、不同月份的天数差异，比直接加天数靠谱得多，比如要加1年直接写：

ws.Cells(15, fin_col_Form_Intern + 1) = DateAdd("yyyy", 1, CDate(Date_Form_Intern))

额外优化建议 #

• 强制变量声明：在模块最顶部加上Option Explicit，然后给每个变量指定类型（比如Dim Date_Form_Intern As String, ws As Worksheet），能避免很多隐性的类型错误。
• 校验ListBox日期格式：确保ListBox里的日期是标准格式（比如“2024/05/20”），不然CDate()可能转换失败。

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