|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
有一个分析文件,要求如下,函数功能实在无法达成,VBA代码现在只会基本的功能,此报表有点复杂,涉及到查找,筛选复制以及枢纽分析,看哪个大神能帮忙看看代码该怎么写?
不能给出全部的模块代码,给我几个核心代码也行,万分感谢!
模块1
第一步.确认buy文档是否为空白,如果不是空白,确认H列Item值不为空的时候,V列CODE是否空白?如果V例CODE空白,则以H列Item值去List表寻找A列Item是否有此值,并将相对应的CODE写入Buy文件中的CODE,如果list表中Item不存在,则弹出对话框,第一行:Buy中无CODE的Item值,第二行,请输入CODE,输入完毕后将此Item和CODE写入list表中最后一行,循环查找至将buy中的V列CODE无空白值
第二步:如果buy文档为空白,则复制or报表中,先筛选出Y列为Y的内容,再复制筛选出后的A列到V列的所有内容至buy文档中(W至Y列不用),再执行第一步确认buy中V列是否为空白,直到无空白则第三步
第三步:先筛选PC文档中H列Item为非0值(有具体内容的值),MODD为有具体内容非#N/A的值,平时要交货的值(不交货除外),将全部内容复制到TO文档的C1列
第四步:新建一个excel文件,将第三步复制的值另存当前文档目录下,文件名为N,新文件为关闭状态
第五步:保存此文件但是不关闭
模块2
第一步:RE文档为手工回填数据,如To文档有4行数据,Re该文档可能只会手工回填任意一行或多行,先确认Re文档如只有一行内容,则To文档中非1900以及#N/A的行数是否一致,如果不同,则显示对话框行数不同,请确认。如果相同,则筛选出#N/A的行数,将C例 开始的资料复制至Re文档B列(标题栏不用,A/B辅助列不用复制,Re文档的A列为辅助列,不能动),再次确认两个表格行数否一致,如OK 则进行下一步
第二步:将Re文档的所有资料复制一个新文档,确认B列开始到最后一列,如果单元格有填充黄色的所有行全部删除,列只保留Date, Item, Buyer ,STQ, RET, MODD 的内容
第三步:将删除无效资料剩余的列内容复制到P1文档的A1列,按CODE, Buyer ,Item, STQ(求和值),RET(取最大值),将内容填入P2的A3列,P2的标题列为固定值不动,如果缺料数量为0的数据不需要写入
第四步:新建一个excel文件,将P2的第二行开始,A到J列有数据的范围复制到新文档,并另存为NS
第五步:保存此文件但是不关闭
|
|