EXCEL宏的使用解读.doc

《EXCEL宏的使用解读.doc》由会员分享，可在线阅读，更多相关《EXCEL宏的使用解读.doc（16页珍藏版）》请在三一办公上搜索。

1、EXCEL宏的使用 一、选中单个单元格 Range(“).Select 例：Range(C9).Select选中“C9”单元格 二、选中多个单元格 Range(“:,”).Select 例：Range(“A1:B2”).Select选中“A1”、“A2”、“B1”、“B2”四个连续的单元格 Range(“12:12”).Select选中第12行 Range(“B:B”).Select选中第B列 Range(“A1:A2,B7,2:2”).Select选中“A1”、“A2”、“B7”五个不连续的单元格和第二行 Cells.Select选中当前SHEET中的所有单元格 Rows(:).Select

2、选中整行 Columns(:).Select选中整列 例：Rows(“2:2”). Select选中第2行 Rows(“2:5”). Select选中2到5行 Columns(A:A).Select选中A列 Columns(E:B).Select选中E到B列 三、设置活动单元格 Range().Activate 注：设置活动单元格与选中单元格类似，不同之处就是后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格，如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。 四、给活动的单元格赋值 ActiveCell.FormulaR

3、1C1 = 例：Range(A1).Select ActiveCell.FormulaR1C1 = Name Range(B1).Select ActiveCell.FormulaR1C1 = Age Range(A2:B3).Select Range(A2).Activate ActiveCell.FormulaR1C1 = BUG Range(B2).Activate ActiveCell.FormulaR1C1 = 12 Range(A3).Activate ActiveCell.FormulaR1C1 = Archer Range(B3).Activate ActiveCell.For

4、mulaR1C1 = 37 五、得到指定单元格中的值 Range().Text 六、插入单元格 Selection.Insert Shift:= Selection.EntireRow.Insert Selection.EntireColumn.Insert 例：Selection.Insert Shift:=xlToRight在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动 Selection.Insert Shift:=xlDown在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动 Selection.EntireRow.Insert在当前选中单元格的上面插入一行 S

5、election.EntireColumn.Insert在当前选中单元格的左侧插入一列 七、设置字体属性 1.设置字体名称和大小 Selection.Font.Name = Selection.Font.Size = 例：Selection.Font.Name = 隶书 Selection.Font.Size = 15 2. 设置字体样式 Selection.Font.Bold = 加粗 Selection.Font.Italic = 斜体 Selection.Font.Underline = 下划线 XlUnderlineStyle(下划线样式): xlUnderlineStyleDoubl

6、e双下划线 xlUnderlineStyleDoubleAccounting会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度） xlUnderlineStyleNone没有下划线 xlUnderlineStyleSingle单下划线 xlUnderlineStyleSingleAccounting会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度） 3. 设置字体的颜色 Selection.Font.ColorIndex = Selection.Font.Color = 4. 设置字体的特殊效果 Selection.Font.Strik

7、ethrough = 删除线 Selection.Font.Superscript = 上标 Selection.Font.Subscript = 下标 八、清空选中单元格里的内容 Selection.ClearContents 例：Range(“A1:A2,B7,2:2”).Select选中“A1”、“A2”、“B7”五个不连续的单元格和第二行 Selection.ClearContents清空“A1”、“A2”、“B7”五个不连续单元格中的所有内容 九、设置选中单元格的边线属性 XlBordersIndex(边线): xlEdgeLeft单元格左边线 xlEdgeTop单元格上边线 xlE

8、dgeRight单元格右边线 xlEdgeBottom单元格下边线 xlDiagonalDown单元格左上右下斜线 xlDiagonalUp单元格左上右下斜线 xlInsideVertical多个单元格内垂直线 xlInsideHorizontal多个单元格内水平线 1.设置边线的类型 Selection.Borders().LineStyle = XlLineStyle(边线类型): xlLineStyleNone无样式 xlContinuous单线 xlDash破折号线(间隔线) xlDashDot破折号 点线 xlDashDotDot破折号 点 点线 xlDot点线 xlDouble双横

9、线 xlSlantDashDot斜点线 2. 设置边线的宽度 Selection.Borders().Weight = XlBorderWeight(宽度值): xlHairline极细 xlThin细 xlMedium中等 xlThick粗 3. 设置边线的颜色 Selection.Borders(xlEdgeLeft).ColorIndex = Selection.Borders(xlEdgeLeft).Color = 十、删除选中的单元格 Selection.Delete Selection.EntireRow.Delete Selection.EntireColumn.Delete 例

