《《Excel在财务中的应用》课件—VBA》由会员分享，可在线阅读，更多相关《《Excel在财务中的应用》课件—VBA（52页珍藏版）》请在金锄头文库上搜索。
1、ExcelVBAExcelVBA篇篇零基础学零基础学VBAVBAn零基础学Excel VbaDiy制作业务模型难学吗？难学吗？l一页一页4 4的内容；的内容；l讲述讲述Excel VbaExcel Vba中的基础知识中的基础知识l完成学习后，你能阅读、修改一般的完成学习后，你能阅读、修改一般的VbaVba代码，具备代码，具备VbaVba编程的基本能编程的基本能力。力。学会这些，对付一般的数据处理，没问题！学会这些，对付一般的数据处理，没问题！n对谁操作对象；n操作边界在哪？变量；n工作表函数的引用融合；n进入VB编辑写代码；制作一个按钮；n自动化排版宏的录制与修攺；学习目标学习目标n制作一个奖
2、金分配工具。l在数据输入区设置岗位分配系数及分配总金额；l在数据输出区设置自动根据岗位填入分配系数；自动计算标准分配率；自动根据分配系数与分配率计算分配奖金；自动进行排版设置；n制作一个简易的考试系统.一个经典的编程结构一个经典的编程结构nSub 程序名（）l对象：dim 对象名as 对象类型l变量：dim 变量名as 变量类型l判断：if 条件then 执行命令 end ifl循环： for nextl引用工作表函数：application.worksheetfunction.工作表函数l方法：对象.动作nEnd SubVBAVBA编程模型编程模型sub sub 程序程序() ()dim P
3、 as dim P as 对象类型对象类型set p=dim n as dim n as 变量类型变量类型n=range(“a65536”).end(xlup).rowfor n2=for n2=起始值起始值 to to 终值终值 step 1 step 1if 判断表达式thenn是命令neslen否命令end ifnextnextend subend subExcel vbaExcel vba基础知识基础知识nSub 程序名（）l用Dim声明对象l用Dim变量l用If进行判断l用ForNext进行循环l用Application.Worksheetfunction引用函数属性方法nEnd s
4、ub一、对象一、对象如何表示工作表？如何表示工作表？nWorksheets(工作表名称)lWorksheets(01Worksheets(01分配方案分配方案) )lWorkWorksheets(sheets(系统设置系统设置) )如何表示单元格？如何表示单元格？lRange(“D3”)Range(“D3”)lRange(“G3”)Range(“G3”)lRange(A65536)Range(A65536)如何表示单元格如何表示单元格lCells(3, 4)Cells(3, 4)lCells(3, 7)Cells(3, 7)如何表示单元格区域如何表示单元格区域lRange(Range(“E4:
5、G7E4:G7”) )lRange(Range(“A4:E8A4:E8”) )自测阅读自测阅读lWorksheets(“Worksheets(“工资表工资表”). Range(“A4:E8)”). Range(“A4:E8)自测阅读自测阅读lRange(cells(1,1),cells(Range(cells(1,1),cells(1010, ,2 2) )）如何声明一个对象如何声明一个对象n声明一个工作表对象lDim P As WorksheetlSet P = Worksheets(操作题1)lDim P2 As WorksheetlSet P2 = Worksheets(操作题1 (2)
6、n声明单元格对象lDim rn As RangelSet rn = P.Range(a4:d & N)rn.Font.Size = 10rn.Borders.LineStyle = xlContinuousrn.RowHeight = 20二、变量二、变量变量变量n最常见的一句变量lN=Range(A65536).End(xlUp).RowEnd(xlUp)End(xlToRight)End(xlToLeft)End(xlDown)最后一列在哪里？最后一列在哪里？lDim Dim C1C1 As As IntegerIntegerlC1=Range(A2).End(xlToRight).Col
7、umnC1=Range(A2).End(xlToRight).Column最后一行在哪里？最后一行在哪里？lN=Range(A65536).End(xlUp).RowN=Range(A65536).End(xlUp).RowlN =Range(A3).End(xlDown).RowN =Range(A3).End(xlDown).Row对象与变量的经典组合：对谁操作，边界在哪对象与变量的经典组合：对谁操作，边界在哪l声明一个工作表对象声明一个工作表对象Dim P As WorksheetDim P As WorksheetSet Set P P = = ActiveSheetActiveShe
8、etl声明一个行数的变量声明一个行数的变量Dim N Dim N N = N = P P.Range(A65536).End(xlUp).Row .Range(A65536).End(xlUp).Row 变量的小伙伴变量的小伙伴&：从固态走向动态！：从固态走向动态！l格式排版格式排版Dim rn As RangeDim rn As RangeSet Set rnrn = P.Range(a4:d & = P.Range(a4:d & N N) )自我测试自我测试lDim rn2 As RangeDim rn2 As RangelN = 8N = 8lSet rn2 = Range(a & Se
9、t rn2 = Range(a & N N & :d & & :d & N N) )lrn2.Font.ColorIndex = 44rn2.Font.ColorIndex = 44lrn2. Range(A2:Arn2. Range(A2:A”& N).& N).RowHeightRowHeight = 20 = 20将将4 4替换为变量，则将实现数据自动化处理替换为变量，则将实现数据自动化处理lRange(“V4”) =Application.WorksheetFunction.SUM(Range(“K4：U4“ )&文本运算符的妙用nRange(K & N2 & :U & N2)l列不变
10、，行变的单元格表示三、判断三、判断选择结构选择结构n语法：lIf 条件 Then DO 处理程序1 lElse DO 处理程序2lEnd If或单条件单条件lIf Range(E & N2) = If Range(E & N2) = 店长店长 Then ThenRange(K & N2) = 10000Range(K & N2) = 10000ElseElseRange(K & N2) = 3000Range(K & N2) = 3000lEnd IfEnd IflIf If P. P.Cells(N2, 3) = Cells(N2, 3) = P2.P2.Cells(N2, 3) Cells
11、(N2, 3) ThenThenl P. P.Cells(N2, 4) = Cells(N2, 4) = 对对 l P. P.Range(C & N2).Interior.ColorIndex = 0 Range(C & N2).Interior.ColorIndex = 0 无色无色l ElseElsel P. P.Cells(N2, 4) = Cells(N2, 4) = 错错 l P. P.Range(C & N2).Interior.ColorIndex = 3 Range(C & N2).Interior.ColorIndex = 3 红色红色l End IfEnd Ifn多条件多条
12、件lIf Range(E & N2) = If Range(E & N2) = 店长店长 Then Then Range(K & N2) = 10000 Range(K & N2) = 10000ElseIf Range(E & N2) = ElseIf Range(E & N2) = 主管主管 Then Then Range(K & N2) = 3300 Range(K & N2) = 3300ElseIf Range(E & N2) = ElseIf Range(E & N2) = 课长课长 Then Then Range(K & N2) = 2600 Range(K & N2) = 26
13、00ElseElse Range(K & N2) = 2300 Range(K & N2) = 2300lEnd IfEnd Ifn语法：lSelect Case 条件 PCase 1 Do 处理程序1 Case 2 Do 处理程序2Case N Do 处理程序nlEnd Select四、循环四、循环循环结构循环结构n循序结构（Sequence）lDO 处理程序1 THEN DO 处理程序2循环语句循环语句n从第4行开始一直计算到末行（N)为止。lRange(C5 )lRange(C6 )lRange(C7 )lRange(C8)l.lRange(“C？ )lRange(“C & N2)nFo
14、r N2 = 4（起始值） To N（终止值） Step 1lRange(“V” & N2) = Range(“S” & N2) + Range(“T” & N2) nNextn循环批阅lFor For N2N2 = 5 To N Step 1 = 5 To N Step 1If P.Cells(If P.Cells(N2N2, 3) = P2.Cells(, 3) = P2.Cells(N2N2, 3) Then, 3) Then P.Cells( P.Cells(N2N2, 4) = , 4) = 对对 P.Range(C & P.Range(C & N2N2).Interior.Colo
15、rIndex = 0 ).Interior.ColorIndex = 0 无色无色 Else Else P.Cells( P.Cells(N2N2, 4) = , 4) = 错错 P.Range(C & P.Range(C & N2N2).Interior.ColorIndex = 3 ).Interior.ColorIndex = 3 红色红色End IfEnd IflNextNextn语法：lDo-while结构While 条件 DO 处理程序lEnd五、引用工作表函数五、引用工作表函数工作表函数的引用工作表函数的引用nApplication.WorksheetFunction.Rank（
16、）nApplication.WorksheetFunction.sumif（）nApplication.WorksheetFunction.vlookup（）Application.WorksheetFunctionn统计对错个数lDim F, T Dim F, T 定义正确与错误的个数定义正确与错误的个数F = Application.WorksheetFunction.CountIf(Range(D:D), F = Application.WorksheetFunction.CountIf(Range(D:D), 错错) )T = Application.WorksheetFunction.CountIf(Range(D:D), T = Application.WorksheetFunction.CountIf(Range(D:D), 对对) )lDim CJ As VariantDim CJ As VariantCJ = Round(100 / (T + F) * T, 0) CJ = Round(100 / (T + F) * T, 0) 不保留小数不保留小数MsgBoxMsg
