每天的短信报数 如何才能快速录入表格

qinkeng

每天都要处理同事们报上来的数据   人数较多  如何才能快速录入excel表格   能让excel表格自己读取短信数据  或者 在一个页面里面输入数据后点录入？

文本的 1~14只是我随机填写的  实际每天数据不一样

求各路大神指导指导

qinkeng

没有大神伸出援手么？

sunya_0529

qinkeng 发表于 2016-2-27 14:29
没有大神伸出援手么？

文本格式和文字内容都是固定的吗？

qinkeng

sunya_0529 发表于 2016-2-29 14:11
文本格式和文字内容都是固定的吗？

恩恩 文本格式   和 表格都是相对固定的  就是对应的销售人员 和当天的数值是不一样的

qinkeng

sunya_0529 发表于 2016-2-29 14:11
文本格式和文字内容都是固定的吗？

我是每天从微信上面接收到同事她们给我发的内容 让后我发现直接复制到txt里面会打乱   就不是一行行分开了 就是全部首尾连载一起  复制到word就没这个情况   你帮弄个读取word 里面的吧

sunya_0529

qinkeng 发表于 2016-2-29 14:18
我是每天从微信上面接收到同事她们给我发的内容 让后我发现直接复制到txt里面会打乱   就不是一行行分开 ...

你直接粘到Excel里呢？

qinkeng

sunya_0529 发表于 2016-2-29 14:40
你直接粘到Excel里呢？

复制到excel里面是一行一行的   跟word 一样

sunya_0529

写了一个自定义函数，如下图所示——


具体代码如下所示——

1. Option Explicit
   
2. 
   
3. Function FilterData(dbSource As Range, strName As Range, strItem As Range, intDay As Integer)
   
4. Application.Volatile (True)
   
5. Dim k As Range, strAddress
   
6. Set k = dbSource.Find(IIf(Len(strName) * Len(strName.Offset(0, -4)) > 0, strName.Value, strName.End(xlUp).Value), LookIn:=xlValues)
   
7. If Not k Is Nothing Then
   
8.   strAddress = k.Address
   
9.   Do
   
10.     If CInt(Right(k.Offset(1, 0), 2)) = intDay Then
    
11.       Select Case strItem
    
12.         Case "网点开户"
    
13.           FilterData = Split(k.Offset(2, 0), ":")(1)
    
14.         Case "手机签约"
    
15.           FilterData = Split(k.Offset(3, 0), ":")(1)
    
16.         Case "网银签约"
    
17.           FilterData = Split(k.Offset(4, 0), ":")(1)
    
18.         Case "手机新增"
    
19.           FilterData = Split(k.Offset(5, 0), ":")(1)
    
20.         Case "网银新增"
    
21.           FilterData = Split(k.Offset(6, 0), ":")(1)
    
22.         Case "手机二次"
    
23.           FilterData = Split(k.Offset(7, 0), ":")(1)
    
24.         Case "手机活跃"
    
25.           FilterData = Split(k.Offset(8, 0), ":")(1)
    
26.         Case "网银二次"
    
27.           FilterData = ""
    
28.         Case "网银活跃"
    
29.           FilterData = ""
    
30.         Case "伦敦银行"
    
31.           FilterData = Split(k.Offset(16, 0), ":")(1)
    
32.       End Select
    
33.       Exit Do
    
34.     End If
    
35.   Loop While Not k Is Nothing And k.Address <> strAddress
    
36. End If
    
37. Set k = Nothing
    
38. FilterData = IIf(FilterData = 0, "", FilterData)
    
39. End Function

复制代码

201228

一看到ｖｂａ　就头疼！！！

qinkeng

sunya_0529 发表于 2016-2-29 16:49
写了一个自定义函数，如下图所示——

我看了你的作品  非常棒直接 都能出来结果了  

但是有一个问题就是 每一天上报的数据  不是都按这个顺序来的  
这么说吧 上报的数据是同事们 通过微信发给我的  她们当天如果业务少的话 可能就提前报 业务多的话可能就晚点报   

希望你的代码能跟踪到每一个姓名再来录入数据