10、：Selection.Delete Shift:=xlToLeft删除选中的单元格,并将已删除单元格所在位置右面的单元格向左移动 Selection.Delete Shift:=xlUp删除选中的单元格,并将已删除单元格所在位置下面的单元格向上移动 Selection.EntireRow.Delete删除选中单元格所在的行 Selection.EntireColumn.Delete删除选中单元格所在的列 十一、设置单元格背景色及图案 1.背景色 Selection.Interior.ColorIndex = Selection.Interior.Color = 2. 图案样式 Selectio

11、n.Interior.Pattern = Constants(图案样式): xlSolid实心 xlGray7575% 灰色 xlGray5050% 灰色 xlGray2525% 灰色 xlGray1612.5% 灰色 xlGray86.25% 灰色 xlHorizontal水平 条纹 xlVertical垂直 条纹 xlDown逆对角线 条纹 xlUp对角线 条纹 xlChecker对角线 剖面线 xlSemiGray75粗 对角线 剖面线 xlLightHorizontal细 水平 条纹 xlLightVertical细 垂直 条纹 xlLightDown细 逆对角线 条纹 xlLight

12、Up细 对角线 条纹 xlGrid细 水平 剖面线 xlCrissCross细 对角线 剖面线 3. 图案颜色 Selection.Interior.PatternColorIndex = Selection.Interior.PatternColor = 十二、返回工作表中的行数 Sheet1.UsedRange.Rows.Count返回从最小已输入内容的行号到最大已输入内容的行号之间的行数 Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row最大已输入内容的行号 十三、得到当前EXCEL的文件名 ThisWorkbook.Path文件

13、路径 ThisWorkbook.Name文件名 ThisWorkbook.FullName全路径 十四、批注的操作 1.添加批注 AddComment(Content) 例：Range(A1).AddComment (Writes the content in here!) 2. 修改批注内容 Comment.Text 例：Range(B1).Comment.Text Text:= Writes the content in here! 3. 显示/隐藏批注 Comment.Visible = 4. 删除批注 ClearComments 例：Selection.Range(B1).ClearC

14、omments 5. 选中批注 Comment.Shape.Select True 例：Range(D8).Comment.Shape.Select True 6. 改变批注大小和位置 Selection.ShapeRange.ScaleWidth , msoFalse, Selection.ShapeRange.ScaleHeight , msoFalse, 例：Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft每次增加5%的宽度 Selection.ShapeRange.ScaleHeight 0.6, ms

15、oFalse, msoScaleFromTopLeft每次减少6%的宽度 Selection.ShapeRange.Left = Selection.ShapeRange.Top = Selection.ShapeRange.Width = Selection.ShapeRange.Height = 十五、剪切、复制、粘贴 Selection.Cut剪切 Selection.Copy复制 ActiveSheet.Paste粘贴 例：Range(A1).SelectSelection.CutRange(A2).SelectActiveSheet.PasteSelection.CopyRange(

16、A3).SelectActiveSheet.Paste 十六、选择性粘贴 Selection.PasteSpecial 十七、改变列宽 Selection.ColumnWidth = 指定列宽 例：Columns(A:A).Select Selection.ColumnWidth = 30改变已选列的宽度 EntireColumn.AutoFit自动改变列宽 例：Columns(C:C).EntireColumn.AutoFit根据C列的内容自动改变列的宽度 对于什么是宏有许多种解释，总的来说宏是使任务自动化包括在Sub和End Sub之间的一组指令的集合，Excel97的宏就是贮存在 Vis

17、ual Basic 模块中的VBA程序。只有充分使用宏，才能深入理解Excel97数据管理各个方面的精妙之处。在Excel97应用中怎样使用宏呢？根据平常实际应用经验，我从以下三个方面谈一点心得。 一、建立宏 直接建立宏有两种途径： 使用Excel97提供的宏记录器建立宏 运用宏记录器记录宏基本可分为三个步骤，第一步：启动宏记录器。从Excel97工具菜单中选取“宏”，然后选中“录制新宏”选项，从弹出的“录制新宏”窗口中，用户可以为即将录制的宏定义一个便于识别的名字和快捷键，并确定宏的保存地址，其中宏名为必选项，若用户未定义宏名，宏记录器将自动为所录制的宏定义一个默认的名字，快捷键和保存地址由

