|
|
小弟对VBA感兴趣，可是学到现在感觉还没有入门，
现在在公司上班，领导要求处理一个数据，做一个宏出库，说多了都是泪啊
希望各位大神能帮帮忙，小弟在这里万分感谢。
具体想法如下。。
电脑文件夹内有两个文件
希望宏里面文件地址和文件名希望能自动获取 ，放到别的电脑上也能用，不用改地址。
第一个文件为*.完成单分析*.*
第二个文件名称为*0013*.*
具体操作想法是
打开 *完成单分析*.*文件后运行宏进行一下操作
清空删除首页以外所有Sheet表，清空首页数据（5行3以外数据）
首页单元格单击5行3列以外的数据能跳转到筛选sheet表 数据 内对应的时间点，对应的发单对
象具体数据这样的功能。
新建sheet表 命名 数据
新建sheet表 命名 一分钟内大于3次
新建sheet表 命名 一分钟内大于5次
新建sheet表 命名 单次录入超12台
遍历该文件夹内*.*0013*.*文件，对文件处理如下：
将文件复制到*完成单分析*.*内 数据 表内
F列数据为文本数据类型。
1.同一个F列发单对象对应的H列处理时间在一分钟内连续输入>=3<5次的统计（H列中的数据为"时&分&秒"），【1】将所有符合条件的数据拷贝到*完成单分析*.*sheet表（一分钟内大于3次）表里面，【2】对处理好的数据对应填入*完成单分析*.*首页中，每个小时对应达到条件的发单对象。
2.同一个F列发单对象对应的H列处理时间在一分钟内连续输入>=5次的统计，【1】将所有符合条件的数据拷贝到*完成单分析*.*sheet表一分钟内大于5次表里面[【2】处理好的数据对应填入*完成单分析*.*首页中，每个小时对应达到条件的发单对象。
3.
填入*完成单分析*.*里面的数据。超5次的具体所在列随着填充发单对象的变化而变化。
单元格线跟随数据的变化填充。 3.E列数据中，数据大于12（这个数值可以人为控制）的，将所有符合条件的数据拷贝到*完成单分析*.*sheet表单词录入大于12台里面
4.A列中<>E30的数据删除
F列中=811,=611的数据删除不要
H列=99999的数据删除不要
G列 的数据<>当前工作日期的数据删除
5.F列和H列数据升序排序
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2018-7-6 22:54
楼主