客户风险预警系统应用培训ppt课件.ppt

《客户风险预警系统应用培训ppt课件.ppt》由会员分享，可在线阅读，更多相关《客户风险预警系统应用培训ppt课件.ppt（46页珍藏版）》请在三一办公上搜索。

1、客户风险预警分析,主要内容,介绍目前利用系统做的一些分析工作 1. B/S端系统功能主要适用于查询信贷风险点和简单信贷数据 2. C/S端系统功能主要适用于日常分析，固定报表是基础，自定义报表是上台阶 3.处理系统原始数据：适用于一些特殊需求介绍VBA的一些基本的操作 1. VBA入门 2.利用VBA处理一些个性化的操作,目前利用系统做的一些分析工作,大客户信贷风险分析行业信贷风险分析特殊客户的信贷风险分析集中度风险分析地区信贷风险分析 系统数据特点：0起点数据(包含所有金融机构对公贷款数据)、行业信贷数据全（包含90多个行业）、及时性强。,客户信贷风险分析（一）,大额客户信贷风险情况（授信或

2、贷款大于5000万元的客户分析）单机构大额客户信贷风险情况（授信或贷款大于5000万元的客户分析）分析内容：贷款、不良贷款、逾期贷款、占各项贷款比例等时间序列趋势分析,客户信贷风险分析授信或贷款大于5000万元的客户分析（一）,方法：从B/S端“风险预警/综合分析”导出报表,客户信贷风险分析单机构授信或贷款大于5000万元的客户分析（二）,数据：C/S端固定报表的“各行大客户统计表（按贷款行统计）”数据筛选：删除（授信5000）的客户，余下的是满足条件的客户,行业信贷风险分析（一）,前五大行业信贷风险分析新增贷款前五大行业信贷风险分析特点：及时应用到季度分析,行业分类细（90多个行业，1104

3、目前是30个行业）注：C/S端固定报表之“大客户行业分布表”,行业信贷风险分析前五大行业信贷风险分析,以贷款余额排序取贷款投向高度集中度的五个行业计算各行贷款余额、不良贷款余额比上月、比年初变动情况,行业信贷风险分析新增贷款前五大行业信贷风险分析,计算各行业贷款余额比年初变动以贷款余额增量取前五大行业的信贷数据,行业信贷风险分析（二）,房地产行业信贷风险分析（行业分析表）土地储备行业分析（“土地储备”）船舶行业贷款到期日风险分析（C打头的行业+“船”）,行业信贷风险分析（二）房地产业信贷风险分析,从B/S端“风险预警/行业分析/行业趋势分析”中查看是否存在风险（值得分析的）如果存在风险或必须进

4、行详尽的分析，建议从“大客户行业分布表” 中筛选出更全面的信贷数据分析其贷款、不良贷款和逾期贷款等各项指标时间序列变化情况,行业信贷风险分析（二）土地储备信贷风险分析,B/S端“法人客户”中输入“土地储备”导出客户信息，初步分析从“大客户信息基本表”筛选出土地储备客户，深入分析。计算信贷指标、财务指标变化情况,行业信贷风险分析（二）船舶行业信贷风险分析,数据源：机构上报的原始数据表筛选：行业代码“始于C”and 客户名称“包含船”船舶业特点：行业代码中包含“C”,一般企业名称中包含“船”，但特殊集团例外，如大连的”STX”集团到期日分析： 以年到期日分析时，在贷款到期日后插入列，并输入计算公式

5、“LEFT(贷款到期日, 4)” 以季度为频度分析时，先计算出年份，再通过输入公式“CEILING(MID(贷款到期日,5,2)/4,1)”计算季度,地区信贷风险分析（二）,异地客户从固定报表之大客户基本信息表中筛选出异地客户，筛选依据为客户注册地代码“并非始于210”开始的支持县区客户贷款从固定报表之大客户基本信息表中筛选出县区信贷客户,集中度分析（一）地方法人客户集中度分析,客户信贷集中度分析 最大十户贷款/各项贷款余额（地方法人机构） 从B/S端导处前十大贷款客户集团客户信贷集中度分析： 地方法人金融机构集团客户占全部贷款情况 筛选方法：从B/S中“风险预警/综合分析”中将法人金融机构最

