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

第7章

统计报表的批量生成与分发;根据已有的模板工作表

生成当月每日的空白日报表;统计了日报表后

需要将日报表数据进行汇总统计;将日报表按日期拆分为不同的文件

并将拆分出的文件以工作表名字命名;根据配置表的形式批量生成日报表;删除工作表、删除range对象、删除行

从后往前删;先锁定整张工作表的单元格

取消锁定要输入数据的单元格或区域;设计用户名与密码比对模块

根据不同用户显示不同工作表;第9章

日记账数据拆分到多表;首先，按日记账的D列部门名称新建工作表

其次，去重建表;将日记账中的数据拆分到对应名称的部门表中;运行sub过程之前应将各部门表中的原有记录清空，以避免数据冗余;【筛选】功能由AutoFilter方法实现

Field

Criteria1;使用Inputbox函数

由用户输入按哪一列进行拆分;第10章

跨文件汇总报表;Dir函数的基本用法是Dir(pathname);SubdirTest()

MsgBox(Dir(d:\1\广东分公司.xlsx))

EndSub;Dir(ThisWorkbook.Path\*.*)

匹配文件所在文件夹内所有文件;Sub跨文件操作通用模板()

DimstrAsString

str=Dir(d:\1\*.xls*)

DoWhilestr

‘这里可写入针对文件进行操作的所有语句

str=Dir

Loop

EndSub;Dir(d:\1\example\*.xls*)

DoWhilestr

’复制

’重命名

Loop;相比10.5节的sub过程

增加一个ForEach循环

遍历新打开文件的每一张工作表;Left()、Len()构建填充公式

FormulaR1C1属性进行公式填充;第11章

数组及其财务应用;数组：速度快

非数组：速度慢;数组的维度：一维数组、二维数组;数组的声明：

Dim数组名（上界）as数据类型

Dim数组名（下界to上界）as数据类型;动态数组：

Dim数组名（）as数据类型;数组的赋值

Arr(1)=3;Arr(3)=8;数组与Range对象：

arr=Range(a1:a2);方式：

录制宏

For循环

数组;11.4记录拆分成借贷不同行;第7章

发票凑数;7.1发票凑数

7.1.1发票凑数宏的设计;调用过程

Sub执行另一个过程()

Call过程名(参数1,参数2，...)

EndSub

;递归

SubFac(nAsInteger)

Ifn=1Then

FAC=1

Else:

FAC=n*FAC(n-1)

EndIf

EndSub;7.1.3发票凑数宏的应用效果;第12章

字典及其财务应用;字典的调用

引用法：

DimdicAsNewDictionary

直接创建法：

DimdicAsObject

Setdic=CreateObject(scripting.dictionary);字典的属性与方法：

6种方法：

Add、Keys、Items、Exists、Remove、RemoveAll

4个属性：

count、Key、Item、CompareMode;思路：

字典去重

若没有存货编码，则会自动新建本行存货代码的key

若已有存货编码，则不会新建;思路：

字典去重

客户名称设定为字典的key

发货数量设定为字典的item;思路：

字典

“A列+B列”为key

特定行号赋值为item;第13章

窗体与控件;13.1初识窗体与控件;插入窗体步骤：

①创建一个新的工作簿

②【工具】→【宏】→【VisualBasic编辑器】

③【插入】→【用户窗体】;对象之间的对齐

改变对象大小

控制对象的间距

修改对象的Tab键次序;名称属性

Caption属性

Left、Top、Height、Width属性

Enabled属性

;对象激活(Activate)事件

单击(Click)事件

双击(DblClick)事件

对象变为非活动(Deactivate)事件

改变窗体大小(Resize)事件

Show/Hide常用方法;13.3控件

13.3.1标签