[已解决]利用VBA工作表事件，在某个单元格输入身份证号时

yjwdjfqb

利用VBA工作表事件，在某个单元格输入身份证号时，另一个单元格就自动生成对应的出生日期

利用VBA工作表事件，在某个单元格输入身份证号时，另一个单元格就自动生成对应的出生日期公式和年龄公式

在名册工作表中，指定一个区域（如I2：I50）这个区域，某一个单元格输入身份证号码　，对应行的某列就生成　出生日期和年龄的公式：

例如：
I2输入身份证号，就在第二行的L列　生成出生年月的公式
I4输入身份证号，就在第四行的N列　生成年龄的公式（生成的必须是公式，以便于更新年龄）
其它同理
请朋友老师们帮帮忙，谢谢大家了！

利用VBA工作表事件，在某个单元格输入身份证号时，另一个单元格就自动生成对应的出生日期.rar (2.61 KB, 下载次数: 9)

2014-4-18 17:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-18 18:33

i列设为文本格式，输入时不要加西文符号'

跳转到最佳答案楼层

开心妙妙

这个公式就解决，为什么一定要VBA呢

yjwdjfqb

开心妙妙 发表于 2014-4-18 18:20
这个公式就解决，为什么一定要VBA呢

不想，每次，输入时就要复制下拉公式　（预先复制所有单元格公式时，别人在在填写时，又容易弄错，）

想用VBA事件来自动生成公式。

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 9 And Target.Row > 1 Then
   
3.     zf = Target.Value
   
4.     If zf = "" Then Union(Target.Offset(0, 3), Target.Offset(0, 5)) = "": Exit Sub
   
5.     y = Mid(zf, 7, 4)
   
6.     m = Mid(zf, 11, 2)
   
7.     d = Mid(zf, 13, 2)
   
8.     Target.Offset(0, 3) = DateSerial(y, m, d)
   
9.     Target.Offset(0, 5) = "=YEAR(NOW())-YEAR(RC[-2])"
   
10. End If
    
11. End Sub
    

复制代码

dsmch

i列设为文本格式，输入时不要加西文符号'

yjwdjfqb

dsmch 发表于 2014-4-18 18:33
i列设为文本格式，输入时不要加西文符号'

老师你好，感谢你的帮助

i列设为文本格式，输入时不要加西文符号'

我加了　　西文符号'   这个单引号，得到的出生日期也是正确的。

我习惯加单引号，怕身份让号码输错

可以吧！

yjwdjfqb

谢谢　dsmch  老师的指点

yjwdjfqb

dsmch 发表于 2014-4-18 18:33
i列设为文本格式，输入时不要加西文符号'

老师你好，还在线呀
帮我看看这个好吧



关于VBA事件，表述方式.rar (8.32 KB, 下载次数: 20)

2014-4-19 00:03 上传

点击文件名下载附件