步驟

1、首先我們打開一個工作樣表作為例子。

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

在下面輸入以下代碼。

i = Right(sid, 1)

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

        sex = "女"

    Else

        sex = "男"

    End If

    MsgBox "性別：" + sex

End Sub

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

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

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

以上就是excel vba在身份證中怎么提取數(shù)字來判別男女方法介紹，操作很簡單的，大家學(xué)會了嗎？希望這篇文章能對大家有所幫助！