18、用户根据需要自由设定，宏记录器默认用户所录制的宏保存在当前工作簿。第二步：执行希望录制的动作。这是使用宏记录器建立宏的关键，因为在这个步骤中，用户每一个完成的动作都将被宏记录器所录制，所以，为了使宏达到简捷、实用的目的，用户的动作一定要精炼、准确，尽可能地用最少的动作完成预定的任务。第三步：停止记录。 Excel97的宏记录器具有一定的智能判断能力，只记录已完成的动作，不会记录用户选择错误或修改错误的过程。例如，它不会记录打开对话框的菜单命令，直到单击了对话框上的“确定”为止，若用户打开对话框后选择了“取消”，宏记录器则不会录制该动作。在录制宏的过程中，用户不能离开Excel97的工作环境，否

19、则，用户的动作将不能被记录。 举一个简单的例子：在Excel97中打开一个名为“通讯录.dbf”的数据库文件，运用宏记录器建立一个名为“打开数据库”的宏，具体操作为： 进入Excel97，新建一个工作簿； 将工作簿命名为“打印通讯录”（若准备在工作簿中使用宏应养成为新建工作簿命名的操作习惯）； 启动宏记录器，并定义宏名为“打开数据库”； 运用Excel97的打开文件向导打开数据库文件“通讯录.dbf”； 在工具菜单的“宏”选项下选择“停止记录”，或单击“停止录制”按钮。 通过上面的操作并稍加调整得到的宏代码为： Sub 打开数据库() Workbooks.Open FileName:=通讯录.

20、dbf End Sub 在文件名前可以包含详细路径，这是由打开文件时选择路径的动作所决定的。 使用Visual Basic编辑器建立宏 Excel97的Visual Basic编辑器的功能十分强大，它不仅可以建立宏，还可以建立用户自定义函数、用户自定义窗体和过程。从工具菜单的“宏”选项下选择“Visual Basic编辑器”即可进入编辑窗口，在通过编辑器建立宏的过程中，可以使用拷贝、复制、粘贴、删除、插入、查找、替换、缩进、凸出等所有的文本编辑功能，同时编辑器还提供了自动语法检测和提示功能，所以，即使从未涉及宏语言Visual Basic for Application的用户，也能够在很短的时

21、间内掌握并熟练使用Visual Basic编辑器。 使用Visual Basic编辑器建立宏基本也可以分为三个步骤，即插入模块、编写宏代码、关闭编辑器并返回Excel97。例如，要将打开的数据库文件“通讯录.dbf”中的记录运用表格的方式打印出来，建立一个名为“打印通讯录”的宏，可以分为以下步骤： 根据数据库的字段建立打印页面。在本例中数据库文件“通讯录.dbf”有六个字段：序号、联系人、联系地址、联系电话、邮政编码、备注，其中序号是第一个字段，也是数据库记录的唯一标识，数据库记录按序号值进行升序排列，文件打开后，序号值存放在Excel97工作表的第A列中。 将打印页面工作表命名为“通讯录打印

22、页面”，并根据页面大小确定每页打印的记录数量（在此设为30）。 分析宏运行过程中应注意的要点。在此例中首先应判断数据记录的个数，以确定需要打印的页数；其次，在打印之前应选择对应的数据填入打印页面；第三，在连续打印的过程中程序应给予适当的提示，允许用户整理打印机或中途退出打印过程。 进入Visual Basic编辑器，插入模块，编写宏代码。在编写宏代码的过程中可以在代码中加注，以增加宏代码的可读性。根据以上分析，完成通讯录打印过程的宏代码如下： Sub 打印通讯录() Dim Value, no1, no2, 页数 As Integer Dim sss, sss1, sss2, sss3 As

