VBA计算年龄的问题

pingshanggl

附件已更改，里面有２００３和２００７两个版本，能够解决(包括每年的９月１日这个特殊日子）每年中的任何一天出生到今年(你也可以设置明年／后年)的８月３１日是多少周岁的问题
如：２０１２年９月１日出生，按照设定(以2013年08月31日为计算界限)，它自动算出年龄是０岁，２０１２年８月３１日出生，算出的年龄是１岁
或许不是最好的，但是比较适合自己

lcjy11185

Sub lyj()
    r = [c65536].End(3).Row
    c = UsedRange.Columns.Count
    arr = [a1].Resize(r, c)
    For i = 4 To r
        If arr(i, 3) <> Empty Then
            arr(i, 3) = Format(arr(i, 3), "####-##-##")
            arr(i, 4) = "=datedif(c" & i & ",date(2013,8,31)," & """y""" & ")"
        End If
    Next
    [a1].Resize(r, c) = arr
End Sub

pingshanggl

lcjy11185 发表于 2013-11-2 19:57
Sub lyj()
    r = [c65536].End(3).Row
    c = UsedRange.Columns.Count

谢谢你的回复
你的VBA出现了问题,多点击几次"出生年月"也会改变.

pingshanggl

这是刚才VBA运行时发生问题的图片

arr(i, 4) = "=datedif(c" & i & ",date(2013,8,31)," & """y""" & ")"与函数无异

jbjbzjb

ghdhfghgfgh

一个表格的单元格格式设计得乱七八糟！！！！

附件更新（指定为某一具体时点统计周岁）

pingshanggl

jbjbzjb 发表于 2013-11-2 21:22
ghdhfghgfgh

一个表格的单元格格式设计得乱七八糟！！！！

谢谢参与
表格的格式是上级规定的,不可以更改



运行之后出现问题(图片也可看到),如下:
姓名           性别         出生年月              周岁
周军23        男          19820511           1900/1/31
周军24        女          19860911           1900/1/27
周军25        女          20100408           1900/1/3
周军26        男          19640611           1900/2/18
周军27        女          19630911           1900/2/19

jbjbzjb

笨蛋，前述已经点明单元格格式设计得恶心人了，还“图片也可看到”！！！

结论：自个儿琢磨去！

算了，有人劝俺要淡定，那就再点一下：
1.你所谓的“上级”是个Excel 盲；
2.哪有“周岁”所在列的单元格有的设为日期格式，有的设为“文本”格式！！
3.上述“周岁”列应设为“常规”格式！！！

pingshanggl

jbjbzjb 发表于 2013-11-2 22:12
笨蛋，前述已经点明单元格格式设计得恶心人了，还“图片也可看到”！！！

结论：自个儿琢磨去！

回复是好事,但骂人就不对了

jbjbzjb

pingshanggl 发表于 2013-11-2 22:23
回复是好事,但骂人就不对了

不是骂人，是恨铁不成钢！一般的点醒句可能起不了作用。

另：Excel 常识多少要具备吧，他人给你点出问题所在了，你还不醒悟，还要说“周岁”列格式是“上级”定的，不可更改。既然不可更改，上级非得用“日期”格式显示周岁，你何以又说结果不对？

究竟是我说得对呢，还是你“上级”对呀！何以如此矛盾？！
不“骂”下，点不醒的。

pingshanggl

jbjbzjb 发表于 2013-11-2 22:30
不是骂人，是恨铁不成钢！一般的点醒句可能起不了作用。

另：Excel 常识多少要具备吧，他人给你点出问 ...

别人传给我的表格,我没有注意到有格式问题

类似的表格还有好几张呢