excel vba教程

Excel的VBA中Intersect方法的用法教程

一、概念

Intersect方法是Visual Basic for Applications（VBA）中的一个方法，它用于确定两个或多个范围（Range）对象之间的交集。这个方法返回一个Range对象，该对象代表两个或多个给定范围的共享部分。

二、功能

Intersect方法的主要功能是确定两个或多个范围对象之间的共享部分。当你有两个或多个范围，并且想要找到它们的交集时，可以使用该方法。它对于处理Excel工作表中的不同区域非常有用，特别是在需要找到重叠区域的情况下。

三、语法

Intersect方法的语法如下：

Intersect(Range1, Range2)

其中，Range1和Range2是要比较的两个范围对象。这个方法返回一个Range对象，代表Range1和Range2之间的交集。如果Range1和Range2没有交集，则返回一个Nothing对象。

四、案例

下面是一个使用Intersect方法的简单示例：

Sub IntersectExample()

Dim rng1 As Range

Dim rng2 As Range

Dim intsectRange As Range

'定义两个范围

Set rng1 = Worksheets("Sheet1").Range("A1:B5") Set rng2 = Worksheets("Sheet1").Range("B3:C7")

'使用Intersect方法找到两个范围的交集

Set intsectRange = Intersect(rng1, rng2)

'检查是否找到交集

If Not intsectRange Is Nothing Then

'打印交集的地址

Excel中vba教程——设置⾏⾼实例

在excel⼯作表中对单元格进⾏⾏⾼设置操作，⼀般情况下，都是通过点击菜单：格式——⾏——⾏⾼，然后进⾏设置。

为了让⼤家逐渐熟悉Excel中vba基础知识，我们通过⼀系列的实例来加以介绍。

⾸先运⾏excel，新建⼀⼯作表，输⼊如下数据，详见下图：

输⼊完数据后，进⾏按钮的录⼊和VBA代码编写部分。

第⼀，依次单击菜单：视图——⼯具栏——窗体，调出窗体⼯具栏。

第⼆，单击窗体⼯具栏中的按钮，⿏标成为⼗字形状，然后在⼯作界⾯拖动⼀矩形框，松开⿏标，完成按钮的录⼊。

第三，松开⿏标后，会弹出“指定宏”对话框，单击其中的“新建”，出现Visual Basic代码编写界⾯。

第四，全选代码界⾯现有的代码，删除，并将下⾯⼀段代码复制进去：Sub 设置⾏⾼()

Dim h As Long, r As Long, i As Integer, n As Integer

Dim ws1 As Worksheet

h = Application.InputBox(prompt:="请输⼊所选⾏的⾼度：", _

Title:="输⼊⾏⾼", Type:=1)

Set ws1 = ActiveSheet

n = Selection.Rows.Count

r = ActiveCell.Row

For i = 1 To n

ws1.Rows(r + i - 1).RowHeight = h

Next

Set ws1 = Nothing

End Sub

第五，单击保存，关闭Visual Basic代码编写界⾯，并右击该按钮，选中按钮上的⽂字，重命名为：设置⾏⾼。

第六，参考1-5步的操作，在页⾯新建另外⼀个按钮，并重命名为：⾃动设置⾏⾼。该按钮的代码为：Sub ⾃动调整⾏⾼()

Selection.Rows.AutoFit

End Sub

第七，完成上⾯的操作，最后的界⾯就如上图所⽰的⼀样了。然后，当我们点击⼯作表中的“设置⾏⾼”按钮，就会弹出“输⼊⾏⾼”对话

目录单元格的引用方法..........................................................................................................................2选定单元格区域的方法..................................................................................................................9获得指定行、列中的最后一个非空单元格.................................................................................12定位单元格....................................................................................................................................14查找单元格....................................................................................................................................16替换单元格内字符串....................................................................................................................22复制单元格区域............................................................................................................................23仅复制数值到另一区域................................................................................................................27单元格自动进入编辑状态............................................................................................................28禁用单元格拖放功能....................................................................................................................29单元格格式操作............................................................................................................................30单元格中的数据有效性................................................................................................................37单元格中的公式............................................................................................................................43单元格中的批注............................................................................................................................49合并单元格操作............................................................................................................................51高亮显示单元格区域....................................................................................................................58双击被保护单元格时不显示提示消息框.....................................................................................60重新计算工作表指定区域............................................................................................................62输入数据后单元格自动保护........................................................................................................63工作表事件Target参数的使用方法............................................................................................64

VBA教程

1.1 VBA是什么

直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习 一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是"寄生于"VB应用程序的版本.VBA和VB的区别包括如下几个方面:

1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化

2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.

3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的"父"应用程序,例如EXCEL.

尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非常快.相应的,学完VBA会给学习 VB打下坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用VBA创建解决方案的大部分知识.

* VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化.

* VBA可以称作EXCEL的"遥控器".

VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.

此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序.

1.2 EXCEL环境中基于应用程序自动化的优点

也许你想知道VBA可以干什么?使用VBA可以实现的功能包括: