excel2007VBA教程

前言

1为什么要学VBA？

随着你的Excel水平不断的提高，以前你不会函数，现在会函数了，相信大家尝试到函数的甜头，可以批量操作一些数据，如，从文本里提取数字，按条件求和，自动生成工资条，考勤表，查询表，输入一个人的身份证号码，会自动填好“出生地”，“出生年月日”，“年龄”，“性别”等等，一谈起函数大家都会“不亦乐乎”。“津津乐道”，“和函数相见恨晚”，说实在话，我当时也是一种这样的心态，我学会的第一个函数if，当时高兴地睡不着觉。因为它可以判断“不及格，及格，良好，优秀”，感觉到这个函数太神奇了。对工作太有用了，于是我下定决心一定要把函数学好，当然中间也产生过“放弃”的念头。为什么呢？因为每一个函数的参数都是长长的，不认识的英文单词，然后又有一些朋友叫我查看Excel自带的“帮助”文件。极少一部分看“帮助”文件还是可以看懂的，大多数根本看“帮助”文件看不懂，发现自带的“帮助”是便于有一定基础的使用者查找和学习某个知识点，而对于新手来说，也像“侠客行”里的“石破天”看不懂石壁上的蝌蚪文，不能明白其意思。呵呵，一扯又扯远了，还是回到主题上来。当我们的函数学到了一定的水平时，可是，还是发现有一些问题不能解决。如果要解决用的函数特别复杂且很公式很长，有的根本用函数不能解决了。如一个单元格又有文字，又有数字，且数字出现的位置没有规律，且不只一次出现。要求把数字提取出来。又如提取工作薄里的各工作表名来制作目录。当然我们可以用函数实现，但是特别麻烦。又如，把多作工作簿汇总到一个工作簿里一个工作表时，方便我们汇总，现有的Excel功能无法批量操作，只能一个一个的，通过复制粘贴来完成。如果我们会VBA ，你又到了Ecel里的另一个天地了。开个玩笑，Excel VBA，就像“九阴真经”里的第九层，也就是说，你会了Excel的VBA，那么你就可以随心所欲驾驭Excel表格，别人要三天才能完成的报表，你只要半天，甚至更短的时间，这样大大可以提高你的工作效率，上班时，别人上班时忙来忙去，你倒是很轻松。

2VBA的作用（提高工作效率）

2.1完成Excel现有功能不能实现的功能

2.2使重复的工作不再重复

2.3自定义函数（方便不会用函数的朋友）

2.4实现“人机对话”（通过弹出一些窗体和对话框）

2.5自定义Excel选项卡（制作出适合自己的工作界面选项卡和功能）

2.6开发一些小程序（如“进销存”和一些小工具）

3学VBA的基础

3.1要有一点函数基础，和会Excel基础操作。建议学完办公高级班的学生和在职办公人员学习VBA

3.2学VBA需要很好的英文基础吗？

答案是否定，学习Excel里的VBA和英文基础没有什么必然联系，因为Excel里的VBA那些关键字什么的都是最基础的英语单词，只要你上过初中，大部分还都能认识，再者他们还都是固定的，你就是不认识，硬记下来也足够了，Excel里的VBA又不是让你用英语写文章，也不是让你通读英语文章！

目录

第一讲VBA介绍和VBE编辑环境 (1)

第二讲录制宏指定宏运行宏修改宏保存宏加载宏 (5)

第三讲 VBA 语法基础 (8)

第四讲单元格对象 (12)

第五讲 VBA语句 (15)

第六讲代码调试和错误处理 (20)

第七讲工作表对象 (23)

第八讲工作簿对象 (26)

第九讲事件 (27)

第十讲窗体与控件 (29)

第十一讲窗体与控件实例——开发隐藏工作表工具 (33)

第十二讲自定义函数 (36)

第十三讲 VBA数组基础（一） (38)

第十四讲VBA数组实例应用（二） (42)

第十五讲字典基础知识（一） (45)

第十六讲字典实例应用（二） (48)