23、String Dim qqq As Range Windows(通讯录.dbf).Activate 计算A列中值大于0的单元格个数，即记录个数 no1 = 2 在通讯录.dbf中第一行为字段标题，计数从第二行开始 Do While no1 0 sss = a & no1 Value = Range(sss) If Value 0 Then no1 = no1 + 1 Else Exit Do End If Loop sss = Str(no1 - 2) no1的初始值为2,故no1-2为数据库的记录数 记录数除以每页的记录容量即页数 If (no1 - 2) / 30 = Int(no1 -

24、2) / 30) Then 页数 = (no1 - 2) / 30 Else 页数 = Int(no1 - 2) / 30) + 1 End If sss1 = Str(页数) no2 = 1 Do While no2 0 Windows(通讯录.dbf).Activate 由于数据库有6个字段，故第1列至第6列为数据区域 Set qqq = Range(Cells(no2 - 1) * 30 + 2, 1), Cells(no2 * 30 + 1, 6) qqq.Copy Windows(打印通讯录.xls).Activate Sheets(通讯录打印页面).Select Range(A4)

25、.Select 选定打印页面数据区域的左上角 将相应数据选择性粘贴到打印页面中 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False sss2 = Str(no2) sss3 = 数据库中共有 + sss + 条记录，共 + sss1 + 页，目前表中为第 _ + sss2 + 页数据，打印吗？ www = MsgBox(sss3, 68, 提示) 当从提示框中选择“否”时用户可中途退出打印过程 If www = vbNo Then Exit Do El

26、se ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, _ Copies:=1, Collate:=True End If no2 = no2 + 1 Loop End Sub 程序执行结果如图所示。 实际上任何文本编辑软件都可以编写宏代码，只是必须将所编写的宏代码粘贴到Excel97的宏模块中才能运行。 以上两种建立宏的方法各有优劣，使用宏记录器建立宏简单、方便，所见即所得，可以省略输入宏代码的过程，基本不用了解宏语言的语法和结构，但不够灵活，不够简捷，所以，运用范围受到限制；使用编辑器建立宏则对用户层次要求较高，要求用户能够熟练使用宏

27、语言Visual Basic for Application，运用这种方法建立宏不仅可以处理复杂的运算过程，同时可以极大地发挥Excel97的各项功能。因此，在实际应用中，应将两种方式结合运用，发挥其各自的长处，才能做到事半功倍。 二、 优化宏 宏建立以后需要经过调试和优化方可运用。宏的调试主要是找出语法上的缺陷，在建立宏的同时可以一并完成，而优化则需要相当长的过程，甚至在程序已经投入使用后还需要不断优化。宏的优化大致可从以下几个方面着手： 消除冗余，提高宏代码的运行效率。 消除冗余是所有程序开发人员应该遵循的一般准则。针对Excel97应用而言，建立宏应充分运用Excel97本身强大的数据处

28、理功能，将某些数据计算的工作交给工作表或单元格去完成，这样可以在很大程度上减少宏代码的数量，缩短程序的开发周期。另外，在处理相同任务的时候，Excel97本身的公式或函数的计算速度也远远高于宏代码的执行速度，这一点在用户所开发的程序很大或计算机的运算速度较低时尤为明显。 最大限度地提高宏代码的执行速度。 Excel97本身没有提高宏代码执行速度的命令，根据笔者的实践体会，要提高宏代码的执行速度大致可从三个方面考虑： 消除屏幕闪烁现象。 在宏的执行过程中，特别是宏在不同工作簿或工作表之间反复调用数据的时候，会出现屏幕闪烁的现象。如上例“打印通讯录”宏在“通讯录.dbf”和“打印通讯录.xls”之

29、间来回切换，屏幕的闪烁大大影响了宏代码的执行速度。在编写宏代码的时候，加入关闭屏幕更新命令，可以有效地防止屏幕闪烁。例如我们可将“打印通讯录”宏作如下修改： Sub 打印通讯录() Application.ScreenUpdating = False Application.ScreenUpdating = True End Sub 这样将看不到宏的执行过程，但宏的执行速度加快了。值得注意的是：Excel97对屏幕更新的默认值是True，所以在宏执行结束时需要恢复屏幕更新的默认设置。 另外，在同一工作表中的不同区域进行数据处理时也会出现屏幕闪烁现象，这时只需从窗口菜单中选择“冻结拆分窗口”，通

