




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
ExcelVBA篇——零基础学VBA
零基础学ExcelVba——Diy制作业务模型难学吗?一页A4的内容;讲述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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 精准农业技术应用项目合同
- 律师见证 委托协议
- 智能金融科技应用开发合同
- 中心社区房屋买卖代理合同
- 电子设备租赁服务合同
- 第3单元第9课《按图索骥-制作热点链接》-教学设计2023-2024学年清华大学版(2012)初中信息技术八年级下册
- Unit3 Could you please clean the room Section A (3a) 教学设计 2024-2025学年人教版八年级英语上册
- 第17课 第二次世界大战与战后国际秩序的形成 教学设计-2023-2024学年高一统编版2019必修中外历史纲要下册
- 第六单元课外古诗词诵读《如梦令(常记溪亭日暮)》教学设计-2024-2025学年统编版语文八年级上册
- 认识倍数 教学设计-2024-2025学年冀教版数学四年级上册
- 比亚迪汉DM-i说明书
- 晚熟的人(莫言诺奖后首部作品)
- GA/T 2002-2022多道心理测试通用技术规程
- 《玉磨弥蒙铁路建设项目标准化管理考核实施办法》的通知滇南安质〔XXXX〕号
- 新人教鄂教版(2017)五年级下册科学全册教学课件
- 《产业基础创新发展目录(2021年版)》(8.5发布)
- YY/T 0729.4-2009组织粘合剂粘接性能试验方法第4部分:伤口闭合强度
- GB/T 1040.3-2006塑料拉伸性能的测定第3部分:薄膜和薄片的试验条件
- GB 4706.20-2004家用和类似用途电器的安全滚筒式干衣机的特殊要求
- 血管“斑块”的风险课件
- mks spectra介绍残余气体分析仪
评论
0/150
提交评论