第十七讲自定义右键菜单 (50)

第十八讲自定义选项卡 (51)

第一讲VBA介绍和VBE编辑环境

为什么要学VBA？

1提高工作效率，在我们Excel办公中，许多工作是重复的，我们可以通过录制宏把那些动作录制下来。下一次做时就不要重复做了，只要点一下一个按钮，就帮我们完成了。

2现有功能很难实现或者实现要分许多步骤且比较复杂，方便一些新手操作和普通用户操作。

3实现一些适合自己工作的一些特殊功能，因为每一个人，每一个行业存在的不同需求，而微软公司不能面面俱到，有时要通过我们自己用VBA来实现。

4可以定制个性化的选项卡和命令，实现方便自己工作的操作的窗口界面

5开发一些小程序

VBA介绍

6VBA是VB的一个分支，是一门简单易用的编程语言，说的通俗一点就是由一些代码和语句按照一定的逻辑组成，能实现一些功能和作用的代码

VBE窗口介绍

7VBA窗口

7.1.1用快捷键（Alt+F11），打开就可以看到（图 1）的界面，这个就是VBE窗口界面,和2003版本的

没有变化，还是一样的。

图 1

7.2图1的上面是菜单栏和工具栏，和平常的2003版本的Excel菜单栏和有工具栏一样，

7.3图1的左边是“工程资源管理器”和属性窗口

7.4图1的右下边是“立即窗口”

7.5立即窗口的作用，便于快速验证VBA语句，在立即窗口中输入msgbox "我在学习VBA" 然后按一下回

车键，就会弹出一个提示框。

7.5.1用双击“工程资源管理器”里的Sheet1(Sheet1),就可以看到如（图 2）所示的

就可以看到对象列标表和过程列标框，白色的区域那一块就是我们要写代码的区域。

图 2

8添加模块，窗体，类模块（打开VBE窗口是没有这个三个模块的，只有对象模块）

8.1插入菜单，模块（有的也叫做标准模块）

8.2插入菜单，类模块

8.3插入菜单，窗体

9删除模块，窗体，类模块

9.1如果想不要模块，窗体，类模块，把光标对准相应的模块右击，移除模块。

10对象浏览器窗口，视图菜单，对象浏览器（也可以按快捷F2）可以帮我们找到对象的属性，方法，事件的一些用法。

11设置VBE的编辑环境，为了便于自己编写和查看，调试代码，要对VBE编辑窗口一些设置进钩选，选择适合自己的的选项。如（图 3）

图 3

11.1字号大小：工具菜单——>>选项——>>编辑器格式——>>大小（S）——>>如（图 4），一般我们设置

为11磅

图 4

11.2自动弹出成员列表：自动弹出成员列这个功能对于初学者和老用户来说都是非常有用，因为我们刚学

的时候，特别是英文基础差一点的学生来说，可以给大家很大的帮助。举个例子，工具菜单，选项，编辑器，钩起“自动列出成员（L）”，然后在任何代码窗口中输入“Sheets加上一个点号”，就会弹出如（图 5）所以的成员列表，绿色图标的是方法，有一个手形的图标是属性

图 5

11.3要求声明变量：举个例子，工具菜单——>>选项——>>编辑器——>>钩起“要求变量声明（R）”，然后

新建一个标准模块，就会在新建标准模块的最顶端会自动添加Option Explicit然后在标准模块里输入，按F5执行代码，就会弹出（图 6）这样的提醒，如果我们把Option Explicit这一句删除，再按F5执行代码就不会弹出（图 6）这样的提醒

Sub test()

Set MyRg = Range("A1")

MsgBox MyRg

End Sub

图 6

11.4自动显示数据提示：举个例子，工具菜单，选项，编辑器，钩起“自动显示数据提示（S）”，然后新建

一个标准模块，输入以下代码

Sub test()

Set MyRg = Range("A1")

MsgBox MyRg

Set MyRg = Nothing

End Sub

主要是便于代码逐步或者设置断点调试，想知道变量的值时，这时把光标移到变量上，就会弹出一个提示如（图 7）所示

