从身份证前两位数字判断省份该如何写代码？

kdxdx

这是代码表。

代码 名    称          代码     名    称
11       北京市          43       湖南省
12       天津市          44       广东省
13       河北省          45       广西壮族自治区
14       山西省          46       海南省
15       内蒙古自治区    50       重庆市
21       辽宁省          51       四川省
22       吉林省          52       贵州省
23       黑龙江省        53       云南省
31       上海市          54       西藏自治区
32       江苏省          61       陕西省
33       浙江省          62       甘肃省
34       安徽省          63       青海省
35       福建省          64       宁夏回族自治区
36       江西省          65       新疆维吾尔自治区
37       山东省          71       台湾省
41       河南省          81       香港特别行政区
42       湖北省          82       澳门特别行政区

andymark

if left(身份证,2)=11 then

  msgbox "北京市"

end if

kdxdx

Public Function SfzToJG(身份证号 As String) As String
Dim i As Integer

If Left(身份证号, 2) = 11 Then SfzToJG = "北京"
End If

If Left(身份证号, 2) = 36 Then SfzToJG = "江西"
End If

End Function


我想通过在身份证前两位数字判断省份，并将省份（如“北京”）自动输入到籍贯里。就像判断性别一样。

上面的代码请帮我改改。谢谢了。

sgrshh29

Public Function SfzToJG(身份证号 As String) As String
SfzToJG = dlookup("名称","代码表","代码='" & Left(身份证号, 2) & "'")
End Function

kdxdx

谢谢蜘蛛侠，功能都达到了。

suve

并非身份证就能代表籍贯的

比如籍贯湖南的人,在美国出生,广东孩子,到哈尔滨才办身份证,