(完整)VBA超详细总结-推荐文档.doc

  1. 1、本文档共14页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

VBA笔记

道具:→

案例一:

代码:

解析:

拓展:

VBA前景知识:

VBA所实现的功能简单的说就是通过编写程序,用几个简单操作实现一系列的操作,以达到高效的目的,在做重复的操作时相当有效。

在EXCEL中,要进入VBA编辑界面,首先要调出开发工具选项卡。按快捷键Alt+F+T到Excel选项,在自定义功能区勾选上开发工具并确定。

在Excel中,宏功能是默认禁用的,因为很多病毒会通过宏传播。在使用之前需要启用该功能。按快捷键Alt+F+T到Excel选项,在信任中心→信任中心设置→宏设置→启用所有宏→确定。

VBA中有对象、方法、属性。理解这些是学习VBA的基础。

对象:工作簿、工作表、单元格、行、列等

2、属性:相应对象的属性。如工作表名称、单元格的行高等属性一般理解为对象拥有的静态特性。

3、方法:对相应对象所执行的动作称为对象的方法。如单元格移动、单元格删除内容等。

从形状上来区别:前面带绿色图标的就是方法,带手形标志的就是属性。

案例一:如何点击按钮实现简单加法运算?

代码:

Sub加法运算过程()

Cells(1,5)=Cells(1,1)+Cells(1,3)

Endsub

解析:

在开发工具选项卡中插入按钮控件,修改宏名为“加法运算过程”,新建,这样就进入VBA编辑界面。这里的宏简单讲就是编程产生的一系列操作,而点击刚才插入的按钮就可以触发这些操作,这样一个点击操作就可以实现一系列的操作。

Ctrl+S保存,这里下拉菜单中文件保存类型选成“启用宏的工作簿”。因为默认文件类型是默认禁用的,很多病毒会通过宏传播,保存成xlsx则丢失代码

右击按钮→编辑文字→修改为“加法”。这里的加法是按钮显示出来的名称,和宏名不一样。宏是编程产生的一系列操作过程,引用宏名就代表操作这一系列过程。而按钮可以指定不同的宏过程。

在开发工具选项卡中→宏→加法运算过程→编辑进入宏过程编辑界面。输入下面代码。

上面代码中,sub表示宏开始,endsub表示宏结束,“加法运算过程”是宏名,后面的括号可有可无。宏macro

Cells是VBA中最基本的对象,Cells(行号,列号)表示引用单元格,Cells(1,1)是指A1单元格的内容。

拓展:

案例二:如何点击按钮实现新建,保存,关闭,打开工作簿?

代码:

Workbooks.Add

ActiveWorkbook.SaveAsC:\Users\Administrator\Desktop\工作簿4.xlsx

ActiveWorkbook.Close

Workbooks.OpenFilename:=C:\Users\Administrator\Desktop\工作簿1.xlsx

Workbooks(工作簿1.xlsx).Close

解析:

拓展:Workbooks.open(“路径”)也可以打开文件

案例三:定义函数:(参数可以有多个,用逗号隔开)

代码:

Function乘积(a,b)

乘积=a*b

Endfunction

解析:

用函数名调用这个功能,可以在VBA中调用,也可以像其它函数一样调用。括号内的参数可以有多个。

拓展:

系统函数:sqr(a)平方根

如要在VBA中使用工作表中的函数,用

Apication.worksheetfunction.公式名称()直接调用

括号中引用范围时,需要要用range等调用,不能用“A1”引用

过程分为子过程和函数

案例四:函数汇总()

代码:

(1)

Sub按钮5_Click()

Dimi,j,total

Dimw1AsWorksheet

Forj=2ToWorksheets.Count

Setw1=Worksheets(j)

i=2

total=0

DoWhilew1.Cells(i,2)

total=total+w1.Cells(i,2)

i=i+1

Loop

w1.Cells(2,3)=total

Nextj

EndSub

(2)

Sub按钮6_Click()

Call按钮5_Click

Dimi

Dimw1AsWorksheet,w2AsWorksheet

Setw2=Worksheets(1)

Fori=2ToWorksheets.Count

Setw1=Worksheets(i)

w2.C

您可能关注的文档

文档评论(0)

186****3372 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档