★根据地址批量查询邮政编码★

LangQueS · 发表于 2010-4-8 16:58

抛砖引玉

[ 本帖最后由 LangQueS 于 2010-4-8 17:00 编辑 ]

blackttea · 发表于 2010-4-13 16:52

谢谢分享,但是邮政编码大全存在着不全的现象,谢谢!

xpm130 · 发表于 2010-4-15 07:17

谢谢分享!
速度上能加快些就更好.

chaishenye · 发表于 2010-12-11 14:09

谢谢分享!
速度上能加快些就更好.

woshuaima · 发表于 2010-12-21 12:50

八错啊我都想用来当期末大作业了只是功能少了点谢谢您的分享

dawei19721216 · 发表于 2011-2-10 10:46

谢谢楼主，缺点较粗，能细化点就更好了。

gl_zhangt · 发表于 2011-2-17 22:36

多谢分享!多谢无私共享!

dmymian · 发表于 2011-8-23 17:46

几好几好，不过广东好多地方都转不了

老A！ · 发表于 2011-8-23 19:34

不知道楼主是怎么弄的，能讲解下么！学习啊

LangQueS · 发表于 2011-8-24 00:56

老A！发表于 2011-8-23 19:34
不知道楼主是怎么弄的，能讲解下么！学习啊

附件中的代码内容：

Sub 设置检索表批量查询邮编()
'“邮编区号大全”工作表标题行：省市区、地区、区号、邮编；当前工作表的字段为：地址、邮编
Application.Calculation = xlCalculationManual    '手动重算
t = Timer '获取时间
For Each r In Range("a2:a" & [a65536].End(xlUp).Row)    '数组方式
If r.Offset(0, 1).Value = "" Then '如果邮编为空，则
      For Each rr In Sheets("邮编区号大全").Range("a2:a" & Sheets("邮编区号大全").[a65536].End(xlUp).Row)    '数组方式
         If r.Value Like "*" & Mid(rr.Value, 1, 2) & "*" And r.Value Like "*" & rr.Offset(0, 1).Value & "*" Then
         '如果地址信息包含“省市区”的前2个字符并包含“地区”的内容，则：
            r.Offset(0, 1) = rr.Offset(0, 3).Value
            r.Offset(0, 1).Interior.ColorIndex = 40    '单元颜色为茶色
         End If
      Next
End If
Next
t = Format(Timer - t, "0.000") '运行时间
MsgBox "运行时间： " & t & " 秒"
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

		自动登录	找回密码
密码			免费注册

★根据地址批量查询邮政编码★

最新热点 /1