图 7

12运行过程，中断，重新设置，在工具栏上用方框框起来的三个按钮分别表为“运行子过程/用户窗体”；“中断”；

“重新设置”。如（图 8）

图 8

12.1运行过程分为全过程运行（快捷键F5）和逐步运行（快捷F8）

12.2重新设置，当逐步运行时，想取消逐步运行，按一下“重新设置”这个按钮。

13中断：相当于按了一下Esc，当一个过程运行进入了死循环，这时可以按一下Esc

第二讲录制宏指定宏运行宏修改宏保存宏加载宏

一、录制宏

1、显示“开发工具”选项卡方法：Office按钮——>>Excel选项——>>常用——>>在功能区显示“开发工

具”选项卡

2、录制在A1单元格输入“培训”这样一个宏

3、录制方法“开发工具”选项卡——>>代码组——>>录制宏——>>弹出一个“录制新宏”对话框——>>

输入宏名为“输入”——>> 确定——>> 选中A1单元格——>> 输入“培训”——>单击一下编辑栏的钩——>>停止录制

二、查看宏

1、方法一在上一节课我们已知知道了，相信大家没有忘记那个快捷键，如果忘记了，我就晕了。Alt+F11，

双击模块1——>>便可以看到刚才录制的代码

2、方法二“开发工具”选项卡——>>代码组——>>单击一下Visual Basic按钮——>>双击模块1——>>

看到以下代码

Sub 输入()

'

' 输入 Macro

'

'

Range("A1").Select

ActiveCell.FormulaR1C1 = "培训"

End Sub

三、指定宏

1、方法一“开发工具”选项卡——>>控件组——>>插入——>>表单控件——>>单击一下“按钮”——>>

按住左键不放，在工作表里拖拉一下——>>画完后，弹出一个对话框，指定宏——>>选中“输入”——>>确定

2、其它方法也可以把宏指定给其它对象，如“自选图形”里的圆，艺术字

A、打开比方，指定给艺术字的方法把光标定位到你要指定的艺术字——>>右击——>>指定宏——>>

弹出“指定宏”对话框——>>选中“输入”——>>确定

3、修改“按钮”的名字方法把光标定位到按钮上——>>右击——>>编辑文字——>>修改为“输入”

四、运行宏

1、方法一我们先删除A1单元格里的内容——>>单击一下“输入”按钮

2、方法二“开发工具”选项卡——>>代码组——>>单击一下“宏”按钮——>>选中“输入”——>>单击一

下“执行”

3、其它方法我们在上一节课讲过，在VBE编辑器里，把光标定位到你“输入”的宏过程任何一行代码里，

运行F5，逐步运行F8

五、修改宏

1、选中A1:D9单元格区域，录制一个给它添加边框的宏，录制的代码如下

Sub 添加边框()

'

' 添加边框 Macro

'

'

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

End Sub

2、修改后的代码

Sub 添加边框()

With Selection.Borders

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

End Sub

从上面的代码可以看出，录制宏会录制出许多多余的代码出来。因此要把它们去掉，绿色是注释也把删除，它是对上边框，下边框，左边框，右边框，中间横线，中间的竖线一个一个处理，因此用With Selection.Borders对所有的边框

六、保存宏

1、保存带有宏的工作簿（xlsm）如图10

A、当我们保存带有宏的工作簿时，会弹出一个这样的提示对话框如图9往往没有接触过宏的朋友会吓

一跳的，其实我们把下面这个图里的字读一次，就明白了，原来要保存为“启用宏工作簿”这个是2003

版有区别的，微软公司的目的就是让用户在未打开之前提醒用户这个是带有宏的工作簿

图 9

图 10

七、保存为加载宏（xlam）如图11

1、选择“Excel加载宏（*xlam）就会自动打开这个文件夹C:\Documents and

Settings\Administrator\Application Data\Microsoft\AddIns，然后输入你的加载宏名

图 11

2、加载宏的特点

A、隐藏的

B、一打Excel程序就会打开

