
excel
您可以使用
excel中的日期函数来实现这个功能。首先,在需要输入年龄的地方插入一个日期框,然后在
VBA编辑器中编写以下代码:Sub 自动调出年月日()Dim r As RangeFor Each r In SelectionIf r.Rows(1).End(xlUp).Row = 1 ThenSet rs = r.Rows(1)rs(i) = DateEnd IfNext rEnd Sub此代码会自动将当前日期填入到年龄所在单元格中。如果您希望输出中文结果,请使用“格式化日期”功能来对结果进行格式化。另外,如果您希望根据年龄自动调出年月日,而不是手动设置,请考虑使用
VBA编辑器来创建一个宏。宏可以在输入年龄后自动计算并输出当前日期。