30、过调整行高和列宽将拆分窗口大小调整为计算机屏幕大小后，在执行宏的过程中即可消除屏幕闪烁现象。 尽量少占用计算机内存。 首先，在程序中应少使用剪贴板，因为在剪贴板上放置数据会大量占用计算机的内存，从而降低机器的性能，影响代码的执行速度。 第二，在编写宏代码时应养成事先声明变量的习惯。因为，在程序中使用变量而不事先声明，Excel97会默认变量类型为Variant ，Variant是一种特殊的数据类型，除了定长 String 数据及用户定义类型外，可以包含任何种类的数据，但是它所占用的内存空间也远远高于其他数据类型。如在“打印通讯录”宏中声明变量的语句为： Dim Value, no1, no2,

31、 页数 As Integer Dim sss, sss1, sss2, sss3 As String 以上两个语句共声明八个变量，较之不声明变量节省内存空间104个字节，在程序较小、使用变量较少时，这种方法对执行速度的影响并不明显，但若程序很大、使用变量很多、计算机的运算速度较低时，使用这种方法对提高程序的执行速度则是非常有效的。 第三，在程序中要谨慎运用数组。为了尽可能使代码简洁明了，应将声明的数组指定为某一种数据类型。数组变量的最大值，是以操作系统与有多少可用内存为基础的，若使用的数组大小超过了系统中可用内存总数，则必须从磁盘中来回读写数据，从而使宏的运行速度变得很慢。 第四，对使用Loa

32、d语句调入内存的VBA对象，当确定在后面的程序中已不再使用时，应及时使用Unload语句将这个对象从内存中删除，以释放内存空间。 简化VBA语句的结构。 由于任何一个属性、方法或层次对象的引用都需要Excel97花费一定的时间来处理，因此在对属性、方法或层次对象的引用要力求简化。例如可以将“打开数据库”宏的语句改写为： Application.Workbooks.Open FileName:=通讯录.dbf 虽然这种写法同样可以运行，但与原来写法比较增加了VBA对象的引用层次，从而增加了程序的处理时间，从理论上来说降低了程序的执行速度。 将宏的执行动作模块化。 VBA面向对象编程的特点使宏的模

33、块化变得尤为方便。所谓模块化就是将宏分解为若干互相独立的宏子程序，每个子程序只包含一个或几个完整的执行动作。由于Excel97的宏可以互相嵌套，在一个宏中调用其他的宏子程序只需在宏中嵌入宏子程序的名字即可，因此，可以将一些较小的宏连在一起创建一个较大的宏，以完成相对复杂的任务。在宏的嵌套中必须注意：一定要明确指定各个宏子程序的作用范围，即必须说明宏子程序作用的工作簿的工作表或工作表中的数据区域，否则将会出现数据紊乱导致臆想不到的后果。 将宏的执行动作模块化具有很多优点，第一，便于宏代码的编写、调试、修改和维护；第二，程序完成后并不是一成不变的，要求随着业务的变化而不断的完善和升级。模块化增加了

34、程序代码的可读性，便于应用程序的完善和升级。第三，完成性质相同任务的宏可以作为公共子程序被反复多次调用，从而降低冗余。另外，有经验的程序开发人员往往积累一些带有共性的小工具，在开发新的应用程序时可以直接使用，进行拼装，既省时又省力，可提高程序的开发效率。 例如可以将“打印通讯录”宏中的打印过程独立出来，变成如下的宏子程序： Sub 打印 () ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End Sub 宏子程序“打印”执行的动作是打印工作表的第一页，可以在任何执行相同动作的打印宏中予

35、以调用。 三、 运行宏 建立宏和优化宏两个步骤都是为运行宏所做的准备工作，使用宏的最终目的是要通过运行宏来实现的。运行宏的方式一般分为以下四种： 使用宏对话框运行宏 使用宏对话框运行宏可分为三个步骤： 从工具菜单的宏选项中选择“宏”弹出如图所示的宏对话框； 从宏名列表中选择需要运行的宏； 用鼠标左键单击“执行”按钮。 这是运行宏最普通的方式，具有简单、直观、易于掌握的优点。 通过自定义的快捷键运行宏 宏的快捷键可以通过两种方式定义，一是在运用宏记录器建立宏时从录制宏对话框中定义；二是从上图所示宏对话中选择“选项”后定义。快捷键定义后，运行宏的时候需要同时按下Ctrl和所定义的快捷键。这是运行宏