3、加载“加载宏”

A、Office按钮——>>Excel选项——>>加载项——>>转到——>>加载项对话框——>>钩起“加载项名”

前面的钩——>>确定

4、删除加载宏

A、2007删除加载宏比较麻烦，2010版的就改良这个，2010版直接在开始工具选项卡，有一个“加载

项按钮”，那么2007怎么删除它呢？Office按钮——>>Excel选项——>>加载项——>>转到——>>加

载项对话框——>>去掉“加载项名”前面的钩——>>确定

八、保存为个人宏工作簿：在我们录制宏时，有时我们可以选中“保存为个人宏工作簿”，便可以在所有的工作簿

中用，不过有个缺点，会打开个人宏工作簿，所以建议大家用“加载宏”，保存“个人宏工作簿”是对VBA新手打造的。

第三讲 VBA 语法基础

在学习VBA之前，我们要了解VBA里的对象，属性，方法，事件，就像我们在生活中一样，和一个人谈恋爱，是不是要相互了解对方，才能步入结婚的礼堂。下面来一一介绍它们

一、对象

1)什么是对象呢？生活中的手机，电视机，桌子等等这些就是对象，而在我们的Excel里VBA 的对象是指

什么呢？这个可能抽象一点。工作簿，工作表，艺术字，图片这些就是Excel里的对象

2)实例

A.Workbooks 代表工作簿集合，所有的工作簿，Workbooks(i)，表示已打开的第i个工作簿

B.Workbooks ("汇总表") 代表“汇总”工作簿

C.ActiveWorkbook 当前正在操作的工作簿

D.ThisWorkBook 代码所在的工作簿

E.Sheets("汇总") 代表“汇总”工作表

F.Sheet1表示第一个插入的工作表，Sheet2表示第二个插入的工作表.......

G.Sheets(i) 表示按排列顺序，第i个工作表

H.ActiveSheet 表示当前活动工作表

I.Worksheet 也表示工作表，但不包括图表工作表、宏工作表等。

J.Cells 所有单元格

K.Range ("单元格地址")

L.Cells(行数,列数)

M.Activecell 当前选中的单元格

N.Selection 被选中的单元格或者单元格区域

二、属性

1)属性是指对象的特点，对象固有的，如图片就有图片高度，图片的宽度，单元格就有单元格的底纹，单

元格字体的颜色，这些就是它们的的属性，打个比方，生活的一些东西，如“苹果”，苹果的形状，苹果的颜色，苹果的重量，这些就是苹果的属性。

2)实例

A.显示单元格A1相对引用的地址，而这个Address就是单元格Range的属性

Sub test()

MsgBox Range("A1").Address(0, 0)

End Sub

B.代码解释属性中间一定要用点号分开，可能有的学生会问，怎么才有能知道它有那些属性呢？打个

比方，我现在想知道工作表有那些属性，我们可以先输入Sheet1再加一下点号，就会自动弹出其相

应的属性列表出来，就像我们的Excel2007版的函数一样，你输入一个字母，就会弹出以这个字母

开头所有函数出来，这样大家也就不用去记这些属性具体这个英文单词怎么写，只要大概了解知道

有个这样的属性就可以了

三、方法

1)方法是作用对象的一些动作，工作表删除，工作表移动，单元格复制，这些删除，移动，复制就是相应

对象的方法。打个比方，苹果被削了，削就是苹果的方法。

2)实例

A.在第一个工作表前面插入一个工作表

Sub test()

Sheets.Add before:=Sheets(1)

End Sub

B.代码解释 Sheets是指工作表类，也就是工作表对象，中间用一个点分开，Add就是方法了，然后再

输入一个空格，before是对Add方法的一个补充说明，格式一定要这样，输入了Before之后，再

输入一个冒号，接着输入一个等号，整个代码的意思，在第一个工作表前插入一个新的工作表。

四、事件

1)事件在Excel VBA里是指一定条件下，触发过程，如双击左键，右击，改变单元格内容，选择不同的单

