《EXCEL_VBA常用代码实战大全.doc》由会员分享，可在线阅读，更多相关《EXCEL_VBA常用代码实战大全.doc（603页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VBA常用技巧代码解析 yuanzhupingVBA常用技巧目录VBA常用技巧1第1章Range（单元格）对象10技巧1单元格的引用方法101-1使用Range属性101-2使用Cells属性111-3使用快捷记号111-4使用Offset属性121-5使用Resize属性131-6使用Union方法141-7使用UsedRange属性141-8使用CurrentRegion属性15技巧2选定单元格区域的方法152-1使用Select方法152-2使用Activate方法162-3使用Goto方法17技巧3获得指定行、列中的最后一个非空单元格17技巧4定位单元格20技巧5查找单元格215-1使
2、用Find方法215-2使用Like运算符25技巧6替换单元格内字符串26技巧7复制单元格区域27技巧8仅复制数值到另一区域308-1使用选择性粘贴308-2直接赋值的方法31技巧9单元格自动进入编辑状态32技巧10禁用单元格拖放功能32技巧11单元格格式操作3311-1单元格字体格式设置3311-2设置单元格内部格式3511-3为单元格区域添加边框3611-4灵活设置单元格的行高列宽38技巧12单元格中的数据有效性3912-1在单元格中建立数据有效性3912-2判断单元格是否存在数据有效性4112-3动态的数据有效性4112-4自动展开数据有效性下拉列表43技巧13单元格中的公式4413-1
3、在单元格中写入公式4413-2检查单元格是否含有公式4513-3判断单元格公式是否存在错误4613-4取得单元格中公式的引用单元格4713-5将单元格中的公式转换为数值48技巧14单元格中的批注4914-1判断单元格是否存在批注4914-2为单元格添加批注5014-3删除单元格中的批注51技巧15合并单元格操作5215-1判断单元格区域是否存在合并单元格5215-2合并单元格时连接每个单元格的文本5315-3合并内容相同的连续单元格5415-4取消合并单元格时在每个单元格中保留内容56技巧16高亮显示单元格区域57技巧17双击被保护单元格时不显示提示消息框58技巧18重新计算工作表指定区域60
4、技巧19录入数据后单元格自动保护60技巧20工作表事件Target参数的使用方法6220-1使用单元格的Address 属性6220-2使用Column属性和Row属性6320-3使用Intersect方法63第2章Worksheet（工作表）对象65技巧21引用工作表的方式6521-1使用工作表的名称6521-2使用工作表的索引号6521-3使用工作表的代码名称6621-4使用ActiveSheet属性引用活动工作表66技巧22选择工作表的方法67技巧23遍历工作表的方法6823-1使用For.Next 语句6823-2使用For Each.Next 语句70技巧24在工作表中上下翻页71技
5、巧25工作表的添加与删除72技巧26禁止删除指定工作表76技巧27自动建立工作表目录78技巧28工作表的深度隐藏80技巧29防止更改工作表的名称82技巧30工作表中一次插入多行83技巧31删除工作表中的空行84技巧32删除工作表的重复行86技巧33定位删除特定内容所在的行88技巧34判断是否选中整行89技巧35限制工作表的滚动区域90技巧36复制自动筛选后的数据区域91技巧37使用高级筛选获得不重复记录93技巧38工作表的保护与解除保护94技巧39奇偶页打印97第3章Wordbook（工作簿）对象99技巧40工作簿的引用方法9940-1使用工作簿的名称9940-2使用工作簿的索引号9940-3
6、使用ThisWorkbook10040-4使用ActiveWorkbook101技巧41新建工作簿文件101技巧42打开指定的工作簿103技巧43判断指定工作簿是否打开10643-1遍历Workbooks集合方法10643-2错误处理方法106技巧44禁用宏则关闭工作簿107技巧45关闭工作簿不显示保存对话框11145-1使用Close方法关闭工作簿11145-2单击工作簿关闭按钮关闭工作簿113技巧46禁用工作簿的关闭按钮113技巧47保存工作簿的方法11547-1使用Save方法11547-2直接保存为另一文件名11547-3保存工作簿副本115技巧48保存指定工作表为工作簿文件116技巧
7、49打印预览时不触发事件118技巧50设置工作簿文档属性信息120技巧51不打开工作簿取得其他工作簿数据12151-1使用公式12151-2使用GetObject函数12251-3隐藏Application对象12351-4使用ExecuteExcel4Macro方法12451-5使用SQL连接125技巧52返回窗口的可视区域地址126第4章Shape（图形）、Chart（图表）对象128技巧53在工作表中添加图形128技巧54导出工作表中的图片133技巧55在工作表中添加艺术字135技巧56遍历工作表中的图形137技巧57移动、旋转图片139技巧58工作表中自动插入图片139技巧59固定工作
8、表中图形的位置139技巧60使用VBA自动生成图表139技巧61使用独立窗口显示图表139技巧62导出工作表中的图表139技巧63多图表制作139第5章Application对象139技巧64取得Excel版本信息139技巧65取得当前用户名称139技巧66Excel中的“定时器”139技巧67设置活动打印机的名称139技巧68屏蔽、改变组合键的功能139技巧69设置Excel窗口标题栏139技巧70自定义Excel状态栏139技巧71灵活退出Excel139技巧72隐藏Excel主窗口13972-1设置Application对象的Visible属性13972-2将窗口移出屏幕13972-3设
9、置工作簿作为加载宏运行139第6章使用对话框139技巧73使用Msgbox函数13973-1显示简单的提示信息13973-2定制个性化的消息框13973-3获得消息框的返回值13973-4在消息框中排版13973-5对齐消息框中显示的信息139技巧74自动关闭的消息框13974-1使用WshShell.Popup方法显示消息框13974-2使用API函数显示消息框139技巧75使用InputBox函数13975-1简单的数据输入13975-2使用对话框输入密码139技巧76使用InputBox方法13976-1输入指定类型的数据13976-2获得单元格区域地址139技巧77内置对话框13977
10、-1调用内置的对话框13977-2获取选定文件的文件名13977-3使用“另存为”对话框139技巧78调用操作系统“关于”对话框139第7章菜单和工具栏139技巧79在菜单中添加菜单项139技巧80在菜单栏指定位置添加菜单139技巧81屏蔽和删除工作表菜单139技巧82改变系统菜单的操作139技巧83定制自己的系统菜单139技巧84改变菜单按钮图标139技巧85右键快捷菜单增加菜单项139技巧86自定义右键快捷菜单139技巧87使用右键菜单制作数据有效性139技巧88禁用工作表右键菜单139技巧89创建自定义工具栏139技巧90自定义工具栏按钮图标139技巧91自定义工作簿图标139技巧92移
11、除工作表的最小最大化和关闭按钮139技巧93在工具栏上添加下拉列表框139技巧94屏蔽工作表的复制功能139技巧95禁用工具栏的自定义139技巧96屏蔽所有的命令栏139技巧97恢复Excel的命令栏139第8章控件与用户窗体139技巧98限制文本框的输入139技巧99文本框添加右键快捷菜单139技巧100文本框回车自动输入139技巧101自动选择文本框内容139技巧102设置文本框数据格式139技巧103限制文本框的输入长度139技巧104将光标返回文本框中139技巧105文本框的自动换行139技巧106多个文本框数据相加139技巧107控件跟随活动单元格139技巧108高亮显示按钮139技
12、巧109组合框和列表框添加列表项的方法139109-1使用RowSource属性添加列表项139109-2使用List属性添加列表项139109-3使用AddItem方法添加列表项139技巧110去除列表框数据源的重复值和空格139技巧111移动列表框条目139技巧112允许多项选择的列表框139技巧113多列组合框和列表框的设置139113-1多列组合框和列表框添加列表项139113-2多列列表框写入工作表139技巧114输入时逐步提示信息139技巧115二级组合框139技巧116使用DTP控件输入日期139技巧117使用RefEdit控件选择区域139技巧118如何注册控件139技巧119
13、遍历控件的方法139119-1使用名称中的变量遍历控件139119-2使用对象类型遍历控件139119-3使用程序标识符遍历控件139119-4使用名称中的变量遍历图形139119-5使用FormControlType属性遍历图形139技巧120使微调框最小变动量小于1139技巧121不打印工作表中的控件139121-1设置控件格式139121-2设置控件的printobjcet属性139技巧122在框架中使用滚动条139技巧123使用多页控件139技巧124标签文字垂直居中对齐139技巧125使用TabStrip控件139技巧126显示GIF动画图片139技巧127播放Flash文件139技
14、巧128在工作表中添加窗体控件139128-1使用AddFormControl方法139128-2使用Add方法139技巧129在工作表中添加ActiveX控件139129-1使用Add方法139129-2使用AddOLEObject方法139技巧130使用spreadsheet控件139技巧131使用Listview控件139131-1使用Listview控件显示数据列表139131-2在Listview控件中使用复选框139131-3调整Listview控件的行距139131-4在Listview控件中排序139131-5Listview控件的图标设置139技巧132调用非模式窗体139技
15、巧133进度条的制作139133-1使用进度条控件139133-2使用标签控件139技巧134使用TreeView控件显示层次139技巧135用户窗体添加图标139技巧136用户窗体添加最大最小化按纽139技巧137禁用窗体标题栏的关闭按钮139技巧138屏蔽窗体标题栏的关闭按钮139技巧139无标题栏和边框的窗体139技巧140制作年月选择窗体139技巧141自定义窗体中的鼠标指针类型139技巧142调整窗体的显示位置139技巧143由鼠标确定窗体显示位置139技巧144用户窗体的打印139技巧145使用自定义颜色设置窗体颜色139技巧146在窗体中显示图表139146-1使用Export方
16、法139146-2使用API函数139技巧147窗体运行时调整控件大小139技巧148在用户窗体上添加菜单139技巧149在用户窗体上添加工具栏139技巧150使用代码添加窗体及控件139技巧151用户窗体的全屏显示139151-1设置用户窗体为应用程序的大小139151-2根据屏幕分辨率进行设置139技巧152在用户窗体上添加状态栏139第9章函数的使用139技巧153调用工作表函数求和139技巧154查找最大、最小值139技巧155不重复值的录入139技巧156获得当月的最后一天139技巧157四舍五入运算139157-1极小值修正法139157-2调用工作表函数法139技巧158使用字符
17、串函数139技巧159使用日期函数139技巧160判断是否为数值139技巧161格式化数值、日期和时间139技巧162个人所得税自定义函数139技巧163人民币大写函数139技巧164列号转换为列标139技巧165判断工作表是否为空表139技巧166查找指定工作表139技巧167查找指定工作簿是否打开139技巧168取得应用程序的安装路径139技巧169数组的使用139169-1代码运行时创建数组139169-2文本转换为数组139169-3使用动态数组去除重复值139第10章文件操作139技巧170导入文本文件139170-1使用查询表导入139170-2使用Open 语句导入139170-
18、3使用OpenText方法139技巧171将数据写入文本文件139171-1使用Print # 语句139171-2另存为文本文件139技巧172文件修改的日期和时间139技巧173查找文件或文件夹139技巧174获得当前文件夹的名称139技巧175创建和删除文件夹139技巧176重命名文件或文件夹139技巧177复制指定的文件139技巧178删除指定的文件139技巧179搜索特定的文件139技巧180使用WSH处理文件139180-1获取文件信息139180-2查找文件139180-3移动文件139180-4复制文件139180-5删除文件139180-6创建文件夹139180-7复制文件夹
19、139180-8移动文件夹139180-9删除文件夹139180-10导入文本文件139180-11创建文本文件139第11章其他应用139技巧181取得电脑名称139技巧182取得逻辑盘序列号139技巧183使用API取得硬盘信息139技巧184使用数字签名139技巧185暂停代码的运行139技巧186定时关机139技巧187打开指定的网页139技巧188VBE的操作139188-1添加模块和过程139188-2建立事件过程139188-3模块的导入与导出139188-4删除宏代码139技巧189保护VBA代码139189-1设置工程密码139189-2设置“工程不可查看”139技巧190优
20、化代码139190-1关闭屏幕刷新139190-2使用工作表函数139190-3使用更快的单元格操作方法139190-4使用With语句引用对象139190-5少用激活或选择语句139技巧191取得文件的基本名称139技巧192防止用户中断代码运行139技巧193加班费计算表139技巧194制作发放条139技巧195费用统计表139技巧196职工花名册139技巧197收据系统139技巧198职工考勤系统139第1章 Range（单元格）对象Range对象是Excel应用程序中最常用的对象，一个Range对象代表一个单元格、一行、一列、包含一个或者更多单元格区域（可以是连续的单元格，也可以是不连
21、续的单元格）中选定的单元格，甚至是多个工作表上的一组单元格，在操作Excel 内的任何区域之前都需要将其表示为一个Range对象，然后使用该Range对象的方法和属性。技巧1 单元格的引用方法在VBA中经常需要引用单元格或单元格区域区域，主要有以下几种方法。1-1 使用Range属性VBA中可以使用Range属性返回单元格或单元格区域，如下面的代码所示。#001 Sub RngSelect() #002 Sheet1.Range(A3:F6, B1:C5).Select#003 End Sub代码解析：RngSelect过程使用Select方法选中A3:F6，B1:C5单元格区域。Range属
22、性返回一个Range对象，该对象代表一个单元格或单元格区域，语法如下：Range(Cell1, Cell2)参数Cell1是必需的，必须为 A1 样式引用的宏语言，可包括区域操作符（冒号）、相交区域操作符（空格）或合并区域操作符（逗号）。也可包括美元符号（即绝对地址，如“$A$1”）。可在区域中任一部分使用局部定义名称，如Range(B2:LastCell)，其中LastCell为已定义的单元格区域名称。参数Cell2是可选的，区域左上角和右下角的单元格。运行Sub RngSelect过程，选中A3:F6, B1:C5单元格区域，如图 11所示。图 11使用Range属性引用单元格区域注意 如
23、果没有使用对象识别符，Range属性返回活动表的一个区域，如果活动表不是工作表，则该属性无效。1-2 使用Cells属性使用Cells属性返回一个Range对象，如下面的代码所示。#001 Sub Cell()#002 Dim icell As Integer#003 For icell = 1 To 100#004 Sheet2.Cells(icell, 1).Value = icell#005 Next#006 End Sub代码解析：Cell过程使用For.Next语句为工作表中的A1:A100单元格区域填入序号。Cells属性指定单元格区域中的单元格，语法如下：Cells(RowInd
24、ex, ColumnIndex)参数RowIndex是可选的，表示引用区域中的行序号。参数ColumnIndex是可选的，表示引用区域中的列序号。如果缺省参数，Cells属性返回引用对象的所有单元格。Cells属性的参数可以使用变量，因此经常应用于在单元格区域中循环。1-3 使用快捷记号在VBA中可以将A1引用样式或命名区域名称使用方括号括起来，作为Range属性的快捷方式，这样就不必键入单词“Range”或使用引号，如下面的代码所示。#001 Sub Fastmark()#002 A1：A5 = 2#003 Fast = 4#004 End Sub代码解析：Fastmark过程使用快捷记号为
25、单元格区域赋值。第2行代码使用快捷记号将活动工作表中的A1：A5单元格赋值为2。第3行代码将工作簿中已命名为“Fast”的单元格区域赋值为4。注意 使用快捷记号引用单元格区域时只能使用固定字符串而不能使用变量。1-4 使用Offset属性可以使用Range对象的Offset属性返回一个基于引用的Range对象的单元格区域，如下面的代码所示。#001 Sub Offset()#002 Sheet3.Range(A1:C3).Offset(3, 3).Select#003 End Sub代码解析：Offset过程使用Range对象的Offset属性选中A1：A3单元格偏移三行三列后的区域。应用于R
26、ange对象的Offset 属性的语法如下：expression.Offset(RowOffset, ColumnOffset)参数expression是必需的，该表达式返回一个Range对象。参数RowOffset是可选的，区域偏移的行数（正值、负值或 0（零）。正值表示向下偏移，负值表示向上偏移，默认值为 0。参数ColumnOffset是可选的，区域偏移的列数（正值、负值或 0（零）。正值表示向右偏移，负值表示向左偏移，默认值为 0。运行Offset过程，选中A1：A3单元格偏称三行三列后的区域，如图 12所示。图 12使用Range对象的Offset属性1-5 使用Resize属性使用
27、Range对象的Resize属性调整指定区域的大小，并返回调整大小后的单元格区域，如下面的代码所示。#001 Sub Resize()#002 Sheet4.Range(A1).Resize(3, 3).Select#003 End Sub代码解析：Resize过程使用Range对象的Resize属性选中A1单元格扩展为三行三列后的区域。Resize属性的语法如下：expression.Resize(RowSize, ColumnSize)参数expression是必需的，返回要调整大小的Range 对象参数RowSize是可选的，新区域中的行数。如果省略该参数，则该区域中的行数保持不变。参数
28、ColumnSize是可选的，新区域中的列数。如果省略该参数。则该区域中的列数保持不变。运行Resize过程，选中A1单元格扩展为三行三列后的区域，如图 13所示。图 13使用Resize属性调整区域大小1-6 使用Union方法使用Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作，如下面的代码所示。#001 Sub UnSelect()#002 Union(Sheet5.Range(A1:D4), Sheet5.Range(E5:H8).Select#003 End Sub代码解析：UnSelect过程选择单元格A1:D4和E5:H8所组成的区
29、域。Union方法返回两个或多个区域的合并区域，语法如下：expression.Union(Arg1, Arg2, .)其中参数expression是可选的，返回一个Application对象。参数Arg1, Arg2, .是必需的，至少指定两个Range对象。运行UnSelect过程，选中单元格A1:D4和E5:H8所组成的区域，如图 14所示。图 14使用Union方法将多个非连续区域连接成一个区域1-7 使用UsedRange属性使用UsedRange属性返回指定工作表上已使用单元格组成的区域，如下面的代码所示。#001 Sub UseSelect()#002 Sheet6.UsedRa
30、nge.Select#003 End Su代码解析：UseSelect过程使用UsedRange属性选择工作表上已使用单元格组成的区域，包括空单元格。如工作表中已使用A1单元格和D8单元格，运行UseSelect过程将选择A1到D8单元格区域，如图 15所示。图 15使用UsedRange属性选择已使用区域1-8 使用CurrentRegion属性使用CurrentRegion属性返回指定工作表上当前的区域，如下面的代码所示。#001 Sub CurrentSelect()#002 Sheet7.Range(A5).CurrentRegion.Select#003 End Sub代码解析：Cu
31、rrentSelect过程使用CurrentRegion属性选择工作表上A5单元格当前的区域，当前区域是一个边缘是任意空行和空列组合成的范围。运行CurrentSelect过程将选择A5到B6单元格区域，如图 16所示。图 16CurrentRegion属性选择当前的区域技巧2 选定单元格区域的方法2-1 使用Select方法在VBA中一般使用Select方法选定单元格或单元格区域，如下面的代码所示。#001 Sub RngSelect()#002 Sheet3.Activate#003 Sheet3.Range(A1：B10).Select#004 End Sub代码解析：RngSelect
32、过程使用Select方法选定Sheet3中的A1：B10单元格区域，Select方法应用于Range对象时语法如下：expression.Select(Replace)参数expression是必需的，一个有效的对象。参数Replace是可选的，要替换的对象。使用Select方法选定单元格时，单元格所在的工作表必需为活动工作表，所以在第2行代码中先使用Activate方法使Sheet3成为活动工作表，否则Select方法有可能出错，显示如图 21所示的错误提示。图 21Select方法无效提示2-2 使用Activate方法还可以使用Activate方法选定单元格或单元格区域，如下面的代码所示
33、。#001 Sub RngActivate()#002 Sheet3.Activate#003 Sheet3.Range(A1:B10).Activate#004 End Sub代码解析：RngActivate过程使用Activate方法选定Sheet3中的A1：B10单元格区域，Activate方法应用于Range对象时语法如下：expression.Activate使用Activate方法选定单元格时，单元格所在的工作表也必需为活动工作表，否则Activate方法有可能出错，显示如图 22所示的错误提示。图 22Activate方法无效提示2-3 使用Goto方法使用Goto方法无需使单元
34、格所在的工作表成为活动工作表，如下面的代码所示。#001 Sub RngGoto()#002 Application.Goto Reference:=Sheet3.Range(A1：B10), scroll:=True#003 End Sub代码解析：RngGoto过程使用Goto方法选定Sheet3中的A1：B10单元格区域，并滚动工作表以显示该单元格。Goto方法选定任意工作簿中的任意区域或任意Visual Basic过程，并且如果该工作簿未处于活动状态，就激活该工作簿，语法如下：expression.Goto(Reference, Scroll)参数expression是必需的，返回一个
35、Application 对象。参数Reference是可选的，Variant类型，指定目标。可以是Range对象、包含R1C1-样式记号的单元格引用的字符串或包含 Visual Basic 过程名的字符串。如果省略本参数，目标将是最近一次用Goto方法选定的区域。参数Scroll是可选的，Variant类型，如果该值为True，则滚动窗口直至目标区域的左上角单元格出现在窗口的左上角。如果该值为False，则不滚动窗口。默认值为False。技巧3 获得指定行、列中的最后一个非空单元格使用VBA对工作表进行操作时，经常需要定位到指定行或列中最后一个非空单元格，此时可以使用Range对象的End属性
36、，在取得单元格对象后便能获得该单元格的相关属性，如单元格地址、行列号、数值等，如下面的代码所示。#001 Sub LastRow()#002 Dim rng As Range#003 Set rng = Sheet1.Range(A65536).End(xlUp)#004 MsgBox A列中最后一个非空单元格是 & rng.Address(0, 0) _#005 & ,行号 & rng.Row & ,数值 & rng.Value#006 Set rng = Nothing#007 End Sub代码解析：LastRow过程使用消息框显示工作表中A列最后非空单元格的地址、行号和数值。End属性
37、返回一个Range对象，该对象代表包含源区域的区域尾端的单元格。等同于按键、或，语法如下：expression.End(Direction)参数expression是必需的，一个有效的对象。参数Direction是可选的，所要移动的方向，可以为表格 31所示的XlDirection 常量之一。常量值描述xlDown-4121向下xlToRight-4161向右xlToLeft-4159向左xlUp-4162向上表格 31XlDirection 常量Range对象的End属性返回的是一个Range对象，因此可以直接使用该对象的属性和方法。运行LastRow过程结果如图 31所示。图 31获得A列
38、最后一个非空单元格通过修改相应的参数，能够获得指定行中最后一个非空单元格，如下面的代码所示。#001 Sub LastColumn()#002 Dim rng As Range#003 Set rng = Sheet1.Range(IV1).End(xlToLeft)#004 MsgBox 第一行中最后一个非空单元格是 & rng.Address(0, 0) _#005 & ,列号 & rng.Column & ,数值 & rng.Value#006 Set rng = Nothing#007 End Sub代码解析：LastColumn过程使用消息框显示工作表中第一行最后一个非空单元格的地址
39、、列号和数值，如图 32所示。图 32获得第一行最后一个非空单元格技巧4 定位单元格在Excel中使用定位对话框可以选中工作表中特定的单元格区域，而在VBA中则使用SpecialCells方法，如下面的代码所示。#001 Sub SpecialAddress()#002 Dim rng As Range#003 Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)#004 rng.Select#005 MsgBox 工作表中有公式的单元格为： & rng.Address#006 Set rng = Nothing#007 End
40、 Sub代码解析：SpecialAddress过程使用SpecialCells方法选中工作表中有公式的单元格，并用消息框显示其地址。SpecialCells方法返回一个Range对象，该对象代表与指定类型及值相匹配的所有单元格，语法如下：expression.SpecialCells(Type, Value)参数expression是必需的，返回一个有效的对象。参数Type是必需的，要包含的单元格，可为表格 41所列的XlCellType常量之一。常量值描述xlCellTypeAllFormatConditions-4172任意格式单元格xlCellTypeAllValidation-4174
41、含有验证条件的单元格xlCellTypeBlanks4空单元格xlCellTypeComments-4144含有注释的单元格xlCellTypeConstants2含有常量的单元格xlCellTypeFormulas-4123含有公式的单元格xlCellTypeLastCell11使用区域中最后的单元格xlCellTypeSameFormatConditions-4173含有相同格式的单元格xlCellTypeSameValidation-4175含有相同验证条件的单元格xlCellTypeVisible12所有可见单元格表格 41XlCellType常量第3行代码将SpecialCells方
42、法的Type参数设置为xlCellTypeFormulas，返回的是含有公式的单元格，通过修改相应的参数可以返回不同的单元格。参数Value是可选的，如果Type参数为xlCellTypeConstants或xlCellTypeFormulas， 此参数可用于确定结果中应包含哪几类单元格。将某几个值相加可使此方法返回多种类型的单元格。如果省略将选定所有常量或公式，可为表格 42所列的 XlSpecialCellsValue常量之一。常量值描述xlErrors16错误xlLogical4逻辑值xlNumbers1数字xlTextValues2文本表格 42XlSpecialCellsValue常量第5行代码使用消息框显示工作表中含有公式单元格的地址。SpecialCells方法返回的是Range对象，因此可以直接使用该对象的属性和方法。运行SpecialAddress过程结果如图 41所示。图 41SpecialC