成人色导航 Excel VBA 从身份证号码提真金不怕火性别和年齿

发布日期：2024-10-21 11:07 点击次数：200

全球好，我是捌贰春秋VBA。怎样从身份证号码中提真金不怕火性别和年齿呢？在Excel中有许多能力不错处罚成人色导航，今天就用VBA数组的能力从身份证号码中提真金不怕火性别和年齿。

图片

数据提真金不怕火服从

想路

1、从身份证号码中第17为提真金不怕火1位，赢得的数组若为偶数，则性别是女；反之性别为男。

2、从身份证号码中第7为提真金不怕火4位，赢得出身年份，再用当昨年份减去出身年份则打算出年齿。

3、输出服从到单位格之前，将身份证号码休养为文本表情，单引号+身份证号码。

代码成人色导航

Private Sub CommandButton1_Click()

Dim arr， i%

arr = Range('A1').CurrentRegion

For i = 2 To UBound(arr)

If Mid(arr(i， 2)， 17， 1) Mod 2 = 0 Then

arr(i， 3) = '女'

Else

arr(i， 3) = '男'

End If

arr(i， 4) = Format(Now()， 'yyyy') - Mid(arr(i， 2)， 7， 4)

arr(i， 2) = ''' & arr(i， 2)

Next i

Range('A1').CurrentRegion = arr

End Sub成人色导航

本站仅提供存储事业，通盘本色均由用户发布，如发现存害或侵权本色，请点击举报。