6、大几户选出（贷款大于1亿元），查询其所在的关联企业集团客户的信贷状况，确定该机构最大的集团客户 监管标准：最大集团客户的贷款余额各项贷款余额的15%,集中度分析（二）企业多头授信分析,监测企业从2家以上法人银行获取授信情况 方法：在自定义报表大客户分析主题实现，导出表用数据透视表统计企业多头授信情况,应用VBA进行客户风险分析,VBA入门单个客户新增贷款情况单个机构单个客户新增贷款情况各行对公客户贷款累放/累收情况风险行业信贷状况分析（房地产行业）,VBA（入门）,VBA定义VBA与宏 VBE简介对象、属性、方法、事件 VBA过程 数据类型、变量、数组、常量 VBA的函数 程序流程控制:if语

7、句 程序流程控制：Fornext语句,VBA定义,VBA是Visual Basic For Application的简称 vba是建立在Office中的一种应用程序开发工具。 Excel本身的内置函数其实已经很强大 ,但需求无止境，这时候就需要用VBA来对Excel进行二次开发了，VBA可以有效地自定义和扩展Excel的功能。,VBA与宏,宏是一系列固定动作的集合，这个集合当遇到让他执行的条件后就逐个执行 打开一个Excel文件，录制一段宏，步骤如下：（1）选中任意一个单元格；（2）打开菜单工具宏录制新宏，调出宏录 制对话框，输入宏名（mysub），确定；（3）设置单元格字体为仿宋体，红色；（

8、4）点击停止录宏。 下面我们来执行这段宏。（1）选中需要设置的任意单元格或单元格区域（为了看出效果，单元格最好有字符）；（2）打开菜单工具宏宏，显示“宏”对话框（快捷键：Alt+F8）;（3）选择我们刚才录制的宏，单击“执行”。 宏实际上就是一个简单的VBA的Sub过程，它保存在模块里，以Sub开头，以End Sub结尾，执行时就从第一句逐句执行，直到End Sub结束。,VBE简介,VBE就是VBA的编辑窗口，所有的VBA操作都在VBE里完成。注意要运行VBE必须先运行Excel，VBA模块与Excel工作薄文件一起存储，除非激活VBE，否则VBA模块是看不见的。运行Excel后切换到VBE

9、中 ：选择“工具”“宏” “Visual Basic编辑器”命令。,VBE窗口,VBE窗口（一）工程资源管理器,“工程资源管理器”显示一个树型图示，包含了当前在Excel中打开的所有Excel对象，包含工作表，模块，窗体，加载宏及隐藏的工作薄，每个工作薄被认为是一个工程。在工程资源管理器里右击，可以在右键菜单里选择相应的命令插入或删除模块或窗体,VBE窗口（二）属性窗口,“属性窗口”显示当前你选择的Excel对象的属性。选中某个对象后，可以在属性窗口中修改选中的对象的的各样属性如颜色，名称等。,VBE窗口（三）立即窗口,“立即窗口”在其中可以直接执行VBA语句，测试语句和调试代码，如果你的立即

10、窗口不可见，按CRTL+G调出来,VBE窗口（四）代码窗口,“代码窗口” 是用来编辑VBA代码的地方，工程中的每一项都有一个与之相关联的代码窗口，在“工程资源管理器”窗口中双击对象即可。可以查看某对象上面编写的VBA代码。,对象及对象层次结构,对象是VBA处理的内容，包括工作薄、工作表、工作表上的单元格区域、图表等等。对象可以相互包含，一个工作薄对象可以包含多个多个工作表对象，一个工作表对象又可以包含多个单元格、图表。对象引用：在Excel里，Workbooks集合包含在Application对象里，当我们要引用某工作薄的时候，要遵循从大到小的规则。 1. Application.Workbo

11、oks(“mybook.xls”) 引用名称为“mybook.xls”的工作薄 2.Application.Workbooks(“mybook.xls”).Worksheets(“mysheet”) 引用“mybook.xls”里面的工作表“mysheet” 3.Application.Workbooks(“mybook.xls”).Worksheets(“mysheet”).Range(“A1:D10”) 引用“mybook.xls”里工作表“mysheet”里面的单元格区域“A1:D10” 4. 如果是mybook工作薄是激活的，引用可以简化为 Worksheets(“mysheet”).

