18485796192打过那个您拨打的号码已过期

来源：蜘蛛抓取(WebSpider) 时间：2017-06-15 12:27 标签： 手机号码打过去是空号
如何使用Excel统计某电话号码有多少人打过
作者：佚名
字体：[ ] 来源：互联网 时间：11-02 16:33:38
派出所的一个朋友在调查一起案件的时候，遇到了一个如题的问题，请我帮忙。由于要保密他不能提供原始数据，只是给我谈了一下要求。
派出所的一个朋友在调查一起案件的时候，遇到了一个如题的问题，请我帮忙。由于要保密他不能提供原始数据，只是给我谈了一下要求。目前他们通过一个嫌疑犯的通话记录，从通话记录中又列入了n个新嫌疑犯，而且也得到每个嫌疑犯的通话记录。现在就要将这些通话记录进行统计，即同一个电话号码，每个嫌疑犯打了多少次，有多少个嫌疑犯同时打过同一个号码。
　　根据上述总结，Excel表如下：
　　图一：原始数据表
　　图二：统计结果表
　　上图说明：
　　图一：用户一、用户二、用户三、用户四正面的数字为模拟的电话号码;方向是指主叫还是被叫，没有什么意义。
　　图二：用户正面的数字是该电话所使用的次数，如果一个电话只被某一用户打过，这样就不统计，换句话说就是统计结果表中的电话号码至少被两个以上的用户打过。
　　解决的思路：
　　⒈ 此统计无法使用函数、数据透视表等普通的方法来解决。我采用了VBA编程来实现的统计。
　　⒉ 首先将所有用户的电话(不重复，重复的只取一次)，提取出来存放到统计结果表中。这样结果表中的电话是唯一的。
　　⒊ 通过结果表的电话号码为基础，统计每个用户使用该号码的次数并将统计的结果存放到结果表该用户下。
　　⒋ 删除同一个电话号码被两个以下用户使用的行。
　　解决的方法：
　　⒈ 因为用户的数量是未知的，但从第2列开始是已经的，这样我们就可以通过循环来进行统计。循环的条件通过第1行从第2列开始，单元格不空。
　　⒉ 每个用户的电话号码循环与⒈类似
　　具体的程序源代码如下：
　　Private Sub CommandButton1_Click()
　　Sheets(2).Rows(2 & &:& & 65536) = &&
　　Sheets(2).Columns(&B:IV&) = &&
　　Dim Ls, i, j, Isa, k, yhs
　　Isa = False
　　If Sheets(1).Cells(1, 2) = && Then
　　MsgBox &没有用户，无法统计!&, vbOKOnly + vbCritical, &错误提示&
　　Exit Sub
　　Do While True
　　If Sheets(1).Cells(1, i) && && Then
　　Sheets(2).Cells(1, i) = Sheets(1).Cells(1, i)
　　i = i + 1
　　Exit Do
　　End If
　　yhs = i - 1
　　End If
　　Ls = 2
　　Do While Sheets(1).Cells(1, Ls) && &&
　　Do While Sheets(1).Cells(i, Ls) && &&
　　If Sheets(2).Cells(2, 1) = && Then
　　Sheets(2).Cells(2, 1) = Sheets(1).Cells(i, Ls)
　　j = 2: Isa = False
　　Do While Sheets(2).Cells(j, 1) && &&
　　If Sheets(2).Cells(j, 1) = Sheets(1).Cells(i, Ls) Then Isa = True: Exit Do
　　j = j + 1
　　If Not Isa Then Sheets(2).Cells(j, 1) = Sheets(1).Cells(i, Ls)
　　End If
　　i = i + 1
　　Ls = Ls + 1
　　Ls = 2
　　Do While Sheets(2).Cells(1, Ls) && &&
　　Do While Sheets(2).Cells(i, 1) && &&
　　j = 2: k = 0
　　Do While Sheets(1).Cells(j, Ls) && &&
　　If Sheets(2).Cells(i, 1) = Sheets(1).Cells(j, Ls) Then k = k + 1
　　j = j + 1
　　If k && 0 Then Sheets(2).Cells(i, Ls) = k
　　i = i + 1
　　Ls = Ls + 1
　　'===========================================
　　' 删除非同一电话多个用户使用的行
　　'===========================================
　　Do While Sheets(2).Cells(i, 1) && &&
　　j = 2: k = 0
　　Do While j &= yhs
　　If Sheets(2).Cells(i, j) && && Then k = k + 1
　　j = j + 1
　　If CInt(k) & 2 Then
　　Sheets(2).Rows(i).Delete Shift:=xlUp '删除i行
　　i = i + 1
　　End If
　　'===========================================
　　MsgBox &统计完毕!&, vbOKOnly + vbInformation, &系统提示&
　　Sheets(2).Select
　　End Sub
大家感兴趣的内容
12345678910
最近更新的内容拨打陌生电话的七个技巧_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
拨打陌生电话的七个技巧
阅读已结束，下载文档到电脑
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩10页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢如何查询手机号码是否打过长途_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
如何查询手机号码是否打过长途
我有更好的答案
要看你的手机用的是那一种运营商，移动和联通的话用网上营业厅查询比较方便，电信的话最好还是去当地营业厅打通话详单，因为个人觉得电信的网上营业厅信息很乱。。。
采纳率：11%
可以到营业厅打印一下手机的通话详单。或直接登录到网上营业厅进行通话详单的查询。
拨打10086查询账单
你看你自己的通话记录，然后查下打出的号码是否为外地号码不就ok了，如果你手机能装软件的话装个来电通，一切都ok了。。。
bu zhi dao a
其他2条回答
为您推荐：
其他类似问题
您可能关注的内容
手机号码的相关知识
等待您来回答拨打一个未接来电，可是打过去却说你拨打的手机号码已暂停服务，是怎么回事，是被拒接了吗？急！_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
拨打一个未接来电，可是打过去却说你拨打的手机号码已暂停服务，是怎么回事，是被拒接了吗？急！
我有更好的答案
有可能是被拒接了，也有可能是刚好停机了。
用别的电话又打了一下，也是这样，有没有可能是自己报停的呢？
都有可能，如果不是你熟悉的号码 也没必要在意了 要是别人真有事找你 肯定会再给你打电话的
采纳率：41%
为您推荐：
其他类似问题
未接来电的相关知识
等待您来回答再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
威锋网7月10日消锋网7月10日消息，《植物大战僵尸2》 如今...
威锋网7月10日消息，《植物大...
近日，开发商 Esquilax Games ..
说到方块游戏，相信有很多朋友应该还会记得 Gavina Games 早...
威锋网7月10日消息，《植物大...
近日，开发商 Esquilax Games ..
说到方块游戏，相信有很多朋友应该还会记得 Gavina Games 早...
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
再吸金!SE推出《最终幻想:全员勇者》钥匙扣
您需要通过验证再能继续浏览 3秒后开始验证
威锋旗下产品
Hi~我是威威！
　粤公网安备 11号
新三板上市公司威锋科技（836555）
增值电信业务经营许可证：
Powered by Discuz!

我要回帖

更多关于 手机号码打过去是空号 的文章

 

随机推荐