基于Excel VBA的财务自动化 课件汇 张泽华 第7-15章 统计报表的批量生成与分发- vba与财务机器人

第7章

统计报表的批量生成与分发根据已有的模板工作表生成当月每日的空白日报表8.1根据模板批量生成日报表统计了日报表后需要将日报表数据进行汇总统计8.2将日报表数据汇总将日报表按日期拆分为不同的文件并将拆分出的文件以工作表名字命名8.3将日报表按日期拆分为不同文件根据配置表的形式批量生成日报表8.4根据模板批量生成部门日报表删除工作表、删除range对象、删除行从后往前删8.5批量删除日报表先锁定整张工作表的单元格取消锁定要输入数据的单元格或区域8.6分发工作表的填写范围保护设计用户名与密码比对模块根据不同用户显示不同工作表8.7为用户显示个性化工作表第9章

日记账数据拆分到多表首先，按日记账的D列部门名称新建工作表其次，去重建表9.1去重名生成部门表将日记账中的数据拆分到对应名称的部门表中9.2拆分数据到部门表运行sub过程之前应将各部门表中的原有记录清空，以避免数据冗余9.3填写前清空已有记录【筛选】功能由AutoFilter方法实现FieldCriteria19.4利用筛选优化拆分数据使用Inputbox函数由用户输入按哪一列进行拆分9.5按需选择拆分数据列第10章

跨文件汇总报表Dir函数的基本用法是Dir(pathname)10.1认识Dir函数SubdirTest()MsgBox(Dir("d:\1\广东分公司.xlsx"))EndSub10.2判断分支机构上报文件是否存在Dir(ThisWorkbook.Path&"\*.*")'匹配文件所在文件夹内所有文件10.3获取文件夹内的所有文件Sub跨文件操作通用模板()DimstrAsStringstr=Dir("d:\1\*.xls*")DoWhilestr<>""‘这里可写入针对文件进行操作的所有语句

str=DirLoopEndSub10.4跨文件操作的通用模板Dir("d:\1\example\*.xls*")DoWhilestr<>""

’复制

’重命名Loop10.5跨文件汇总部门日报表相比10.5节的sub过程增加一个ForEach循环遍历新打开文件的每一张工作表10.6跨文件汇总所有报表Left()、Len()构建填充公式FormulaR1C1属性进行公式填充10.7将跨文件报表数据汇总第11章

数组及其财务应用数组：速度快非数组：速度慢11.1数组与非数组处理文件数组的维度：一维数组、二维数组11.2认识数组数组的声明：Dim数组名（上界）as数据类型Dim数组名（下界to上界）as数据类型11.2认识数组动态数组：Dim数组名（）as数据类型11.2认识数组数组的赋值Arr(1)=3;Arr(3)=811.2认识数组数组与Range对象：arr=Range("a1:a2")11.2认识数组方式：录制宏For循环数组11.3查找各分支机构收入最高商品11.4记录拆分成借贷不同行第7章

发票凑数7.1发票凑数7.1.1发票凑数宏的设计调用过程Sub执行另一个过程()Call过程名(参数1,参数2，...)EndSub7.1.2发票凑数宏的说明递归SubFac(nAsInteger)Ifn=1ThenFAC=1Else:FAC=n*FAC(n-1)EndIfEndSub7.1.2发票凑数宏的说明7.1.3发票凑数宏的应用效果第12章

字典及其财务应用字典的调用引用法：

DimdicAsNewDictionary直接创建法：DimdicAsObjectSetdic=CreateObject("scripting.dictionary")12.1认识字典字典的属性与方法：6种方法：Add、Keys、Items、Exists、Remove、RemoveAll4个属性：count、Key、Item、CompareMode12.1认识字典思路：字典去重若没有存货编码，则会自动新建本行存货代码的key若已有存货编码，则不会新建12.2批量查找最近日期的价格思路：字典去重客户名称设定为字典的key发货数量设定为字典的item12.3批量汇总客户累计发货数量思路：字典

“A列+B列”为key特定行号赋值为item12.4批量汇总客户按月累计发货数量第13章

窗体与控件13.1初识窗体与控件插入窗体步骤：①创建一个新的工作簿②【工具】→【宏】→【VisualBasic编辑器】③【插入】→【用户窗体】13.2用户窗体13.2.1创建用户窗体及给窗体添加对象对象之间的对齐改变对象大小控制对象的间距修改对象的Tab键次序13.2.2调整窗体中的对象名称属性Caption属性Left、Top、Height、Width属性Enabled属性13.2.3窗体常用的属性对象激活(Activate)事件单击(Click)事件双击(DblClick)事件对象变为非活动(Deactivate)事件改变窗体大小(Resize)事件Show/Hide常用方法13.2.4窗体的常用事件和方法13.3控件13.3.1标签13.3.2文本框13.3.3命令按钮13.3.4列表框与复合框13.3.5复选框与选项按钮第14章

凭证处理与账簿查询凭证处理模块新增凭证、保存凭证、查询凭证、凭证汇总账簿查询模块日记账查询、明细账查询、总账查询14.1本章概览14.1.1设计思路14.2凭证处理14.2.1窗体设计14.2凭证处理14.2.1窗体设计“基础设置”模块“Pz科目选择”窗体“Pz查询凭证”窗体“记账凭证”模块“Us凭证汇总”窗体14.2.2VBA代码14.2.3应用效果14.2.3应用效果14.3账簿查询14.3.1窗体设计14.3账簿查询14.3.1窗体设计“Us日记账”窗体“日记账”模块14.3.2VBA代码14.3.3应用效果14.3.3应用效果14.3.3应用效果第15章

vba与财务机器人财务机器人是一种处理重复性工作、模拟手工操作的程序15.1财务机器人与RPA技术财务机器人应用领域：15.1财务机器人与RPA技术RPA技术特点：无需复杂的编程知识减少人力成本和人为失误灵活的扩展性和“无侵入性”15.1财务机器人与RPA技术RPA技术特点：无需复杂的编程知识减少人力成本和人为失误灵活的扩展性和“无侵入性”R