Excel中如何按工作表对应月份将A列数字转换为日期？

方法1：VBA工作表事件（自动实时转换，推荐） #

这种方法能在你输入数字到A列后，立刻将其转换为对应工作表月份的日期，无需手动操作。

操作步骤： #

1. 打开目标Excel文件，按下 Alt + F11 打开VBA编辑器
2. 在左侧「工程资源管理器」中，依次选中每个以葡语月份命名的工作表（jan、fev…dez）
3. 针对每个工作表，粘贴对应事件代码（注意修改代码中的月份数字和年份）：

示例：jan工作表（对应1月）的代码

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理A列单元格
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        Application.EnableEvents = False ' 禁用事件防止循环触发
        On Error Resume Next ' 跳过非数字等无效输入
        For Each cell In Target
            If IsNumeric(cell.Value) And cell.Value > 0 And cell.Value <= 31 Then
                ' 转换为2024年1月的日期，可自行修改年份
                cell.Value = DateSerial(2024, 1, cell.Value)
                ' 设置显示格式为日/月/年
                cell.NumberFormat = "dd/mm/yyyy"
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub

其他工作表的代码修改点：

• fev（2月）：将DateSerial(2024, 1, cell.Value)中的1改为2
• mar（3月）：改为3，以此类推，dez（12月）改为12
• 若需自动取当前年份，把2024替换为Year(Date)

注意事项： #

• 代码会自动过滤非数字、≤0或＞31的输入，避免生成无效日期
• 保存文件时需选择「Excel启用宏的工作簿（.xlsm）」格式

方法2：自定义格式+辅助公式（无代码方案） #

如果不想启用宏，可以结合公式将输入的日数转换为日期，再设置显示格式：

1. 假设在A列输入日数，B列显示转换后的日期（也可开启迭代计算直接在A列实现）
2. 在对应工作表的B1单元格输入公式：
   • jan工作表：=DATE(2024,1,A1)
   • abr工作表：=DATE(2024,4,A1)
   • 其他工作表对应修改月份数字即可，年份换成YEAR(TODAY())可自动取当前年
3. 选中B列，右键选择「设置单元格格式」→「数字」→「自定义」，在「类型」框输入dd/mm/yyyy
4. （可选）直接在A列实现：
   • 点击「文件」→「选项」→「公式」，勾选「启用迭代计算」，迭代次数设为1
   • 在A1输入公式：=IF(ISNUMBER(A1),DATE(2024,1,A1),"")（修改对应月份数字），输入数字后会自动转换为日期

内容的提问来源于stack exchange，提问作者Rafael Guimarães