元格就会触发一个过程就叫做事件，事件一般都是写在相应的工作表模块里

2)实例

A.双击就会弹出一个问候对话框

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

MsgBox "你好"

End Sub

B.代码解释：双击左键就会弹出一个问候对话框，Private Sub Worksheet_BeforeDoubleClick(ByVal

Target As Range, Cancel As Boolean这个是自动生成的，你到工作表模块里，如双击Sheet1模

块，通用列框里选择Worksheet，声明列表里选择BeforeDoubleClik，Msgbox是显示对话框函数。

五、变量

1)什么是变量变量是指在代码运行过程中其值能够发生变化的量，举个例子，Y＝2*X，这是一个方程，

当X＝1时，Y＝2，当X＝2时，Y＝4，当X＝3时，Y＝6，这个X就是一个变量

2)变量中不能使用的一些符号 # * % ！，用的最多的是 _

3)变量不区分大小写，也可以使用中文，但实际应用中很少用，我们用英文表示变量名一般也会采取一些

特点，如文本型的变量用Str ，这样让人一看就这个变量表示文本型数据类型String

4)为什么要声明变量

A.如果数据量不大，在Excel里VBA不声明变量也没有影响的，但是，如果数据量很大时，不声明，

程序的运行速度就会慢许多。

B.打个比方，你打了一个电话给公交车公司你要租一辆车，但是你没有说你要租一辆多少人坐的车，

那么出租车公司就会给你一坐100个人的车，而实际人你才要一个30人坐的车。大车的费用肯定比

小车的费用贵，这样你不划算啊，变量也是这样，你不声明，它就给存储空间最大的个数据类型给

你那不声明的变量。

C.再打个比方：小明的妈叫小明去菜市场去一斤打酱油，小明从家里拿了一个麻袋去，小明妈妈拉住

小明了，说麻袋不能装酱油，会漏掉，于是小明提了了一个大水缺，在路上，小明摔了一跤，酱油

也没有了，水缺也破了，小明真是陪了夫人又折兵，后来他妈妈告诉小明，下次你去打酱油就拿一

个装一斤矿泉水瓶子去就可以了。呵呵，相信听了这个故事肯定笑了。也明白了为什么要声明定义

变量。

5)变量声明方式

A.格式一 Dim 变量名 as 数据类型

Dim i as Integer

B.格式二 dim 变量名 as 数据类型，变量名 as 数据类型记得用用逗号分开

Dim I as Integer，Rg as Range，Str as String

6)强制声明

A.变明使用前声明是一个好习惯，但我们会忘记，怎么办呢

B.方法一 Alt+F11——>>工具菜单——>>选项——>>编辑器选项卡中——>>钩起“要求变量声明”复

选框如图 12

图 12

C.方法二在代码模块顶端输入 Option Explicit

7)声明变量的一种简写形式

A.我们经常会看这样的一种定义变量的格式 Dim I% ，大家会问，这个是什么意思呢？，把变量I数

据类型定义为整型。常见的有整型Integer用% 长整型Long用& 字符串String用$ 单精度浮点型Single用! 双精度浮点型Double用#

8)变量的作用域

变量的生命周期，也就是变量什么时候销毁，释放内存，因为变量只是暂时的存在内存中的，根据这样把变量分为过程级变量，模块级变量，全局性变量，静态变量

A.过程变量：定义变量是写在过程中的，其作用是在过程运行中，当过程结束变量也就销毁了。

1.实例

Sub test()

Dim i As String

i = "佛山小老鼠"

MsgBox i

End Sub

B.模块级变量：定义变量写在模块的顶端，在此模块中可以调用此变量，其值还是存在，别的模块就

不行了

1.实例

Dim Str As String

Sub test1()

Str = "小老鼠"

MsgBox Str

Str = "佛山" & Str

End Sub

Sub test2()

MsgBox Str

Str = ""

End Sub

代码解释先运行Test1，然后运行Test2，大家可以看到对话框显示“佛山小老鼠”，也就是说运行过程Test2时，把过程Test1里的小老鼠也继承下来了。

