亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

excel vba在身份證中怎么提取數(shù)字來(lái)判別男女?

  發(fā)布時(shí)間:2016-07-22 16:45:15   作者:keoneo   我要評(píng)論
在EXCEL的應(yīng)用中,我們經(jīng)常會(huì)用到身份證號(hào),那么身份證號(hào)碼怎么導(dǎo)出性別信息呢?我們可以用函數(shù)嵌套來(lái)實(shí)現(xiàn)這個(gè)功能,那么excel vba在身份證中怎么提取數(shù)字來(lái)判別男女?下面小編就為大家詳細(xì)介紹一下,來(lái)看看吧
excel中使用vba在身份證中提取數(shù)字來(lái)判別男女方法,有需要的朋友可以參考本文,一起來(lái)看看吧!

步驟

1、首先我們打開(kāi)一個(gè)工作樣表作為例子。

excel中使用vba在身份證中提取數(shù)字來(lái)判別男女

使用alt+f11快捷鍵或者使用開(kāi)發(fā)者工具進(jìn)入vba編輯窗口。預(yù)先輸入身份證代碼變量。

excel中使用vba在身份證中提取數(shù)字來(lái)判別男女

在下面輸入以下代碼。

i = Right(sid, 1)

If Int(i / 2) = i / 2 Then               '為偶數(shù)

        sex = "女"

    Else

        sex = "男"

    End If

    MsgBox "性別:" + sex

End Sub

excel中使用vba在身份證中提取數(shù)字來(lái)判別男女

代碼解釋一下,首先對(duì)15位數(shù)身份證的末尾值取值,然后用if函數(shù)對(duì)i變量進(jìn)行判斷,判斷的條件為i值是否為偶數(shù)。如果為偶數(shù)則性別顯示為女。

excel中使用vba在身份證中提取數(shù)字來(lái)判別男女

反之,則顯示性別為男。完成判斷需要輸入end if結(jié)束if判斷。然后輸入信息顯示函數(shù)msgbox來(lái)顯示性別的信息。

excel中使用vba在身份證中提取數(shù)字來(lái)判別男女

這個(gè)例子使用的是固定的變量,如果需要手動(dòng)輸入身份證擁有更多的自主性,我們可以將固定變量的代碼修改一下。我把代碼放在圖片里,大家可以看看。

excel中使用vba在身份證中提取數(shù)字來(lái)判別男女

以上就是excel vba在身份證中怎么提取數(shù)字來(lái)判別男女方法介紹,操作很簡(jiǎn)單的,大家學(xué)會(huì)了嗎?希望這篇文章能對(duì)大家有所幫助!

相關(guān)文章

最新評(píng)論