- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
VBA基础知识
VBA基础知识
PAGE/NUMPAGES
VBA基础知识
VBA基础知识
1,VBA有三种程序类型:宏程序,自定义函数程序,事务程序
1)宏程序
SubA()公用程序,可以被其它程序调用
Range(a1)=100
EndSub
PrivateSubA()私有程序,不可以被其它程序调用
Range(a1)=100
EndSub
调用实例1):
SubA()
Range(a1)=100
EndSub
SubB()
CallA Call为调用命令,也可以省略
EndSub
调用实例2):
Sub统计(N)
IfN=1Then
Range(C2)=Application.WorksheetFunction.CountA(Range(a:a))
ElseIfN=0Then
Range(D2)=Application.WorksheetFunction.Sum(Range(a:a))
EndSub
Sub计数()
统计1
EndSub
Sub求和()
统计0
EndSub
2)自定义函数程序
Function工作表数量()
工作表数量=Sheets.Count取工作表个数
EndSub
应用:(1)可以在单元格中直接调用:例在A1中输入:=工作表数量()
(2)程序中调用:SubA1中输入工作表数量()
Range(“A1”)=工作表数量调用自定义函数
EndSub
3)事务程序
例如程序在打开工作表时触发:
PrivateSubWorkbook_Open()
Range(“A1”)=100
EndSub
Submycopy()
Range(A1).CopyRange(B1)将A1单元格里的数据复制到B1单元格
EndSub
Submydel()
Sheets(sheet1).Delete删除工作表sheet1
EndSub
常用的函数:(连接函数);\(整除函数);mod(求余数函数)
2,With语句:
未运用with语句
Sub字体格式1()
Range(A1).Font.Name=宋体
Range(A1).Font.Size=14
Range(A1).Font.ColorIndex=3
Range(A1).Font.Bold=True
EndSub
运用with语句
Sub字体格式1()
WithRange(A1).Font
.Name=宋体
.Size=14
.ColorIndex=3
.Bold=True
EndWith
EndSub
3,If语句:
1)单条件推断:
Sub正数()
IfRange(a1).Value0Then
Range(a2).Value=“正数”
Else
Range(a2).Value=“非正数”
EndIf
EndSub
2)多条件推断:
Sub正数()
IfRange(c1).Value0Then
Range(d1).Value=大于零
ElseIfRange(c1).Value0Then
Range(d1).Value=小于零
ElseIfRange(c1).Value=0Then
Range(d1).Value=等于零
EndIf
EndSub
Sub推断男女()
IfRange(c1).Value=1Then
Range(d1).Value=男
ElseIfRange(c1).Value=0Then
Range(d1).Value=女
Else
Range(d1).Value=非男非女
EndIf
EndSub
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
Call推断男女调用上面子程序,当单元格数值改变时触发子程序运行
EndSub
3)运用SelectCase语句:
Sub多重推断()
SelectCaseRange(a1)
CaseIs0
R
您可能关注的文档
- 布加综合征的临床分析.doc
- 爸,我想你了生活随笔.docx
- 常见低温液体气化体积.doc
- 毕业2022年聚会主持词.docx
- 哺乳仔猪的饲养管理要点.doc
- 采用不含肝中静脉的右半肝行成人间活体肝移植.doc
- 测绘工程质量管理的必要性及措施.doc
- 专题4.4 整式的化简求值专项训练(50题)(浙教版)(解析版).pdf
- 专题4.5 角【十大题型】(举一反三)(华东师大版)(原卷版).pdf
- 安全施工方案目录.pdf
- 专题4.4点的坐标变化规律专练(重难点培优)-2021-2022学年八年级数学上册尖子生同步培优题典(解析版)【浙教版】.pdf
- 专题4.4 一元一次方程应用-行程问题(专项训练)(解析版).pdf
- 专题4.4 全等三角形判定与性质(专项训练)(解析版).pdf
- 安全监理技术资料台帐ok.pdf
- 专题4.4 线段、射线、直线【八大题型】(举一反三)(华东师大版)(原卷版).pdf
- 专题4.5 角【十一大题型】(举一反三)(人教版)(解析版).pdf
- 专题4.4 动角问题专项训练(40道)(举一反三)(北师大版)(解析版).pdf
- 专题4.4期中考前必刷选择题(压轴60道)-2023-2024学年七年级数学上学期复习备考高分秘籍【人教版】(解析版).pdf
- 专题4.5 角【十大题型】(举一反三)(华东师大版)(解析版).pdf
- 专题4.5 边角边判定三角形全等-重难点题型(举一反三)(北师大版)(原卷版).pdf
最近下载
- Java EE轻量级框架应用实战—SSM框架(Spring MVC+Spring+MyBatis)(第2版)课件 第7--14章 Spring Bean---百货中心供应链管理系统 .pptx
- 2024年公务员考试必考公共基础知识点复习汇总(共150题).doc
- IEC 60076-1 电力变压器 第1部分:总则.pdf
- 农村宅基地审批资料解读.ppt
- 我国农村职业教育的研究文献统计分析.doc VIP
- 交通安全员-公路篇-第1部分综合知识和能力-综合知识和能力-案例题.docx VIP
- 国企个人述职报告.pptx
- 中药渣资源化利用关键技术与产业化.docx
- 3D打印技术简要介绍.ppt
- 叉车 职业技术培训教材.pdf
文档评论(0)