《Excel在财务中的应用》 VBA版

ExcelVBA篇——零基础学VBA

零基础学ExcelVba——Diy制作业务模型难学吗？一页Ａ4的内容；讲述ExcelVba中的基础知识完成学习后，你能阅读、修改一般的Vba代码，具备Vba编程的基本能力。学会这些，对付一般的数据处理，没问题！对谁操作——对象；操作边界在哪？——变量；工作表函数的引用——融合；进入VB编辑写代码；制作一个按钮；自动化排版——宏的录制与修攺；学习目标制作一个奖金分配工具。在数据输入区设置岗位分配系数及分配总金额；在数据输出区设置自动根据岗位填入分配系数；自动计算标准分配率；自动根据分配系数与分配率计算分配奖金；自动进行排版设置；制作一个简易的考试系统.一个经典的编程结构Sub程序名（）对象：dim对象名as对象类型变量：dim变量名as变量类型判断：if条件then执行命令endif循环：for……next引用工作表函数：application.worksheetfunction.工作表函数方法：对象.动作EndSubVBA编程模型sub程序()dimPas对象类型setp=dimnas变量类型n=range(“a65536”).end(xlup).rowforn2=起始值to终值step1if判断表达式then是命令esle否命令endifnextendsubExcelvba基础知识Sub程序名（）用Dim声明对象用Dim变量用If进行判断用For…Next进行循环用Application.Worksheetfunction引用函数属性方法Endsub一、对象如何表示工作表？Worksheets("工作表名称")Worksheets("01分配方案")Worksheets("系统设置")如何表示单元格？Range(“D3”)Range(“G3”)Range("A65536")如何表示单元格Cells(3,4)Cells(3,7)如何表示单元格区域Range(“E4:G7”)Range(“A4:E8”)自测阅读Worksheets(“工资表”).Range(“A4:E8")自测阅读Range(cells(1,1),cells(10,2)）如何声明一个对象声明一个工作表对象DimPAsWorksheetSetP=Worksheets("操作题1")DimP2AsWorksheetSetP2=Worksheets("操作题1(2)")声明单元格对象DimrnAsRangeSetrn=P.Range("a4:d"&N)rn.Font.Size=10rn.Borders.LineStyle=xlContinuousrn.RowHeight=20二、变量变量最常见的一句变量N=Range("A65536").End(xlUp).RowEnd(xlUp)End(xlToRight)End(xlToLeft)End(xlDown)最后一列在哪里？DimC1AsIntegerC1=Range("A2").End(xlToRight).Column最后一行在哪里？N=Range("A65536").End(xlUp).RowN=Range("A3").End(xlDown).Row对象与变量的经典组合：对谁操作，边界在哪'声明一个工作表对象DimPAsWorksheetSetP=ActiveSheet'声明一个行数的变量DimNN=P.Range("A65536").End(xlUp).Row变量的小伙伴&：从固态走向动态！'格式排版DimrnAsRangeSetrn=P.Range("a4:d"&N)自我测试Dimrn2AsRangeN=8Setrn2=Range("a"&N&":d"&N)rn2.Font.ColorIndex=44rn2.Range("A2:A”&N).RowHeight=20将4替换为变量，则将实现数据自动化处理Range(“V4”)=Application.WorksheetFunction.SUM(Range(“K4：U4“))&文本运算符的妙用Range("K"&N2&":U"&N2)列不变，行变的单元格表示三、判断选择结构语法：If条件ThenDO处理程序1ElseDO处理程序2EndIf或单条件

IfRange("E"&N2)="店长"ThenRange("K"&N2)=10000ElseRange("K"&N2)=3000EndIfIf

P.Cells(N2,3)=P2.Cells(N2,3)Then

P.Cells(N2,4)="对"

P.Range("C"&N2).Interior.ColorIndex=0'无色

Else

P.Cells(N2,4)="错"

P.Range("C"&N2).Interior.ColorIndex=3'红色

EndIf多条件IfRange("E"&N2)="店长"ThenRange("K"&N2)=10000ElseIfRange("E"&N2)="主管"ThenRange("K"&N2)=3300ElseIfRange("E"&N2)="课长"ThenRange("K"&N2)=2600ElseRange("K"&N2)=2300EndIf语法：SelectCase条件PCase1Do处理程序1Case2Do处理程序2CaseNDo处理程序nEndSelect四、循环循环结构循序结构（Sequence）DO处理程序1THENDO处理程序2循环语句从第4行开始一直计算到末行（N)为止。Range("C5")Range("C6")Range("C7")Range("C8")...Range(“C？")Range(“C"&N2)ForN2=4（起始值）ToN（终止值）Step1Range(“V”&N2)=Range(“S”&N2)+Range(“T”&N2)Next'循环批阅ForN2=5ToNStep1IfP.Cells(N2,3)=P2.Cells(N2,3)ThenP.Cells(N2,4)="对"P.Range("C"&N2).Interior.ColorIndex=0'无色ElseP.Cells(N2,4)="错"P.Range("C"&N2).Interior.ColorIndex=3'红色EndIfNext语法：Do-while结构While条件DO处理程序End五、引用工作表函数工作表函数的引用Application.WorksheetFunction.Rank（）Application.WorksheetFunction.sumif（）Application.WorksheetFunction.vlookup（）Application.WorksheetFunction'统计对错个数DimF,T'定义正确与错误的个数F=Application.WorksheetFunction.CountIf(Range("D:D"),"错")T=Application.WorksheetFunction.CountIf(Range("D:D"),"对")DimCJAsVariantCJ=Round((100/(T+F))*T,0)'不保留小数MsgBoxMsgBox"本次做对了"&

T

&",做错了"&

F

&"题!本次得分为"&CJ&"分！"这是写代码的模型！sub程序()dimPas对象类型setp=dimnas变量类型n=range(“a65536”).end(xlup).rowforn2=起始值to终值step1if判断表达式then是命令esle否命令endifnextendsub六、排版边框设置Range(“A2:AI”&N+1).Borders.LineStyle=xlLineStyleNoneXlLineStyle可为以下XlLineStyle常量之一。xlContinuous‘实线xlDash‘虚线xlDashDot‘长短间隔的虚线xlDashDotDotxlDotxlDoublexlSlantDashDotxlLineStyleNone‘取消单元格底纹设置P.Range("C"&N2).Interior.ColorIndex=0'无色P.Range("C"&N2).Interior.ColorIndex=3'红色七、属性与方法对象.方法SubTEST()DimNAsIntegerN=Range("A65536").End(xlUp).RowRows