C.全局性变量也是定义变量写在模块的顶端，不过就不是用Dim来定义了，要用Public，这个变量

就在所有的模块都可以调用，也就是这个变量值一直存在，直到把Excel程序关闭，变量值才会销毁。

1.实例

先插入两个模块，在模块1中输入以下代码

Public Str As String

Sub test1()

Str = "佛山小老鼠"

MsgBox Str

End Sub

在模块2中输入以下代码

Sub test2()

MsgBox Str

End Sub

然后先运行模块1中的代码，然后再运行模块2中的代码，大家就会发现对话框中显示了“佛山小老鼠”，相信大家都明白了这个道量，另外全局性变量不能重复定义，重复定义就会报错。

9)静态变量

静态变量定义静态变量是在写在过程中，用Static定义，结束后，变量值仍旧保留，但是大家要用和模级变量区分，模块级变量是值作用于此模块所有过程，而静态变量只值只作用于本过程，不作有于其它过程。

A.实例

Sub Test1()

Static i As Integer

MsgBox i

i = i + 1

End Sub

Sub Test2()

MsgBox i

End Sub

代码解释：先运行Test1过程，显示i为0，再运行Test1过程为1，再运行Test1过程为2，再运行Test1过程为3，我们发现每运行一次结果会加1，因为我们有一个累加变量 i=i+1,其值还是保留，但当我们再行Test2时，可是那个i还是0，说明静态变量只作用于Test1，而不作用于Test2

六、常量

1)常用申明用关键字Const，其值在过程运行中不会发现变化

2)常量作用域

A.和变量一样

B.实例计算圆面积

Sub test1() '过程开始

Dim S As Single '定义变量S为单精变浮点型，目的让其有保留二位小数，如果你定义Integer就没有小数点位数了

Const Pai = 3.14 '定义常量Pai

r = 2 '给r赋值为2

S = Pai * r ^ 2 '计算圆的面积公式

MsgBox "算出的圆的面积为：" & S '显示圆面积结果

End Sub

C.代码截图如图 13

图 13

第四讲单元格对象

单元格和单元格区域是用户操作最多的一个对象，它可以表示一行，一列，一个区域，整个工作表，关键大家要理解它的引用方式

一、单元格的引用方式

1)Range表示

A.如表示A1单元格 Range ("A1")

B.实例

Sub Range表示()

Range("A1") = "佛山小老鼠"

End Sub

2)Cells表示

A.如表示D3单元格 Cells(3,4)

B.实例

Sub Cells表示()

Cells(3, 4) = "佛山小老鼠"

End Sub

3)Activecell表示

A.实例

Sub ActiveCell表示()

ActiveCell = "佛山小老鼠"

End Sub

二、单元格区域的引用方式

A.实例“表示单元格区域A1到D9的区域，有下面几种表法方法

Sub test1()

Range("A1:D9") = 1

End Sub

Sub test2()

Range("A1", "D9") = 3

End Sub

Sub test3()

Range(Cells(1, 1), Cells(9, 4)) = 5

End Sub

Sub test4()

Range([A1], [D9]) = 6

End Sub

B.其它方式引用单元格区域

1.Selection

https://www.360docs.net/doc/c94130688.html,edRange

3.CurrentRegion

4.Union

5.Intersect

6.Resize

它们的代码用法如下

Sub test1()

Range("A1:D9") = 1

End Sub

Sub test2()

Range("A1", "D9") = 3

End Sub

Sub test3()

Range(Cells(1, 1), Cells(9, 4)) = 5

End Sub

Sub test4()

Range([A1], [D9]) = 6

End Sub

Sub test5()

Selection = 7

End Sub

Sub test6()

https://www.360docs.net/doc/c94130688.html,edRange = 8 '注意一定要在UsedRange前加父对象

End Sub

Sub test7()

Range("A1").CurrentRegion.Select '表示选中和A1单元格相连接的所有单元格，这个连接是

指有数据的连接

End Sub

Sub test8()

