自助发卡数据分析代码.docxVIP

下载本文档

1
0
约7.25千字
约 5页
2017-12-25 发布于河南
举报
版权申诉

自助发卡数据分析代码.docx

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

自助发卡数据分析代码

Private Sub CommandButton1_Click() *************************************************** *** 模块名称：自助发卡抓取数据分析 *** 代码编制：王俊 *** 编写日期：2015年02月12日 *** 修订记录： *** V1.0 2015.02.11 可识别单个柜员的抓取情况 *** *** *************************************************** Call 创建新表单(临时) Call 抓取记录提取End SubSub 创建新表单(SheetName) SheetCount = Sheets.Count SheetIs = 0 For ia = 1 To SheetCount If Sheets(ia).Name = SheetName Then MsgBox SheetName 表单已存在！ SheetIs = 1 Exit Sub End If Next ia If SheetIs = 0 Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = SheetName Sheets(主界面).Activate End IfEnd SubSub 设置文件头(SheetName) SheetName = SheetName Sheets(SheetName).Range(A:P).ClearContents Sheets(SheetName).Cells(1, A) = 序号 Sheets(SheetName).Cells(1, B) = IP地址 Sheets(SheetName).Cells(1, C) = 柜员号 Sheets(SheetName).Cells(1, D) = 中断窗口 Sheets(SheetName).Cells(1, E) = 抓取开始时间 Sheets(SheetName).Cells(1, F) = 获取业务时间 Sheets(SheetName).Cells(1, G) = 灵抓空抓次数 Sheets(SheetName).Cells(1, H) = 抓取耗时 Sheets(SheetName).Cells(1, I) = 双抓间隔End SubSub 设置格式(SName) 设置列宽自动适应 For i = 1 To 16 Sheets(SName).Columns(i).AutoFit Next Sheets(SName).Range(A:F).HorizontalAlignment = xlHAlignCenter 水平居中 Sheets(SName).Range(G:G).HorizontalAlignment = xlHAlignRight 左对齐End SubSub 抓取记录提取() RecordNum = Sheets(Sheet1).Range(A2).End(xlDown).Row Sheets(临时).Cells(1, A) = 柜员号 For i = 1 To RecordNum Sheets(主界面).Cells(22, G) = RecordNum - i ACRecord = Sheets(Sheet1).Cells(i, A) AdStaff = Application.Search(柜员号, ACRecord) AdStartTime = Application.Search(开始时间, ACRecord) StaffID = Trim(Mid(ACRecord, AdStaff + 4, AdStartTime - AdStaff - 11)) Sheets(临时).Cells(i + 1, A) = StaffID Next i Sheets(临时).Cells(1, C) = 当日柜员号提取当日记录中柜员信息 Set Rng = Sheets(临时).Range(A1:A RecordNum) Rng.AdvancedFilter Action:=xlFilter