36、最直接的方式。 通过载体运行宏 所谓载体就是能够被指定宏的Excel97对象。一般而言，可以充当载体的对象有：工作簿、工作表、工具栏按钮、图表、图片、文本框、艺术字以及各项窗体控件。 运用工作簿和工作表作为宏的载体。 工作簿和工作表作为宏的载体时，并不能直接为其指定宏，需要通过事件的触发来运行宏。在此仅以工作表为例，如将宏“打印通讯录”指定给工作表“通讯录打印页面”，可以通过激活工作表事件来实现。代码如下： Private Sub Worksheet_Activate() 打印通讯录 End Sub 要运行“打印通讯录”宏只需激活工作表“通讯录打印页面”即可。这样的工作表事件共有七个，除了以上

37、激活工作表事件外，还有： BeforeDoubleClick 事件（双击工作表产生的事件）； BeforeRightClick 事件（鼠标右键单击工作表时产生的事件）； Deactivate 事件（工作表从活动状态转为非活动状态时产生的事件）； Calculate 事件（当数据源更新，图表重新绘制之后产生的事件）； Change 事件（当更改工作表中的单元格或外部链接引起单元格的值改变时产生的事件）； SelectionChange 事件（工作表上的选定区域发生改变时产生的事件）。 每个事件都有其特定的触发条件，这样就为宏的灵活运用提供了多种有效途径。 运用自定义工具栏按钮作为宏的载体。 运用

38、自定义工具栏按钮作为宏的载体，可通过以下步骤来实现： 将鼠标指针指向任何显示的工具栏，单击右键，在出现的快捷菜单中选择“自定义”选项，弹出自定义窗口； 从自定义窗口中选择“命令”页面； 在命令页面的“类别”列表中选择“宏”，将“命令”列表中出现的自定义按钮拖曳到工具栏上； 用鼠标右键单击工具栏上的自定义按钮，从弹出的“指定宏”窗口列表中选择宏，最后单击“确定”按钮。 若要运行该宏单击工具栏上的自定义按钮即可。 运用图表、图片、文本框、艺术字等绘图对象作为宏的载体。 建立绘图对象有两种方法，一是从Excel97插入菜单中插入图表、图片或艺术字，二是从视图菜单中打开绘图、图表、图片或艺术字工具栏，

39、然后通过工具栏建立绘图对象。将宏指定给绘图对象的操作过程如下： 选中的绘图对象； 用鼠标右键单击选中的绘图对象，从快捷菜单中选择“指定宏”选项； 从弹出的“指定宏”窗口列表中选择宏后单击“确定”按钮。 从此，每当鼠标左键单击该对象时都会运行指定的宏。 运用窗体控件作为宏的载体。 灵活地运用窗体控件是建立应用程序主控菜单的基础。 运用窗体控件作为宏的载体可通过两种途径： 从视图菜单中打开窗体工具栏，将可以使用的窗体控件拖曳到Excel97工作表上，然后重复为绘图对象指定宏的操作过程，通过上述操作，作为宏的载体的窗体控件将“浮”在Excel97工作表上，用鼠标单击该控件即可运行指定的宏。 通过Vi

40、sual Basic编辑器建立自定义窗体，将自定义窗体控件作为宏的载体。 例如：建立如图所示名为“通讯录处理程序”的自定义窗体，然后通过“打开数据库”和“打印通讯录”按钮分别运行“打开数据库”和“打印通讯录”两个宏，具体操作步骤为： 第一步，进入Visual Basic编辑器； 第二步，通过Visual Basic编辑器的插入菜单添加用户窗体； 第三步，设置窗体属性，在本例中将窗体的Cption属性和(名称)属性都设置为“通讯录处理程序”； 第四步，为窗体添加控件，同时设置控件属性，窗体控件的属性很多，Excel97为每个控件属性都定义了一个默认值，因此，用户不必对每一个属性都重新设置，只需设置用户认为需要更改的属性即可； 第五步，通过控件的Click 事件指定宏，如将宏“打印通讯录”指定给控件“打印通讯录”的代码如下： Private Sub 打印通讯录_Click() Run (打印通讯录) End Sub 注意：在用户自定窗体的类模块中不能直接调用Excel97宏，必须使用Run 方法，在使用Run 方法调用宏的过程中，宏名应包括在括号和引号内。 Excel97所提供的通过载体运行宏的特性，使用户在开发管理程序的时候更加得心应手。 自动运行的宏 在Excel5中有