Application.Union([A1], [C1], [E1], [G1]).Select '表示同时选中A1，C1，E1，G1单元格

End Sub

Sub test9()

' Intersect方法经常用到了，有时可能用户选择了整列，而这一列有数据的单元格不多，代码里

用

'了循环语句，如果不用Intersect这个来选择区域，运行程序时可能就出现Excel程序卡死

Application.Intersect(https://www.360docs.net/doc/c94130688.html,edRange, Selection).Select

End Sub

Sub test10()

'Resize属性常用在数组转置，有时不确定区域有多大，就会用Resize来填充数据

'格式：单元格对象.Resize(行数，列数）

Range("D1").Resize(9, 2).Select '表示从D1单元格开始，向下总共有9行，当然包括D1在内，

'向右总共二列，当然也包括D列在内，最后得列一个D1到E9的一个区域

End Sub

三、行和列的引用方式

1)用Range来表示行和列

Sub test1()

Range("1:1").Select '表示第一行被选中

End Sub

Sub test2()

Range("5:9").Select '表示第5行到第9行被选中

End Sub

Sub test3()

Range("A:D").Select '表示A列到D列被选中

End Sub

Sub test7()

Range("D9").EntireRow.Select '表示D9单元格所在的行，也就是第9行

End Sub

Sub test8()

Range("D9").EntireColumn.Select '表示D9单元格所在的列，也就是第4列

End Sub

2)用Rows和Columns表示行和列

Sub test4()

Rows("1").Select '可以不加双引号，也可以加双引号

End Sub

Sub test5()

Rows("1:4").Select '表示1行到4行被选中，记得要加双引号

End Sub

Sub test6()

Dim i As Integer

i = 9

Rows("1:" & i).Select '表示1行到9行被选中

End Sub

Sub test9()

Rows.Select '表示工作表中所有的行被选中，也就是全选工作表

End Sub

Sub test10()

Columns.Select '表示工作表中所有的列被选中，也就是全选工作表

End Sub

四、用Offset属性来引用单元格

1)单元格对象.Offset(偏移行数，偏移列数)，备注：往左往上就是负数，往右往下就是正数

2)实例

Sub test()

Range("A1").Offset(0, 1).Select '单元格B1被选中

End Sub

五、定位单元格

1)定位到A列最后一个有数据的单元格

Sub MyRow()

i = Cells(Rows.Count, 1).End(xlUp).Row

MsgBox i

End Sub

2)定位到第一行最后一个有数据的单元格

Sub MyCol()

i = Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox i

End Sub

第五讲 VBA语句

前面一讲我们学习了单元格的引用，这一讲我们来学习VBA里的语句，VBA里的语句有好多，下面把一些常用的讲一下

一、输入语句

1)用Inputbox函数实现

A.Inputbox函数有七个参数，主要我们理解前面三个参数，第一个参数是“提示语”第二参数是标题，

第三参数是输入框中的默认值

B.实例

Sub test1() '这个程序有时会报错

Dim i As Single, S As Single

r = InputBox("请输入圆的半径", "圆半径", "空")

S = 3.14 * r ^ 2

MsgBox "圆的面积是:" & S

End Sub

Sub test2() '这个程序是完善的，不会报错

Dim i As Single, S As Single

r = InputBox("请输入圆的半径", "圆半径", 0)

If r = "" Or StrPtr(r) = 0 Then Exit Sub

S = 3.14 * r ^ 2

MsgBox "圆的面积是:" & S

End Sub

2)用InputBox方法实现

A.InputBox方法有8个参数，主要我们理解前三个参数和最后一个参数，第一个参数是“提示语，第

二参数是标题，第三参数是输入框中的默认值，第八参数是指返回的数据类型

B.实例

'用InputBox方法实现

Sub test3() '这个程序是完善的，不会报错

Dim i As Single, S As Single '定义变量i,S为单精度型数据类型

r = InputBox("请输入圆的半径", "圆半径") '弹出输入对话框

If TypeName(r) = "Boolean" Or r = "" Then Exit Sub

