无论从事网上开店、网上家教或其他网赚活动，每天总免不了和许多客户打交道，因此如何防止被骗那就是一件很重要的事情了。其实，通过客户提供的手机号码，我们登录专门的手机归属地查询网站，就可以得到客户很多重要的个人信息，从而避免和那些信誉不好的骗子打交道以防止自己遭受不应有的损失了。但是执行查询操作时，得先登录专门的网站，然后才能一个个地查询客户手机号码的归属地信息，这个过程不但非常麻烦，而且也不便于保存查询后的手机号码归属地信息。怎样才能解决这个棘手的问题呢？还是使用Excel来完成手机号码归属地信息的查询工作比较好，这样我们只须输入多个客户的手机号码，然后单击“归属地查询”按钮就可以了。下面，笔者就给大家介绍一下如何打造一款Excel版手机号码归属地查询器。
第一步：先运行Excel2003(其他版本操作类似)，然后把默认打开的Excel工作簿中的“Sheet2”和“Sheet3”工作表都删除并将“Sheet1”工作表重命名为“手机归属地查询”；接着在这个工作表的A1——D1单元格分别输入“客户手机号”、“省市”、“卡类型”和“区号”等文字；再选中输入文字的A1——D1单元格，根据自己的喜好设置好单元格的背景色及字体的颜色（如图1，A处）；最后将这个Excel工作簿保存到硬盘的任意位置，文件名为“手机归属地查询器.xls”。
第二步：单击菜单“工具→宏→Visual Basic编辑器”命令，打开“Visual Basic编辑器”窗口；接着右击该窗口中的“手机归属地查询器”工作表选项，选择“查看代码”，打开代码窗口并添加以下代码（如图2）：
Sub SJ()
Set A = CreateObject("Microsoft.XMLHTTP") '
Const URL = "http://www.ip138.com:8080/search.asp"
For i = 2 To Range("a1").End(xlDown).Row
N = Cells(i, 1)
C = "mobile=" & N & "&action=mobile&B1=%B2%E9+%D1%AF"
A.Open "post", URL, False
A.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
A.send C
s = A.responseBody
s = StrConv(s, 64)
s = Replace(s, " ", " ", , , 1)
l = InStr(s, "卡号")
s = Mid(s, l, 450)
arr = Split(s, "class=tdc2>", , 1)
B = Left(arr(1), InStr(1, arr(1), "<", 1) - 1)
Cells(i, 2) = Split(B)(0) + Split(B)(1)
Cells(i, 3) = Left(arr(2), InStr(1, arr(2), "<", 1) - 1)
Cells(i, 4) = "'" & Left(arr(3), InStr(1, arr(3), "<", 1) - 1)
Next
End Sub
上述内容添加完毕后，关闭“Visual Basic编辑器”窗口即可，此时我们添加的代码就会自动保存了。
第三步：单击菜单“视图→工具栏→窗体”命令，调出“窗体”工具栏；然后单击该工具栏中的“按钮”图标，在“手机归属地查询”工作表的合适位置插入一个命令按钮；接着右击该按钮，选择“编辑文字”，将命令按钮界面的文字修改为“归属地查询”（如图1，B处）；再右击图1，B处的“归属地查询”按钮，选择“指定宏”，打开“指定宏”对话框并选中刚刚创建的宏（如图3，A处）；最后单击“确定”按钮即可。
经过以上步骤的操作，这个Excel版本的手机号码归属地查询器就已经大功告成了，关闭并保存对这个Excel工作簿所做的修改，然后重新打开；这时我们在A1以下的单元格输入所有客户的手机号码后（如图1，C处），在确保本机已接入互联网的情况下单击“归属地查询”按钮，就可以很方便地查询到与所有客户手机号码有关的个性信息了，如图1，D处。
怎么样，有了这个Excel版的手机号码归属地查询器，我们查询和保存任意一个手机号码的归属地信息是不是很方便呢？感兴趣的朋友不妨一试。
