[已解决]根据出生年月来提取年龄能否用VBA来提取，因为函数跨年会变。谢谢

qinhuan66

根据出生年月来提取年龄能否用VBA来提取，因为函数跨年会变。谢谢
求助.rar (14.69 KB, 下载次数: 15)

2014-1-13 15:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2014-1-13 15:53

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim age As Integer
    If Target.Address = "$M$4" Then
        age = (Now - [m4]) / 365
        [o4] = age & "岁"
    End If
End Sub

跳转到最佳答案楼层

QLZ0602

加一个辅助单元格  输入你要计算的日期 譬如P1
=IF(M4="","",DATEDIF(M4,P1,"y")&"岁")

qinhuan66

QLZ0602 发表于 2014-1-13 15:21
加一个辅助单元格  输入你要计算的日期 譬如P1
=IF(M4="","",DATEDIF(M4,P1,"y")&"岁")

谢谢你。这个的话我也过了。我就是度想VBA能否实现。谢谢

爱疯

Private Sub Workbook_Open()
    Dim age As Integer
    Sheet2.Select
    age = (Now - [m4]) / 365
    [o4] = age & "岁"
End Sub
求助2.rar (16.66 KB, 下载次数: 5)

2014-1-13 15:35 上传

点击文件名下载附件

顶2楼，用公式就可以了
用自己会的方法，以后好改。

风林火山

在模块中插入一句代码：如图

qinhuan66

爱疯 发表于 2014-1-13 15:35
Private Sub Workbook_Open()
    Dim age As Integer
    Sheet2.Select

你好版主：能否直接写在本工作表内，当M4输入日期时即触发。谢谢

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim age As Integer
    If Target.Address = "$M$4" Then
        age = (Now - [m4]) / 365
        [o4] = age & "岁"
    End If
End Sub