12、Range(“A1:D10”),属性,每一个对象都有属性，一个属性就是对一个对象的一个设置。 Worksheets(sheet1).name ：工作表的一个属性“名字” Worksheets(“mysheet”). Cells(1,1).value：工作表中的一个单元格的一个属性“值”在属性窗口里可以查看一个对象有包含的属性在属性窗口可以修改一个对象的某种属性，如名称、显示状态、颜色、值等等。,方法,方法就是在对象上执行的某个动作 如：Range对象有有一个方法是Select，他的作用是选中指定的Range（单元格区域）对象，在立即窗口里输入代码：range(D1:F10).select,事件

13、,事件就是由用户或者系统触发的，可以在代码中响应的一段代码。 例子：当激活某工作表的时候，自动弹出一个对话框，告诉我们激活的工作表的名称。 Private Sub Worksheet_Activate() MsgBox 你现在激活的工作表名称是： & ActiveSheet.Name End Sub 注：&和我们工作表里的函数是一样的，连接文本的作用，Activesheet.name是当前活动工作表的名字（用了一个name属性）。 初学的我们，不必完全记住对象及事件的名称， 可以在代码窗口里进行选择，左边是对象，右面是事件，如果你想知道某个对象（例如工作薄、工作表、窗体等）有哪些事件，只需要双

14、击这个对象，然后在代友窗口里查看即可。,VBA过程,一个过程就是执行某些动作的代码组合。 VBA过程分Sub过程和Function过程。 1、Sub过程总是以“sub 过程名()”开头，以“End Sub”结尾，一个过程就是执行某项动作的一套指令，Sub过程不返回运行的结果。 2、Function总是以“Function 程序名()”开头，以“End Function”结尾，和Sub过程的区别是Function过程返回程序运行的值，值可以是一个值或一个数组，就像我们的工作表函数，Function过程也就是我们说的自定义函数。,数据类型、常量、数组,1、 数据类型告诉计算机如何将数据存储在内存中

15、，如以整数（integer）、字符串(string)、日期(data)等。数据类型是变量的特性。2、常量常量声明后，不以对它进行再赋值。 Const 常量名 As 数据类型 常量的值 const i as integer = 1 3、数组是具有相同数据类型并且共享一个名字的一组变量的集合。数组也是变量。 Dim/Public 数组名 (a to b) as 数据类型 Dim myarr(1 to 5,1 to 10) As Integer 这就是一个二维数组，元素个数为5*1050个。,变量,变量是用于保存在程序运行过程中需要临时保存的值或对象。 定义变量 ：Dim 变量名 As 数据类型 i

16、定义整数变量： dim i as integer A定义为字符串变量：dim A as String B定义为日期变量:dim B as data给变量赋值:用等号（）赋值 A=我在学习VBA变量！ B=#2009-3-10#,VBA函数,使用VBA函数的的方式与使用工作表公式中函数的方式相同，在VBA代码中，我们可以使用很多Excel的工作表函数，例如Sum,Abs等。 Sub myabs() a = InputBox(请输入数值：, 提示) labs = Abs(a) MsgBox 你输入的值的绝对值为: & labs End Sub 这是一个求绝对值的过程，通过InputBox提示用户输

