关于VB-Application对象帮助的整理.doc

Application对象之方法、属性、事件Application对象0、ActivateMicrosoftApp 方法激活一个 Microsoft 应用程序。如果该应用程序已经处于运行状态，则本方法激活的是正在运行的此应用程序。如果该应用程序不处于运行状态， 本方法将启动该应用程序的新实例。语法expression.ActivateMicrosoftApp(index)expression必选。该表达式返回一个 Application 对象。index Long 类型，必选。指定要激活的 Microsoft 应用程序。可为下列 XlMSApplication 常量之一：xlMicrosoftWord、xlMicrosoftPowerPoint、xlMicrosoftMail、xlMicrosoftAccess、xlMicrosoftFoxPro、xlMicrosoftProject 或 xlMicrosoftSchedulePlus。示例：启动并激活 Word。Application.ActivateMicrosoftApp xlMicrosoftWord一、ActiveCell 属性返回一个 Range 对象，该对象代表活动窗口的活动单元格（最上面的窗口），或指定窗口的活动单元格。如果该窗口显示的不是工作表，则该属性无效。只读。说明如果不指定对象识别符，本属性返回的是活动窗口中的活动单元格。注意区分活动单元格和选定区域。活动单元格是当前选定区域内的单个单元格。选定区域可能包含多个单元格，但只有一个是活动单元格。下列表达式都是返回活动单元格，并都是等价的。ActiveCellApplication.ActiveCellActiveWindow.ActiveCellApplication.ActiveWindow.ActiveCell示例：1、显示活动单元格的值Worksheets(Sheet1).ActivateMsgBox ActiveCell.Value2、更改活动单元格的字体格式设置。Worksheets(Sheet1).ActivateWith ActiveCell.Font .Bold = True .Italic = TrueEnd With二、ActiveChart 属性返回 Chart 对象，该对象代表活动图表（包括嵌入式图表或图表工作表）。当选定或激活嵌入式图表时，该嵌入式图表就成为活动的。如果当前没有活动的图表，本属性返回 Nothing。只读。说明如果未指定对象识别符，本属性返回活动工作簿上的活动图表。示例：打开活动图表的图例。ActiveChart.HasLegend = True三、ActivePrinter 属性返回或设置活动打印机的名称。可读写 String 类型。示例：显示活动打印机的名称。MsgBox The name of the active printer is & Application.ActivePrinter四、ActiveSheet 属性返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。如果没有活动的工作表，返回 Nothing。只读。说明如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。如果某一工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。示例：显示活动工作表的名称。MsgBox The name of the active sheet is & ActiveSheet.Name五、ActiveWindow 属性返回一个 Window 对象，该对象代表活动窗口（最上面窗口）。只读。如果没有打开的窗口则返回 Nothing。示例：显示活动窗口的名称（Caption 属性）。MsgBox The name of the active window is & ActiveWindow.Caption六、ActiveWorkbook 属性返回一个 Workbook 对象，该对象代表活动窗口（最上面的窗口）的工作簿。只读。如果没有打开任何窗口或者活动窗口为信息窗口或剪贴板窗口则返回 Nothing。示例：显示活动工作簿的名称。MsgBox The name of the active workbook is & ActiveWorkbook.Name七、AddChartAutoFormat 方法向图表的可用自动套用格式列表中添加自定义的自动套用格式。语法expression.AddChartAutoFormat(Chart, Name, Description)expression 必选。该表达式返回一个 Application 对象。Chart Chart 类型，必选。新的图表自动套用格式，即指该图表中包含的格式。Name String 类型，必选。自动套用格式的名称。Description String 类型，可选。自定义自动套用格式的说明。示例：以图表 “Chart1”为样板添加新的自动套用格式。Application.AddChartAutoFormat Chart:=Charts(Chart1), Name:=Presentation Chart八、AddCustomList 方法为自定义自动填充和/或自定义排序添加自定义序列。语法expression.AddCustomList(ListArray, ByRow)expression 必选。该表达式返回一个 Application 对象。ListArray Variant 类型，必选。指定数据源，可为一个字符串数组或者 Range 对象。ByRow Variant 类型，可选。仅当 ListArray 为 Range 对象时使用。如果为 True，使用指定区域中的每一行创建自定义序列；如果为 False，使用指定区域中的每一列创建自定义序列。如果省略该参数，并且区域中的行数比列数要多（或者行数与列数相等），Microsoft Excel 使用指定区域中的每一列创建自定义序列。如果省略该参数， 并且区域中的列数比行数要多，Microsoft Excel 使用指定区域中的每一行创建自定义序列。说明如果要添加的序列已经存在，则本方法不起作用。示例：将一个字符串数组添加到自定义序列中。Application.AddCustomList Array(cogs, sprockets, widgets, gizmos)九、AddIns 属性返回一个 AddIns 集合，此集合代表在“加载宏”对话框（“工具”菜单）中列出的全部加载宏。只读。说明在不使用对象识别符的情况下使用这种方法等价于 Application.Addins。示例：显示“分析工具库”加载宏的状态。注意，用作 AddIns 集合索引的字符串是加载宏的标题，而不是加载宏的文件名。If AddIns(Analysis ToolPak).Installed = True Then MsgBox Analysis ToolPak add-in is installedElse MsgBox Analysis ToolPak add-in is not installedEnd If十、AlertBeforeOverwriting 属性进行拖放编辑操作过程中，如果 Microsoft Excel 在覆盖非空单元格之前先显示一条信息则为 True。Boolean 类型，可读写。示例：设置 Microsoft Excel 进行拖放编辑操作过程中，在改写非空单元格之前先显示警告。Application.AlertBeforeOverwriting = True十一、AltStartupPath 属性返回或者设置替换启动文件夹的名称。String 类型，可读写。示例：设置替换启动文件夹。Application.AltStartupPath = C:EXCELMACROS十二、AnswerWizard 属性返回 Microsoft Excel 的 AnswerWizard 对象。只读。AnswerWizard 对象代表 Microsoft Office 应用程序的“操作向导”。每个应用程序只有一个“操作向导”，并且对 AnswerWizard 或 AnswerWizardFiles 集合所做的所有更改都将立刻影响活动的 Office 应用程序。使用 AnswerWizard 对象 用 ClearFileList 方法可删除当前“操作向导”可用的文件列表中所有的项目。可用此方法确保用户无法再通过“操作向导”访问 Office 宿主应用程序中使用的默认文件，例如当您用自定义的 .AW 文件替换“操作向导”文件时，即需要用此功能。以下示例清除默认的“操作向导”文件列表，然后将两个自定义的文件添至自定义“操作向导”。customAnswerWizard.ClearFileListcustomAnswerWizard.Files.Add (c:awfilescustom_1.aw)customAnswerWizard.Files.Add (c:awfilescustom_2.aw)用 ResetFileList 方法可将当前“操作向导”中的文件列表恢复为 Office 宿主应用程序的默认文件列表。也可通过向相应的注册关键字中加入自定义文件名的方式，在 Windows 注册表中建立自定义默认文件列表；注册关键字中指定的文件将在调用 ResetFileList 时恢复。本示例重置当前“操作向导”的文件列表。customAnswerWizard.ResetFileList用 Files 属性可获得“操作向导”文件引用的集合。Files 属性将返回引用 .AW 文件的字符串的集合。以下示例返回 AnswerWizardFiles 集合并在消息框中显示文件数。Dim customAnswerWizardFiles As AnswerWizardFilesSet customAnswerWizardFiles = Application.AnswerWizard.FilesMsgBox customAnswerWizardFiles.Count示例：重置 Answer Wizard 文件列表。Application.AnswerWizard.ResetFileList十三、Application 属性如果不使用对象区分符，该属性返回一个 Application 对象，该对象代表指定的 Microsoft Excel 应用程序。如果使用对象区分符，该属性返回一个 Application 对象，该对象代表指定对象的创建者（可对一个 OLE 自动化对象使用本属性，可返回该对象所在的应用程序）。只读。示例：显示一个有关创建 myObject 的应用程序的信息。Set myObject = ActiveWorkbookIf myObject.Application.Value = Microsoft Excel Then MsgBox This is a Microsoft Excel objectElse MsgBox This is not a Microsoft Excel objectEnd If十三+、ArbitraryXMLSupportAvailable 属性（2003）注释除了将文件保存为 XML 电子表格格式，其他的 XML 功能只能在 Microsoft Office Professional Edition2003 和 Microsoft Office Excel2003 中使用。返回一个 Boolean 值，表示 Microsoft Excel 中的 XML 功能是否可用。只读。expression.ArbitraryXMLSupportAvailableexpression 必需。该表达式返回一个 Application 对象。十四、AskToUpdateLinks 属性如果 Microsoft Excel 打开带有链接的文件时询问用户是否更新链接则为 True。如果 Microsoft Excel 自动更新链接并且不显示对话框则为 False。Boolean 类型，可读写。示例：设置 Microsoft Excel 每当打开包含链接的文件时就询问用户是否更新链接。Application.AskToUpdateLinks = True十五、Assistant 属性返回 Microsoft Excel 的 Assistant 对象。说明使用本属性时，如不给出对象识别符，等同于如下用法：Application.Assistant。示例：使 Office 助手可见。Assistant.Visible = True十六、AutoCorrect 属性返回一个 AutoCorrect 对象，该对象代表 Microsoft Excel AutoCorrect 属性。只读。示例：在 AutoCorrect 替换文本数组中设置单词“Temp.”的替换文本为“Temperature”。With Application.AutoCorrect .AddReplacement Temperature, Temp.End With十七、AutoFormatAsYouTypeReplaceHyperlinks 属性（2003）如果 Microsoft Excel 按照键入的内容自动设置超链接的格式，则该值为 True（默认）。如果 Excel 不按照键入的内容自动设置超链接的格式，则该值为 False。Boolean 类型，可读写。expression.AutoFormatAsYouTypeReplaceHyperlinksexpression 必需。该表达式返回“应用于”列表中的对象之一。示例在本示例中，Microsoft Excel 判断是否可按照键入的内容自动设置超链接的格式，并通知用户。Sub CheckHyperlinks() Determine if automatic formatting is enabled and notify user. If Application.AutoFormatAsYouTypeReplaceHyperlinks = True Then MsgBox Automatic formatting for typing in hyperlinks is enabled. Else MsgBox Automatic formatting for typing in hyperlinks is not enabled. End IfEnd Sub十八、AutomationSecurity 属性（2003）返回或设置 MsoAutomationSecurity 常数，该常数代表在用编程方法打开文件时，Microsoft Excel 所使用的安全模式。在启动应用程序时，该属性被自动设置为 msoAutomationSecurityLow。因此，若要避免破坏利用默认设置的解决方案，应该在用编程方法打开某个文件之后，将该属性重新设置为 msoAutomationSecurityLow。而且，在用编程方法打开该属性之前或之后，应该立即设置该属性，以避免恶意颠覆。读 /写。MsoAutomationSecurity 可为以下 MsoAutomationSecurity 常量之一。msoAutomationSecurityByUI 使用 Security 对话框中指定的安全设置。msoAutomationSecurityForceDisable 在没有显示任何安全警告的情况下，禁用所有从程序打开的文件中的宏。msoAutomationSecurityLow 启用所有的宏。这是启动应用程序时的默认值。expression.AutomationSecurityexpression 必需。该表达式返回“应用于”列表中的对象之一。说明将 ScreenUpdating 设置为 False 不会影响警报，也不会影响安全警告。DisplayAlerts 的设置不应用于安全警告。例如，当用户处于中等安全级别时，如果用户将 DisplayAlerts 设置为 False 并且将 AutomationSecurity 设置为 msoAutomationSecurityByUI，那么运行宏时就会出现安全警告。当成功地打开文件后仍然显示安全警告时，就可以用宏捕获文件打开错误。示例本示例捕获当前的自动安全设置，更改设置以禁用宏，显示“打开”对话框，在打开选取的文档后，将自动安全模式设置回初始设置。Sub Security() Dim secAutomation As MsoAutomationSecurity secAutomation = Application.AutomationSecurity Application.AutomationSecurity = msoAutomationSecurityForceDisable Application.FileDialog(msoFileDialogOpen).Show Application.AutomationSecurity = secAutomationEnd Sub十九、AutoPercentEntry 属性如果在向格式设置为百分比的单元格中输入数值时，并不自动乘以 100，则其值为 True。可读写。Boolean 类型。示例：使得以后向格式为百分比的单元格中输入的数据都将自动乘以 100。Application.AutoPercentEntry = False十九+、AutoRecover 属性（2003）返回一个 AutoRecover 对象，该对象在规定的时间间隔内对所有的文件格式进行备份。expression.AutoRecoverexpression 必需。该表达式返回“应用于”列表中的对象之一。说明有效的时间间隔为从 1 到 120 的所有数值。示例在本示例中，Time 属性与 AutoRecover 属性结合使用，可将 Microsoft Excel 在保存另一个副本之前的等待时间间隔设置为 5 分钟。Sub UseAutoRecover() Application.AutoRecover.Time = 5 MsgBox The time that will elapse between each automatic & save has been set to & _ Application.AutoRecover.Time & minutes.End Sub二十、Build 属性返回 Microsoft Excel 连编号。Long 类型，只读。说明 通常检测 Version 属性较为安全，除非必须要获知连编号。示例：检测 Build 属性。If Application.Build 2500 Then build-dependent code hereEnd If二一、Calculate 方法计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：要计算依照本示例所有打开的工作簿Application.Calculate (or just Calculate)指定工作表指定工作表指定区域Worksheets(1).Rows(2).Calculate语法expression.Calculateexpression 对于 Application 对象可选，对于 Worksheet 对象和 Range 对象必选。该表达式返回“应用于”列表中的某个对象。示例：计算“Sheet1”已用区域中 A 列、B 列和 C 列的公式。Worksheets(Sheet1).UsedRange.Columns(A:C).Calculate二二、CalculateBeforeSave 属性如果将工作簿保存到磁盘之前先进行计算则为 True（如果将 Calculation 属性设为 xlManual）。该属性不随 Calculation 属性的改变而改变。Boolean 类型，可读写。示例：设置 Microsoft Excel 保存工作簿到磁盘之前对工作簿进行计算。Application.Calculation = xlManualApplication.CalculateBeforeSave = True二三、CalculateFull 方法促使对所有打开工作簿中的数据进行完整计算。示例：将当前 Microsoft Excel 的版本与上次计算该工作簿的 Excel 版本进行比较。如果两个版本号不同，则对所有打开工作簿中的数据进行一次完整计算。If Application.CalculationVersion Workbooks(1).CalculationVersion Then Application.CalculateFullEnd If二三+、CalculateFullRebuild 方法（2003）对于所有打开的工作簿，强制数据的完整计算并重建从属关系。expression.CalculateFullRebuildexpression 必需。该表达式返回“应用于”列表中的对象之一。说明从属关系是取决于其他单元格的公式。例如，公式“=A1”取决于单元格 A1。CalculateFullRebuild 方法类似于重新输入所有公式。示例本示例将当前 Microsoft Excel 的版本与上次计算该工作簿的 Excel 版本进行比较。如果两个版本不同，则对所有打开工作簿中的数据进行一次完整计算并重建从属关系。Sub UseCalculateFullRebuild() If Application.CalculationVersion Workbooks(1).CalculationVersion Then Application.CalculateFullRebuild End IfEnd Sub二四、Calculation 属性Application 对象：返回或者设置计算模式。可为下列 XlCalculation 常数之一： xlCalculationAutomatic、xlCalculationManual 或 xlCalculationSemiautomatic。PivotField 对象：返回或设置指定字段计算结果的类型。可为下列 XlPivotFieldCalculation 常数之一：xlDifferenceFrom、xlIndex、xlNormal、xlPercentDifferenceFrom、xlPercentOf、xlPercentOfColumn、xlPercentOfRow、xlPercentOfTotal 或 xlRunningTotal。本属性仅对数据字段有效。Long 类型，可读写。说明对于 OLAP 数据源，本属性仅能返回或被设置为 xlNormal。示例：1、设置 Microsoft Excel 在将工作簿保存回磁盘之前对工作簿进行计算。Application.Calculation = xlCalculateManualApplication.CalculateBeforeSave = True2、将工作表“Sheet1”上数据透视表报表中的数据字段设置为计算与基准字段的差，设置基准字段为“ORDER_DATE”字段，并将基准数据项设为“5/16/89”。With Worksheets(Sheet1).Range(A3).PivotField .Calculation = xlDifferenceFrom .BaseField = ORDER_DATE .BaseItem = 5/16/89End With二四+、CalculationInterruptKey 属性（2003）设置或返回一个 XlCalculationInterruptKey 常量，该常量指定在执行计算时能中断 Microsoft Excel 的键。可读写。XlCalculationInterruptKey 可为以下 XlCalculationInterruptKey 常量之一。xlAnyKeyxlEscKeyxlNoKeyexpression.CalculationInterruptKeyexpression 必需。该表达式返回“应用于”列表中的对象之一。示例在本示例中，Microsoft Excel 确定对中断计算的键的设置，并通知用户。Sub CheckInterruptKey() Determine the calculation interrupt key and notify the user. Select Case Application.CalculationInterruptKey Case xlAnyKey MsgBox The calcuation interrupt key is set to any key. Case xlEscKey MsgBox The calcuation interrupt key is set to Escape Case xlNoKey MsgBox The calcuation interrupt key is set to no key. End SelectEnd Sub二五、CalculationState 属性（2003）返回一个 XlCalculationState 常量，该常量针对 Microsoft Excel 中正在执行的任意计算，指示应用程序的计算状态。只读。XlCalculationState 可为以下 XlCalculationState 常量之一。xlCalculatingxlDonexlPendingexpression.CalculationStateexpression 必需。该表达式返回“应用于”列表中的对象之一。示例在本示例中，Microsoft Excel 检查是否存在正在执行的计算。如果没有，则将计算状态消息显示为“Done”。否则就将其显示为“Not Done”。Sub StillCalculating() If Application.CalculationState = xlDone Then MsgBox Done Else MsgBox Not Done End IfEnd Sub二六、CalculationVersion 属性返回一个数字，其最右 4 位为计算引擎的次版本号，其他数字（左边）为 Microsoft Excel 的主版本号。对于 Workbook 对象，本属性将返回上次完全重新计算该工作簿时 Excel 的版本信息。只读，Long 类型。说明如果工作簿是用早期版本 Excel 保存的，且该工作簿并未进行完全重新计算，则本属性返回 0。示例：将当前 Microsoft Excel 的版本与上次计算工作簿的 Excel 的版本进行比较。如果两个版本号不同，则本示例将 blnFullCalc 变量设置为 True。If Application.CalculationVersion Workbooks(1).CalculationVersion Then blnFullCalc = TrueElse blnFullCalc = FalseEnd If二七、Caller 属性返回关于调用 Visual Basic 的信息（详细内容请参阅“说明”部分）。语法expression.Caller(Index)expression 必选。该表达式返回 Application 对象。Index Variant 类型，可选。数组的索引。仅当本属性返回数组时此参数才有用（详细内容请参阅“说明”部分）。说明 本属性返回关于调用 Visual Basic 的信息，如下表所示。调用进程返回值在单个单元格中输入的自定义函数代表该单元格的 Range 对象在单元格区域中作为数组公式的一部分的自定义函数代表该单元格区域的 Range 对象Auto_Open、Auto_Close、Auto_Activate 或 Auto_Deactivate 宏以文本方式返回的文档名由 OnDoubleClick 或 OnEntry 属性所指定的宏该宏所应用的图表对象标识符或单元格引用（若适用）的名称“工具 ”菜单中的“宏”对话框，或上述之外的其它调用者#REF! 错误值示例：显示关于调用 Visual Basic 的信息。Select Case TypeName(Application.Caller) Case Range v = Application.Caller.Address Case String v = Application.Caller Case Error v = Error Case Else v = unknownEnd SelectMsgBox caller = & v二八、CanPlaySounds 属性不能使用此属性。声音附注从 Microsoft Excel 中删除。二九、CanRecordSounds 属性不能使用此属性。声音附注从 Microsoft Excel 中删除。三十、Caption 属性示例1、将出现在 Microsoft Excel 主窗口标题栏中的名称设置为自定义的名称。Application.Caption = Blue Sky Airlines Reservation System2、将活动工作簿中第一个窗口的名称设置为“Consolidated Balance Sheet”。然后该名称被用作 Windows 属性的索引。ActiveWorkbook.Windows(1).Caption = Consolidated Balance SheetActiveWorkbook.Windows(Consolidated Balance Sheet).ActiveSheet.Calculate三一、CellDragAndDrop 属性如果允许拖放单元格则为 True。Boolean 类型，可读写。示例：打开允许拖放单元格的功能。Application.CellDragAndDrop = True三二、Cells 属性Application 对象：返回 Range 对象，该对象代表活动工作表中所有的单元格。如果当前活动文档不是工作表，本属性将失败。只读。 Range 对象：返回 Range 对象，该对象代表指定区域内的所有单元格（换句话说，本属性未做任何事情）。只读。Worksheet 对象：返回 Range 对象，该对象代表工作表中所有的单元格（不仅是当前正在使用的单元格）。只读。说明因为 Item 属性是 Range 对象的默认属性，所以可在 Cells 关键字后直接指定行号和列标。详细内容请参阅 Item 属性及本帮助主题的示例。 使用本属性时，如果不指定对象识别符，本属性将返回代表活动工作表中所有单元格的 Range 对象。示例：1、将工作表“Sheet1”中单元格“C5”的字体大小设置为 14 磅。Worksheets(Sheet1).Cells(5, 3).Font.Size = 142、清除工作表“Sheet1”中第一个单元格的公式。Worksheets(Sheet1).Cells(1).ClearContents3、将工作表“Sheet1”中所有单元格的字体设置为 8 磅的“Arial”字体。With Worksheets(Sheet1).Cells.Font .Name = Arial .Size = 8End With4、在工作表“Sheet1”上的单元格区域“A1:J4”中循环，将其中小于 0.001 的值替换为 0（零）。For rwIndex = 1 to 4 For colIndex = 1 to 10 With Worksheets(Sheet1).Cells(rwIndex, colIndex) If .Value .001 Then .Value = 0 End With Next colIndexNext rwIndex5、将工作表“Sheet1”中单元格区域“A1: C5”的字体样式设置为斜体。Worksheets(Sheet1).ActivateRange(Cells(1, 1), Cells(5, 3).Font.Italic = True6、搜索列“myRange”中的数据。如果发现某单元格的值与其上一个单元格的值相等，本示例将显示这个包含重复数据的单元格的地址。Set r = Range(myRange)For n = 1 To r.Rows.Count If r.Cells(n, 1) = r.Cells(n + 1, 1) Then MsgBox Duplicate data in & r.Cells(n + 1, 1).Address End IfNext n三三、CentimetersToPoints 方法将计量单位从厘米转换为磅（一磅等于 0.035 厘米）。expression.CentimetersToPoints(Centimeters)expression 必需。该表达式返回一个 Application 对象。Centimeters Double 类型，必需。指定要转换为磅值的厘米值。示例本示例将 Sheet1 的左页边距设为 5 厘米。Worksheets(Sheet1).PageSetup.LeftMargin = Application.CentimetersToPoints(5)三四、Charts 属性应用于 Application 对象的 Charts 属性。返回一个 Sheets 集合，该集合代表活动工作簿中的所有图表工作表。 只读。expression.Chartsexpression 必需。该表达式返回“应用于”列表中的对象之一。使用本属性时，如不给出对象识别符，将返回活动工作簿中所有的图表工作表。有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。应用于 Workbook 对象的 Charts 属性。返回一个 Sheets 集合，该集合代表指定工作簿中所有的图表工作表。 只读。expression.Chartsexpression 必需。该表达式返回“应用于”列表中的对象之一。使用本属性时，如不给出对象识别符，将返回活动工作簿中所有的图表工作表。有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。示例本示例设置 Chart1 的标题文本。With Charts(Chart1) .HasTitle = True .ChartTitle.Text = First Quarter SalesEnd With本示例删除活动工作簿中所有的图表工作表。ActiveWorkbook.Charts.Delete本示例隐藏 Chart1、Chart3 和 Chart5。Charts(Array(Chart1, Chart3, Chart5).Visible = False三五、CheckAbort 方法停止 Microsoft Excel 应用程序中的重新计算。expression.CheckAbort(KeepAbort)expression 必需。该表达式返回“应用于”列表中的对象之一。KeepAbort Variant 类型，可选。允许对 Range 进行重新计算。示例本示例中，Excel 将停止应用程序中的重新计算（不包括单元格 A10）。为查看本示例的结果，假定应用程序中还存在其他计算，这将允许用户查看被指定继续进行重新计算的单元格和其他单元格区域之间的不同。Sub UseCheckAbort() Dim rngSubtotal As Variant Set rngSubtotal = Application.Range(A10) Stop recalculation except for designated cell. Application.CheckAbort KeepAbort:=rngSubtotalEnd Sub三六、CheckSpelling 方法应用于 Application 对象的 CheckSpelling 方法。对单个单词进行拼写检查。如果在某个词典中找到了指定单词，则该值为 True；如果找不到单词，则该值为 False。Boolean 类型。expression.CheckSpelling(Word, CustomDictionary, IgnoreUppercase)expression 必需。该表达式返回上述对象之一。Word String 类型（仅与 Application 对象一起使用），必需。要检查的单词。CustomDictionary Variant 类型，可选。用于表示自定义词典文件名的字符串，如果在主词典中找不到单词，则会到此词典中查找。如果忽略此参数，则将使用当前指定词典。IgnoreUppercase Variant 类型，可选。如果为 True，则 Microsoft Excel 忽略那些所有字母都是大写的单词。如果为 False 则 Microsoft Excel 检查那些所有字母都是大写的单词。如果省略该参数，则使用当前设置。应用于 Range 对象的 CheckSpelling 方法。对一个对象进行拼写检查。该形式的调用无返回值。Microsoft Excel 将显示 Spelling 对话框。Variant 类型。expression.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, SpellLang)expression 必需。该表达式返回上述对象之一。CustomDictionary Variant 类型，可选。用于表示自定义词典文件名的字符串，如果在主词典中找不到单词，则会到此词典中查找。如果忽略此参数，则将使用当前指定词典。IgnoreUppercase Variant 类型，可选。如果为 True，则 Microsoft Excel 忽略那些所有字母都是大写的单词。如果为 False 则 Microsoft Excel 检查那些所有字母都是大写的单词。如果省略该参数，则使用当前设置。AlwaysSuggest Variant 类型，可选。如果为 True，则 Microsoft Excel 在找到不正确拼写时显示建议的替换拼写列表。如果为 False，Microsoft Excel 则等待输入正确的拼写。如果省略该参数，将使用当前设置。SpellLang Variant 类型，可选。词典所使用的语言。可为 LanguageID 属性使用的 MsoLanguageID 值之一。应用于 Chart 和 Worksheet 对象的 CheckSpelling 方法。对一个对象进行拼写检查。该形式的调用无返回值。Microsoft Excel 将显示 Spelling 对话框。expression.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, SpellLang)expression 必需。该表达式返回上述对象之一。CustomDictionary Variant 类型，可选。用于表示自定义词典文件名的字符串，如果在主词典中找不到单词，则会到此词典中查找。如果忽略此参数，则将使用当前指定词典。IgnoreUppercase Variant 类型