嘿，我明白你遇到的麻烦了——Excel这个自动转日期的特性真的很烦人，输入个年份直接变成1900年代的日期，完全打乱了你的判断逻辑。咱们一步步来解决这个问题，同时满足你那三个需求：

先唠唠问题根源 #

你之前的公式失效，核心原因是Excel日期格式的自动解析规则：当A1设为日期格式时，输入纯数字（比如2017）会被Excel当成「1900年1月1日之后的第2017天」，也就是1905年9月7日。这时候原公式里的A1<=2958465肯定成立，自然会显示Date，完全不是你想要的结果。

解决方案：公式+VBA双管齐下 #

要同时实现「识别类型+自动改格式」，光靠公式搞不定自动改格式，得结合VBA宏来做：

第一步：先把B1的判断公式改对

咱们换个思路，不看Excel转换后的值，直接看你输入的原始内容来判断。把B1的公式换成这个：

=IF(ISNUMBER(DATEVALUE(CELL("contents",A1))),"Date",IF(AND(ISNUMBER(A1),A1>=1900,A1<=2100),"Years","Invalid Input"))

• 逻辑拆解：
  • 先检查你输入的内容能不能转成有效日期（比如08-07-2017肯定可以），能的话就显示Date
  • 要是输入的是1900到2100之间的纯数字（这个范围你可以自己调），就显示Years
  • 其他乱七八糟的输入（比如字母）就显示Invalid Input，提醒你输错了

第二步：用VBA实现输入年份时自动转数字格式

公式没法自动改单元格格式，所以得加个工作表事件宏，让Excel自动干活：

1. 右键点击你的工作表标签（比如「Sheet1」），选「查看代码」
2. 把下面这段代码粘贴进去：

Private Sub Worksheet_Change(ByVal Target As Range)
    '只盯着A1单元格的变化，别的不管
    If Target.Address = "$A$1" Then
        On Error Resume Next '防止输入奇怪内容时报错
        Dim inputVal As String
        inputVal = Trim(Target.Value)
        
        '如果是有效日期，就保持日期格式（这里用dd-mm-yyyy，你可以改成自己习惯的）
        If IsDate(inputVal) Then
            Target.NumberFormat = "dd-mm-yyyy"
        '如果是合理范围内的年份，自动转成数字格式
        ElseIf IsNumeric(inputVal) And inputVal >= 1900 And inputVal <= 2100 Then
            Target.Value = CDbl(inputVal)
            Target.NumberFormat = "0"
        End If
        On Error GoTo 0
    End If
End Sub

• 代码能干啥：
  • 只要A1的内容变了，它就自动检查
  • 输入日期？保持日期格式，完美
  • 输入2017这种年份？立刻把A1改成数字格式，显示2017，再也不会变成1905年的日期了
  • 输入别的？比如abc，就啥也不改，等着B1给你提示错误

最后看看效果咋样

• 输入08-07-2017：A1还是日期格式，B1显示Date
• 输入2017：A1自动变成数字格式（显示2017），B1显示Years
• 输入abc：B1显示Invalid Input，提醒你输错了

小提醒 #

• 保存文件的时候要选.xlsm格式，不然VBA代码会失效（因为普通xlsx不支持宏）
• 年份范围1900-2100你可以自己改，比如想支持1800到2200，直接改数字就行
• 日期格式dd-mm-yyyy也可以换成你常用的，比如mm/dd/yyyy

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