'如果对话框点了取消或者点了关闭以及没有填数据就退出程序，

S = 3.14 * r ^ 2 '面积公式

MsgBox "圆的面积是:" & S

End Sub

Sub test4() '这个程序有时会报错

Set rg = Application.InputBox("请选择你要查找的区域", "查找区域", Type:=8)

rg.Value = "老鼠"

End Sub

Sub test5() '这个程序是完善的，不会报错，如果第八参数为8，那么用 On Error GoTo 100来防错了 Dim rg As Range '定义rg为单元格对象变量

On Error GoTo 100 '如果遇到错误，就跳到100那一行

Set rg = Application.InputBox("请选择你要查找的区域", "查找区域", Type:=8)

' 把选中的区域赋值给rg

rg.Value = "老鼠" '给rg赋值为小老鼠

100:

End Sub

二、输出语句

1)用函数Msgbox实现

A.函数Msgbox有五个参数，主要理解第一个参数是“提示”，第二参数是“对话框的图标和按钮的数

目和形式”，且用数字代替时，那些数字是可以相加了，第三参数是对话框的标题

B.第二参数对照表

常数值描述

vbOKOnly0 只显示OK按钮。

VbOKCancel 1 显示OK及Cancel按钮。

VbAbortRetryIgnore 2 显示Abort、Retry及Ignore按钮。

VbYesNoCancel 3 显示Yes、No及Cancel按钮。

VbYesNo 4 显示Yes及No按钮。

VbRetryCancel 5 显示Retry及Cancel按钮。

VbCritical16 显示 Critical Message图标。

VbQuestion32 显示Warning Query图标。

VbExclamation48 显示Warning Message图标。

VbInformation64 显示Information Message图标。

C.实例

Sub test1()

MsgBox "你好", 64, "问候"

End Sub

Sub test2()

MsgBox "你好", 64 + 4, "问候" '为什么加4呢、看一下第二参数的对照表就明白了，因为

要两个按钮

End Sub

Sub test3()

ant = MsgBox("你去过学校吗？", 64 + 4, "问候")

If ant = vbYes Then

MsgBox "我去过了"

Else

MsgBox "天下雨，我没有去"

End If

End Sub

三、With 语句

With语句的作用是精简代码，提高运行速度，如果我们多次读取对象影响运行的速度的。

1)实例

Sub test()

With Range("A1") '对A1单元格进行处理

.Font.ColorIndex = 3 '字体颜色为红色

.Interior.ColorIndex = 5 '底纹为蓝色

.Font.Size = 48 '字号为48

https://www.360docs.net/doc/c94130688.html, = "华文行楷" '字体为华文行楷"

End With '结束处理

End Sub

Sub test1()

Range("A1").ClearFormats '清除A1格式

End Sub

四、条件判断语句

条件判断语句在编写代码用的比较多，主要有

1)if…then

Sub test1()

If Range("F1") = "" Then MsgBox "F1单元格没有填好数据", 64, "温馨提示"

End Sub

2)if…then…end if

Sub test2()

If Range("F1") = "" Then

MsgBox "F1单元格没有填好数据", 64, "温馨提示"

End If

End Sub

3)if…then…else…end if

Sub test3()

If Range("F1") = "" Then

MsgBox "F1单元格没有填好数据", 64, "温馨提示"

Else

MsgBox "F1单元格的数据是：" & Range("F1").Value

End If

End Sub

4)if…then…elseif…then…else…end if

Sub test4() '只能判断一个

If Range("C3") < 60 Then '如果C3单元格小于60，那么

Range("D3") = "不及格" 'D3单元格显示不及格

ElseIf Range("C3") < 70 Then '又如果C3单元格小于70，那么

Range("D3") = "及格" 'D3单元格显示及格

ElseIf Range("C3") < 80 Then '又如果C3单元格小于80，那么

Range("D3") = "良好" 'D3单元格显示良好

Else '否则

Range("D3") = "优秀" 'D3单元格显示优秀

End If

End Sub

5)select case…case…end select