17、入一个数值给变量a，再用Abs函数求出变量的绝对值，最后通过MsgBox返回结果。PS： 但并不是所有的工作表函数在VBA里都可以直接调用，但由于WorksheetFunction对象包含在Application对象中，如果我们要在VBA语句里使用某个不能直接调用的工作表函数，只需要在函数名称前加上Application.WorksheetFunction语语即可。 如：在VBA里使用counta函数则代码为： application.worksheetfunction.counta(range(a1:a10),程序流程控制:if语句（一）,1、ifthen语句这个句式相当于中文里面的“如果.

18、那么”。格式：if逻辑表达式 then 语句块 end if 解释：如果逻辑表达式的结果为true，则执行语句块里的所有语句，否则执行end if后面的语句。语句块可以是一句指令或多条指令，也可以调用一个或多个过程，当然，也可以为空，就是没有语句。 例：“判断A1单元格是否已输入内容” Sub test1() If a1 = Then MsgBox A1单元格没有输入任何内容！ End If End Sub,程序流程控制:if语句（二）,2、 ifthenelse语句这个语句相当于中文里面的“如果.那么.否则.”句式。格式：if逻辑表达式 then 语句块1else 语句块2 end if 解

19、释：如果逻辑表达式的结果为true，则执行语句块1里的所有语句，如果逻辑表达式的结果为Flase则执行语句块2里的所有语句。 例：Sub test2()If a1 = Then MsgBox A1单元格没有输入任何内容！Else MsgBox A1单元格已经输入了内容！End IfEnd Sub,程序流程控制:if语句（三）,3、ifthenelseif语句这就相当于中文里面的若“如果那么否则如果那么否则”语句，当然，可以有多句“否则如果.”格式：If逻辑表达式1 Then 语句块1 ElseIf逻辑表达式2Then 语句块2 ElseIf逻辑表达式3Then 语句块3 Else 语句块n E

20、ed If解释：若逻辑表达式1的结果为True，则执行语句块1，接着继续执行EndIf后面的语句；若逻辑表达式1的结果为False，则检查逻辑表达式2的结果，若为True则执行语句块2，接着继续执行EndIf后面的语句.一直到所有结果的条件都不满足时，才执行Else后面的语句块n。,程序流程控制:if语句（三）,例：判断A1单元格的数是否能被2、3、5其中之一整除。Sub test3() If a1 = Then MsgBox A1单元格没有输入任何内容！ ElseIf a1 Mod 2 = 0 Then MsgBox A1单元格的数能被2整除！ ElseIf a1 Mod 3 = 0 The

21、n MsgBox A1单元格的数能被3整除！ ElseIf a1 Mod 5 = 0 Then MsgBox A1单元格的数能被5整除！ Else MsgBox A1单元格的数不能被2、3、5其中之一整除！ End IfEnd Sub,程序流程控制:ForNext 循环语句,循环是指重复地执行某项动作（语句块） Fornext 的句式：For 循环变量初值 to 终值 step 步长 循环体1 exit for 循环体2next 循环变量 例：求1到1000的自然数的和。 Sub mysum()Dim Lsum As Long, i As LongFor i = 1 To 1000 Lsum

22、= Lsum + iNextMsgBox 1到1000的自然数和为： & LsumEnd Sub,单个客户新增贷款风险分析,数据源：固定报表之大客户信息统计表工作簿包含： sheet1存本期数据，sheet2存上年末（上季）数据，sheet3存作比较后数据判断条件： 1.如果本期机构上报客户A，年初也上报该客户，则两期数据做差； 2.如果本机构上报客户A，年初没有该客户，则两期数据的差值=本期数据；,VBA（步骤）,循环代码： For 行值i1 to n for 行值j=1 to m if sheet1.第i行客户代码=sheet2.第j行客户代码 then sheet3.第i个客户.贷款余额

23、比上年末=sheet1.第i个客户.贷款余额- sheet2.第j个客户.贷款余额 next i next j for 行值i=1 to n If sheet3 .第i个客户代码=“” then sheet3.第i个客户.贷款余额比上年末=sheet1.第i个客户.贷款余额 next i,按机构计算客户新增贷款风险分析,从机构角度分析每个客户新增贷款情况应用： 1、新增贷款最大十户情况：包括贷款增量，各行贷款增量等 2、本年“累放累收”情况（不考虑当年发放在统计截止日期前收回的贷款）,VBA（步骤）,数据源：原数据sheet1表sheet1存本期数据，sheet2存上年末（上季）数据，shee

24、t3存作比较后数据循环：双层循环判断条件（B列和AN列） sheet1.第i行客户代码=sheet2.第j行客户代码 and sheet1.第i个客户填报行=sheet2.第j个客户填报行计算：同单客户新增贷款,各行贷款累收累放情况（对公）,各行对公客户贷款累放情况 判断条件：如果机构对某个客户贷款增量（比上年 末）为正，则属于“累放”统计各行对公客户贷款累收情况 判断条件：如果机构对某个客户贷款增量（比上年 末）为负，则属于“累收”统计,风险行业信贷状况分析,房地产行业信贷风险分析 1.贷款变化趋势（时间序列） 2.贷款质量变化情况，分析逾期贷款、关注类贷款和不良贷款变化情况 3.房地产客户：存量贷款十大户、新增贷款十大户、半年内还款的十大户 4.贷款到期日分析，未来企业的还款压力 5.房地产行业累收累放情况,需要提前准备的数据,B/S端导出数据：授信或贷款大于5000万元以上客户，房地产行业趋势分析，“土地储备”法人客户固定报表：大客户基本信息表（200812-200909）， 各行大客户统计表（按贷款行统计），大客户行业分布表（200812-200909）自定义报表：以大客户主题分析，指标为“授信法人行家数”原始数据：从数据采集端导出,