Visual Basic参考手册

Microsoft Excel内容帮助	学习如何使用帮助功能，请按F1。

	使用Visual Basic 有关使用信息功能列表。
	程序设计语言摘要 全部程序设计语言按主题进行列表，其中包括：函数、方法、对象、属性和语句。 函数 函数列表，按字母顺序。 方法 方法列表，按字母顺序。 对象 对象列表，按字母顺序。 属性 属性列表，按字母顺序。 语句 语句列表，按字母顺序。 任务关键字 编程任务关键字列表。
	参考信息 参考信息标题包括字符集、数据类型、词汇、关键字、运算符、屏幕区和可捕捉错误。


Author属性

参阅	实例

用于

AddIn, Workbook

描述

返回或设置一个对象的作者，用字符串。对于加载宏只读，对于工作簿可读写。

语法

object.Author

元素

object

必选项。加载宏或工作簿对象。


参阅

Comments属性

Keywords属性

Subject属性

Title属性


Author属性实例

该实例打开一个新的工作表，并创建一个当前已安装的所有加载宏表,并显示它们的标题和作者。

Workbooks.Add

i = 1

Cells(1,1).Formula = "Title"

Cells(1,2).Formula = "Author"

Rows(1).Font.Bold = True

Rows(1).Font.Underline = True

For Each thisAddIn in AddIns

If thisAddIn.Installed Then

i = i + 1

Cells(i,1).Formula = thisAddIn.Title

Cells(i,2).Formula = thisAddIn.Author

End If

Next


Comments属性

参阅	实例

用于

AddIn, Workbook

描述

返回或设置一个对象的注释，用字符串。对于加载宏只读，对于工作簿可读写。

语法

object.Comments

元素

object

必选项。加载宏或工作簿对象。


参阅

Author属性

Keywords属性

Subject属性

Title属性


Comments属性实例

该实例设置当前工作簿的注释。

ActiveWorkbook.Comments="This workbook has been reviewed."


FullName属性

实例

用于

AddIn, Workbook

描述

用字符串返回一个对象的名字，包括磁盘上的路径。只读。

语法

object.FullName

元素

object

必选项。加载宏或工作簿对象。

解释

该属性等价于Path属性，后跟当前文件系统分隔符，再加上Name属性。


FullName属性实例

该实例显示当前工作簿的名字和全名。

With ActiveWorkbook

MsgBox "This workbook is " & .Name

MsgBox "Its full name is " & .FullName

End With


Installed属性

实例

用于

AddIn

描述

如果已安装加载宏，则为True。可读写。

语法

object.Installed

元素

object

必选项。加载宏对象。

解释

设置该属性为True，则安装加载宏并调用Auto-Add函数。

设置该属性为False，则删除加载宏并调用Auto-Remove函数。


Installed属性实例

该实例安装分析工具加载宏。

AddIns（"Analysis Tools"）.Installed=True


Keywords属性

参阅	实例

用于

AddIn, Workbook

描述

返回或设置一个对象的关键字，用字符串。对于加载宏只读，对于工作簿可读写。

语法

object.Keywords

元素

object

必选项。加载宏或工作簿对象。


参阅

Author属性

Comments属性

Subject属性

Title属性


Keywords属性实例

该实例设置活动工作簿的关键字。

ActiveWorkbook.Keywords = "yellow, orange, blue, green"


Subject属性

参阅	 实例

用于

AddIn, Mailer, RoutingSlip, Workbook

描述

返回或设置一个对象的主题，用字符串。对于加载宏只读，对于发送名单和工作簿可读写。

语法

object.Subject

元素

ojbect

必选项。该属性施加的对象。

解释

发送名单主题用做邮件信息的主题，该邮件用于传递工作簿。 PowerTalk要求在发送邮件前首先提出主题。


参阅

Author属性

Comments属性

Keywords属性

Title属性


Subject属性实例

该实例设置活动工作簿的主题。

ActiveWorkbook.Subject = "Data for my presentation in April"


Title属性

参阅	实例

用于

AddIn, Workbook

描述

返回或设置一个对象的长的、描述性的标题，用字符串。对于加载宏只读， 对于工作簿可读写。


参阅

Author属性

AxisTitle属性

ChartTitle属性

Comments属性

Keywords属性


Title属性实例

该实例检查是否每个打开的工作簿都有一个标题。

For Each wk in Workbooks

If wk.Title = "" Then

MsgBox "Workbook " & wk.Name & " needs a better " & _

"title"

End If

Next


ActievCell 属性
ActiveCell属性

实例

用于

Application, Window

描述

返回活动窗口（这个窗口在顶部）中的当前单元格，只读。这个当前单 元格是一个Range对象。

语法

object.ActiveCell

元素

object

     对于应用程序是可选项，对于窗口是必选项。该属性施加的对象。

解释

应当仔细区分当前单元格和选定区域当前单元格是一个在当前选定区域 内的单个单元格，而选定区域则可以包含不止一个单元格，但是只有一 个当前单元格。

下列表达式均返回当前单元格,而且都是等价的：

ActiveCell

Application.ActiveCell

ActiveWindow.ActiveCell

Application.ActiveWindow.ActiveCell


ActiveCell属性实例

该实例设置变量CurrentSelection对当前单元格的引用，然后将当换前单元格的值设置为42。

Set currentSelection = Application.ActiveCell

currentSelection.Value = 42

该实例将当前单元格中的文字格式设置为斜体。

With ActiveCell

.Font.Italic = Not (.Font.Italic)

End With


ActiveMenuBar 属性

实例

用于

Application

描述

返回或设置活动MenuBar，可读写。

语法

object.ActiveMenuBar

元素

   object

      可选项。应用程序对象。


ActiveMenuBar属性实例

该实例将变量currentMenuBar设置为活动菜单栏。

Set currentMenuBar = Application.ActiveMenuBar

MsgBox "The active menu bar is " & currentMenuBar.Caption


ActivePrinter 属性

实例

用于

Application

描述

     返回或设置活动打印机的名字。可读写。该名字是一个字符串。

语法

object.ActivePrinter

元素

   object

      可选项。应用程序对象。

解释

    该属性不能在Apple Macintosh机上被设置。


ActivePrinter属性实例

该实例显示活动打印机的名字。

Set currentMenuBar = Application.ActiveMenuBar

MsgBox "The active menu bar is " & currentMenuBar.Caption


ActiveSheet属性

参阅	实例

用于

Application, Window, Workbook

描述

返回当前工作簿中的活动表（这个表在顶部）,如果没有活动的表则什么也返回不了。只读。

    由ActiveSheet属性返回的对象类型依赖于活动表,如下表所列：

活动表	返回的对象类型

工作表	Worksheet

Visual Basic模块表	Module

图表	Chart

对话表	DialogSheet

语法

object.ActiveSheet

元素

object

对于应用程序是可选项,对于窗口和工作表是必选项。该属性施加的 对象。

解释

 如果一个工作簿出现在不止一个窗口中，那么在不同窗口中的 ActiveSheet属性可能是不同的。


参阅

Activate方法

Select方法


ActiveSheet属性实例

该实例显示活动表的名字。

activeSheetName = Application.ActiveSheet.Name

MsgBox "The name of the active sheet is " & activeSheetName


ActiveWindow属性

参阅	实例

用于

Application

描述

返回活动Window（窗口在顶端），只读。如果没有窗口被打开， 什么也不返回。

语法

object.ActiveWindow

元素

     object

        可选项。应用程序对象。


参阅

Activate方法

Select方法


ActiveWindow属性实例

该实例显示活动窗口的名字。

Set currentWindow = Application.ActiveWindow

MsgBox "The name of the active window is " & currentWindow.Caption


ActiveWorkbook属性

实例

用于

Application

描述

返回活动窗口（这个窗口在顶部）中的WorkBook，只读。如果没有打开的窗口或 者这个活动窗口是一个信息窗口或剪贴板窗口，则什么也不返回。

语法

object.ActiveWorkbook

元素

   object

      可选项。应用程序对象。


ActiveWorkbook属性实例

该实例显示当前工作簿的名字。

Set currentBook = Application.ActiveWorkbook

MsgBox "The name of the active workbook is " & currentBook.Name


AddIns方法

实例

用于

Application

描述

 返回出现在加载宏对话框中的单个加载宏（AddIn对象,语法1）或加载宏集（AddIns对象,语法2）。

语法1

object.AddIns(index)

语法2

object.AddIns

元素

    该AddIns方法具有以下对象限制和命名参数：

    object

       可选项。应用程序对象。

index

       必选项，对于语法1。加载宏的编号或加载宏的标题，用字符串。


AddIns方法实例

该实例用于显示规划求解加载宏的状态。

Set currentAddIn = Application.AddIns("Solver")

If currentAddIn.Installed = True Then

MsgBox "Solver add-in is installed"

Else

MsgBox "Solver add-in is not installed"

End If


TransitionMeruKey 属性
TransitionMenuKey属性

 实例

用于

Application

描述

     返回或设置替换菜单或帮助键,通常是"/"，可读写。

语法

object.TransitionMenuKey

元素

object

        必选项。应用程序对象。


TransitionMenuKey属性实例

如果替换菜单键当前是别的字符，则该实例将这个键重新设置为“/” 。

If Application.TransitionNavigKeys Then

keyState = "On"

Else

keyState = "Off"

End If

MsgBox "The Transition Navigation Keys option is " & keyState


TransitionNavigKeys属性

实例

用于

Application

描述

     如果替换引导键是活动的，则为True。可读写。

语法

object.TransitionNavigKeys

元素

object

        必选项。应用程序对象。


TransitionNavigKeys属性实例

  该实例显示转换引导键选项的当前状态。

If Application.TransitionNavigKeys Then

keyState = "On"

Else

keyState = "Off"

End If

MsgBox "The Transition Navigation Keys option is " & keyState


AltStartupPath属性

实例

用于

Application

描述

      返回或设置替换启动目录的名字。可读写。名字是一个字符串。

语法

object.AltStartupPath

元素

     必选项。应用程序对象。


AltStartupPath属性实例

该实例设置替换启动目录。

Application.AltStartupPath = "C:\EXCEL\MACROS"


Arcs方法

实例

用于

Chart, DialogSheet, Worksheet

描述

    返回图表或表上的单个弧形（Arc对象，语法1）

    或弧形集（Arcs对象，语法2）。只读。

语法1

object.Arcs(index)

语法2

object.Arcs

元素

     Arcs方法具有以下对象限制和命名参数：

    object

      必选项。该方法施加的对象。

index

      必选项，对语法1。该弧形的名字或编号。


Arc方法实例

 该实例用于选定活动表上的第七条和第九条弧形。

ActiveSheet.Arcs(Array(7, 9)).Select


Buttons方法

实例

用于

Chart, DialogSheet, Worksheet

描述

返回在图表或表上的一个按钮（Button对象,语法1）或按钮集（Buttons对象，语法2）。只读。

语法1

object.Buttons(index)

语法2

object.Buttons

元素

按钮方法具有以下对象限制和命名参数：

    object

       必选项。该方法施加的对象。

     index

       对于语法1是必选项，为该按钮的名字或编号。


Button方法实例

   该实例从活动工作表中删除按钮1。

ActiveSheet.Buttons(1).Delete


Calculate方法

实例

用于

Application, Range, Worksheet

描述

计算所有打开的工作簿，工作簿中的指定工作表或表中指定的单元格区域。

要计算	实例

所有打开的工作簿	Application.Calculate 或仅使用Calculate

一个特定的工作表	Worksheets(1).Calculate

一个指定的区域	Worksheets(1).Rows(2).Calculate

语法

object.Calculate

元素

object

对于应用程序是可选项，对于工作表或区域是必选项。指定在何处进行 计算。


Calculate 方法实例

  该实例计算当前工作簿中的工作表Sheet1的列A,B,C中的公式。

Worksheets("Sheet1").Columns("A:C").Calculate


CalculateBeforeSave属性

实例

用于

Application

描述

如果工作簿在保存到磁盘以前（如果Calculation属性被设置为xlManual）被重算，则为True。即使改变了Calculation属性，该属性也被保存起来。可读写。

语法

object.CalculateBeforeSave

元素

    object

        必选项。应用程序对象。


CalculateBeforeSave属性实例

该实例使Microsoft Excel在工作簿被保存之前重新计算。

Application.Calculation = xlManual

Application.CalculateBeforeSave = True


CanPlaySounds属性

参阅	实例

用于

Application

描述

      如果计算机可以演奏声音附注，则为True。只读。

语法

object.CanPlaySounds

元素

     object

           必选项。应用程序对象。


参阅

CanRecordSounds属性


CanPlaysounds属性实例

该实例利用CanPlaySounds属性来决定计算机是否可以演奏声音附注。如果可以，那么就演奏单元格 A1 中的声音附注。

soundPlayCapable = Application.CanPlaySounds

If soundPlayCapable Then

Cells(1, 1).SoundNote.Play

End If


CanRecordSounds属性

参阅	实例

用于

Application

描述

      如果计算机可以录制声音附注，则为True。只读。

语法

object.CanRecordSounds

元素

object

      必选项。应用程序对象。


参阅

CanPlaySounds属性


CanRecordSounds属性实例

该实例利用CanRecordSounds属性来决定计算机能否录音。如果可以， 那么将一个音符录在单元格A1中。

soundRecordCapable = Application.CanRecordSounds

If soundRecordCapable Then

Cells(1, 1).SoundNote.Record

End If


Caption属性

参阅	实例

用于

Application, AxisTitle, Button, Buttons, Characters, ChartTitle, CheckBox, CheckBoxes, DataLabel, DataLabels, DialogFrame, DrawingObjects, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, Label, Labels, Menu, MenuBar, MenuItem, OptionButton, OptionButtons, TextBox, TextBoxes, Window

描述

Caption属性根据它所应用的对象类型不同而有几种不同的含义，Caption 属性除下表所列外均可读写。

对象类型	含义

应用程序	这个名字出现在Microsoft Excel主窗口的标题栏中。如果没有设置名字或将名字设置为空，那么该属性返回 "Microsoft Excel"。在apple Macintosh机上为只读。
坐标轴标题	坐标轴标题文字。
按钮	按钮文字。
字符集	这个字符集范围内的文字。
图表标题	图表标题文字。
控制项	控制项文字（选择框、对话框架、下拉、编辑框、组框、 标记和选项按钮）。
数据标记	数据标记文字。
菜单	菜单名，在一个希望加命令底线的字母前用一个&符 （例如，&File）。
菜单栏	菜单栏文字。
菜单项	菜单项的名字（命令），在一个希望加命令底线的字母 之前用一个&符（例如，E&xit）
文本框	文字框中的文字。
窗口	出现在文字窗口的标题栏中的名字。当设置该名字时，可以 将这个名字用作Windows属性的索引。参阅例2。可以通过 将Caption 属性设置为空来恢复默认文档名字。

语法

object.Caption

元素

   object

          必选项。该属性施加的对象。


参阅

Text属性


Caption属性实例

该实例将出现在Microsoft Excel主窗口标题栏中的名字设定为自定义的名字。

Application.Caption = "Blue Sky Airlines Reservation System"

该实例将在工作簿中的第一个窗口的名字设置为Consolidated Balance Sheet。该名字随后被用作Windows属性的索引参数。

ActiveWorkbook.Windows(1).Caption = "Consolidated Balance Sheet"

ActiveWorkbook.Windows("Consolidated Balance Sheet") _

.ActiveSheet.Calculate


CellDragAndDrop属性

实例

用于

Application

描述

     如果单元格拖曳和下拉编辑处于打开状态，则为True。可读写。

语法

object.CellDragAndDrop

元素

    object

        必选项。应用程序对象。


CellDragAndDrop属性实例

   如果单元格拖曳和下拉编辑已不处于打开状态，则该实例用于切换到单元格拖曳和下拉编辑。

dragAndDropEnabled = Application.CellDragAndDrop

If Not dragAndDropEnabled Then

Application.CellDragAndDrop = True

End If


Cells方法

参阅	实例

用于

Application, Range, Worksheet

描述

返回单个单元格（语法 1，2）或单元格集（语法3）作为Range。 Cells方法的作用依赖于它所施加的对象，如下表所示：

对象类型	作用

应用程序	如果该活动文档是一个工作表，则Application.Cells 与ActiveSheet.Cells是等效的，它返回活动工作表上的单 元 格集。否则，Cells方法返回一个 错误。

区域	从区域中返回单元格集。

工作表	从工作表中返回单元格集。

语法1

object.Cells(rowIndex, columnIndex)

 语法2

object.Cells(rowindex)

语法3

object.Cells

元素

  Cells方法具有下列对象限制和命名参数：

object

可选项，对应用程序。必选项，对工作表和区域。该对象包含单元格。如果省略 对象限制，则Cells方法施加于该活动工作簿的活动工作表上。

rowIndex

必选项，对语法1。想要访问的单元格行号，对于行 1从1开始 (对于应用程序和工作表)或从区域中的第一行开始。

必选项，对语法2。一个长整型数指明在以行为主的次序中想要访问的单元格 索引号。

对于应用程序和工作表，A1即Cells(1)，A2即Cells(257);对于区域，Cells(1)即是区域中的左上方单元格。

columnIndex

必选项，对语法1。指明想要访问的单元格列标的编号或字符串，对A列由1或 "A"开始 （对于应用程序和工作表）或在区域中从第一列开始。

解释

语法1用一个行号和列标或字母作为索引参数。为进一步获取关于该语法的信 息，参见Range对象。

语法 2 用单个编号作为索引参数。对于单元格A1，索引为1。对于单元格B1， 索引为 2。对于单元格C1，索引为3。对于单元格A2，索引为257，等等。

当将Cells方法用于一个区域对象时，rowIndex和columnIndex参数为相对偏移量。

换句话说，指定rowIndex为 1返回区域中第一行的单元格，而不是工作表中的 第一行。     例如，如果选定单元格C3，那么Selection.Cells(2,2)返回单元格D4（可以用该方 法在原始区域之外索引）。

     如果将语法3用于区域，它返回同样的Range对象（换句话说，它什么也没做） 。如果将语法3用于工作表，它返回在工作表中所有单元格集（所有单元格， 而不仅仅是当前正在使用的单元格）。


参阅

Range方法


Cells方法实例

    该实例将在活动工作表上的单元格C5的字体大小设置为14点。

Application.Cells(5, 3).Font.Size = 14

  该实例清除在活动工作表中第一个单元格内的公式。

ActiveSheet.Cells(1).ClearContents

  该实例将在活动工作表中的每一个单元格的字体设置为8点的Arial字体。

With Cells.Font

.Name = "Arial"

.Size = 8

End With


Columns方法

参阅	实例

用于

Application, Range, Worksheet

描述

     返回单个列(语法1)或列集(语法2)。列是一个Range对象。

语法 1

object.Columns(index)

语法 2

object.Columns

元素

    Columns方法具有下列对象限制和命名参数：

object

         可选项，对于应用程序。必选项，对于区域和工作表。包含列对象。

index

         必选项，对于语法1。列的名字或编号。

解释

当该方法应用于一个多重选定的区域对象时，它仅从该区域的第一个区中返回 列。例如，如果该区域对象是有A1：B2和C3：D4两个区的多重选择，则Selection.Columns.Count返回2而不是4。在一个可能包含多重选定的区域中使用该方法，测试Areas.Count以确定该区域是否是多重选定的。如果是这样，此后在该区域中 的每一个区域内循环。参见第二个实例。


参阅

Range方法

Rows方法


Columns方法实例

   该实例将活动工作表的第一列(Column A)中的字体格式设置为粗体。

ActiveSheet.Columns(1).Font.Bold = True

  该实例显示在选定区域的列标，这个代码用于测试一个多重选定，如果存在， 则在该多重选定的区域中循环。

areaCount = Selection.Areas.Count

If areaCount <= 1 Then

MsgBox "The selection contains " & _

Selection.Columns.Count & " columns."

Else

For i = 1 To areaCount

MsgBox "Area " & i & " of the selection contains " & _

Selection.Areas(i).Columns.Count & " columns."

Next i

End If


CommandUnderlines属性

实例

用于

Application

描述

      返回或设置命令底线的状态，如下表所示。

值	含义

xlOn	命令底线打开。

xlOff 	命令底线关闭。

xlAutomatic	当激活菜单时命令底线出现。

语法

object.CommandUnderlines

元素

object

      必选项。应用程序对象。

解释

     在Windows下的Microsoft Excel中，读该属性总返回xlOn，且该属性设置为除xlOn以外的任何值将会出错。


CommandUnderlines属性实例

   该实例关闭用于Macintosh上的Microsoft Excel中的命令底线。

Application.CommandUnderlines = xlOff


ConstrainNumeric属性

实例

用于

Application

描述

如果手写体的识别仅限于数字和标点符号，则为True。可读写。仅当使用Microsoft Windows for PenComputing时，该属性才有效。如果试图在任何其它操作系统下返回或设置该属性，则会发生错误。

语法

object.ConstrainNumeric

元素

object

      必选项。应用程序对象。


ConstrainNumeric属性实例

    仅当该属性运行于Microsoft Windows for Pen Computing下时，该实例用于将手写    体的识别仅限于数字和标点符号。

If Application.WindowsForPens Then

Application.ConstrainNumeric = True

End If


ConvertFormula方法

实例

用于

Application

描述

在A1和R1C1引用式样之间、相对和绝对引用之间、或两者之间，以公式转换单元格引用。

语法

object.ConvertFormula(formula, fromReferenceStyle, toReferenceStyle, toAbsolute, relativeTo)

元素

   ConvertFormula方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

formula       必选项。包含想要转换的公式的字符串。这必须是一个有效的公式而且必须以等号开始。

fromReferenceStyle

必选项。公式的引用式样，可能是 xlA1或xlR1C1。

toReferenceStyle

可选项。想要返回的引用式样，可能是xlA1或xlR1C1。如果省略，该引用式样不被改变   (公式仍然保留由fromReferenceStyle指定的式样）。

toAbsolute

可选项。指定被转换的引用类型（为xlAbsolute，xlAbsRowRelColumn，xlRelRowAbsColumn或xlRelative之一）。如果该参数被省略，则该引用类型不改变。

relativeTo       可选项。包含一个单元格的区域对象。该对象确定与相对引用有关的单元格。


ConvertFormula方法实例

该实例将包含R1C1式样引用的SUM公式转换成一个等效的包含A1式样引用的公式，然后显示结果。

inputFormula = "=SUM(R10C2:R15C2)"

MsgBox Application.ConvertFormula( _

formula:=inputFormula, _

fromReferenceStyle:=xlR1C1, _

toReferenceStyle:=xlA1)


CutCopyMode属性

实例

用于

Application

描述

     返回或设置剪切或复制方式状态，如下表所示。可读写。

返回值	描述

False	不处于剪切或复制方式

Xlcopy	处于复制方式

xlCut	处于剪切方式

设置值	描述

False	取消剪切或复制方式，然后删除流动边框线。

True	取消剪切或复制方式，然后删除流动边框线。 在Macintosh的 Microsoft Excel中，它也可以将选定的内容放在Macintosh的剪贴板中。

语法

object.CutCopyMode

元素

object

       必选项。应用程序对象。


CutCopyMode属性实例

     该实例用于将选定内容(如果存在的话)放在用于Macintosh的Microsoft Excel剪贴板中。

cutCopyModeState = Application.CutCopyMode

If cutCopyModeState Then

Application.CutCopyMode = True

End If


DataEntryMode属性

实例

用于

Application

描述

返回或设置数据输入方式，如下表所示。当处于数据输入方式时，只能在当前选定区域的解除锁定的单元格中输入数据。可读写。

值	含义

Xlon 	数据输入方式打开。

XOloff 	数据输入方式关闭。

Xlstrict	数据输入方式打开，并且Esc键将不能退出数据输入方式。

语法

object.DataEntryMode

元素

object

      必选项。应用程序对象。


DataEntryMode属性实例

    该实例将数据输入方式从打开状态转换到关闭状态。

If (Application.DataEntryMode = xlOn) Or _

(Application.DataEntryMode = xlStrict) Then

Application.DataEntryMode = xlOff

End If


DDEAppReturnCode属性

实例

用于

Application

描述

返回包含在由Microsoft Excel接收的最近一次DDE确认消息中的应用程序指定的DDE返回代码。

语法

object.DDEAppReturnCode

元素

object

      可选项。应用程序对象。


DDEAppReturnCode属性实例

    该实例将变量appErrorCode设置为DDE返回代码。

appErrorCode = Application.DDEAppReturnCode


DDEExecute方法

实例

用于

Application

描述

      通过指定的DDE通道在另一个应用程序中运行一个命令或执行其他操作。

语法

object.DDEExecute(channel, string)

元素

      DDEExecute方法具有下列对象限制和命名参数：

object

      可选项。应用程序对象。

channel

      必选项。用DDEInitiate方法返回的通道号。

string

      必选项。在接收应用程序中定义的消息。

解释

 如果该方法调用失败，则发生错误。

DDEExecute方法被设计用于向另一个应用程序发送命令，也可以用它 向另一个应用程序发送击键，虽然SendKeys方法是发送击键的首选方法。string 参数可以指定任何单个键，或与ALT，CTRL、SHIFT键组合的任何单个键，或这 些键的任意组合(在Microsoft Excel for Windows中)或COMMAND，CTRL，OPTION或SHIFT键或这些键的任意组合(在Macintosh的Microsoft Excel中)。每一个键均用一个或更多个字符表示，诸如"a"表示字 符a，或"{Enter}"表示Enter键。

当按该键时，为了指明不被显示的字符，例如Enter或TAB，使用如下表所示的代码。表中的每一个代码均表示键盘上的一个键。

键	代码

BACKSPACE	"{BACKSPACE}" or "{BS}"

BREAK	"{BREAK}"

CAPS LOCK	"{CAPSLOCK}"

CLEAR	"{CLEAR}"

DELETE or DEL	"{DELETE}" or "{DEL}"

DOWN ARROW	"{DOWN}"

END	"{END}"

ENTER (numeric keypad)	"{ENTER}"

ENTER	"~" (tilde)

ESC	"{ESCAPE} or {ESC}"

HELP	"{HELP}"

HOME	"{HOME}"

INS	"{INSERT}"

LEFT ARROW	"{LEFT}"

NUM LOCK	"{NUMLOCK}"

PAGE DOWN	"{PGDN}"

PAGE UP	"{PGUP}"

RETURN	"{RETURN}"

RIGHT ARROW	"{RIGHT}"

SCROLL LOCK	"{SCROLLLOCK}"

TAB	"{TAB}"

UP ARROW	"{UP}"

F1 through F15	"{F1}" through "{F15}"

在Windows的Microsoft Excel中，也可以指定与SHIFT和/或CTRL和/或ALT组合的键。

在Macintosh上的Microsoft Excet中，也可以指定与SHIFT和/或CTRL和/或CTRL和/ 或OPTION和/或COMMAND组合的键。 为了指定与另一个键或另一些键组合的一个键，使用下表。

要组合的键 	在键前设置代码

SHIFT	"+" (加号)

CTRL	"^" (插字符)

ALT or OPTION	"%" (百分号)

COMMAND	"*" (星号)


DDEExecute方法实例

该实例显示如何向Word for Windows打开一个通道，打开Word文档FORMLETR.DOC， 然后将[文件]菜单的 [打 印]命令传送到Word中。

channelNumber = Application.DDEInitiate("WinWord", "FORMLETR.DOC")

Application.DDEExecute channelNumber, "[FILEPRINT]"

Application.DDETerminate channelNumber


DDEInitiate方法

实例

用于

Application

描述

     为一个应用程序打开一个DDE通道。

语法

object.DDEInitiate(app, topic)

元素

      DDEInitiate方法具有下列对象限制和命名参数：

object

可选项。应用程序对象。

app

必选项。包含应用程序名的一个字符串。

topic

必选项。用于描述为其打开通道的应用程序的字符串，通常为应用程序的文档。

解释

如果成功，则DDEInitiate方法返回打开通道的编号。所有后续的DDE函数都使用这个编号以指定通道。


DDEInitiate方法实例

  该实例显示如何打开一个向Word for Windows通道，打开Word文档 FORMLETER.DOC， 然后从[文件]菜单中将[打印]命令送到Word中。

channelNumber = Application.DDEInitiate("WinWord", "FORMLETR.DOC")

Application.DDEExecute channelNumber, "[FILEPRINT]"

Application.DDETerminate channelNumber


DDEPoke方法

实例

用于

Application

描述

      向一个应用程序发送数据。

语法

object.DDEPoke(channel, item, data)

元素

    DDEPoke方法具有下列对象限制和命名参数：

   Object

       可选项。应用程序对象。

channel

     必选项。DDEInitiate 方法返回的通道号。

item

     必选项。数据被发送到的项。

data

     必选项。发送到应用程序的数据。

解释

     如果该方法调用失败，则发生错误。


DDEPoke方法实例

   该实例显示如何打开一个通向Word for Windows的通道，打开Word文档 SALES.DOC，   然后将单元格A1中的内容插在文档的开始。

channelNumber = Application.DDEInitiate("WinWord", "SALES.DOC")

Set rangeToPoke = Cells(1, 1)

Application.DDEPoke channelNumber, "\StartOfDoc", rangeToPoke

Application.DDETerminate channelNumber


DDERequest方法

实例

用于

Application

描述

从一个指定的应用程序中请求信息。该方法总是返回一个数组。详细信 息，参见实例。

语法

object.DDERequest(channel, item)

元素

      DDERequest方法具有下列对象限制和命令参数：

      Object

          可选项。应用程序对象。

channel

         必选项。由DDEInitiate方法返回的通道号。

item

      必选项。要申请的项。


DDERequest方法实例

    该实例显示如何打开一个通向Word for Windows的System主题的通道， 然后利用这个主题项返回所有打开文档的清单。该清单被返回到A列中。

channelNumber = Application.DDEInitiate("WinWord", "System")

returnList = Application.DDERequest(channelNumber, "Topics")

For i = LBound(returnList) To UBound(returnList)

    Cells(i, 1).Formula = returnList(i)

Next i

Application.DDETerminate channelNumber


DDETerminate方法

实例

用于

Application

描述

      关闭通向另一个应用程序的通道。

语法

object.DDETerminate(channel)

元素

    DDETerminate方法具有下列对象限制和命名参数：

object

       可选项。应用程序对象。

channel

       必选项。由DDEInitiate方法返回的通道号。


DDETerminate方法实例

    该实例显示如何打开一个通向Word for Windows的通道，打开一个Word文档 FORMLETR.DOC，将[文件]菜单中[打印]命令送到Word中，然后关闭通向Word的通道。

channelNumber = Application.DDEInitiate("WinWord", "FORMLETR.DOC")

Application.DDEExecute channelNumber, "[FILEPRINT]"

Application.DDETerminate channelNumber


Run方法

实例

用于

Application, Range

描述

语法1 ：运行一个宏或调用一个函数。它可以运行用任何语言(Visual Basic，    Microsoft Excel 4.0 宏语言，或DLL或XLL中的函数)编写的宏。

语法2：运行在该位置的Microsoft Excel 4.0宏。该区域必须在一个宏表上。

语法1

object.Run(macro, arg1, arg2, ...)

语法2

object.Run(arg1, arg2, ...)

      元素

    Run方法具有下列对象限制和命令参数：

object

 可选项。对于应用程序。必选项，对区域。包含该宏的应用程序或            包含一个Microsoft Excel 4.0宏的宏表上的一个区域。

macro

必选项。对于语法1(不能与语法2一同使用)。要运行的宏。它可以是一个带有 宏名的字符串，或指明该函数在何处的一个区域，或用于一个注册的DLL(XLL) 函数的注册标识ID。如果使用一个字符串，则字符串在活动表的上下文中被求 值。

arg1, arg2, ...

可选项。该参数将被传递到该函数中。

解释

       RUN方法返回调用的宏所返回的任何东西。


Run方法实例

   该实例显示如何调用函数宏My_Func_Sum。它在宏表MYCUSTOM.XLM(这个宏表必须是打开的)中已被定义。在该实例中，这个函数带有两个数字参数1和5。

mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5)

MsgBox "Macro result: " & mySum


DisplayAlerts 属性

实例

用于

Application

描述

  当宏运行时，如果Microsoft Excal显示一定报警和消息为True。可读写。

语法

object.DisplayAlerts

元素

object

  必选项。应用程序对象。

解释

默认为True。当宏运行时如果不想被提示和报警消息打扰，  且想要Microsoft Excal选择默认响应，设置该值为False。

如果设置该属性为False，当宏停止运行时，Microsoft Excel  设置其返回为True。


DisplayAlerts 属性实例

 该实例关闭当前工作簿。用户未被提示保存改变(若有)， 且这些改变不保存。

Application.DisplayAlerts = False

ActiveWorkbook.Close


DisplayFormulaBar 属性

实例

用于

Application

描述

    如果编辑栏被显示，则为True。可读写。

语法

object.DisplayFormulaBar

元素

object

    必选项。应用程序对象。


DisplayFormulaBar 属性实例

该实例保存DisplayFormulaBar属性的当前状态，然后设置该属性为False，所以编辑栏不显示。

saveFormulaBar = Application.DisplayFormulaBar

Application.DisplayFormulaBar = False


DisplayNoteIndicator 属性

实例

用于

Application

描述

    如果含有附注的单元格含有附注指示器(其右上角小点)，则为True。可读写。

语法

object.DisplayNoteIndicator

元素

object

    必选项。应用程序对象。


DisplayNoteIndicator属性实例

该实例保存DisplayNoteIndicator属性的当前状态，然后设置该属性为True，使得具有附注的单元格有附注指示器。

saveNoteIndicator = Application.DisplayNoteIndicator

Application.DisplayNoteIndicator = True


DisplayStatusBar 属性

参阅	实例

用于

Application

描述

    如果状态栏被显示，则为True。可读写。

语法

object.DisplayStatusBar

元素

object

    必选项。应用程序对象。


参阅

    StatusBar属性


DisplayStatusBar 属性实例

 该属性保存DisplayStatusBar属性的当前状态，然后设置该属性为True，使得状态栏是可见 的。

saveStatusBar = Application.DisplayStatusBar

Application.DisplayStatusBar = True


DoubleClick 方法

参阅	实例

用于

Application

描述

    等价于双击当前单元格或当前选定的对象。

语法

object.DoubleClick

元素

object

    必选项。应用程序对象。


参阅

    OnDoubleClick属性


DoubleClick 方法实例

 该实例双击当前单元格或选定的对象。

Application.DoubleClick


Evaluate 方法

实例

用于

Application， Chart， DialogSheet， Worksheet

描述

    转换Microsoft Excel名字为对象或值。

语法

object.Evaluate(name)

元素

    Evaluate方法具有下列对象限制和命名参数：

object

    可选项，对应用程序。

    必选项，对图表、对话表和工作表。含有命名对象。

name

    必选项。对象名字用Microsoft Excel命名约定。

解释

  在Microsoft Excel中下列名字使用该方法：

  A1-式样引用。使用A1表示法的单一单元格引用。所有引用被认为是绝对引用。

 区域。可使用带引用的区域，交和联合运算符(冒号，空格和逗号)定义的名字， 在宏语言中。

外部引用。使用!运算符。这些引用可能是其他工作簿中定义的单元格或名字， 例如， Evaluate("[BOOK1.XLS]Sheet1!A1")。

图形对象。使用它们的Microsoft Excel名字（例如，“Oval3”） 。不能只用数字。

附注	使用方括号 (例如， [A1:C5]) 标识调用带有参数的 Evaluate 方法。 例如， 下列表达式是等价的：

[a1].Value = 25

Evaluate("A1").Value = 25

trigVariable = [SIN(45)]

trigVariable = Evaluate("SIN(45)")

Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1]

Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")

使用方括号的优点是简短。使用Evaluate的优点是参数为字符串，因此可以在代 码中构造字符串或使用Visual Basic变量。


Evaluate 方法实例

该实例在单元格A1中打开粗体格式。

boldCell = "A1"

Application.Evaluate(boldCell).Font.Bold = True


ExecuteExcel4Macro 方法

参阅	实例

用于

Application

描述

    运行Microsoft Excel 4.0宏函数并返回函数结果。返回类型依赖于函数。可读写。

语法

object.ExecuteExcel4Macro(string)

元素

    ExecuteExcel4Macro方法具有下列对象限制和命名参数：

object

      可选项。应用程序对象。

string

必选项。Microsoft Excel 4.0宏语言函数不带等号。

所有引用必须用R1C1字符串给定。如果string含有内嵌的双引号，必须写两次。例如，要运行宏函数 =MID("sometext",1,4)，string必须是 "MID(""sometext"",1,4)"。

解释

Microsoft Excel4.0宏在当前工作簿或表的上下文中不求值。这意味着任何引用必 须是外部的且必须 详细指定工作簿名字。例如，为运行Book1中Microsoft Excel 4.0"My-Macro"宏，必须使用"Book1!My_Macro()"。如果不指定工作簿名字，该方法失败。


参阅

    Run方法


ExecuteExcel4Macro 方法实例

    该实例运行工作表上ZOOM宏函数。

Worksheets(1).Activate

Application.ExecuteExcel4Macro "ZOOM(50)"


FixedDecimal 属性

实例

用于

Application

描述

该属性设置为True后所有输入的数据将用由 FixedDecimalPlaces 属性设置的固定十进制小数位置格式化。

语法

object.FixedDecimal

元素

object

    必选项。应用程序对象。


FixedDecimal 属性实例

 该实例设置FixedDecimal属性为True，然后设置FixedDecimalplaces属性为4。输入"30000"，该代码运行后在工作表上产生"3"，输入"12500"产生"1.25"。

Application.FixedDecimal = True

Application.FixedDecimalPlaces = 4


FixedDecimalPlaces 属性

实例

用于

Application

描述

当FixedDecimal 属性设置为True时，返回或设置所有的固定十进制小数位数。可读写。

语法

object.FixedDecimalPlaces

元素

object

    必选项。应用程序对象。


FixedDecimalPlaces 属性实例

 该实例设置FixedDecimal属性为True，然后设置FixedDecimalPlaces属性为4。 输入"30000"，当该代码运行后，在工作表上产生"3"，输入"12500"产生"1.25"。

Application.FixedDecimal = True

Application.FixedDecimalPlaces = 4


Height 属性

参阅	实例

用于

Application， Arc， Arcs， Button， Buttons， ChartArea， ChartObject， ChartObjects， CheckBox， CheckBoxes， DialogFrame， Drawing， DrawingObjects， Drawings， DropDown， DropDowns， EditBox， EditBoxes， GroupBox， GroupBoxes， GroupObject， GroupObjects， Label， Labels， Legend， Line， Lines， ListBox， ListBoxes， OLEObject， OLEObjects， OptionButton， OptionButtons， Oval， Ovals， Picture， Pictures， PlotArea， Range， Rectangle， Rectangles， ScrollBar， ScrollBars， Spinner， Spinners， TextBox， TextBoxes， Toolbar， Window

描述

    返回或设置对象的高度，以点数(1/72英寸)为单位。

语法

object.Height

元素

object

    必选项。该属性施加的对象。对所有对象可读写，下表显示的除外。

对象类型	高度
Application	主应用程序窗口的高度，在AppleMocitosh上，总等于屏幕 的总高度，以点数为单位。设置该值为其它值将无效， 在Microsoft Windows下，如果窗口被最小化， 该属性是只读的且引用图标的高度。如果窗口被最大化，该属性不能被设置。使用WindowState 属性确定窗口状态 。
Range	区域的高度。只读。
Toolbar	工具栏高度。用点数返回工具栏的精确高度。使用 Width 属性改变工具栏的尺寸。只读。
Window	窗口高度。使用 UsableHeight 属性确定窗口的最大尺寸。 如果窗口被最大化或最小化，不能设置该属性。使用 WindowState 属性确定窗口状态。
Arc, Button, ChartArea, ChartObject, CheckBox, DialogFrame, Drawing, DrawingObjects, DropDown, EditBox, GroupBox, GroupObject, Label, Legend, Line, ListBox, OLEObject, OptionButton, Oval, Picture, PlotArea, Rectangle, ScrollBar, Spinner, TextBox	对象的高度。
    可用负数设置下列图形对象的Height和Width属性：弧形，按钮，选择框，图形，下拉， 编辑框，组框，组对象，标记，直线，列表框，OLE对象，选项按钮，椭圆形，图片， 矩形，滚动条，旋转器和文字框。

这导致对象反射或平移(行为依赖于对象)，此后Top和left属性改变以描述新位置。 Height和Width属性总返回正数。


参阅

    Left属性

    Top属性

    Width属性


Height 属性实例

 该实例设置椭圆1的高度为一英寸(72点)。

ActiveSheet.Ovals(1).Height = 72


Help 方法

实例

用于

Application

描述

    显示帮助主题。

语法

object.Help(helpFile, helpContextID)

元素

    Help方法具有下列对象限制和命名参数：

object

      必选项。应用程序对象。

helpFile

可选项。希望显示的联机帮助文件的名字。如果该参数未指定，Microsoft Excel的帮助文件被使用。

helpContextID

      可选项。指定帮助主题的上下文ID。如果该参数未指定，内容主题被显示。


Help方法实例

 该实例显示帮助文件OTISAPP.HLP的内容屏幕。

Application.Help "OTISAPP.HLP"


IgnoreRemoteRequests 属性

实例

用于

Application

描述

    如果远程DDE请求忽略，则为True。可读写。

语法

object.IgnoreRemoteRequests

元素

object

    必选项。应用程序对象。


IgnoreRemoteRequests 属性实例

该实例保存IgnoreRemoteRequests属性的当前状态，然后该属性为True， 因此远程DDE请求被忽略。

saveIgnoreRequests = Application.IgnoreRemoteRequests

Application.IgnoreRemoteRequests = True


InputBox 方法

实例

用于

Application

描述

    显示用于用户输入的对话框。返回对话框中输入的信息。

语法

object.InputBox(prompt, title, default, left, top, helpFile, helpContextID, type)

元素

    InputBox方法具有下列对象限制和命名参数：

object

    必选项。应用程序对象。

prompt

    必选项。显示在对话框中的消息。这可以是字符串，数字，日期或布尔值。

title

    可选项。输入框的标题。如果该参数被省略，标题栏为空。

default

可选项。当对话框初始显示时，指定值被放在编辑框中。如果该参数被省略， 编辑框留为空。该值可以是一个区域(Range)。

left

可选项。指定对话框x坐标，用点，从屏幕左上开始。一点为1/72英寸。

top

可选项。指定对话框Y坐标，用点，从屏幕左上开始。

helpFile

可选项。用于该输入框的联机帮助文件名字。如果helpFile和helpContoxtID参数出现， 帮助按钮将出现在对话中。

helpContextID

可选项。helpFile中帮助主题的上下文ID。

type

可选项。指定返回数据类型。如果该参数被省略，对话框返回文本。

可具有下列值之一：

值	含义

 0	公式

 1	数字

 2	文字(字符串)

 4	逻辑值(True或False)

 8	单元格引用，如区域对象

16	错误值，诸如#N/A

64	值数组

      可使用Type许用值之和。例如，对于可接受文字和数字的输入框，设置type=1+2。

解释

使用InputBox显示一简单对话框，因此可输入用于宏中的信息。对话框具有[确定]和 [取消]按钮。如果选择[取消]按钮，InputBox返回False。如果type=0，InputBox用文本 方式返回公式，如，"=2*PI()/360"。

如果在公式中有引用，它们被返回为A1-式样引用。(用ConvertFormula 在引用式样之间转换。)

如果 type = 8， InputBox 返回区域。必须用Set语句赋值给一区域，如下例所示。

Set myRange = InputBox(prompt := "Sample", type := 8)

如果不使用set语句，变量被设置为区域中的值，而不是区域本身。

如果使用InputBox方法请求用户输入公式，必须使用FormulaLocal属性赋值公式到 区域。 输入公式在用户语言中。InputBox方法区别于InputBox 函数，因为它允许用户输入的选定合法性，并且可被Microsoft Excel对象、错误值和公式使用。Application.InputBox调用InputBox方法；无对象限制 的InputBox 调用InputBox函数。


InputBox 方法实例

    该实例询问上下文字符串的名字。

stringToFind = Application.InputBox("Context string to find?", _

"Search String")


Interactive 属性

实例

用于

Application

描述

如果Microsoft Excel处于交互方式，则为True；该属性通常为True。

如果设置为False，Microsoft Excel禁止从键盘和鼠标输入 (除用户代码显示的对话框外)。禁止用户输入将防止用户干扰宏， 当它移动或激活Microsoft Excel对象时。可读写。

语法

object.Interactive

元素

object

      必选项。应用程序对象。

解释

如果使用DDE，AppleEvents或OLE自动化从其他应用程序与Microsoft Excel通讯，该属性是有用的。

如果设置该属性为False，不要忘记将其返回设置为True，当宏停止运行时，Microsoft Excel将不设置该属性返回为True。


Interactive 属性实例

 当使用DDE时该实例设置Interactive为False，然后在完成时重新设置其为True。

Application.Interactive = False

Application.DisplayAlerts = False

channelNumber = Application.DDEInitiate("WinWord", "FORMLETR.DOC")

Application.DDEExecute channelNumber, "[FILEPRINT]"

Application.DDETerminate channelNumber

Application.Interactive = True

Application.DisplayAlerts = True


International属性

实例

用于

Application

描述

    返回一个包含当前国家和国别设置的45个元素的数组。只读。

语法

object.International(index)

元素

object

  必选项。应用程序对象。

index

  可选项。返回指定的单一设置，如下表所示：

索引	内部常量	类型	含义
1	xlCountryCode	数	Microsoft Excel国家版本。
2	xlCountrySetting	数	Microsoft Windows控制面板中的当前国别设置，或由Apple 系统软件确定的国家编号。
3	xlDecimalSeperator	文字	十进制小数点。
4	xlTousandsSeperator	文字	零或千位分隔符。
5	xlListSeperator	文字	列表分隔符。
6	xlVpperCoseRowLetter	文字	大写的行字母(R1C1地址)。
7	xlVpperCaseColumnLetter	文字	大写的列字母。
8	xlLowerCaseRowLetter	文字	小写的行字母。
9	xlLouerCaseColumnLetter	文字	小写的列字母。
10	xlLeftBraket	文字	在R1C1相对地址中用于代替左方括号([)的字符。
11	xlRightBraket	文字	用于代替右方括号(])的字符。
12	xlLeftBrace	文字	数组文字中用于代替左花括号({)的字符。
13	xlRightBrace	文字	用于代替右花括号(})的字符。
14	xlColumnSeperater	文字	数组文字中用以分隔列的字符。
15	xlRowSeperater	文字	用于分隔行的字符。
16	xlAlternateArraySeperator	文字	如果当前数组分隔符与小数分隔符相同， 用于区别数组项分隔符。
17	xlDateSeperator	文字	日期分隔符(/ in US)。
18	xlTimeSeperator	文字	时间分隔符(∶in US)。
19	xlYearCode	文字	数字格式中的年符号(y in US)。
20	xlMonthCode	文字	月符号(m)。
21	xlDayCode	文字	日符号(d)。
22	xlHourCode	文字	小时符号(h)。
23	xlMinuteCode	文字	分符号(m)。
24	xlSecondCode	文字	秒符号(s)。
25	xlCurrencyCode	文字	货币符号($)。
26	xlGeneralFormatName	文字	通用数字格式名字。
27	xlCurrencyDigits	数	用于货币格式中小数位的位数。
28	xlCurrencyNegative	数值	负货币的货币格式: 0=($x)或(x$) 1=-$x或-x$ 2=$-x或x-$ 3=$-x或x-$ 附注:货币符号的位置由37确定。
29	xlNonCurrencyDigits	数值	用于非货币格式的小数位的位数。
30	xlMonthNameCharts	数值	用于月名的字符数。
31	xlWeekdayNameCharts	数值	用于星期名的字符数。
32	xlDateOrder	数值	表示日期次序。 0=月-天-年 1=天-月-年 2=年-月-日
33	xl24HourClock	布尔	用24小时制，则为True。
			用12小时制，则False。
34	xlNonEnglishFunctions	布尔	不用英语显示函数，则为True。
35	xlMetric	布尔	用公制，则为True；用英制，则False。
36	xlCurrencySpaceBefore	布尔	在货币符号前加入空格，则为True。
37	xlCurrencyBefore	布尔	货币标记在货币值之前，则为True。 在其后，则为False。
38	xlCurrencyMinusSign	布尔	负值用减号，则为True。用圆括号，则为 False。
39	xlCurrencyTrailingZeros	布尔	零货币值的尾零显示，则为True。
40	xlCurrencyLeadingZeros	布尔	零货币值的前导零显示，则为True。
41	xlMonthLeadingZero	布尔	当月用数字显示时，其前导零显示，则为 True。
42	xlDayLeadingZero	布尔	显示日的前导零，则为True。
43	xl4DigitYears	布尔	用4位数表示年，则为True。 用2位数表示年，则为False。
44	xlMDY	布尔	当日期用长型显示时,日期顺序是月-日-年，则为True；日期顺序是日-月-年，则为False。
45	xlTimeLeadingZero	布尔	如果时间中前导零被显示，则为True。


International属性实例

该实例用International属性显示国别小数分隔符。

MsgBox "The decimal separator is " & _

Application.International(xlDecimalSeparator)


Intersect方法

参阅	实例

用于

Application

描述

    返回二个或多个区域的矩形交叉点。

语法

object.Intersect(arg1, arg2, ...)

元素

  Intersect方法具有下列对象限制和命名参数：

object

  可选项。应用程序对象。

arg1, arg2, ...

  必选项。相交区域。至少要指定二个区域。


参阅

Union方法


Intersect方法实例

该实例选定命名区域(range1 和 range2)的交叉点。

Application.Intersect(Range("range1"), Range("range2")).Select


Iteration属性

参阅	实例

用于

Application

描述

  如果Microsoft Excel用迭代法处理循环引用，则为True。可读写。

语法

object.Iteration

元素

object

  必选项。应用程序对象。


参阅

MaxIteration属性

MaxChange属性


Iteration属性实例

该实例保存迭代属性的当前状态,并设置属性为True，Microsoft Excel便可用迭代法处理循环引用。

saveIteration = Application.Iteration

Application.Iteration = True


Left属性

参阅	 实例

用于

Application, Arc, Arcs, AxisTitle, Button, Buttons, ChartArea, ChartObject, ChartObjects, ChartTitle, CheckBox, CheckBoxes, DataLabel, DataLabels, DialogFrame, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Legend, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, PlotArea, Range, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes, Toolbar, Window

描述

    以点数(1/72英寸)返回或设置指定对象的位置，区域对象除外。可读写。

语法

object.Left

元素

object

  必选项。该属性施加的对象。

解释

  Left属性有几种不同的含义，其依赖于所施加的对象。

对象	含义
Application	以点为单位测量物理屏幕的左边界至Micosoft Excel主窗口左边界的距离。
ClipboardWindow	仅用于Macintosh。以点为单位从可用区域的左边界起测量 窗口左边界位置。菜单、左停靠工具栏和/或公式栏下。
Range	以点为单位测量例A左边界至区域左边界的距离。如果区域 是非连续的，则用于第一区域。如果区域是多列的，则用于最左边的列。只读。
Toolbar	如果工具栏是驻留的(其Position属性不为xlFloating)，则为 工具栏左边界至工具栏驻留区域左边界的距离，用点数 表示。如果工具栏是浮动的，则为左具栏左边界至Microsoft Excel工作区左边界的距离，用点数表示。
Window	以点为单位从可用区域的左边界起测量窗口左边界位置。
Arc, AxisTitle, Button, ChartArea, ChartTitle, CheckBox, DataLabel, DialogFrame, Drawing, DrawingObjects, DropDown, EditBox, GroupObject, GroupBox, Label, Legend, Line, ListBox, OLEObject, OptionButton, Oval, Picture, PlotArea, Rectangle, ScrollBar, Spinner, TextBox	以点为单位从列A(工作表上)左边界或图表区(图上)  的左上角测量对象的左边界位置。
如果窗口被最大化，Application.Left属性返回随窗口内框线宽度变化的负数。 如果设置Application.Left为零，将使窗口比最大应用程序窗口略小一些。换句话说， 如果Application为零，Microsoft Excel主窗口的左边界刚好在屏幕上可见。

在Apple Macintosh上，Application.Left总是零。设置任何值，对该系统均无效。 对于Microsoft Windows，如果Microsoft Excel窗口是最小化窗口，Application.Left控制图标的位置。


参阅

Height属性

Top属性

Width属性


Left属性实例

该实例移动椭圆形1，使其刚好与第一列的左边界相切。

ActiveSheet.Ovals(1).Left = 0


LibraryPath属性

实例

用于

Application

描述

    返回LIBRARY目录的路径，不包括最后分隔符。只读。

语法

object.LibraryPath

元素

object

  必选项。应用程序对象。


LibraryPath属性实例

该实例打开LIBRARY目录中的OSCAR.XLA文件。

f = Application.LibraryPath & "\OSCAR.XLA"

Workbooks.Open filename:=f


Lines Method
Lines方法

实例

用于

Chart, DialogSheet, Worksheet

描述

  返回图表、对话表或工作表上单一直线( Line对象，语法1)或直线集( Lines对象，语法2)。只读。

语法1

object.Lines(index)

语法2

object.Lines

元素

    Lines方法具有下列对象限制和命名参数：

   object

  必选项。该方法施加的对象。

index

  必选项,对语法1。直线的名字或编号。

解释

    该属性同时返回直线和箭头。直线和箭头的唯一区别是ArrowHeadStyle 属性。


Lines方法实例

该实例在当前表上删除折线。

ActiveSheet.Lines(3).Delete


MathCoprocessorAvailable属性
MathCoproceasorAvaitable属性

 实例

用于

Application

描述

    如果数字协处理器有效，则为True。只读

语法

object.MathCoprocessorAvailable

元素

object

  必选项。应用程序对象。


MathCoorceasorAvailable属性实例

如果数字协处理器无效,该实例显示消息框。

If Not Application.MathCoprocessorAvailable Then

MsgBox "This macro requires a math coprocessor"

End If


MaxChange属性

参阅	 实例

用于

Application

描述

    当Microsoft Excel解决循环引用时，返回或设置用于每一迭代的最大改变量。可读写。

语法

object.MaxChange

元素

object

  必选项。应用程序对象。

解释

   MaxIterations 属性设置用于解决循环引用的最大迭代数。


参阅

Iteration属性

MaxIterations属性


MaxChange属性实例

该实例保存当前设置的MaxChange属性，并设置每一迭代的最大改变量为0.1。

saveMaxChange = Application.MaxChange

Application.MaxChange = 0.1


MaxIterations 属性
Maxleteragions属性

参阅	实例

用于

Application

描述

返回或设置最大迭代数，其用于解决循环引用。可读写。

语法

object.MaxIterations

元素

object

必选项。应用程序对象。

解释

MaxChange属性设置每一迭代中的最大改变量，其用于解决循环引用。


参阅

lteration属性

MaxChange属性


Maxlterations属性实例

该实例保存Maxlterations属性的当前值，并设置最大迭代数为1000。

saveMaxIterations = Application.MaxIterations

Application.MaxIterations = 1000


MemoryFree属性

参阅	 实例

用于

Application

描述

以字节形式返回Microsoft Excel可利用的内存量。只读。

语法

object.MemoryFree

元素

object

必选项。应用程序对象。


参阅

MemoryTotal属性

MemoryUsed属性


Memory属性实例

该实例在消息框中显示可用字节总数。

MsgBox "Microsoft Excel has " & Application.MemoryFree & " bytes free"


MemoryTotal属性

参阅	实例

用于

Application

描述

以字节形式返回Microsoft Excel可利用的内存总量，包括已用内存。只读。

语法

object.MemoryTotal

元素

object

必选项。应用程序对象。

解释

MemoryTotal = MemoryUsed + MemoryFree.


参阅

MemoryUsed属性

MemoryFree属性


MemoryTotal属性实例

该实例在消息框中显示可用字节总数。

MsgBox "Microsoft Excel has " & Application.MemoryTotal & _

" total bytes available"


MemoryUsed属性

参阅	实例

用于

Application

描述

以字节形式返回Microsoft Excel当前使用的内存量。只读。

语法

object.MemoryUsed

元素

object

必选项。应用程序对象。


参阅

MemoryFree属性

MemoryTotal属性


MemoryUsed属性实例

该实例在消息框中显示当前使用的字节数。

MsgBox "Microsoft Excel is currently using " & _

Application.MemoryUsed & " bytes"


MenuBars方法

实例

用于

Application

描述

返回单一菜单栏（MenuBar对象，语法 1）或顶层菜单栏集（MenuBars对象，语法 2）。只读。

语法 1

object.MenuBars(index)

语法 2

object.MenuBars

元素

MenuBars方法具有下列对象限制和命名参数：

object

可选项。应用程序对象。

index

必选项，对语法 1。菜单栏名字或编号。下列清单显示预定义的有效常量。

常量	描述
xlWorksheet	工作表，宏表及对话表
xlChart	图表
xlModule	Visual Basic模块表
xlNoDocuments	没有文档打开
xlInfo	信息窗口
xlWorksheetShort	短的工作表菜单（用于兼容Microsoft Excel版本3）
xlChartShort	短的图表菜单（用于兼容Microsoft Excel版本3）
xlChart4	旧的图表菜单栏（用于兼容Microsoft Excel版本4）


MenuBars方法实例

该实例显示主工作表菜单栏的菜单编号，增加名叫"Extra"的菜单，并在菜单栏上 显示菜单的新编号。

Set worksheetMenuBars = Application.MenuBars(xlWorksheet)

With worksheetMenuBars

numberOfMenus = .Menus.Count

MsgBox "There are " & numberOfMenus & _

" menus in the menubar"

.Menus.Add "Extra"

numberOfMenus = .Menus.Count

MsgBox "There are now " & numberOfMenus & _

" menus in the menubar"

End With


MouseAvailable属性

实例

用于

Application

描述

如果鼠标可用，则为True（在Macintosh上总为True）。只读。

语法

object.MouseAvailable

元素

object

必选项。应用程序对象。


MouseAvailable属性实例

如果鼠标可用，该实例设置变量systemMouseAvailable为True。

systemMouseAvailable = Application.MouseAvailable


MoveAfterReturn属性

实例

用于

Application

描述

当按下ENTER（RETURN）键时，如果选定区域立即移动，则为True。可读写。

语法

object.MoveAfterReturn

元素

object

必选项。应用程序对象。


MoveAfterReturn属性实例

该实例保存MoveAfterReturn属性的当前状态，并设置属性为True， 以便按下ENTER键后，选定区域立即移动。

saveMoveAfter = Application.MoveAfterReturn

Application.MoveAfterReturn = True


Names方法

实例

用于

Application， Workbook

描述

返回单一名字（Name对象，语法 1）或名字集（Names对象，语法 2）。只读。

语法 1

object.Names(index， indexLocal， refersTo)

语法 2

object.Names

元素

Names方法具有下列对象限制和命名参数：

object

对于应用程序为可选项，对于工作簿为必选项。指定包含返回名字的对象。

index

可选项（语法 1要求的三个参数之一）。返回已定义的名字或编号。

indexLocal

可选项（语法 1要求的三个参数之一）。用户语言表示的已定义的名字。 如果使用该参数，名字将不再转换。

refersTo

可选项（语法 1要求的三个参数之一）。与名字有关的内容。可由此产生名字。

解释

对于语法 1，仅可指定三个参数中的一个。

该方法在活动工作簿中为应用程序对象返回名字。


Names方法实例

该实例显示活动工作簿中已定义名字的编号。

MsgBox "This workbook has " & ActiveWorkbook.Names.Count & _

" defined names"


OnData属性

实例

用于

Application， Worksheet

描述

返回或设置过程名字，当DDE或OLE链接的数据到达Microsift

Excel时，运行该过程。该过程仅当来自另一应用程序的数据到达时，方可运行。 可读写。

语法

object.OnData

元素

object

必选项。该属性施加的对象。

解释

设置该属性为" "（空文字），以删除过程。


Ondata属性实例

如果数据到达活动工作表，该实例运行my_Worksheet_Data_Handler。

如果数据到达其他地方，则运行my_Global_data_handler。

ActiveSheet.OnData = "my_Worksheet_Data_Handler"

Application.OnData = "my_Global_Data_Handler"


OnEntry属性

 实例

用于

Application， Worksheet

描述

返回或设置过程名字，当用编辑栏输入数据或在单元格中编辑数据时，运行该过程。 可读写。

语法

object.OnEntry

元素

object

必选项。该属性施加的对象。

解释

当使用编辑命令或宏函数时，该过程不运行。设置该属性为" "（空文字）以删除过程。使用Caller属性确定具有输入数据的单元格。


OnEntry属性实例

当数据在活动工作表上输入时，该实例运行my_Worksheet_Entry_Procedure。

当数据在其他地方输入时，则运行my_Global_Entry_Procedure。

ActiveSheet.OnEntry = "my_Worksheet_Entry_Procedure"

Application.OnEntry = "my_Global_Entry_Procedure"


OnKey方法

实例

用于

Application

描述

当按下特定键或组合键时，运行指定过程。

语法

object.OnKey(key， procedure)

元素

OnKey方法具有下列对象限制或命名参数：

object

必选项。应用程序对象。

key

必选项。表示击键的字符串。

procedure

可选项。表示过程名字的字符串。如果procedure为""（空文字），当key按下时什 么都不发生。OnKey的这种形式，使得Microsoft Excel中击键的正常含义无效。 如果procedure 省略，key反显其Microsoft Excel中的正常含义，任何用前一OnKey 方法产生的特殊键指定 被清除。

解释

key参数可指定任何单一键或是与ALT，CTRL，SHIFT的组合键，也可以是这些键的任 意组合（在Microsoft Excel for Windows中）或COMMAD，CTRT，OPTION，SHIFT 键及其组合键（在Microsoft Excel for Macintosh中）。每个键由一个或多个字符表示， 如"a"代表字符a，"{ENTER}"代表ENTER键。

用下表中的代码指定那些击键时不显示的字符，如ENTER或TAB键。每个代码代表 键盘上的一个键。

键	代码

BACKSPACE	"{BACKSPACE}" or "{BS}"

BREAK	"{BREAK}"

CAPS LOCK	"{CAPSLOCK}"

CLEAR	"{CLEAR}"

DELETE or DEL	"{DELETE}" or "{DEL}"

DOWN arrow	"{DOWN}"

END	"{END}"

ENTER (numeric keypad)	"{ENTER}"

ENTER	"~" (tilde)

ESC	"{ESCAPE} or {ESC}"

HELP	"{HELP}"

HOME	"{HOME}"

INS	"{INSERT}"

LEFT arrow	"{LEFT}"

NUM LOCK	"{NUMLOCK}"

PAGE DOWN	"{PGDN}"

PAGE UP	"{PGUP}"

RETURN	"{RETURN}"

RIGHT arrow	"{RIGHT}"

SCROLL LOCK	"{SCROLLLOCK}"

TAB	"{TAB}"

UP arrow	"{UP}"

F1 through F15	"{F1}" through "{F15}"

在Microsoft Excel for Windows中，也可以指定与SHIFT，CTRL及ALT的组合键。

在Microsoft Excel for Macintosh中，也可指定与SHIFT，CTRL，OPTION， COMMAND的组合键。用下表指定两个或多个键的组合键。

   要组合的键	置于键代码之前

SHIFT	"+" (plus sign)

CTRL	"^" (caret)

ALT or OPTION	"%" (percent sign)

COMMAND	"*" (asterisk)

给过程指定一特殊字符（+，^，%等等），应将其置于括号内，细节参见实例。


OnKey方法实例

该实例将my_lnsertltem_Procedure指定给键序列CTRL+PLUSSING，并将my_SpecialPrint_Procedure指定给键序列SHIFT+CTRL+RIGHT。

Application.OnKey "^{+}"， "my_InsertItem_Procedure"

Application.OnKey "+^{RIGHT}"， "my_SpecialPrint_Procedure"

该实例返回SHIFT+CTRL+RIGHT的正常含义。

Application.OnKey "+^{RIGHT}"

该实例使SHIFT+CTRL+RIGHT键序列无效。

Application.OnKey "+^{RIGHT}"， ""


OnTime方法

实例

用于

Application

描述

制定时间调度表，以在将来某时刻（或是某指定的时间间隔后）运行过程。

语法

object.OnTime(earliestTime， procedure， latestTime， schedule)

元素

OnTime方法具有下列对象限制或命名参数：

object

必选项。应用程序对象。

earliestTime

必选项。想运行该过程的时间。

procedure

必选项。运行过程的名字。

latestTime

可选项。过程运行的最后时间。例如，如果latestTime设置为earliestTime+30，并且由于正运行另一过程，Microsoft Excel在earliestTime时刻不处于就绪， 复制，剪切，查找方式， Microsoft Excel将等待30秒用以完成第一过程。 如果30秒内，Microsoft Excel不处于就绪方式，该过程不运行。 如果该参数省略，Microsoft Excel将等待直到过程运行。

schedule

可选项。清除前一设置的OnTime过程，则为False。设置新的过程时间表，则为True （或省略）。

解释

用Now+TimeValue（time）制定将来某时刻的调度表。

用TimeValue（time），制定指定时的调度表。


OnTime方法实例

该实例从现在起15秒后运行my_Procedure。

Application.OnTime Now + TimeValue("00:00:15")， "my_Procedure"

该实例在下午5点运行my_Procedure。

Application.OnTime TimeValue("17:00:00")， "my_Procedure"

该实例从前一实例中取消OnTime设置。

Application.OnTime TimeValue("17:00:00")， "my_Procedure"，，False


OnWindow属性

实例

用于

Application， Window

描述

当切换窗口时，返回或设置运行的过程名。可读写。

语法

object.OnWindow

元素

object

必选项。该属性施加的对象。

解释

当其他过程切换到窗口或由DDE通道接受而来的命令切换到窗口时，由该属性指定 的过程不运行，只应答用户操作。如用鼠标单击窗口，从[编辑]菜单中选择[定位到] 命令，等等。

如果工作表或宏表有Auto_Activate或Auto_Deactivate宏，这些宏将在由OnWindow指定的过程之后运行。


OnWindow属性实例

当切换至STDCK.XLS窗口时，该实例运行my_Stock_Procedure。

Application.Windows("STOCKS.XLS").OnWindow = "my_Stock_Procedure"


OperatingSystem属性

实例

用于

Application

描述

返回当前操作系统的名字及版本号。例如，"Windows3.10"或"Macntosh7.00"。只读。

语法

object.OperatingSystem

元素

object

必选项。应用程序对象。


OperatingSystem 属性实例

该实例显示操作系统名。

MsgBox "Microsoft Excel is using " & Application.OperatingSystem


OrganizationName属性

实例

用于

Application

描述

(以字符串形式)返回注册的组织名字。只读。

语法

object.OrganizationName

元素

object

  必选项。应用程序对象。


OrganizationName属性实例

该实例设置字符串变量userWorkplace为注册的组织名。

usersWorkplace = Application.OrganizationName


Ovals方法

实例

用于

Chart, DialogSheet, Worksheet

描述

    返回单一椭圆形(Oval对象，语法 1)或椭圆形集(Ovals对象，语法 2)。只读。

语法1

object.Ovals(index)

语法2

object.Ovals

元素

  Ovals方法具有下列对象限制和命名参数：

object

  必选项。包含椭圆形的对象。

index

  必选项，对语法1。椭圆形的名字或编号。


Ovals方法实例

该实例删除活动表上的椭圆形 3。

ActiveSheet.Ovals(3).Delete


Path属性

实例

用于

AddIn, Application, Workbook

描述

    以字符串形式返回对象的全路径，不包括最后的分隔符和对象名字。只读。

语法

object.Path

元素

object

  对应用程序为可选项。对加载宏和工作表为必选项。该属性施加的对象。


Path属性实例

该实例设置变量currentExcelPath为Microsoft Excel的全路径。

currentExcelPath = Application.Path


PathSeparator属性

实例

用于

Application

描述

在Macintosh的Microsoft Excel中返回字符"："；在Microsoft Excel for Windows中返回字符"/"。只读。

语法

  object.PathSeparator

元素

  object

  必选项。应用程序对象。


PathSeparator属性实例

该实例设置变量currentSystemPathSeparator为当前路径分隔符。

currentSystemPathSeparator = Application.PathSeparator


Pictures方法

实例

用于

Chart, DialogSheet, Worksheet

描述

    返回单一图片(Picture对象，语法 1)或图片集(Pictures对象，语法 2)。只读。

语法 1

object.Pictures(index)

语法 2

object.Pictures

元素

  Pictures方法具有下列对象限制和命名参数：

object

  必选项。包含图片的对象。

index

  必选项，对话法1。图片名或编号。


Pictures方法实例

该实例删除活动表上的图片 3。

ActiveSheet.Pictures(3).Delete


PreviousSelections属性

实例

用于

Application

描述

返回有4个以前选定的区域或名字的数组。只读。每次从[编辑]菜单中用[名字框] 或到[定位到]命令，或用宏调用Goto方法到达区域或单元格时，以前选定的任何区域均以第一元素加入该数组，数组中其余项下移。

语法

object.PreviousSelections

元素

object

  必选项。应用程序对象。


PreviousSelections属性实例

该实例从以前选定区域的清单中返回第一区域或第一名字。

Application.PreviousSelections(1).Select


Quit方法

实例

用于

Application

描述

  退出Microsoft Excel。退出前不运行任何Auto_Close宏。

语法

object.Quit

元素

object

  必选项。应用程序对象

解释

如果在打开的未保存的工作簿中使用该方法，Microsoft Excel显示对话框， 询问是否保存修改。为避免该情况出现，可在使用Quit方法前保存所有工作簿， 或设置DisplayAlerts属性为False。当该属性为FALSE时，MicrosoftExcel在退出未 保存的工作簿时，不显示对话框，文件也不保存。

如果为工作簿设置Saved属性为True，而工作簿没有存盘，Microsoft Excel将不询问是否保存工作簿，而直接退出。


Quit方法实例

该实例保存打开的文档并关闭应用程序。

For Each w In Application.Workbooks

w.Save

Next w

Application.Quit


RecordRelative属性

实例

用于

Application

描述

    如果宏用相对引用记录，则为True。如果用绝对引用记录，则为False。只读。

语法

object.RecordRelative

元素

object

  必选项。应用程序对象。


RecordRelative属性实例

如果RecordRelative为FALSE，该实例设置字符串变量theRightAddress 以返回A1引用(字符串"$A$1")。否则返回字符串"R1C1"

If Application.RecordRelative = False Then

theRightAddress = Cells(1,1).Address()

Else

theRightAddress = Cells(1,1).Address(referenceStyle ：= xlR1C1)

End If


Rectangles方法

实例

用于

Chart, DialogSheet, Worksheet

描述

    返回单一矩形(Rectangle对象，语法 1)或矩形集(Rectangles对象，语法 2)。只读。

语法1

object.Rectangles(index)

语法2

object.Rectangles

元素

  Rectangles方法具有下列对象限制和命名参数：

object

  必选项。包含矩形的对象。

index

  必选项，对语法1。矩形的名字或编号。


Rectangles方法实例

该实例在活动表上删除矩形 3.

ActiveSheet.Rectangles(3).Delete


Referencestyle属性

实例

用于

Application

描述

返回或设置Microsoft Excel如何用Al或R1C1引用式样显示单元格引用及行号列标。 引用式样为xlAl或XLR1C1。可读写。

语法

object.ReferenceStyle

元素

object

  必选项。应用程序对象。


ReferenceStyle属性实例

当Microsoft Excel用R1C1引用式样时，该实例报警。

If Application.ReferenceStyle = xlR1C1 Then

MsgBox("Microsoft Excel is using R1C1 type references")

End If


RegisteredFunctions 属性
Registered Funetion属性

实例

用于

Application

描述

返回包含函数清单的数组，该函数在动态链接库(DLL)中，或在以REGISTER及REGISTED。ID函数注册的代码源中。只读。数组中每行包含关于单一函数的信息，如下表所示。

  列	内容

  1	DLL或代码源名字

  2	DLL或代码源中过程的名字。

  3	指定返回值的数据类型的字符串，参数的编号及数据类型。

语法

object.RegisteredFunctions

元素

object

      必选项。应用程序对象。

解释

     如果没有注册的函数，该属性返回Null。使用IsNull函数测试Null的返回值。


RegisteredFunctions属性实例

该实例创建注册的函数清单。

theArray = Application.RegisteredFunctions

If IsNull(theArray) Then

MsgBox "No registered functions"

Else

For i = 1 To UBound(theArray)

For j = 1 To 3

Cells(i, j).Formula = theArray(i, j)

Next j

Next i

End If


Repeat方法

实例

用于

Application

描述

    重复最近的用户接口操作。

语法

object.Repeat

元素

object

       必选项。应用程序对象。

解释

     该方法运行宏前，仅可用于重复用户的上一次操作，它必须是宏中的第一行。

     该方法不能用于重复Visual Basic命令。


Repeat方法实例

该实例重复最近的用户接口命令。它必须是宏中的第一行。

Application.Repeat


Rows方法

参阅	实例

用于

Application, Range, Worksheet

描述

    返回单一行(语法 1)或行集(语法 2)。行为一个区域对象。

语法1

object.Rows(index)

语法2

object.Rows

元素

  Rows方法具有下列对象限制和命名参数：

object

    对于应用程序为可选项，对于区域和工作表为必选项。该方法施加的对象。

index

  必选项，对语法1。行的名字或编号。

解释

当用于有多重选定区域的区域对象时，该方法仅从区域的第一区域返回行。例如， 如果区域对象为有两个区域的多重选定区域，A1:B2和C3:D4，Selection.Rows.Count 返回的是2，而不是4。在含有多重选定区域的区域上使用该方法，首先测试 Areas.Count以确定区域是否有多重选定区域。如果有，则循环区域中每一个区域， 参见第2个实例。


参阅

Columns方法

Range方法


Rows方法实例

该实例删除活动表中的第三行。

Application.Rows(3).Delete

该实例显示在选定区域中行的名字或编号。代码测试是否有多重选定区域。如果有，则在多重选定区域上循环。

areaCount = Selection.Areas.Count

If areaCount <= 1 Then

MsgBox "The selection contains " & _

Selection.Rows.Count & " rows."

Else

For i = 1 To areaCount

MsgBox "Area " & i & " of the selection contains " & _

Selection.Areas(i).Rows.Count & " rows."

Next i

End If


Save方法

参阅	实例

用于

Application, Workbook

描述

工作簿对象(语法1)：在指定的工作簿上保存修改。应用程序对象(语法2)： 保存当前工作区。

语法 1

object.Save

语法 2

object.Save(filename)

元素

  Save方法具有下列对象限制和命名参数：

object

  必选项。工作簿对象(语法1)或应用程序对象(语法2)。

filename

  可选项。指定保存的工作区文件的名字。如果该参数省略，则用默认名。

解释

    为打开工作簿文件，使用Open方法。

    为标记工作簿为保存的而不把它写到磁盘上，设置其Saved属性为True。

    第一次保存工作簿时，用SaveAs方法指定文件名。


参阅

Open方法

SaveAs方法

SaveCopyAs方法

Saved属性


Save方法实例

该实例保存活动工作簿。

ActiveWorkbook.Save


ScreenUpdating属性

实例

用于

Application

描述

    如果屏幕更新为打开的，则为True。可读写。

语法

object.ScreenUpdating

元素

object

  必选项。应用程序对象。

解释

    关闭屏幕更新以加速宏代码的运行。无法看见运行情况，但可加快运行速度。


ScreenUpating属性实例

该实例当Microsoft Excel计算某公式时关闭屏幕更新，并为单元格A1指定格式， 然后打开屏幕更新。这样可以加快宏运行。

Application.ScreenUpdating = False

Cells(3,3).Formula = Cells(1,1).Value + Cells(2,2).Value

Cells(1,1).Font.Bold = True

Application.ScreenUpdating = True


Selection属性

参阅	实例

用于

Application, Window

描述

返回在应用程序对象的活动窗口中当前选定的对象，或是所给窗口对象的当 前选定区域。只读。

语法

object.Selection

元素

object

  对于应用程序为可选项，对于窗口为必选项。包含选定的对象。

解释

由Selection属性返回的对象类型依赖于选定区域的类型。（例如， 如果选定文字框，该属性返回TextBox对象。如果不选定，Selection属性返回空。


参阅

Activate方法

ActiveCall属性

Select方法

Selected属性


Selection属性实例

该实例删除当前选定区域。

Selection.Delete


Sendkeys方法

实例

用于

Application

描述

      发送击键至活动的应用程序。

语法

object.SendKeys(keys, wait)

元素

  Sendkeys方法具有下列对象限制和命名参数：

object

          可选项。应用程序对象。

keys

          必选项。需发送至应用程序的键或组合键，用文本形式。

wait

       可选项。如果Microsoft Excel在返回控制宏之前等待键操作， 则为True。如果宏继续运行而不需等待全速处理 ，则为FALSE(或省略)。

解释

该方法放置击键至键缓冲区。在某些情况下，调用使用击键方法前，须先调用 该方法。例如，发送口令给对话框，必须在显示对话框前调用Sendkeys方法。

keys参数可指定任何单一键，或是与ALT，SHIFT的组合键，也可是这些键的任意 组合(在Microsoft Excel for Windows中)或COMMAND，CTRT，OPTION，SHIFT 键及其任意组合(在Microsoft Excel for the Macintosh中)。每个键由单一或多 个字符表示。如"a"表示字符a， "{ENTER}"表示ENTER键。

用下表中的代码指定当按下键时不显示字符，如ENTER或TAB。每个代码代 表键盘上的一个键。

键	代码

BACKSPACE	"{BACKSPACE}" or "{BS}"

BREAK	"{BREAK}"

CAPS LOCK	"{CAPSLOCK}"

CLEAR	"{CLEAR}"

DELETE or DEL	"{DELETE}" or "{DEL}"

DOWN ARROW	"{DOWN}

END	"{END}"

ENTER (numeric keypad)	"{ENTER}"

ENTER	"~" (tilde)

ESC	"{ESCAPE} or {ESC}"

HELP	"{HELP}"

HOME	"{HOME}"

INS	"{INSERT}"

LEFT ARROW	"{LEFT}"

NUM LOCK	"{NUMLOCK}"

PAGE DOWN	"{PGDN}"

PAGE UP	"{PGUP}"

RETURN	"{RETURN}"

RIGHT ARROW	"{RIGHT}"

SCROLL LOCK	"{SCROLLLOCK}"

TAB	"{TAB}"

UP ARROW	"{UP}"

F1 through F15	"{F1}" through "{F15}"

在Microsoft Excel for Windows中，也可以指定与SHIFT、CTRL及ALT的组合键。

在Micosoft Excel for the Macintosh中，也可指定与SHIFT、CTRL、OPTION、COMMAND 组合的键。用下表指定两个或多个键的组合键。

要组合的键 	方置在键代码之前

SHIFT	"+" (加号)

CTRL	"^" (插入号)

ALT or OPTION	"%" (百分号)

COMMAND	"*" (星号)


Sendkeys方法实例

该实例用Sendkeys方法退出Microsoft Excel。

Application.SendKeys("%fx")


ShortcutMenus方法

实例

用于

Application

描述

返回单一快显菜单。只读。

语法

object.ShortcutMenus(index)

元素

ShortcutMenus方法具有下列对象限制和命名参数:

object

可选项,应用程序对象。

index

必选项。指定如下面清单所示的快捷菜单。

常量	描述

  xlAxis	图表坐标轴

  xlButton	按钮

  xlChartSeries	图表系列

  xlChartTitles	图表标题

  xlColumnHeader	列

  xlDebugCodePane 	调试代码分割区域

  xlDesktop 	桌面

  xlDialogSheet	对话表

  xlDrawingObject 	图形对象

  xlEntireChart 	整个图表

  xlFloor	图表基底

  xlGridline	图表网格线

  xllmmediatePane	即时分割区域

  xlLegend	图表图例

  xlMacrosheetcell 	宏表单元格

  xlModule	模块表

  xlPlotArea 	图表图形区

  xlRowHeader	行

  xlTextBox 	文字框

  xlTitleBar	 标题栏

  xlToolbar	工具栏

  xlToolbarButton	工具栏按钮

  xlWatchPane	监视分割区域

  xlWorkbookTab	工作簿标签

  xlWorkSheetCell	工作表单元格


ShortcutMenus方法实例

该实例增加菜单项到列快捷菜单。

Application.ShortcutMenus(xlColumnHeader).MenuItems.Add _

caption:="&More"


StartupPath属性

实例

用于

Application

描述

返回启动目路的完整路径，不包括最后的分隔符。只读。

语法

object.StartupPath

元素

object

必选项。应用程序对象。


StartupPath属性实例

该实例设置变量currentStartupPath为Microsoft Excel

中完整的启动路径。

currentStartupPath = Application.StartupPath


StatusBar属性

参阅	实例

用于

Application

描述

返回或设置状态栏中的文字。可读写。

语法

object.StatusBar

元素

object

必选项。应用程序对象。

解释

如果Microsoft Excel具有状态栏控制项，该属性返回False；设置该属性为False以恢复默认状态栏文字，即使状态栏被隐藏也起作用。


参阅

DisplayStatusBar属性


StatusBar属性实例

该实例在打开工作簿LARGE.XLS前设置状态栏文字为"Please be patient…"，然后恢复文字为默认值。

saveStatusBar = Application.DisplayStatusBar

Application.DisplayStatusBar = True

Application.StatusBar = "Please be patient..."

Workbooks.Open filename:="LARGE.XLS"

Application.StatusBar = False

Application.DisplayStatusBar = saveStatusBar


TextBoxes方法

实例

用于

Chart, DialogSheet, Worksheet

描述

返回单一文字框(TextBox对象，语法1)或文字框集(TextBoxes对象，语法2)。 只读。

语法1

object.TextBoxes(index)

语法2

object.TextBoxes

元素

TextBox方法具有下列对象限制和命名参数：

object

必选项。含有文字框的对象。

index

必选项，对语法1。文字框名字或编号。


TextBoxes方法实例

该实例设置文字框1中的功能标题。

ActiveSheet.TextBoxes(1).Caption = "Text Box One"


ThisWorkbook属性

实例

用于

Application

描述

返回当前宏代码运行处的工作簿。只读。

语法

ThisWorkbook

附注  该属性不具有对象限制。不能在ThisWorkbook左边键入任何字符。

解释

该属性仅可在MicrosoftExcel内使用。不能使用该属性从其他应用程序访问 工作簿。当想要引用位于与宏相同的工作簿中任何内容时,使用ThisWorkbook代替 Workbooks(index)方法是好方法。当使用ThisWorkbook时,如果改变工作簿 名字时,宏仍起作用 。

ThisWorkbook和ActiveWorkbook可具有相同或不同的值：

       ThisWorkbook返 回存储宏的工作簿。

     ActiveWorkbook返回活动的工作簿(它可与存储宏的工作簿相同或不同)。


ThisWorkbook属性实例

该实例保存含有实例代码的工作簿。

ThisWorkbook.Save


Toolbars方法

实例

用于

Application

描述

返回单一工具栏(Toolbar对象，语法1)或工具栏集(Toolbars对象，语法2)在当前Microsoft Excel实例中。只读。

语法1

object.Toolbars(index)

语法2

object.Toolbars

元素

Toolbars方法具有下列对象限制和命名参数：

object

可选项。含有工具栏的应用程序。

index

必选项，对语法1。工具栏名字或编号。


Toolbars方法实例

该实例设置变量number of Toolbars为在Microsoft Excel当前实例中的工具栏编号。

numberOfToolbars = Application.Toolbars.Count


Top属性

参阅	实例

用于

Application, Arc, Arcs, AxisTitle, Button, Buttons, ChartArea, ChartObject, ChartObjects, ChartTitle, CheckBox, CheckBoxes, DataLabel, DataLabels, DialogFrame, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Legend, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, PlotArea, Range, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes, Toolbar, Window

描述

返回或设置指定对象的位置，用点数(1/72英寸)。可读写，除区域对象外。

语法

object.Top

元素

object

必选项。该属性施加的对象。

解释

TOP属性依赖于施加的对象而具有不同的含义。

对象	含义
Application	物理屏幕的顶端边缘到microsoft Excel主窗口顶端边缘的距离，用点数。对于Microsoft Windows，如果应用程序的窗口被最小化，该属性控制图标的位 置(屏幕上任意位置)。在Apple Macintosh上，该值总为零。设置该值为其他值将无效。
Button	对象的顶端位置，用点数从第一行顶端测量。
Range	从第一行顶端到区域顶端边的距离,用点数。如果区域不连 续，使用第一个区域。如果区域大于一行高度，区域中顶端行被使用(最小编号的)。只读。
Toolbar	如果工具栏成堆排列(工具栏对象的Position属性为非 xlFlonting)，点数为工具栏顶端边缘到工具栏堆排区域的 顶端边缘距离。如果工具栏浮动，点数为从工具栏顶端边 缘到Microsoft Excel工作区的顶端边缘距离。
Window	窗口顶端位置,用点从可用区域顶端边缘测量(菜单,顶端 堆排工具栏和/或编辑栏下),不能为最大化窗口设置该属 性。使用WindowState属性返回或设置窗口状态。
Arc, AxisTitle, ChartArea, ChartTitle, CheckBox, DataLabel, DialogFrame, Drawing, DrawingObjects, DropDown, EditBox, GroupBox, GroupObject, Label, Legend, Line, ListBox, OLEObject, OptionButton, Oval, Picture, PlotArea, Rectangle, ScrollBar, Spinner, TextBox, Title	对象的顶端位置，用点数从第一行顶端(在工作表上) 或图表区顶端(图表上)测量。


参阅

Left属性

Height属性

Width属性


Top属性实例

该实例括展当前窗口到最大有效尺寸(窗口未被最大化)。

With ActiveWindow

.WindowState = xlNormal

.Top = 1

.Left = 1

.Height = Application.UsableHeight

.Width = Application.UsableWidth

End With


Undo方法

          实例

用于

Application

描述

取消最近的用户接口操作。

语法

  object.Undo

元素

object

必选项。应用程序对象。

解释

运行宏之前，该方法仅用于撤消最近用户执行的操作，且它必须是宏中的第 一行。它不能用于撤消Visual Basic命令。


Undo 方法实例

该实例取消最近用户接口操作。它在宏中必须是第一行。

Application.Undo


Union方法

参阅        实例

用于

Application

描述

返回两个或多个区域的联合。

语法

object.Union(arg1, arg2, ...)

元素

Union方法具有下列对象限制和命名参数：

object

可选项。应用程序对象。

arg1, arg2, ...

必选项。返回这些区域的联合，至少两个区域对象被指定。


参阅

Intersect方法


Union方法实例

该实例设置对象变量newConsolidatedRange为SUMMARY.XLS上当前选定区域和总计区域的联合。

Set newConsolidatedRange = _

Application.Union(Selection,Range("SUMMARY.XLS!Totals"))


UsableHeight 属性

参阅	实例

用于

Application, Window

描述

返回应用程序窗口区域(窗口未最大化)中被窗口使用的空间高度。高度用点数(1/72英寸)返回。只读。

语法

object.UsableHeight

元素

object

       必选项。应用程序或窗口对象。

解释

增加工具栏减少可用高度。


参阅

UsableWidth属性


UsableHeight 属性实例

该实例扩展活动窗口为最大有效尺寸。

With ActiveWindow

.WindowState = xlNormal

.Top = 1

.Left = 1

.Height = Application.UsableHeight

.Width = Application.UsableWidth

End With


UsableWidth 属性

参阅	实例

用于

Application, Window

描述

返回应用程序窗口区域(窗口未最大化)中被窗口使用的空间宽度。宽度用点数返回(1/72英寸)。只读。

语法

object.UsableWidth

元素

object

必选项。应用程序或窗口对象。


参阅

    UsableHeight属性


UsableWidth 属性实例

该实例扩展活动窗口为最大有效尺寸。

With ActiveWindow

.WindowState = xlNormal

.Top = 1

.Left = 1

.Height = Application.UsableHeight

.Width = Application.UsableWidth

End With


UserName 属性

实例

用于

Application

描述

返回或设置当前用户(用字符串)的名字，可读写。

语法

object.UserName

元素

object

必选项。应用程序对象。


UserName 属性实例

如果当前用户名字是John Browne，该实例选定单元格D3。

If Application.UserName = "John Browne" Then

ActiveSheet.Cells(3, 4).Select

End If


Vorsion 属性
Version 属性

实例

用于

Application

描述

返回Microsoft Excel版本号。只读。

语法

object.Version

元素

object

必选项。应用程序对象。


Version 属性实例

该实例显示带有Microsoft Excel名字和版本及操作系统名字的消息框。

MsgBox("Welcome to Microsoft Excel version " & _

Application.Version & " running on " & _

Application.OperatingSystem & "!")


Wait 方法

实例

用于

Application

描述

暂停正在运行的宏直至达到指定的时间。

   注意  Wait方法暂停所有Microsoft Excel活动，并且可能禁止在计算机上 执行其他操作、后台处理，诸如打印和重新计算，继续进行。

语法

object.Wait(time)

元素

Wait方法具有下列对象限制和命名参数：

  object

必选项。应用程序对象。

time

必选项。想要宏重新运行的时间，用Microsoft Excel日期格式。


Wait 方法实例

该实例暂停运行宏直至今天下午6点23分。

Application.Wait "18:23:00"


Width 属性

参阅	实例

用于

Application, Arc, Arcs, Button, Buttons, ChartArea, ChartObject, ChartObjects, CheckBox, CheckBoxes, DialogFrame, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Legend, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, PlotArea, Range, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes, Toolbar, ToolbarButton, Window

描述

     用点数(1/72英寸)返回或设置对象宽度。除区域外，对所有对象可读写。对区域为只读。

语法

object.Width

元素

object

必选项。该属性施加的对象。

解释

Width属性依赖于施加对象具有不同含义。

对象	描述
Application	应用程序窗口左边缘到右边缘的距 离。
Range	区域的宽度。
Toolbar	工具栏宽度。设置宽度时，Microsoft Excel捕捉宽度和高度匹配最接近的 容许尺寸。
Window	窗口的宽度，使用UsableWidth属性确定窗口的最大尺寸。如果窗口被最大 化和最小化,不能设置该属性。用 WindowState属性确定窗口状态。
Arc, Button, ChartArea, CheckBox, DialogFrame, Drawing, DrawingObjects, DropDown, EditBox, GroupBox, GroupObject, Label, Legend, Line, ListBox, OLEObject, OptionButton, Oval, Picture, PlotArea, Rectangle, ScrollBar, Spinner, TextBox, ToolbarButton, Window	对象的宽度。
在Apple Maciatosh上，Application.Width总等于屏幕的总宽度，用点数设置其他值将无效。

在Microsoft Windows中，如果窗口最小化，Application.Width是只读的且返回图标的宽度。可用负数设置下列图形对象的Height和Width属性：Arc, Button, CheckBox, Drawing, DropDown, EditBox, GroupBox, GroupObject, Label, Line, ListBox, OLEObject, OptionButton, Oval, Picture, Rectangle,ScrollBar,Spinner,和TextBox。这导致对象反射或平移(行为依赖于对象)，此后Top和Left属性改变以描 述新位置。Height和Width属性总返回正数。


参阅

Left属性

Height属性

Top属性


Width 属性实例

该实例扩展活动窗口为最大有效尺寸(非最大化)。

With ActiveWindow

.WindowState = xlNormal

.Top = 1

.Left = 1

.Height = Application.UsableHeight

.Width = Application.UsableWidth

End With


Windows 方法

         实例

用于

Application, Workbook

描述

返回单一窗口(Window对象，语法1)或窗口集(Windows对象，语法2)。 只读。

语法1

object.Windows(index)

语法2

object.Windows

元素

Windows方法具有下限对象限制和命名参数：

 object

可选项。含有窗口的应用程序或工作簿。

index

必选项，对语法1。窗口名字或编号。

解释

语法2返回可见或隐藏窗口集。


Windows 方法实例

该实例关闭Microsoft Excel中第一个打开或隐藏的窗口。

Application.Windows(1).Close


WindowsForPens属性

           实例

用于

Application

描述

如果计算机在Microsoft Windows for Pen Computing下运行，则为True。只读。

语法

object.WindowsForPens

元素

object

必选项。应用程序对象。


 WindowsForPens 属性实例

该实例显示仅当计算机运行在Microsoft Windows for PenComputing下如何限制识别手写体数字和标点符号。

If Application.WindowsForPens Then

Application.ConstrainNumeric = True

End If


WindowState 属性

实例

用于

Application, Window

描述

返回或设置窗口状态,如下表所示。可读写。

值	含义

xlNormal	窗口未被最大化或最小化

xlMaximized	窗口最大化(仅Microsoft Windows)，最大化

窗口使Microsoft Excel桌面上所有窗口最大化。

xlMinimized	窗口最小化(仅Microsoft Windows)

语法

object.WindowState

元素

object

必选项。应用程序或窗口对象。


WindowState 属性实例

该实例使应用程序窗口最大化。

Application.WindowState = xlMaximized


Workbooks 方法

          实例

用于

  Application

描述

返回单一工作簿(Workbook对象，语法1)或工作簿集(Workbooks对象，语法2)。只读。

语法1

object.Workbooks(index)

语法2

object.Workbooks

元素

Workbooks方法具有下列对象限制和命名参数：

object

可选项。含有工作簿的应用程序。

index

必选项，对语法1。工作簿的名字或编号。

解释

Workbooks方法的语法2返回的集不包括打开加载宏，它是特殊种类的隐藏工作簿。 如果知道文件名,可返回单一打开的加载宏。例如,

Workbooks("OSCAR.XLA") 将返回命名为"OSCAR.XLA"的打开的加载宏为工作簿对象。


Workbooks 方法实例

该实例显示Microsoft Excel中打开的工作簿的编号。

cWorkbooks = Application.Workbooks.Count

MsgBox cWorkbooks & " workbook(s) currently open"


AxisBetweenCategories 属性
AxisBetweenCatgories属性

实例

用于

     Axis

描述

   如果数值坐标轴与分类坐标轴（x坐标轴）垂直相交，则为True。

语法

object.AxisBetweenCategories

元素

object

     必选项。坐标轴对象。

解释

    该属性仅适用于坐标轴，而且不适用于三维图。


AxisBetweenCategories属性实例

   该实例使得数值坐标轴与分类坐标轴（X坐标轴）垂直相交。

ActiveChart.Axes(xlCategory).AxisBetweenCategories = True


Crosses属性

参阅	实例

用于

   Axis

描述

    返回或设置指定坐标轴上的点，使得该坐标轴在此点与另一坐标轴 相交，如下表所示。可读写。

值 	 含义

xlAutomatic 	 Microsoft Excel设置坐标轴相交。

xlMinimum 	 在最小值处坐标轴相交。

xlMaximum 	 在最大值处坐标轴相交。

xlCustom 	 由CrossesAt属性指定相交点。

语法

object.Crosses

元素

object

     必选项。坐标轴对象。

解释

该属性不适用于三维图表和雷达图。

该属性既可用于分类坐标轴又可用于数值坐标轴。对于分类坐标轴，xlMinimum 设置数值坐标轴与分类坐标轴在第一分类点处相交，xlMaximum设置数值坐标轴与 分类坐标轴在最后的分类点处相交。

对于不同的坐标轴，xlMinimum和xlMiximum具有不同的含义。


参阅

    CrossesAt属性


Crosses属性实例

    该实例设置数值坐标轴与分类坐标轴（X坐标轴）在X最大值处相交。

ActiveChart.Axes(xlCategory).Crosses = xlMaximum


CrossesAt属性

参阅	实例

用于

    Axis

描述

    返回或设置数值坐标轴上的点，便得该坐标轴在此点与分类坐标轴相交， 仅适用于 数值坐标轴。可读写。

语法

object.CrossesAt

元素

object

      必选项。坐标轴对象。

解释

    设置该属性使得Crosses属性变为xlCustom。该属性不适用于三维图和雷达图。


参阅

    Crosses属性


CrossesAt属性实例

   该实例设置分类坐标轴与数值坐标轴在值3处相交。

With ActiveChart.Axes(xlValue)

.Crosses = xlCustom

.CrossesAt = 3

End With


AxisGroup属性

实例

用于

    Axis， ChartGroup， Series

描述

    返回一个指定坐标轴的组（xlPrimary或xlSecondary）、图表组或系列。 对于系列可读写；对于坐标轴和图表组只读。

语法

object.AxisGroup

元素

object

      必选项。坐标轴、图表组或系列对象。

解释

   对于三维图，只有xlPrimcry合法。


AxisGroup属性实例

   该实例当图表在次组中时删除数值坐标轴。

With ActiveChart.Axes(xlValue)

If .AxisGroup = xlSecondary Then .Delete

End With


HasMajorGridlines属性

参阅	实例

用于

   Axis

描述

如果坐标轴有主要网格线，则为Ture。只有主坐标轴组中的坐标轴才能有网格线。只读。

语法

object.HasMajorGridlines

元素

object

   必选项。坐标轴对象。


参阅

   AxisGroup属性

   HasMinorGridlines属性

   MajorGridlines属性

   MinorGridlines属性


HasMajorGridlines属性实例

   该实例设置数值坐标轴的主要网格线颜色。

With ActiveChart.Axes(xlValue)

If .HasMajorGridlines Then

.MajorGridlines.Border.Color = RGB(0, 0, 255)	'set color to blue

End If

End With


HasMinorGridlines属性

参阅	实例

用于

   Axis

描述

如果坐标轴具有次要网格线，则为Ture。只有主坐标轴组中的坐标轴才能 具有网格线。可读写。

语法

object.HasMinorGridlines

元素

object

     必选项。坐标轴对象。


参阅

   AxisGroup属性

   HasMajorGridlines属性

   MajorGridlines属性

   MinorGridlines属性


HasMinorGridlines属性实例

   该实例设置数值坐标轴次要网格线的颜色。

With ActiveChart.Axes(xlValue)

If .HasMinorGridlines Then

.MinorGridlines.Border.Color = RGB(0, 255, 0)	'set color to green

End If

End With


MajorGridlines属性

参阅	实例

用于

   Axis

描述

返回指定坐标轴的主要网格线(Gridline)。只有主坐标轴组的坐标轴才能具有 网格线。只读。

语法

object.MajorGridlines

元素

object

     必选项。坐标轴对象。


参阅

   AxisGroup属性

   HasMajorGridlines属性

   HasMinorGridlines属性

   MinorGridlines属性


MajorGridlines属性实例

   该实例设置数值坐标轴的主要网格线的颜度。

With ActiveChart.Axes(xlValue)

If .HasMajorGridlines Then

.MajorGridlines.Border.Color = RGB(0, 0, 255)	'set color to blue

End If

End With


MajorTickMark属性

参阅	实例

用于

   Axis

描述

返回或设置指定坐标轴的主要刻度线标记的类型（可为xlNone，xllnside，xlOutside， xlCross之一）。可读写。

语法

object.MajorTickMark

元素

object

     必选项。坐标轴对象。


参阅

   MinorTickMark属性


MajorTickMark属性实例

该实便设置数值坐标轴采用外主要刻度线标记。

ActiveChart.Axes(xlValue).MajorTickMark = xlOutside


MajorUnit属性

参阅	实例

用于

   Axis

描述

   返回或设置数值坐标轴的主要单位。只适用于数值坐标轴。可读写。

语法

object.MajorUnit

元素

object

     必选项。坐标轴对象。

解释

   设置该属性使得MajorUnitIsAuto属性为False。

   使用TickMarkSpacing属性来设置分类坐标轴上的刻度线标记间隔。


参阅

   MajorUnitlsAuto属性

   MinorUnit属性

   MinorUnitlsAuto属性

   TickMarkSpacing属性


MajorUnit属性实例

   该实例设置数值坐标轴的主要单位和次要单位。

With ActiveChart.Axes(xlValue)

.MajorUnit = 100

.MinorUnit = 20

End With


MajorUnitIsAuto 属性
MajorUnitlsAuto属性

参阅	实例

用于

   Axis

描述

如果Micorsoft Excel重新计算数值坐标轴的主要单位，则为Ture。 它只适用于数值坐标轴。 可读写。

语法

object.MajorUnitIsAuto

元素

object

     必选项。坐标轴对象。

解释

   设置MajorUnit属性，使得该属性为False。


参阅

   MajorUnit属性

   MinorUnit属性

   MinorUnitlsAuto属性


MajorUnitlsAuto属性实例

   该实例设置Microsoft Excel重新计算数值坐标轴的主要单位和次要单位。

With ActiveChart.Axes(xlValue)

.MajorUnitIsAuto = True

.MinorUnitIsAuto = True

End With


MaximumScale属性

参阅	实例

用于

   Axis

描述

   返回或设置数值坐标轴的最大值。它只适用于数值坐标轴。可读写。

语法

object.MaximumScale

元素

object

     必选项。坐标轴对象。

解释

   设置该属性，使得MaximumScaleIsAuto属性为False。


参阅

   MinimumScale属性

   MaximumScalelsAuto属性

   MinimumScalelsAuto属性


MaximumScale属性实例

   该实例设置数值坐标轴的最大值和最小值。

With ActiveChart.Axes(xlValue)

.MinimumScale = 10

.MaximumScale = 120

End With


MaximumScaleIsAuto 属性
MaximumScalelsAuto属性

参阅	实例

用于

   Axis

描述

如果Microsoft Excel自动重算数值坐标轴的最大值，则为True。 它只适用于数值坐标轴。可读写。

语法

object.MaximumScaleIsAuto

元素

object

     必选项。坐标轴对象。

解释

   设置MaximumScale属性，使得该属性为False。


参阅

   MaximumScale属性

   MinimumScale属性

   MinimumScalelsAuto属性


MaximumScalelsAuto属性实例

   该实例设置Micorsoft Excel重新计算数值坐标轴的最大值和最小值。

With ActiveChart.Axes(xlValue)

.MinimumScaleIsAuto = True

.MaximumScaleIsAuto = True

End With


MinimumScale属性

参阅	实例

用于

   Axis

描述

   返回或设置数值坐标轴上的最小值。它只适用于数值坐标轴。可读写。

语法

object.MinimumScale

元素

object

     必选项。坐标轴对象。

解释

   设置该属性，使得MinimumScaleIsAuto属性为False。


参阅

   MaximumScale属性

   MaximumScalelsAuto属性

   MinimumScalelsAuto属性


MinimumScale属性实例

   该实例设置数值坐标轴的最大值和最小值。

With ActiveChart.Axes(xlValue)

.MinimumScale = 10

.MaximumScale = 120

End With


MinimumScaleIsAuto 属性
MinimumScalelsAtuo属性

参阅	实例

用于

   Axis

描述

如果Microsoft Excel重新计算数值坐标轴的最小值，则为Ture。 它只适用于数值坐标轴。可读写。

语法

object.MinimumScaleIsAuto

元素

object

    必选项。坐标轴对象。

解释

   设置MinimumScale属性，使得该属性为False。


参阅

   MaximumScale属性

   MaximumScalelsAuto属性

   MinimumScale属性


MinimumScalelsAuto属性实例

   该实例设置Microsoft Excel重新计算数值坐标轴的最小值和最大值。

With ActiveChart.Axes(xlValue)

.MinimumScaleIsAuto = True

.MaximumScaleIsAuto = True

End With


MinorGridlines属性

参阅	实例

用于

   Axis

描述

返回指定坐标轴的次要网格线(Gridlines)。只有主坐标轴组中的坐标轴 才能具有网格线。只读。

语法

object.MinorGridlines

元素

object

     必选项。坐标轴对象。


参阅

   AxisGroup属性

   HasMajorGridlines属性

   HasMinorGridlines属性

   MajorGridlines属性


MinorGridlines属性实例

   该实例设置数值坐标轴的次要网格线的颜色。

With ActiveChart.Axes(xlValue)

If .HasMinorGridlines Then

.MinorGridlines.Border.Color = RGB(0, 0, 255)	'set color to blue

End If

End With


MinorTickMark属性

参阅	实例

用于

   Axis

描述

返回或设置指定坐标轴的次要刻度线标记类型（可为xlNoe，xllnside， xlOutside或xlCross之一）。可读写。

语法

object.MinorTickMark

元素

object

     必选项。坐标轴对象。


参阅

   MajorTickMark属性


MinorTickMark属性实例

   该实例设置分类坐标轴（X坐标轴）采用内部次要刻度线标记。

ActiveChart.Axes(xlCategory).MinorTickMark = xlInside


MinorUnit属性

参阅	实例

用于

   Axis

描述

   返回或设置数值坐标轴上的次要单位。它只适用于数值坐标轴。可读写。

语法

object.MinorUnit

元素

object

     必选项。坐标轴对象。

解释

   设置该属性，使得MinorUnitIsAuto属性为False。

   采用TickMarkSpacing属性来设置分类坐标轴上的刻度线标记的间隔。


参阅

   MajorUnit属性

   MajorUnitlsAuto属性

   MinorUnitlsAuto属性

   TickMarkSpacing属性


MinorUnit属性实例

   该实例设置数值坐标轴的主要单位和次要单位。

With ActiveChart.Axes(xlValue)

.MajorUnit = 100

.MinorUnit = 20

End With


MinorUnitIsAuto 属性
MinorUnitlsAuto属性

参阅	实例

用于

   Axis

描述

   如果Microsoft Excel计算数值坐标轴的次要单位，则为Ture。它只适用于数值坐标轴。可读写。

语法

object.MinorUnitIsAuto

元素

object

     必选项。坐标轴对象。

解释

   设置MinorUnit属性，使得该属性为False。


参阅

   MajorUnit属性

   MajorUnitlsAuto属性

   MinorUnit属性


MinorUnitlsAuto属性实例

   该实例设置Micorsoft Excel重新计算数值坐标轴的主要单位和次要单位。

With ActiveChart.Axes(xlValue)

.MajorUnitIsAuto = True

.MinorUnitIsAuto = True

End With


ReversePlotOrder属性

实例

用于

   Axis

描述

   如果microsoft Excel绘制点是由后到先，则为Ture。可读写。

语法

object.ReversePlotOrder

元素

object

     必选项。坐标轴对象。

解释

   该属性不适用于雷达图。


ReversePlotOrder属性实例

   该实例设置Microsoft Excel在数值坐标轴上由后到先绘制点。

ActiveChart.Axes(xlValue).ReversePlotOrder = True


ScaleType 属性
WcaleType属性

实例

用于

   Axis

描述

返回或设置数值坐标轴刻度类型（xlLinear或xlLogarithmic）。它只适用 于数值坐标轴。可读写。

语法

object.ScaleType

元素

object

     必选项。坐标轴对象。

解释

   对数刻度使用以十为底的对数。


ScaleType属性实例

   该实例设置数值坐标轴采用对数刻度。

ActiveChart.Axes(xlValue).ScaleType = xlLogarithmic


TickLabelPosition属性

参阅	实例

用于

   Axis

描述

   用于描述指定坐标轴的刻度线标记位置（可为xlNone、xlLow、xlHigh、或 xlNextToAxis）。可读写。

语法

object.TickLabelPosition

元素

object

     必选项。坐标轴对象。


参阅

   MajorTickMark属性

   MinorTickMark属性

   TickLabels属性

   TickLabelSpacing属性

   TikMarkSpacing属性


TickLabelPosition属性实例

   该实例设置分类坐标轴（X坐标轴）的刻度线标记处于高位（在图表之达 上）。

ActiveChart.Axes(xlCategory).TickLabelPosition = xlHigh


TickLabels属性

参阅	实例

用于

   Axis

描述

   返回指定坐标轴的刻度线标记(Ticklabels)。只读。

语法

object.TickLabels

元素

object

     必选项。坐标轴对象。


参阅

   MajorTickMark属性

   MinorTickMark属性

   TickLabelPosition属性

   TickLabelSpacing属性

   TickMarkSpacing属性


TickLabels属性实例

   该实例设置数值坐标轴上的刻度线标记的颜色。

ActiveChart.Axes(xlValue).TickLabels.Font.Color = RGB(0, 255, 0)


TickLabelSpacing属性

参阅	实例

用于

   Axis

描述

   返回或设置刻度线标记之间分类个数或系列个数。它只适用于分类坐标轴 和系列坐标轴。可读写。

语法

object.TickLabelSpacing

元素

object

     必选项。坐标轴对象。

解释

该属性只适用于分类坐标轴和系列坐标轴。数值坐标轴上的标记间隔是由Microsoft Excel计算的。


参阅

   MajorTickMark属性

   MinorTickMark属性

   TickLabelPosition属性

   TickLabels属性

   TickMarkSpacing属性


TickLabelSpacing属性实例

   该实例设置分类坐标轴上刻度线标记之间的分类个数。

ActiveChart.Axes(xlCategory).TickLabelSpacing = 10


TickMarkSpacing属性

参阅	实例

用于

   Axis

描述

返回或设置两刻度线之间分类个数或系列个数。它只适用于分类坐标轴 和系列。 可读写。

语法

object.TickMarkSpacing

元素

object

     必选项。坐标轴对象。

解释

该属性只适用于分类坐标轴和系列坐标轴。采用MajorUnit属性和MinorUnit属性 来设置数值坐标轴上刻度线的间隔。


参阅

   MajorTickMark属性

   MinorTickMark属性

   MajorUnit属性

   MinorUnit属性

   TickLabelPosition属性

   TickLabels属性

   TickLabelSpacing属性


TickMarkSpacing属性实例

   该实例设置分类坐标轴上的刻度线之间的分类个数。

ActiveChart.Axes(xlCategory).TickMarkSpacing = 10


Font 属性

参阅	实例

用于

AxisTitle, Button, Buttons, Characters, ChartArea, ChartTitle, DataLabel, DataLabels, DrawingObjects, GroupObject, GroupObjects, Legend, LegendEntry, PlotArea, Range, Style, TextBox, TextBoxes, TickLabels

描述

    返回或设置对象字体Font。可读写。

语法

object.Font

元素

object

必选项。该属性施加的对象。


参阅

Font对象


Font 属性实例

该实例设置当前单元格中字体为１４点粗斜体。

With ActiveCell.Font

.Size = 14

.Bold = True

.Italic = True

End With


 Insert 方法

 实例

用于

Characters, Pictures, Range

描述

语法１（区域对象）:在工作表或宏表中插入一单元格或一单元格区域，移走其他 单元格以留出空间。

语法２（字符:对象）:在选定的字符前插入一字符串。

语法３（图片对象）:插入一指定的图片文件。

语法１

object.Insert(shift)

语法２

object.Insert(string)

语法３

object.Insert(filename, converter)

元素

 Insert 方法具有下列对象限制和命名参数：

object

必选项。在该区域中插入单元格（语法１）或该字符前插入字符串（语法２）。

shift

可选项。指定以何种方式移动单元格， xlToRight或xlDown。如果省略， 默认基于该区域形状。

string

必选项。要插入的字符串。

filename

必选项。指定要插入的文件名。

converter

必选项。当装入文件时指定要使用的图片转换器，可为下列之一: xlBMP, xlWMF, xlPLT, xlCGM, xlHGL, xlPIC, xlEPS, xlDRW, xlTIF, xlWPG, xlDXF, xlPCX, 或 xlPCT。


Insert 方法实例

该实例在行４前插入一新行。

Rows(4).Insert

该实例在A1:C5处插入一单元格并下移单元格。

Range("A1:C5").Insert(xlDown)

该实例在当前选定区域插入一整行。

Selection.EntireRow.Insert

该实例用粗体格式的字符串"New"替换表中第一个文字框的前三个字符。

With ActiveSheet.TextBoxes(1).Characters(1,3)

.Insert "New"

.Font.Bold = True

End With

该实例用通过插入新字符串在文字框最后字符后增加一新字符串"Done"。

With ActiveSheet.TextBoxes(1)

.Characters(.Characters.Count + 1).Insert ("Done")

End With


Text 属性

 实例

用于

AxisTitle, Button, Buttons, Characters, ChartTitle, CheckBox, CheckBoxes, DataLabel, DataLabels, DialogFrame, DrawingObjects, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, Label, Labels, OptionButton, OptionButtons, Range, TextBox, TextBoxes

描述

为指定对象返回或设置文本，如下表所示。除区域对象外，均可读写。对区域 对象，只读。

对象	文字

坐标轴标题、	标题文字。

图表标题

按钮	按钮文字。

字符	该字符区域的文本。

控制	控制项文字（选择框、对话框架、下拉、编辑框,、                                               组框、标签、选项按钮）。

数据标记	 数据标记文字。

区域	实际文字以字符串形式出现在单元格内。 例如，如果单元格被格式化而显示美元符号， 返回该单元格文字即显示美元符号。这样可 在工作表上创建代表该数值的可读文字。 只读。

文本框	文字框中的文字。

为进一步获取有关在Visual Basic中使用Text工作表函数的信息，参见在Visual Basic中使用工作表函数。

语法

object.Text

元素

object

必选项。该属性施加的对象。


Text 属性实例

该实例改变文字框中前三个字符。

ActiveSheet.TextBoxes(1).Characters(1, 3).Text = "New"


Area3DGroup属性

参阅	 实例

用于

Chart

描述

在三维图上返回ChartGroup。

语法

object.Area3DGroup

元素

object

必选项。图表对象。


参阅

AreaGroups方法


AreaGroup属性实例

该实例为三维面积图组设置子类型。

Charts(1).Area3DGroup.SubType = 3


AreaGroups方法

参阅	实例

用于

Chart

描述

在二维图上，返回单一面积图组（ChartGroup对象，语法1）或返回一面积图组集（ChartGroups对象，语法2）。

语法1

object.AreaGroups(index)

语法2

object.AreaGroups

元素

AreaGroups方法具有下列对象限制和命名参数：

object

必选项。图表对象。

index

必选项，对于语法1。指定图表组。


参阅

Area3DGroup属性


AreaGroups方法实例

该实例为第一面积图组设置子类型。

Charts(1).AreaGroups(1).SubType = 3


AutoFormat 方法（Chart对象）
AutoFormat方法（图表对象）

参阅	实例

用于

Chart

描述

应用内部或自定义自动套用格式到指定图表。

语法

object.AutoFormat(gallery, format)

元素

AutoFormat方法具有下列对象限制和命名参数：

object

必选项。图表对象。

gallery

必选项。指定内部图库，可为xl3DArea,xl3DBar,xl3DColumn,

xl3DLine,xl3DPie,xl3DSurface,xlArea,xlBar,xlColumn,

xlCombination,xlCustom,xlDefaultAutoFormat,xlDoughnut,

xlLine,xlPie,xlRadar,xlXYScatter之一。

format

可选项。如果gallery是xlCustom，为内部自动套用格式指定选项数，或一个包含 自定义自动套用格式名的字符串。


参阅

AutoFormat方法（区域对象）


AutoFormat方法实例

该实例应用第三雷达图自动套用格式。

Charts(1).AutoFormat xlRadar, 3

该实例应用“Monthly Sales”自定义自动格式。

Charts(1).AutoFormat xlCustom, "Monthly Sales"


AutoScaling属性

          实例

用于

Chart

描述

如果为True，Microsoft Excel缩放一三维图，以使其大小等价于二维图。

RightAngleAxes属性必须为True。可读写。

语法

object.AutoScaling

元素

object

必选项。图表对象。


AutoScaling属性实例

该实例缩放三维图。

With Charts(1)

.RightAngleAxes = True

.AutoScaling = True

End With


Axes方法

         实例

用于

Chart

描述

在图表上返回单一坐标轴（Axis对象，语法1）或返回一坐标轴集（Axes对象， 语法2）。只读。

语法1

object.Axes(type, axisGroup)

语法2

object.Axes

元素

Axes方法具有下列对象限制和命名参数。

object

必选项。图表对象。

type

必选项,对于语法1.指定返回的坐标轴.可为xlValue, xlCategory或 xlSeries之一(xlSeries仅对三维图表有效)。

axisGroup

可选项.指定坐标轴组(xlPrimary或 xlSecondary)。如果该参数省略， 则为第一组。三维图只有一个坐标轴组。


Axes方法实例

该实例为分类轴打开主要网格线。

Charts(1).Axes(xlCategory).HasMajorGridlines = True


Bar3DGroup属性

参阅	实例

用于

Chart

描述

在三维图上返回条形ChartGroup。

语法

object.Bar3DGroup

元素

object

必选项。图表对象。


参阅

BarGroups方法


BarGroup属性实例

该实例为三维条形图组设置子类型。

Charts(1).Bar3DGroup.SubType = 3


BarGroups方法

参阅 	实例

用于

Chart

描述

在二维图上，返回单一条形图组（ChartGroup，语法1）或返回一条形图组集 （ChartGroups， 语法2）。

语法1

object.BarGroups(index)

语法2

object.BarGroups

元素

BarGroups方法具有下列对象限制和命名参数：

object

必选项。图表对象。

index

必选项，对语法1。指定图表组。


参阅

Bar3DGroup属性


BarGroups方法实例

该实例为第一条形图组设置子型。

Charts(1).BarGroups(1).SubType = 3


ChartArea属性

 实例

用于

Chart

描述

为图表返回整个ChartArea。只读。

语法

object.ChartArea

元素

object

必选项。图表对象。


ChartArea属性实例

该实例设置图表区颜色为红色。

Charts(1).ChartArea.Interior.Color = RGB(255,0,0)


Clear方法

参阅	实例

用于

ChartArea, Range

描述

清除整个区域或图表区。

语法

object.Clear

元素

object

必选项。图表区或区域对象。


参阅

ClearFormats方法

ClearContents方法


Clear方法实例

该实例清除单元格A1至G37。

Range("A1:G37").Clear


ClearContents方法

 实例

用于

ChartArea, Range

描述

从区域内清除公式。从图表上清除数据，但保留格式。

语法

object.ClearContents

元素

object

必选项。图表或区域对象。


ClearContents方法实例

该实例从单元格A1至G37中清除公式。

Range("A1:G37").ClearContents


Column3DGroup属性

参阅	实例

用于

Chart

描述

在三维图上返回柱形ChartGroup。

语法

object.Column3DGroup

元素

object

必选项。图表对象。


参阅

ColumnGroups方法


Column3DGroup属性实例

该实例为三维柱形图组设置子类型。

Charts(1).Column3DGroup.SubType = 4


ColumnGroups方法

参阅	 实例

用于

Chart

描述

在二维图上，返回单一柱形图组（ChartGroup对象，语法1）或返回一柱形图组集（ChartGroups集，语法2）。

语法1

object.ColumnGroups(index)

语法2

object.ColumnGroups

元素

ColumnGroups方法具有下列对象限制和命名参数：

object

必选项。图表对象。

index

必选项，对语法1。指定图表组。


参阅

Column3DGroup属性


ColumnGroups方法实例

该实例为第一柱形图组设置子类型。

Charts(1).ColumnGroups(1).SubType = 3


Corners属性

实例

用于

Chart

描述

返回三维图表的Corners。该边角不能格式化，该属性仅用于选定图表边角。只读。

语法

object.Corners

元素

object

必选项。图表对象。


Corners属性实例

该实例选定图表的边角。

Charts(1).Corners.Select


CreatePublisher方法

 实例

用于

Chart, Range

描述

基于图表或区域创建Publisher。仅Apple Macintosh with System 7或其后续机型有效。

语法

object.CreatePublisher(edition, appearance, size, containsPICT, containsBIFF, containsRTF, containsVALU)

元素

CreatPublisher方法具有下列对象限制和命名参数：

object

必选项。图表或面积对象。

edition

可选项。被创建的版本的文件名。如果省略，使用<Document Nmae>板本#n的默认值。

appearance

可选项。为xlPrinter或 xlScreen之一。

size

可选项（仅用于图表对象）。为xlPinter或xlScrenn之一。

containsPICT

可选项。如果Publisher包含PICT格式，则为True。如果没有指定，则为True。

containsBIFF

可选项。如果出版包含BIFF格式则为True。如果没有指定，对区域假定为True，对图表假定为False。

containsRTF

可选项。如果出版包含RTF格式，则为True。如果没有指定，对区域假定为True，对 图表假定为False。

containsVALU

可选项。如果出版包含VALU格式则为True。如果没有定，对区域假定为True；对图表假定为False。


CreatePublisher方法实例

该实例基于当前工作簿的第一图表创建Publisher。

ActiveWorkbook.Charts(1).CreatePublisher


DepthPercent属性

参阅	实例

用于

Chart

描述

用图表宽度百分比返回或设置三维图深度（在20%～2000%之间）。可读写。

语法

object.DepthPercent

元素

object

必选项。图表对象。


参阅

HightPercent属性


DepthPercent属性实例

该实例设置图表深度为图表宽度的50%。

Charts(1).DepthPercent = 50


DoughnutGroups方法

 实例

用于

Chart

描述

  在二维图上，返回单一圆环图组（ChartGroup对象，语法1）或圆环图组集 （ChartGroups集，语法2）。

语法1

object.DoughnutGroups(index)

语法

object.DoughnutGroups

元素

DoughtnutGroups方法具有下列对象限制和命名参数：

object

必选项。图表对象。

index

必选项，对语法1 。指定图表组。


DoughnutGroups方法实例

该实例为第一圆环组设置起始角。

Charts(1).DoughnutGroups(1).FirstSliceAngle = 45


Elevation属性

参阅	实例

用于

Chart

描述

返回或设置三维图视图表的上下仰角，用度表示。可读写。

语法

object.Elevation

元素

object

必选项。图表对象。

解释

图表上下仰角是观察图表处的高度，以度表示。对大部分图表类型，默认为15。 除三维条形图外该属性值必须在-90至90之间。对三维条形图表，该属性值必须在 0至44之间。


参阅

Perspective属性

Rotation属性


Elevation属性实例

该实例设置图表上下仰角为34°。

Charts(1).Elevation = 34


Floor属性

实例

用于

Chart

描述

返回三维图基底。只读。

为进一步获取有关Visual Basic中使用Floor工作表函数的帮助，参见在Visual Basic中使用工作表函数主题。

语法

object.Floor

元素

object

必选项。图表对象。


Floor属性实例

该实例设置图表基底颜色。

Charts(1).Floor.Interior.Color = RGB(255, 0, 0)


GapDepth属性

实例

用于

Chart

描述

在三维图中，以标示宽度的百分比（在0～500之间）返回或设置数据系列间距。 可读写。

语法

object.GapDepth

元素

object

必选项。图表对象。


GapDepth属性实例

该实例在三维图上设置数据系列间距为标示宽度的200%。

Charts(1).GapDepth = 200


GapWidth属性

参阅 	实例

用于

ChartGroup

描述

用条形或柱形宽度的百分比，返回或设置条形簇或柱形簇的间隔。 该属性须在0～500之间。可读写。

语法

object.GapWidth

元素

object

必选项。图表组对象。


参阅

Overlap属性


GapWidth属性实例

该实例设置柱形簇间隔为柱形宽度的50%。

Charts(1).ChartGroups(1).GapWidth = 50


HasAxis属性

参阅 	 实例

用于

Chart

描述

以二维布尔值数组方式指明当前图表上的坐标轴(Axes)。可读写。数组第一维指明 单一坐标轴（xlCatgory,xlValue,之一或xlSeries）。系列轴仅用于三维图。数组第二 维指明坐标轴组（xlPrimary或xlSecondary）。可读写。三维图只有一组坐标轴。

语法

object.HasAxis

元素

object

必选项。图表对象。

解释

如果改变图表类型或AxisGroup属性，Microsoft Excel可创建或删除坐标轴。


参阅

Axes 对象


HasAxis属性实例

该实例为图表打开主数值坐标轴。

Charts(1).HasAxis(xlValue, xlPrimary) = True


HasLegend属性

参阅	实例

用于

Chart

描述

如果图表有图例，则为True。可读写。

语法

object.HasLegend

元素

object

必选项。图表对象。


参阅

Legend属性


HasLegend属性实例

该实例打开图表的图例并设置其颜色。

Charts(1).HasLegend = True

Charts(1).Legend.Font.Color = RGB(0,255,0)


HeightPercent属性

参阅	实例

用于

Chart

描述

用图表宽度的百分比（在5%～550%之间）为一三维图返回或设置高度。可读写。

语法

object.HeightPercent

元素

object

必选项。图表对象。


参阅

DepthPercent属性


HeightPercent属性实例

该实例设置图表的高度为其宽度的80%。

Charts(1).HeightPercent = 80


Legend属性

参阅	实例

用于

Chart

描述

为图表返回图例(Legend)。只读。

语法

object.Legend

元素

object

必选项。图表对象。


参阅

HasLegend属性


Legend属性实例

该实例打开图表的图例并设置其颜色。

Charts(1).HasLegend = True

Charts(1).Legend.Font.Color = RGB(0,255,0)


Line3DGroup属性

参阅	实例

用于

Chart

描述

返回三维图上折线图组(ChartGroup)。

语法

object.Line3DGroup

元素

object

必选项。图表对象。


参阅

LineGroups方法


Line3DGroup属性实例

该实例使三维折线组为一面积组。

Charts(1).Line3DGroup.Type = xl3DArea


LineGroups方法

参阅	实例

用于

Chart

描述

在二维图上，返回一个直线图组（ChartGroup对象，语法1）；或者 返回一直线图组集（ChartGroups集，语法2）。

语法1

object.LineGroups(index)

语法2

object.LineGroups

元素

LineGroups方法具有下列对象限制和命名参数：

object

必选项。图表对象。

index

必选项，对于语法1。指定的图表组。


参阅

Line3DGruop属性


LineGruops方法实例

该实例为第一折线组设置子类型。

Charts(1).LineGroups(1).SubType = 2


PageSetup属性

实例

用于

Chart, DialogSheet, Module, Window, Worksheet

描述

返回一页面设置(PageSetup)对象，该对象包括所有页面设置值。只读。

语法

object.PageSetup

元素

object

必选项。该属性施加的对象。


PageSetup属性实例

该实例为图表1设置中心页眉文字。

Charts(1).PageSetup.CenterHeader = "December Sales"


Perspective属性

参阅	实例

用于

Chart

描述

为三维图视图返回或设置透视，必须在0～100之间。如果RightAngleAxes属性为True， 该属性可忽略。可读写。

语法

object.Perspective

元素

object

必选项。图表对象。


参阅

Elevation属性

RightAngleAxes属性

Rotation属性


Perspective属性实例

该实例设置图表的透视为70。

Charts(1).Perspective = 70


Pie3DGroup属性

参阅	实例

用于

Chart

描述

返回三维图上饼图组(ChartGroup)。可读写。

语法

object.Pie3DGroup

元素

object

必选项。图表对象。


参阅

PieGruops方法


Pie3DGruop属性实例

该实例使得三维饼图组为一面积组。

Charts(1).Pie3DGroup.Type = xl3DArea


PieGroups 方法
PieGruops方法

参阅	实例

用于

Chart

描述

在二维图上，返回一个饼图组（ChartGroup对象，语法1），或返回一 饼图组集（ChartGroups集，语法2）。

语法1

object.PieGroups(index)

语法2

object.PieGroups

元素

PieGruops方法具有下列对象限制和命名参数：

object

必选项。图表对象。

index

必选项，对语法1。指定图表组。


参阅

Pie3DGruop属性


PieGroups方法实例

该实例使得第一饼图组为一面积组。

Charts(1).PieGroups(1).Type = xlArea


PlotArea属性

 实例

用于

Chart

描述

返回一图表的图形区(PlotArea)。只读。

语法

object.PlotArea

元素

object

必选项。图表对象。


PlotArea属性实例

该实例设置图的图形区颜色。

Charts(1).PlotArea.Border.Color = RGB(255,0,0)


RadarGroups方法

 实例

用于

Chart

描述

在二维图上，返回单一雷达图组（ChartGroup对象，语法1）或返回雷达图 组集（ChartGroups集，语法2）。

语法1

object.RadarGroups(index)

语法2

object.RadarGroups

元素

ReadarGruops方法具有下列对象限制和命名参数:

object

必选项。图表对象。

index

必选项，对于语法1。指定图表组。


RadarGruops方法实例

该实例使得第一雷达图组为填充的雷达图组。

Charts(1).RadarGroups(1).SubType = 2


RightAngleAxes属性

参阅	 实例

用于

Chart

描述

如果图表坐标轴相垂直，与图旋转角或上下仰角无关，则为True。仅用于三维直 线图、柱形图和条形图。可读写。

语法

object.RightAngleAxes

元素

object

必选项。图表对象。

解释

如果该属性为True，Perspective属性可忽略。


参阅

Elevation属性

Perspective属性

Rotation属性


RightAngleAxes属性实例

该实例设置坐标轴相垂直，与图的旋转角或上下仰角无关。

Charts(1).RightAngleAxes = True


Rotation属性

参阅	 实例

用于

Chart

描述

返回或设置三维图视图的旋转角，图形区绕Z坐标轴旋转，用度表示。除三维条形图 外，该属性数值应在0~36之间，而条形图的该属性值在0~44之间，默认值为20。仅用 于三维图。可读写。

语法

object.Rotation

元素

object

必选项。图表对象。


参阅

Elevation属性

Perspective属性

RightAngleAxes属性


Rotation属性实例

该实例设置三维图旋转角为30°。

Charts(1).Rotation = 30


SeriesCollection方法

实例

用于

Chart, ChartGroup

描述

返回图表或图表组上单一系列（Series对象，语法1）或返回一系列集 （SeriesCollection对象，语法2）。只读。

语法1

object.SeriesCollection(index)

语法2

object.SeriesCollection

元素

Seriescollection方法具有下列对象限制和命名参数:

object

必选项。图表或图表组对象。

index

必选项，对语法1。系列名或编号。


SeriesCollection方法实例

该实例为系列1打开数据标记。

Charts(1).SeriesCollection(1).HasDataLabels = True


SetDefaultChart方法

实例

用于

Application

描述

指定图表模板的名字，Microsoft Excel将用它创建新图表。

语法：

object.SetDefaultChart(formatName)

元素

SetDefaultChart方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

formatName

必选项。指定一自定义自动格式的名字。该名可为一自定义自动套用格式。 如一字符串或是特殊常量xlBuiltln指定的内部图表模板。


SetDefaultChart方法实例

该实例设置默认图表模板为命名为“Monthly Sales”的自定义自动套用格式。

Application.SetDefaultChart formatName:="Monthly Sales"


Size属性

实例

用于

Font

描述

返回或设置字体大小。可读写。

语法

object.Size

元素

object

必选项。字体对象。


Size属性实例

该实例为当前单元格设置字体大小。

ActiveCell.Font.Size = 12


SubType属性

 实例

用于

Chart, ChartGroup

描述

返回或设置图表上单一图表组或全部图表组子类型。

语法

object.SubType

元素

object

必选项。图表或图表组对象。

解释

设置Type属性后再设置SubType属性。每一类型支持不同的子类型。例如， 柱形图类型可有簇、堆积和百分比子类型。获得子类型编号的最简单方法是用宏 记录器记录子类型格式。


SubType属性实例

该实例为第一雷达图组设置子类型。

Charts(1).RadarGroups(1).SubType = 2


SurfaceGroup 属性
SurfaceGruop属性

实例

用于

Chart

描述

返回三维图的ChartGroup。

语法

object.SurfaceGroup

元素

object

必选项。图表对象。


SurfaceGroup属性实例

该实例使得曲面组为面积组。

Charts(1).SurfaceGroup.Type = xlArea


Type属性

参阅	实例

用于

Axis, Chart, ChartGroup, DataLabel, DataLabels, Series, Trendline, Window, Worksheet

描述

返回对象类型，如下表所示。只读。

对象	类型

坐标轴	坐标轴类型。可为xlcategory.xlValue.xlSeries之一（xlSeries 只用于三维图）。

图表	图表类型，可为 xl3DArea, xl3DBar, xl3DColumn, xl3DLine, xl3DPie, xl3DSurface, xlArea, xlBar, xlColumn, xlDoughnut, xlLine, xlPie, xlRadar, or xlXYScatter之一。如果图表具有多种类型的图表组，该属性返回空， 并设置给全部图组。

图表组	图表组类型。可为图表对象中的某一显示值。如果设置一非图表上 的图表组类型，Microsoft Excel创建一新图表组。

数据标记	数据标记类型。可为None.xlShowValue.xlShowLabel.xlShowPercent. xlShowLabelAndPercent之一。

系列	系列类型。可为图表对象中显示的数值之一。如果设置一非图表上 的系列类型，Microsoft Excel创建一新图表组。

趋势线	趋势线类型。可为 xlLinear, xlLogarithmic, xlExponential, xlPolynomial, xlMovingAvg, xlPower之一。

窗口 	窗口类型。可为xlChartInPlace, xlChartAsWindow, xlWorkbook, xlInfo, xlClipboard之一。

工作表	工作表类型。可为xlWorksheet, xlExcel4MacroSheet, xlExcel4IntlMacroSheet 之一。

语法

object.Type

元素

object

必选项。设置或返回对象类型。


参阅

SubType属性


Type属性实例

该实例使得第一组为面积组。

Charts(1).ChartGroups(1).Type = xlArea


Walls属性

 实例

用于

Chart

描述

返回三维背景墙(Walls)。只读。

语法

object.Walls

元素

object

必选项。图表对象。


Walls属性实例

该实例设置背景墙颜色。

Charts(1).Walls.Border.Color = RGB(255,0,0)


XYGroups方法

 	实例

用于

Chart

描述

返回二维图上单一散点图组（ChartGroup对象，语法1）或返回散点图组 集（ChartGroups集，语法2）。

语法1

object.XYGroups(index)

语法2

object.XYGroups

元素

XYGroups方法具有下列对象限制和命名参数：

object

必选项。图表对象。

index

必选项，对语法1。指定图表组。


XYGroups方法实例

该实例使得第一散点组为面积组。

Charts(1).XYGroups(1).Type = xlArea


Activate方法

参阅	实例

用于

Chart， ChartObject， DialogSheet， MenuBar， Module， OLEObject， Pane， Range， Window， Workbook， Worksheet

描述

激活对象，如下表所示：

对象	描述

图，图对象	使此图表为当前图表。

对话表，模块，工作表	使此表为当前表，等价于单击标签。

菜单栏	激活菜单栏，在确定的时间你可激活的菜 单栏有一定的限制，请看下面详细解释部分。

OLE对象	激活对象。

分割区域	激活分割区域。

区域	激活单个单元格，它必须在当前选择区域中。 选定单元格区域，用select方法。

窗口	把窗口放到z-order前面，不运行任何自动激活或 自动关闭附加在工作簿的宏。(用RunAuToMacros） 运行这些宏。

工作簿	激活附在工作簿上的第一个窗口，不运行任何 自动激活或自动关闭附在工作簿的宏（用 RunAuToMacros方法运行这些宏） 。

语法

object.Activate

元素

object

必选项。要激活的对象

解释

当激活一内部菜单栏，只可以显示一个适合于对象的菜单栏，例如：假如想显示 一工作表或宏表的一个图表菜单栏，这种方法将返回一个错误并中断当前宏。

当不同类型的文档被选定时，激活一个自定义菜单栏不能自动地进行菜单栏 切换，例如，如果一个自定义菜单栏被显示并且你切换到一个图表，这两个图表菜 单不被显示（假如正用内部菜单栏，它们将被显示），当一内部菜单栏被显示时， 自动菜单栏可以重新能够切换。


参阅

RunAuTomacros方法

select方法


Activate方法实例

该实例为BOOK4.XLS激活窗口；如果已打开了多个窗口，则将激活BOOK4.XLS:1。

Workbooks("BOOK4.XLS").Activate

该实例通过C3选择单元格A1，然后使单元格B2为活动单元格。

Range("A1:C3").Select

Range("B2").Activate


Close 方法

实例

用于

Window， Workbook， Workbooks

描述

关闭对象，工作簿集用语法1，窗口和工作簿对象用语法2。

语法1

object.Close

语法2

object.Close(saveChanges, fileName, routeWorkbook)

元素

close方法有以下的对象限制和命名参数：

object

必选项。关闭对象。

saveChanges

可选项。如果窗口里的工作簿没有改变，这个参数被忽略。如果工作簿有改变， 并且工作簿上开有其他窗口，这个参数被忽略，如果工作簿有改变，并且工作簿 上没有其他打开的窗口，这个参数采取如下操作：

  值	 操作

True	保存工作簿的改变，如果还没有一个与工作簿关联的文件 名，则filename被采用，如果filename被省略用户被要求提供 文件名。

False 	不保存这个文件的改变。

省略	显示一个对话框，询问用户是否保存改变。

fileName

可选项。在文件名底下保存改变。

routeWorkbook

可选项。如果工作簿不需要传送到下一个收件人（没有发送名单或已经传送）， 这个参数被忽略；否则，Microsoft Excel按下表所示传送工作簿。

  值 	 意义

 True	 发送工作簿到下一收件人。

 False 	不发送工作簿。

 省略	 显示一对话框询问用户是否发送工作簿。

解释

从Visual Basic关闭一工作簿不运行任何工作簿中的自动关闭宏。 用RunAutoMacros方法运 行自动关闭宏。


close method举例

该实例关闭活动的窗口并放弃任何改变。

ActiveWindow.Close saveChanges := False


Visible属性

 	实例

用于

Application，Arc， Arcs， Button， Buttons， Chart， ChartObject， ChartObjects， Charts， CheckBox， CheckBoxes， DialogSheet， DialogSheets， Drawing， DrawingObjects， Drawings， DropDown， DropDowns， EditBox， EditBoxes， GroupBox， GroupBoxes， GroupObject， GroupObjects， Label， Labels， Line， Lines， ListBox， ListBoxes， Module， Modules， Name， OLEObject， OLEObjects， OptionButton， OptionButtons， Oval， Ovals， Picture， Pictures， PivotItem， Rectangle， Rectangles， ScrollBar， ScrollBars， Sheets， Spinner， Spinners， TextBox， TextBoxes， Toolbar， Window， Worksheet， Worksheets

描述

如果对象可见，则为True。例如图表、对话表、模块表或工作表这个属性能置于xLevry Hidden。隐藏这个对象以便它通过设置这一特性为True来成为可见（用户不能 使这一对象成为可见）。可读写。

语法

object.Visible

元素

object

必选项。该属性施加的对象。

解释

如果数据透视项当前显示于模拟运算表中，其数据透视项的Visible属性为True。

如果设置一个名字的Visible属性为False，这一名字将不出现在[定义名字]的对话框中。


Visible 属性实例

该实例隐藏工作表1。

Application.Worksheets(1).Visible = False

该实例使工作表1为可见。

Application.Worksheets(1).Visible = True


Function属性

实例

用于

PivotField

解释

返回或设置函数用于汇总数据透视字段(仅为数据字段)，可为下列之一xlAverage、 xlCount、xlCountNums、xlMax、xlProduct、   xlProduct、xlStDev、xlStDevP、 xlSum、xlVar、xlVarP。可读写。

语法

object.Function

元素

object

      必选项。数据透视字段对象。


Function属性实例

该实例设置1994字段的和使用Sum函数。

ActiveSheet.PivotTables("PivotTable1"). _

PivotFields("Sum of 1994").Function = xlSum


Background 属性

实例

用于

Font

描述

返回或设置文字背景类型(可为下列xlAutomatic, xlOpaque或xlTransparent 之一)。此属性仅用于图表上文字,可读写。

语法

object.Background

元素

object

  必选项。字体对象。


Background 属性实例

该实例设置图表1上标题的大小和背景类型。

With ActiveSheet.ChartObjects(1).Chart.ChartTitle.Font

.Size = 10

.Background = xlTransparent

End With


Bold 属性

实例

用于

Font

描述

    如果字体为粗体，则为True。可读写。

语法

object.Bold

元素

object

  必选项。字体对象(例如，ActiveCell.Font)。


Bold 属性实例

该实例对区域A1:A5设置字体为粗体。

Range("A1", "A5").Font.Bold = True


Italic 属性

实例

用于

Font

描述

    如果字体为斜体，则为True。可读写。

语法

object.Italic

元素

object

必选项。字体对象(例如，ActiveCell.Font)。


Italic 属性实例

该例设置区域A1:A5中的字体为斜体。

Range("A1", "A5").Font.Italic = True


Outline 属性

实例

用于

Worksheet

描述

  对指定工作表返回一 Outline 对象。

语法

object.Outline

元素

object

必选项。工作表对象。


Outline 属性实例

该实例用自动设置式样为当前表设置分级显示。

ActiveSheet.Outline.AutomaticStyles = True


Strikethrough 属性

实例

用于

Font

描述

    如果字体为删除线，则为True。可读写。

语法

object.Strikethrough

元素

object

  必选项。字体对象(例如，ActiveCell.Font)。


Strikethrough 属性实例

该实例在活动单元格中设置字体为删除线。

ActiveCell.Font.Strikethrough = True


Underline 属性

实例

用于

Font

描述

返回或设置用于字体的底线类型，如下表所示。可读写。

值	含义

xlNone	无底线

xlsingle	单底线

xlDouble	双底线

xlsingleAccounting	单底线

xlDoubleAccounting	双底线

语法

object.Underline

元素

object

  必选项。字体对象(例如，ActiveCell.Font)。


Underline 属性实例

该实例在活动单元格中设置字体为单底线。

ActiveCell.Font.Underline = xlSingle


LargeScroll方法

参阅 	实例

用于

Pane, Window

描述

按页滚动窗口。

语法

object.LargeScroll(down, up, toRight, toLeft)

元素

LargeScroll方法具有下列对象限制和命名参数：

object

必选项。要滚动的窗口。

down

可选项。窗口向下滚动的页数。

up

可选项。窗口向上滚动的页数。

toRight

可选项。窗口向右滚动的页数。

toLeft

可选项。窗口向左滚动的页数。

解释

如果down和up都已指定，则窗口根据它们的差来滚动。例如，设置down=3，up=6， 则窗 口 向上滚动三页。

如果toLeft和toRight都已指定，则窗口根据它们的差来滚动。例如，设置toLeft=3，toRight=6，则窗口向右滚动三页。以上各参数均可是负数。


参阅

SmallScroll方法


LargeScroll方法实例

该实例向下滚动活动窗口三页。

ActiveWindow.LargeScroll down:=3


SmallScroll方法

参阅	实例

用于

Pane, Window

描述

按行或按列要滚动的窗口。

语法

object.SmallScroll(down, up, toRight, toLeft)

元素

SmallScroll方法具有下列对象限制和命名参数：

object

必选项。要滚动的窗口

down

可选项。窗口向下滚动的行数。

up

可选项。窗口向上滚动的行数。

toRight

可选项。窗口向右滚动的列数。

toLeft

可选项。窗口向左滚动的列数。

解释

若down和up都己指定，则窗口根据它们的差来滚动。例如，设置down是3和up是6， 则窗 口向上滚动三行。若toLeft和toRight都己指定，则窗口根据它们的差来滚动。例如 设置toLeft是3和toRight是6，则窗口向右滚动三列。以上各参数均可取负值。


参阅

LargeScroll 方法


SmallScroll方法实例

该实例向下滚动活动窗口三行。

ActiveWindow.SmallScroll down:=3


DownBars属性

参阅	 实例

用于

ChartGroup

描述

返回折线图上的 跌柱线DownBars。只适用于折线图。只读。

语法

object.DownBar

元素

object

必选项。图表组对象。


参阅

HasUpDownBars属性

UpBars属性


DownBars属性实例

该实例打开第一图表组的涨柱线和跌柱线，然后设置其颜色。

With ActiveChart.ChartGroups(1)

.HasUpDownBars = True

.DownBars.Interior.Color = RGB(255, 0, 0)

.UpBars.Interior.Color = RGB(0, 0, 255)

End With


DropLines 属性
DDropLines属性

参阅	实例

用于

ChartGroup

描述

返回或设置折线图或面积图中系列的DropLines。只适用于折线图或面积图。可读 写。

语法

object.DropLines

元素

object

必选项。图表组对象。


 参阅

HasDropLines属性


DropLines 属性实例

该实例打开第一图表组的垂直线，然后设置线条式样、粗细和颜色。

With ActiveChart.ChartGroups(1)

.HasDropLines = True

With .DropLines.Border

.LineStyle = xlThin

.Weight = xlMedium

.Color = RGB(255, 0, 0)

End With

End With


FirstSliceAngle属性

          实例

用于

ChartGroup

描述

为饼图、三维饼图或圆环图返回或设置第一扇形或扇环的角度。该角度

是从垂直方向顺时针算起。只适用于饼图、三维饼图和圆环图。

可读写。

语法

object.FirstSliceAngle

元素

object

必选项。图表组对象。


FirstSliceAngle 属性实例

该实例设置第一图表组的第一块扇形角。

ActiveChart.ChartGroups(1).FirstSliceAngle = 15


HasDropLines属性

参阅	 实例

用于

ChartGroup

描述

若折线图或面积图具有垂直线，则为True。只适用于折线图和面积图。

可读写。

语法

object.HasDropLines

元素

object

必选项。图表组对象。


参阅

DropLines属性


HasDropLines属性实例

该实例打开第一图表组的垂直线，然后设置其线条式样、粗细和颜色。

With ActiveChart.ChartGroups(1)

.HasDropLines = True

With .DropLines.Border

.LineStyle = xlThin

.Weight = xlMedium

.Color = RGB(255, 0, 0)

End With

End With


HasHiLoLines 属性

参阅	 实例

用于

ChartGroup

描述

若折线图中具有高低点连线，则为True。只适用于折线图。可读写。

语法

object.HasHiLoLines

元素

object

必选项。图表组对象。


参阅

HiLoLines属性


HasHiLoLines属性实例

该实例打开第一图表组的高低点连线，然后设置其线条式样、粗细和颜色。

With ActiveChart.ChartGroups(1)

.HasHiLoLines = True

With .HiLoLines.Border

.LineStyle = xlThin

.Weight = xlMedium

.Color = RGB(255, 0, 0)

End With

End With


HasRadarAxisLabels属性

参阅	实例

用于

ChartGroup

描述

若雷达图具有坐标轴标记则为True。只适用于雷达图。可读写。

语法

object.HasRadarAxisLabels

元素

object

必选项。图表组对象。


参阅

RadarAxisLabels属性


HasRadarAxisLabels属性实例

该实例打开第一图表组的雷达图坐标轴标记，然后设置其颜色。

With ActiveChart.ChartGroups(1)

.HasRadarAxisLabels = True

.RadarAxisLabels.Font.Color = RGB(255, 0, 0)

End With


HasSeriesLines属性

参阅	 实例

用于

ChartGroup

描述

若一个堆积柱形图或条形图具有系列线，则为True。只适用于堆积柱形图和条形图。

可读写。

语法

object.HasSeriesLines

元素

object

必选项。图表组对象。


参阅

SeriesLines属性


HasSeriesLines属性实例

该实例打开第一图表组的系列线，然后设置其线条式样、粗细和颜色。

With ActiveChart.ChartGroups(1)

.HasSeriesLines = True

With .SeriesLines.Border

.LineStyle = xlThin

.Weight = xlMedium

.Color = RGB(255, 0, 0)

End With

End With


HasUpDownBars属性

参阅	实例

用于

ChartGroup

描述

若折线图具有涨柱线和跌柱线，则为True。只适用于折线图。可读写。

语法

object.HasUpDownBars

元素

object

必选项。图表组对象。


参阅

DownBars属性

UpBars属性


HasUpDownBars属性实例

该实例打开第一图表组的涨柱线和跌柱线，然后设置其颜色。

With ActiveChart.ChartGroups(1)

.HasUpDownBars = True

.DownBars.Interior.Color = RGB(255, 0, 0)

.UpBars.Interior.Color = RGB(0, 0, 255)

End With


HiLoLines属性
属性

参阅	 实例

用于

ChartGroup

描述

返回或设置折线图上系列的高低点连线。只适用于折线图。可读写。

语法

object.HiLoLines

元素

object

必选项。图表组对象。


参阅

HasHiLoLines属性


HiLoLines属性实例

该实例打开第一图表组的高低点连线，然后设置其线条式样、粗细和颜色。

With ActiveChart.ChartGroups(1)

.HasHiLoLines = True

With .HiLoLines.Border

.LineStyle = xlThin

.Weight = xlMedium

.Color = RGB(255, 0, 0)

End With

End With


Overlap属性

参阅	 实例

用于

ChartGroup

描述

指定如何将条和柱定位。选值范围为从-100到100。

只用于条形图和柱形图。可读写。

语法

object.Overlap

元素

object

必选项。图表组对象。

解释

若该属性值设为-100，则条之间有一个条宽的间距。若为0，

则条之间没有间距（一个条紧接着另一个条）。若为100，则条完全重叠。


参阅

GapWidth属性


Overlap属性实例

该实例设置第一图表组的重叠比例为-50。

ActiveWorkbook.Charts(3).ChartGroups(1).Overlap = -50


RadarAxisLabels 属性

参阅	实例

用于

ChartGroup

描述

返回或设置图表组的雷达图坐标轴标记（TickLabels集）。可读写。

语法

object.RadarAxisLabels

元素

object

必选项。图表组对象。


参阅

HasRadarAxisLabels属性


RadarAxisLabels 属性实例

该实例打开第一图表组的雷达图坐标轴标记，然后设置其颜色。

With ActiveChart.ChartGroups(1)

.HasRadarAxisLabels = True

.RadarAxisLabels.Font.Color = RGB(255, 0, 0)

End With


SeriesLines 属性

参阅	 实例

用于

ChartGroup

描述

返回或设置堆积条形图或堆积柱形图的SeriesLines 。只适用于

堆积条形图和堆积柱形图。可读写。

语法

object.SeriesLines

元素

object

必选项。图表组对象。


参阅

HasSeriesLines属性


SeriesLines 属性实例

该实例打开第一图表组的系列线，然后设置其线条式样、粗细和颜色。

With ActiveChart.ChartGroups(1)

.HasSeriesLines = True

With .SeriesLines.Border

.LineStyle = xlThin

.Weight = xlMedium

.Color = RGB(255, 0, 0)

End With

End With


UpBars属性

参阅	实例

用于

ChartGroup

描述

返回折线图的涨柱线。只适用于折线图。只读。

语法

object.UpBars

元素

object

必选项。图表组对象。


参阅

HasUpDownBars属性

DownBars属性


UpBars属性实例

该实例打开第一图表组的涨柱线和跌柱线，然后设置其颜色。

With ActiveChart.ChartGroups(1)

.HasUpDownBars = True

.DownBars.Interior.Color = RGB(0, 255, 0)

.UpBars.Interior.Color = RGB(255, 0, 0)

End With


VaryByCategories属性

           实例

用于

ChartGroup

描述

若该属性为True，则Microsoft Excel对每个数据标示赋予不同的颜色和图案。图表只能包括一个系列。可读写。

语法

object.VaryByCategories

元素

object

必选项。图表组对象。


VaryByCategories 属性实例

该实例对第一图表组中的每个数据标示赋予不同的颜色和图案。

ActiveChart.ChartGroups(1).VaryByCategories = True

_


AddIn 对象

属性	方法

描述

加载宏，即可安装也可不安装。

解释

在Visual basic模块表中，用户从[工具]菜单选择[创建加载宏]命令创建加载宏。 加载宏对象给加载宏管理器提供可编程接口；它并不实际创建加载宏。


AddIns 对象

属性	方法

描述

AddIn对象的集合。


Application 对象

属性	方法

描述

应用程序对象包含：

应用程序宽度设置和选项（例如工具选项对话框）。

内部工作表函数，如SUM，AVERAGE和COUNTA。

返回顶层对象的方法，如ActiveCell，ActiveSheet等等。

解释

返回最普通的用户界面对象的许多特性和方法，如当前单元格（ActiveCell属性）可被使用而没有应用程序对象的限制。 例如不用写Application.ActiveCell.Font.Bold = True。可以这样写：

ActiveCell.Font.Bold = True.

这些属性和方法出现在应用程序对象和Global对象内的对象浏览中。为了粘贴不需要应 用程序限制的记录单，可从全局对象中粘贴属性和方法。


Arc 对象

属性	方法

描述

在图表或工作表上已画好的弧形图形对象。


Arcs 对象

属性	方法

描述

Arc 对象集。


Axes 对象

属性	方法

描述

Axis对象集。


Axis 对象

属性	方法

描述

图表上的坐标轴。


AxisTitle 对象

属性	方法

描述

图表上的坐标轴标题（图形对象）。


Border 对象

属性	方法

描述

单元格或图形对象的边框线。


Borders 对象

属性	方法

描述

Border对象集。


Button 对象

属性	方法

描述

图表或工作表上的自定义按钮图形对象。不要把按钮对象与ToolbarButton对象混淆，后 者是工具栏上的按钮。


Buttons 对象

属性	方法

描述

Button对象集。


Characters 对象

属性	方法

描述

单元格，文字框，或自定义按钮图形对象中字符的集（换句话说，文字或文字的子集）。


Chart 对象

属性	方法

描述

工作簿中的图表。


ChartArea 对象

属性	方法

描述

图表的图表区。


ChartGroup 对象

属性	方法

描述

图表上的图表组。


ChartGroups 对象

属性	方法

描述

ChartGroup对象集。


Charts 对象

属性	方法

描述

工作簿中图表集。


ChartTitle 对象

属性	方法

描述

图表的标题。


Corners 对象

属性	方法

描述

三维图表的边角。用户对图表对边角能做的唯一一件事就是选择它们，当边角被选定 的时候，用户可旋转和调整三维图的大小。


DataLabel 对象

属性	方法

描述

图表系列上的数据标记，或在图表系列单个点上的数据标记。


Dialog 对象

属性	方法

描述

内部Microsoft Excel对话框。


Dialogs 对象

属性	方法

描述

Dialog对象集。


DialogSheet 对象

属性	方法

描述

工作簿中对话表。


DialogSheets 对象

属性	方法

描述

DialogSheet对象集。


DownBars 对象

属性	方法

描述

图表上的跌柱线。


DrawingObjects 对象

属性	方法

描述

表上所有图形对象集。


Drawing 对象

属性	方法

描述

由手画线，手画多边形或实心手画多边形按钮创建的图形对象。


Drawings 对象

属性	方法

描述

Drawing对象集。


DropLines 对象

属性	方法

描述

图表上的垂直线。


ErrorBars 对象

属性	方法

描述

图表上的误差线。


Floor 对象

属性	方法

描述

三维图的基底。


Font 对象

属性	方法

描述

字体描述。字体对象包含作为属性的所有字体属性（字体名、字体大小、颜色，等等）。


Gridlines 对象

属性	方法

描述

图表上的主要网格线或次要网格线。


GroupObject 对象

属性	方法

描述

一组图形对象


GroupObjects 对象

属性	方法

描述

 GroupObject对象集。


HiLoLines 对象

属性	方法

描述

图表上的高低点连线。


Interior 对象

属性	方法

描述

单元格或图形对象的内部特性。


Legend 对象

属性	方法

描述

图表的图例。


Line 对象

属性	方法

描述

在图表或工作表上以画好的直线图形对象。


Lines 对象

属性	方法

描述

Line对象集。


Menu 对象

属性	方法

描述

下拉菜单、快显菜单或层叠式菜单。


MenuBar 对象

属性	方法

描述

内部的或自定义菜单栏。


MenuBars 对象

属性	方法

描述

MenuBar对象集。


MenuItem 对象

属性	方法

描述

菜单项。菜单项可以是一个命令或分隔符条。


MenuItems 对象

属性	方法

描述

MenuItem对象集。


Menus 对象

属性	方法

描述

Menu对象集。


Module 对象

属性	方法

描述

工作簿中的Visual Basic模块表。


Modules 对象

属性	方法

描述

Module对象集。


Name 对象

属性	方法

描述

定义名字。名字可以是内部的，如Database，Print－Area，及Auto－Open，也可以是自定义 的名字。


Names 对象

属性	方法

描述

Name对象集。


OLEObject 对象

属性	方法

描述

嵌入工作表上的图表，或被链接或嵌入的OLE对象。


OLEObjects 对象

属性	方法

描述

OLEObject对象集。


Oval 对象

属性	方法

描述

绘制在图表或工作表上以画好的椭圆形图形对象。


Ovals 对象

属性	方法

描述

Oval对象集。


PageSetup 对象

属性	方法

描述

页面设置描述。页面设置对象包含作为特性的所有页面设置属性（页左边距、 页底边距、页面大小等等）。


Pane 对象

属性	方法

描述

窗口的分割区域。


Panes 对象

属性	方法

描述

Pane对象集。


Picture 对象

属性	方法

描述

由摄影按钮创建的图形对象，或粘贴在表上的位图或元文件。


Pictures 对象

属性	方法

描述

Picture对象集。


PivotField 对象

属性	方法

描述

在数据透视表上的数据透视字段。


PivotFields 对象

属性	方法

描述

PivotField对象集。


PivotItem 对象

属性	方法

描述

在数据透视字段中的数据透视项。


PivotItems 对象

属性	方法

描述

PivotItem对象集。


PivotTable 对象

属性	方法

描述

表上的数据透视表。

数据透视表对象包含PivotField对象，数据透视字段对象依次包含PivotItem对象。

因为数据透视表编程很复杂，从[工具]菜单用[记录宏]命令记录数据透视表动作通常更容易。


PivotTables 对象

属性	方法

描述

PivotTable对象集。


PlotArea 对象

属性	方法

描述

图表的图形区。


Point 对象

属性	方法

描述

系列中的单个点。


Points 对象

属性	方法

描述

Point对象集。


Range 对象

属性	方法

描述

单元格、行、列、单元格选定区域、多重选定区域、或三维区域。处理区域对象。

这里有几个实例，说明怎样使用区域对象的最重要属性和方法。

单元格方法

用Cells方法返回单一单元格，如下例所示：

Cells(1, 1).Value = 24	'Set the value of cell A1 to 24

Cells(2, 1).Formula = "=SUM(B1:B5)"	'Enter a formula in cell A2

虽然用户同样能用Range（＂A1＂）或就用［a1］来返回单元格A１，但这些形式并不象Cells （RowIndex，ColumnIndex）表示法那样有用。下列实例显示了为什么Cells （rowIndex， columnIndex）如此有用（把代码复制到一个模块表，然后从工作表运行它）：

Sub SetUpTable()

For theYear = 1 To 5

Cells(1, theYear + 1).Value = 1990 + theYear

Next theYear

For theQuarter = 1 To 4

Cells(theQuarter + 1, 1).Value = "Q" & theQuarter

Next theQuarter

End Sub

虽然用户能用Visual Basic串函数操纵A1－式样地址，但使用Cells(1, 1）表示法更容易 （且有更好的编程效果）。

区域方法

用区域方法返回矩形范围的单元格。下列实例子用字符串“Text”填充范围A1：H8：

Sub SetUpTable()

For theYear = 1 To 5

Cells(1, theYear + 1).Value = 1990 + theYear

Next theYear

For theQuarter = 1 To 4

Cells(theQuarter + 1, 1).Value = "Q" & theQuarter

Next theQuarter

End Sub

用户同样用Range方法返回命名的命名的范围，如下所示：

Sub ClearDatabaseCriteria()

Range("Criteria").ClearContents

End Sub

多重选定区域

用Union方法和Range方法返回多重选定区域。下列实例创建一个名为myMultipleSelection 的对象 ，把它 定义为A1：B2和C3：D4的多重选定区域，然后选定它：

Sub ShowMultipleSelection()

Dim r1, r2, myMultipleSelection As Range

Set r1 = Range(Cells(1, 1), Cells(2, 2))

Set r2 = Range(Cells(3, 3), Cells(4, 4))

Set myMultipleSelection = Union(r1, r2)

myMultipleSelection.Select

End Sub

如果用户处理多重选定区域，Areas方法是很有用的。将多重选定区域分成单个区域对象，然后 以集的形式返回它们。用户能在返回的集上用Count属性检查多重选定区域，如下列所示：

Sub NoMultipleSelections()

numberOfSelectedAreas = Selection.Areas.Count

If numberOfSelectedAreas > 1 Then

MsgBox "You cannot carry out this command on multiple selections"

End If

End Sub

偏移量方法

当用户用相对地址记录宏时，宏记录器用Off set方法指定用户在工作表上要做的选择。以下实例是用户把当前单元格从A1移到B2时在Visual Basic模块表中记录的内容：

Sub Macro(1)

Selection.Offset(1, 1).Range("A1").Select

End Sub


Rectangle 对象

属性	方法

描述

在图表或工作表上已画好的矩形图形对象。


Rectangles 对象

属性	方法

描述

Rectangle对象集。


RoutingSlip 对象

属性	方法

描述

工作簿的发送文字。


Scenario 对象

属性	方法

描述

工作表上的方案。


Scenarios 对象

属性	方法

描述

Scenario对象集。


Series 对象

属性	方法

描述

图表上的系列。


SeriesCollection 对象

属性	方法

描述

Series对象集。


SeriesLines 对象

属性	方法

描述

在条形图或柱形图上的系列线。


Sheets 对象

属性	方法

描述

工作簿中的表集。表集可包含Worksheet, Chart, Module, 和 DialogSheet对象。


SoundNote 对象

属性	方法

描述

单元格中的声音附注。


Style 对象

属性	方法

描述

式样描述。式样对象包含所有作为特性的式样属性（字体，数字格式，对齐，等等）。


Styles 对象

属性	方法

描述

Style对象集。


TextBox 对象

属性	方法

描述

在图表或工作表上绘制的文字框图形。


TextBoxes 对象

属性	方法

描述

TextBox对象集。


TickLabels 对象

属性	方法

描述

在图表坐标轴上与刻度线相关的文字。


Toolbar 对象

属性	方法

描述

工具栏，可是内部的或是自定义的。


ToolbarButton 对象

属性	方法

描述

工具栏上的按钮。不要将工具栏按钮对象与Button对象混淆，后者是在图表或工作表上 自定义按钮图形的对象。


ToolbarButtons 对象

属性	方法

描述

ToolbarButton对象集。


Toolbars 对象

属性	方法

描述

Toolbar对象集。


Trendline 对象

属性	方法

描述

图表上的趋势线。


Trendlines 对象

属性	方法

描述

Trendline对象集。


UpBars 对象

属性	方法

描述

图表上的涨柱线。


Walls 对象

属性	方法

描述

三维图的背景墙。


Window 对象

属性	方法

描述

在Microsoft Excel中的任一窗口。


Windows 对象

属性	方法

描述

Window对象集。


Workbook 对象

属性	方法

描述

在Microsoft Excel中的工作簿。


Workbooks 对象

属性	方法

描述

Workbook对象集。


Worksheet 对象

属性	方法

描述

工作簿上的工作表。工作表也可是Microsoft Excel4.0版的宏表，或Microsoft Excel4.0版的国际宏表。


Worksheets 对象

属性	方法

描述

Worksheet对象集。


ForwardMailer 方法

参阅	实例

用于

Workbook

描述

通过创建一个新邮件建立一个用于传送的工作簿邮件，这个新邮件通过目前存在的 邮件的主题和附件预先设置，仅当工作簿附有被接收的邮件时有效（用户可以仅传 送接收到的工作簿）。仅在Apple Macintosh机上并配有PowerTalk邮件系统扩展的 Microsoft Excel上有效。

语法

object.ForwardMailer

元素

object

必选项。工作簿对象。

解释

当用户使用该方法建立用于传送的工作簿邮件后，可以使用Mailer属性改变邮件设置（如果需要）然后用SendMailer方法传送该工作簿。如果该方法在Microsoft Windows中使用，则会产生错误。


参阅

Mailer属性

MailSystem属性

SendMailer方法


Forward 方法实例

该实例传送当前工作簿。

ActiveWorkbook.ForwardMailer


HasMailer 属性

参阅	实例

用于

Workbook

描述

如果工作簿含有一个邮件则为True，仅在Apple Macintosh机上并配有PowerTalk邮件系统扩展的Microsoft Excel上有效。可读写。

语法

object.HasMailer

元素

object

必选项。工作簿对象。


参阅

Mailer属性

MailSystem属性

SendMailer方法


HasMailer 属性实例

该实例应答当前工作簿。

With ActiveWorkbook

If .HasMailer Then

.Reply

.Mailer.Subject = "Here's my reply"

.SendMailer

End If

End With


HasRoutingSlip 属性
HasRoutingSlip 方法

参阅	实例

用于

Workbook

描述

如果工作薄含有一个发送名单RoutingSlip则为True，可读写。

语法

object.HasRoutingSlip

元素

object

必选项。工作簿对象。

解释

将该属性设置为True则用默认值为创建一个发送名单，将该属性设为False， 则删除发送名单。


参阅

RoutingSlip属性


HasRoutingSlip 属性实例

该实例为Book1.XLS创建发送名单，然后将该工作簿一个接一个地传送给三个收件人。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

End With

Workbooks("BOOK1.XLS").Route


Reply 方法

参阅	实例

用于

Workbook

描述

通过创建工作簿的副本及预初始化该新工作簿的邮件以应答工作簿，将其传送给工作 簿的创始者，仅当工作簿附有被接收的邮件时有效（用户只可应答接收到的工作簿）， 仅在AppleMacintosh机上并安装有PowerTalk邮件系统扩展的Microsoft Excel上有效。

语法

object.Reply

元素

object

必选项。工作簿对象。

解释

为了应答工作簿，使用该方法建立邮件，使用Mailer属性调整邮件设置（如果需要），然后使用Send Mailer方法传送该应答，若该方法用于Microsoft Windows则产生错误。


参阅

Mailer属性

MailSystem属性

ReplyAll属性

SendMailer方法


Reply 方法实例

该实例应答当前工作簿。

With ActiveWorkbook

If .HasMailer Then

.Reply

.Mailer.Subject = "Here's my reply"

.SendMailer

End If

End With


ReplyAll 方法

参阅	实例

用于

Workbook

描述

通过创建工作簿的副本及对预初始化该新工作簿的邮件以将其传送给工作簿的所有收件 人来应答工作簿，仅当工作簿附有接收的邮件时有效（用户可以只应答接收到的工 作簿），且仅在AppleMacintosh机上并配有PowerFaFowerTack邮件系统扩展的Microsoft Excel上有效。

语法

object.ReplyAll

元素

object

必选项。工作簿对象。

解释

为了应答工作簿的所有收件人，使用该方法创建邮件，用Mailer属性调整邮件设置（如果需要），然后使用SendMailer方法传送该应答。


参阅

Mailer属性

MailSystem属性

Reply方法

SendMailer方法


ReplyAll 方法实例

该实例应答当前工作簿的所有收件人。

With ActiveWorkbook

If .HasMailer Then

.ReplyAll

.Mailer.Subject = "Here's my reply"

.SendMailer

End If

End With


Route 方法

参阅	实例

用于

Workbook

描述

使用工作簿的当前发送名单传送工作簿。

语法

object.Route

元素

object

必选项。工作簿对象。

解释

传送一个工作簿使 Routed 属性为True。


参阅

Rounted属性

RoutingSlip属性

SendMail方法


Route 方法实例

该实例为Book1.XLS创建一个发送名单，然后一个接一个地将该工作簿传送给三个收件人。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

End With

Workbooks("BOOK1.XLS").Route


Routed 属性

实例

用于

Workbook

描述

如果工作簿已被传送给下一个收件人则为True。如果该工作簿需要传送则为False。 只读。

语法

object.Routed

元素

object

必选项。工作簿对象。

解释

如果工作簿没有被传送给当前收件人，该属性总是False（例如，如果该文档没有传送 名单，或刚创建了一个发送名单）。


Routed 方法实例

该实例向下一个收件人传送工作簿。

If ActiveWorkbook.HasRoutingSlip And _

Not ActiveWorkbook.Routed Then

ActiveWorkbook.Route

End If


RoutingSlip 属性

参阅	实例

用于

Workbook

描述

为工作簿返回发送名单RoutingSlip，如果没有发送名单则读该属性将产生一个错误信号。只读。

语法

object.RoutingSlip

元素

object

必选项。工作簿对象。


参阅

HasRontingSlip属性


RoutingSlip 属性实例

该实例为Book1.XLS创建一个发送名单，然后一个接一个地将该工作簿传送给三个收件人。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

End With

Workbooks("BOOK1.XLS").Route


SendMail 方法

参阅	实例

用于

Workbook

描述

使用安装的邮件系统传送工作簿。

语法

object.SendMail(recipients, subject, returnReceipt)

元素

SendMail方法具有以下对象限制和命名参数:

object

必选项。工作簿对象。

recipients

必选项。以文字形式指定收件人的名字，如果有多个收件人，则为文字字符串数组， 必需指定至少一名收件人，而且所有收件人均被加给收件人。

subject

可选项。指明信息的主题，如果省略，则使用文档名。

returnReceipt

可选项。若为True，则要求返回收据。若为False或省略，不要求返回收据。

解释

SendMail方法用于Microsoft �牋燤ail电子邮件系统（用于AppleMacintosh的MAPI或Microsoft Mail），将地址信息作为参数传送。SendMailer方法用于AppleMscintosh机上的PowerTalk 牋爀mail系统，该Mailer对象包含PowerTalk的地址信息。


参阅

Mailer对象

MailSystem属性

SendMailer方法


SendMail 方法实例

该实例向单个收件人传送当前工作簿。

ActiveWorkbook.SendMail recipients:="Jean Selva"


AutomaticStyles 属性

实例

用于

Outline

描述

    若分级显示使用自动设置式样，则为True。可读写。

语法

object.AutomaticStyles

元素

object

  必选项。分级显示对象(例如ActiveSheet.Outline)


AutomaticStyles 属性实例

该实例设置在当前表上的分级显示使用自动设置式样。

ActiveSheet.Outline.AutomaticStyles = True


ShowLevels 方法

实例

用于

Outline

描述

    显示一个分级显示的行和列层次的指定号码。

语法

object.ShowLevels (rowlevels, columnlevels)

元素

 ShowLevels 方法具有下对象限制和命名参数：

object

  必选项。分级显示对象(例如ActiveSheet.Outline)。

rowLevels

  可选项。指明要显示的分级显示的行层数，如果该分级显示含有的层比指定的要少，

  则Microsoft Excel显示所有的层，如果省略为零，则在行上什么也不做。

columnLevels

可选项。指明要显示的一个分级显示的列层数，如果该分级显示含有的层比指定的要 少，则  Microsoft Excel显示所有的层，如果省略或为零，则在列上什么也不做。

解释

   必须指定至少一个参数。


ShowLevels 方法实例

该实例显示分级显示的行层1至3和列层1。

ActiveSheet.Outline.ShowLevels rowLevels:=3, columnLevels:=1


SummaryColumn 属性

实例

用于

Outline

描述

    返回或设置分级显示中的摘要列的位置，如下表所示，可读写。

值	意义

xlLeft	在分级显示中摘要列将位于明细列的左边。

xlRight	在分级显示中摘要列将位于明细列的右边。

语法

object.SummaryColumn

元素

object

  必选项。分级显示对象(例如ActiveSheet.Outline)。


SummaryColumn 属性实例

该实例用自动设置式样创建一个分级显示，摘要行在明细行之上，摘要列

位于明细列右边。

Selection.AutoOutline

With ActiveSheet.Outline

.SummaryRow = xlAbove

.SummaryColumn = xlRight

.AutomaticStyles = True

End With


SummaryRow 属性

实例

用于

Outline

描述

    返回或设置分级显示中的摘要行的位置，如下表所示，可读写。

值	意义

xlAbove	在分级显示中摘要行将位于明细列之上。

xlBelow	在分级显示中摘要行将位于明细列之下。

语法

object.SummaryRow

元素

object

  必选项。分级显示对象(例如ActiveSheet.Outline)

解释

    对于Microsoft Word式样的分级显示，使用 SummaryRow = xlAbove ，此处分类页眉在

    明细之上。对于会计式样的分级显示，使用 SummaryRow = xlBelow ，此处摘要处于

    详细信息之下。


SummaryRow 属性实例

该实例用自动设置式样创建一个分级显示，摘要行处于细节行之上，

而且摘要列位于细节列的右边。

Selection.AutoOutline

With ActiveSheet.Outline

.SummaryRow = xlAbove

.SummaryColumn = xlRight

.AutomaticStyles = True

End With


BottomMargin属性

参阅	实例

用于

PageSetup

描述

返回或设置页底边距尺寸，用点数表示（1/72英寸）。可读写。

语法

object.BottomMargin

元素

object

必选项。页面设置对象。

（例如ActiveSheet.PageSetup）

解释

用点数返回或设置页边距。使用Application.InchesToPoints或 Application.CentimetersToPoints函数进行转换。


参阅

LeftMargin属性

RightMargin属性

TopMargin属性


BottomMargin 属性实例

该实例设置页底边距为0.5英寸（36点）。

ActiveSheet.PageSetup.BottomMargin = Application.InchesToPoints(0.5)

ActiveSheet.PageSetup.BottomMargin = 36

该实例显示当前页底边距设置。

marginInches = ActiveSheet.PageSetup.BottomMargin / _

Application.InchesToPoints(1)

MsgBox "The current bottom margin is " & marginInches & " inches"


CenterFooter属性

参阅	 实例

用于

PageSetup

描述

返回或设置页脚的中心部分。可读写。

语法

object.CenterFooter

元素

object

必选项。页面设置对象。

（例如ActiveSheet.PageSetup）

解释

特殊的格式码可以用在页脚的文字中。


参阅

CenterHeader属性

LeftHeader属性

LeftFooter属性

RightHeader属性

RightFooter属性


CenterFooter 属性实例

该实例在每一页的底部打印文档名字和页号。

ActiveSheet.PageSetup.CenterFooter = "&F page &P"


CenterHeader属性

参阅	实例

用于

PageSetup

描述

返回或设置页眉的中心部分。可读写。

语法

object.CenterHeader

元素

object

必选项。页面设置对象。

（例如ActiveSheet.PageSetup）

解释

特殊的格式码可被用在页眉文字中。


参阅

CenterFooter属性

LeftFooter属性

LeftHeader属性

RightFooter属性

RightHeader属性


CenterHeader 属性实例

该实例在每一页的顶部打印日期和页号。

ActiveSheet.PageSetup.CenterHeader = "&D page &P of &N"


CenterHorizontally属性

参阅	实例

用于

PageSetup

描述

如果表在页面上水平置中，则为True。可读写。

语法

object.CenterHorizontally

元素

object

必选项。页面设置对象。

（例如ActiveSheet.PageSetup）


参阅

CenterVertically属性


CenterHorizontally 属性实例

该实例将工作表水平置中。

ActiveSheet.PageSetup.CenterHorizontally = True


CenterVertically 属性

参阅	实例

用于

PageSetup

描述

如果表在页面上垂直置中，则为True。可读写。

语法

object.CenterVertically

元素

object

必选项。页面设置对象。

（例如ActiveSheet.PageSetup）


参阅

CenterHorizontally属性


CenterVertically属性实例

该实例将工作表垂直置中。

ActiveSheet.PageSetup.CenterVertically = True


ChartSize 属性

实例

用于

PageSetup

描述

当缩放一个图表以适应一页时返回或设置使用的方法，如下表所示。可读写。

值	含义

xlscreenSize	打印与显示在屏幕上的相同尺寸的图表。

xlFitToPage	尽可能大地打印该图表，但保持显示在屏幕上的图表的高－ 宽比例。

xlFullPage	打印一个与页相适合的图表，随需要可调整高宽比例。

语法

object.ChartSize

元素

object

必选项。页面设置对象。

（例如ActiveSheet.PageSetup）

解释

该属性仅用于图表（它不能与内嵌图表一起使用）。


ChartSize 属性实例

该实例将工作簿的第一个图表缩放使它适应整个页面。

ActiveWorkbook.Charts(1).PageSetup.ChartSize = xlFullPage


FirstPageNumber 属性

    实例

用于

PageSetup

描述

返回或设置用于要打印的表的第一页的页号（默认值为xlAutomatic）。可读写。

语法

object.FirstPageNumber

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）


FirstPageNumber 属性实例

该实例将这个表的第一页页号设为100。

ActiveSheet.PageSetup.FirstPageNumber = 100


FitToPagesTall 属性
属性

    实例

用于

PageSetup

描述

当工作表被打印时，返回或设置工作表被缩放为多少个页高。Zoom属性必须为False。或该 属性被忽略。可读写。

语法

object.FitToPagesTall

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PaghSetup）

解释

如果该属性为False，Microsoft Excel根据FitToPagesWide属性缩放工作表。该属性仅用于工作表。


FitToPagesTall 属性实例

该实例使当前表精确按页宽和页高被打印。

With ActiveSheet.PageSetup

.Zoom = False

.FitToPagesTall = 1

.FitToPagesWide = 1

End With


FitToPagesWide 属性

       实例

用于

PageSetup

描述

当工作表被打印时返回或设置工作表被缩放为多少个页宽，Zoom属性必须为False或该 属性被忽略。可读写。

语法

object.FitToPagesWide

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

如果该属性为False，则Microsoft Excel将根据FitToPagesTall属性缩放该工作表。该属性仅用于工作表。


FitToPagesWide 属性实例

该实例使活动表精确按一页宽和一页高被打印。

With ActiveSheet.PageSetup

.Zoom = False

.FitToPagesTall = 1

.FitToPagesWide = 1

End With


LeftFooter 属性

参阅	实例

用于

PageSetup

描述

返回或设置页脚的左边部分。可读写。

语法

object.LeftFooter

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

特殊的格式码可用于页脚文字中。


参阅

CenterFooter属性

CenterHeader属性

LeftHeader属性

RightFooter属性

RightHeader属性


LeftFooter 属性实例

该实例在每一页的左下角打印页号。

ActiveSheet.PageSetup.LeftFooter = "&P"


LeftHeader 属性

参阅	实例

用于

PageSetup

描述

返回或设置页眉的左边部分。可读写。

语法

object.LeftHeader

元素

object.LeftHeader

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

特殊的格式码可用于页眉文字中。


参阅

CenterFooter属性

CenterHeader属性

LeftFooter属性

RightFooter属性

RightHeader属性


LeftHeader 属性实例

该实例在每一页的左上角打印日期。

ActiveSheet.PageSetup.LeftHeader = "&D"


LeftMargin属性

参阅	实例

用于

PageSetup

描述

返回或设置页左边距尺寸，用点数表示（1／72英寸）。可读写。

语法

object.LeftMargin

元素

object

必选项。页面设置对象。

（例如ActiveSheet.PageSetup）

解释

用点数设置或返回页边距，使用Application.InchesToPoint或Application.CenTimetersToPoints函 数进行转换。


参阅

BottomMargin属性

RightMargin属性

TopMargin属性


LeftMargin 属性实例

该实例将页左边距设置为1.5英寸。

ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(1.5)

该实例将页左边距设置为2厘米。

ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(2)

该实例将变量LeftMarginInches设置为页左边距当前设置，用英寸。

leftMarginInches = ActiveSheet.PageSetup.LeftMargin / _

Application.InchesToPoints(1)


Order 属性

 实例

用于

PageSetup, Trendline

描述

页面设置对象：当打印一个大工作表时（xlDownThenOver或xlOverThenDown） 返回或设置Microsoft Excel为页编号的次序。可读写。

趋势线对象：当趋势线Type 为xlPolynomial时返回或设置趋势线次序（一个大于1的整数）。可读写。

语法

object.Order

元素

object

必选项。页面设置或趋势线对象。

解释

对于页面设置对象，该属性仅用于工作表。


属性实例

该实例使Microsoft Excel通过从开始向后移动将当前工作表分页。

ActiveSheet.PageSetup.Order = xlOverThenDown


PaperSize 属性

        实例

用于

PageSetup

描述

仅对于窗口，返回或设置纸张的大小。可读写。

语法

object.PaperSize

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

该属性可以具有下列值之一

值	含义

xlPaperLetter	Letter (8 1/2 x 11 in.)

xlPaperLetterSmall	Letter Small (8 1/2 x 11 in.)

xlPaperTabloid	Tabloid (11 x 17 in.)

xlPaperLedger	Ledger (17 x 11 in.)

xlPaperLegal	Legal (8 1/2 x 14 in.)

xlPaperStatement	Statement (5 1/2 x 8 1/2 in.)

xlPaperExecutive	Executive (7 1/2 x 10 1/2 in.)

xlPaperA3	A3 (297 x 420 mm)

xlPaperA4	A4 (210 x 297 mm)

xlPaperA4Small	A4 Small (210 x 297 mm)

xlPaperA5	A5 (148 x 210 mm)

xlPaperB4	B4 (250 x 354 mm)

xlPaperB5	B5 (182 x 257 mm)

xlPaperFolio	Folio (8 1/2 x 13 in.)

xlPaperQuarto	Quarto (215 x 275 mm)

xlPaper10x14	10 x 14 in.

xlPaper11x17	11 x 17 in.

xlPaperNote	Note (8 1/2 x 11 in.)

xlPaperEnvelope9	Envelope #9 (3 7/8 x 8 7/8 in.)

xlPaperEnvelope10	Envelope #10 (4 1/8 x 9 1/2 in.)

xlPaperEnvelope11	Envelope #11 (4 1/2 x 10 3/8 in.)

xlPaperEnvelope12	Envelope #12 (4 1/2 x 11 in.)

xlPaperEnvelope14	Envelope #14 (5 x 11 1/2 in.)

xlPaperCsheet	C size sheet

xlPaperDsheet	D size sheet

xlPaperEsheet	E size sheet

xlPaperEnvelopeDL	Envelope DL (110 x 220 mm)

xlPaperEnvelopeC3	Envelope C3 (324 x 458 mm)

xlPaperEnvelopeC4	Envelope C4 (229 x 324 mm)

xlPaperEnvelopeC5	Envelope C5 (162 x 229 mm)

xlPaperEnvelopeC6	Envelope C6 (114 x 162 mm)

xlPaperEnvelopeC65	Envelope C65 (114 x 229 mm)

xlPaperEnvelopeB4	Envelope B4 (250 x 353 mm)

xlPaperEnvelopeB5	Envelope B5 (176 x 250 mm)

xlPaperEnvelopeB6	Envelope B6 (176 x 125 mm)

xlPaperEnvelopeItaly	Envelope (110 x 230 mm)

xlPaperEnvelopeMonarch	Envelope Monarch (3 7/8 x 7 1/2 in.)

xlPaperEnvelopePersonal	Envelope (3 5/8 x 6 1/2 in.)

xlPaperFanfoldUS	U.S. Standard Fanfold (14 7/8 x 11 in.)

xlPaperFanfoldStdGerman	German Standard Fanfold (8 1/2 x 12 in.)

xlPaperFanfoldLegalGerman	German Legal Fanfold (8 1/2 x 13 in.)

xlPaperUser	User defined

一些打印机可能不支持所有的纸张大小。


PaperSize 属性实例

该实例设置有效的纸张大小。

ActiveSheet.PageSetup.PaperSize = xlPaperLegal


PrintGridlines 属性

参阅	实例

用于

PageSetup

描述

如果单元格网格线被打印在页面上，则为True。可读写。

语法

object.PrintGridlines

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

该属性仅用于工作表。


参阅

DisplayGridlines属性


PrintGridlines属性实例

该实例在活动表被打印时打印单元格网格线。

ActiveSheet.PageSetup.PrintGridlines = True


PrintHeadings属性

          实例

用于

PageSetup

描述

如果行号列标与该页一起打印，则为True。

语法

object.PrintHeadings

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

该属性仅用于工作表。 DisplayHeadings 属性控制屏幕上行号列标的显示。


PrintHeadings 属性实例

该实例关闭当前工作表页眉打印。

ActiveSheet.PageSetup.PrintHeadings = False


RightFooter属性

参阅	实例

用于

PageSetup

描述

返回或设置页脚的右边部分。可读写。

语法

object.RightFooter

元素

object

必选项。页面设置对象

（例如，ActiveSheet.PageSetup）

解释

特殊的格式码可以用在页脚的文字中。


参阅

CenterFotter属性

CenterHeader属性

LeftFooter属性

LeftHeader属性

RightHeader属性


RightFooter 属性实例

该实例在每一页的右下角打印页号。

ActiveSheet.PageSetup.RightFooter = "&P"


RightHeader 属性
属性

参阅 	实例

用于

PageSetup

描述

返回或设置页眉的右边部分。可读写。

语法

object.RightHeader

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

特殊的格式码可被用在页眉文字中。


参阅

CenterFooter属性

CenterHeader属性

LeftFooter属性

LeftHeader属性

RightFooter属性


RightHeader 属性实例

该实例在每一页的右上角打印文件名字。

ActiveSheet.PageSetup.RightHeader = "&F"


RightMargin 属性

参阅	 实例

用于

PageSetup

描述

返回或设置页右边距尺寸，用点数表示（1/72英寸）。可读写。

语法

object.RightMargin

元素

object

必选项。页面设置对象。

（例如：ActiveSheet.PdageSetup）

解释

用点数返回或设置页边距，使用Application.InchesToPoints或Application.CentimeterToPoints函数进行转换。


参阅

BottomMargin属性

LeftMargin属性

TopMargin属性


RightMargin 属性

该实例设置页右边距为1.5英寸。

ActiveSheet.PageSetup.RightMargin = Application.InchesToPoints(1.5)

该实例设置页右边距为2厘米。

ActiveSheet.PageSetup.RightMargin = Application.CentimetersToPoints(2)

该实例将变量rightMarginInches设置为当前页右边距设置，用英寸表示。

rightMarginInches = ActiveSheet.PageSetup.RightMargin / _

Application.InchesToPoints(1)


TopMargin属性

参阅	实例

用于

PageSetup

描述

返回或设置页顶边距的尺寸，用点数表示（1/72英寸）。可读写。

语法

object.TopMargin

元素

object

必选项。页面设置对象。

（例如，ActiveSheet.PageSetup）

解释

用点数设置或返回页边距，使用Applicstion.InchesToPoints或Application.CentimetersToPoints函 数进行转换


参阅

BottomMargin属性

LeftMargin属性

RightMargin属性


TopMargin 属性实例

该实例将页顶边距设置为0.5英寸（36点）。

ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.5)

ActiveSheet.PageSetup.TopMargin = 36

该实例显示当前页顶边距设置。

marginInches = ActiveSheet.PageSetup.TopMargin / _

Application.InchesToPoints(1)

MsgBox "The current top margin is " & marginInches & " inches"


Zoom属性

实例

用于

PageSetup, Window

描述

页面设置对象：

返回或设置一个百分数以缩放工作表用于打印。在40%~400%之间，可读写。

如果该属性为False，则FitToPagesWide和FitToPagesTall属性控制工作表是如何 缩放的。

窗口对象：

返回或设置窗口的显示尺寸，用百分比（100即以正常尺寸显示；200即窗口是两 倍大的，等等。）。该属性也可被设置为True以设置窗口大小适合当前选定区 域。

语法

object.Zoom

元素

object

必选项。页面设置或窗口对象

解释

页设置对象：

该属性仅用于工作表。所有缩放均保持原文档的长宽比。

窗口对象：

该功能仅影响当前在窗口上是活动的表，如果将该属性用在其他表上，必须首先 激活它 们。


Zoom 属性实例

该实例将工作表放大150%。

ActiveSheet.PageSetup.Zoom = 150


页眉和页脚的格式码
页脚和页眉的格式码

下列特殊的格式码可以作为页脚和页眉属性的一部分。

(LeftHeader, CenterHeader, RightHeader, LeftFooter, CenterFooter, RightFooter).

格式码	描述

&L	 靠左对齐后续字符

&C	置中对齐后续字符

&R	靠右对齐后续字符

&E	打开或关闭双底线打印

&X	打开或关闭上标打印

&Y	打开或关闭下标打印

&B	打开或关闭粗体打印

&I	打开或关闭斜体打印

&U	打开或关闭底线打印

&S	打开或关闭删除线打印

&O	打开或关闭分级显示打印

&H	打开或关闭底纹打印

&D	打印当前日期

&T	打印当前时间

&F	打印文档名

&A	打印工作薄标签名

&P	打印页号

&P+number	打印页号加数字

&P-number	打印页号减数字

&&	打印一个与符

&"fontname"	在指定字体后打印字符，一定要包含双引号

&nn	在指定大小的字体区打印字符，用一个两位数字以点的形式指定字体大小

&N	在文档中打印所有页号


AddCustomList 方法

参阅	实例

用于

Application

描述

为自定义自动填充和／或自定义排序增加一自定义序列。

语法

object.AddCustomList(listArray, byRow)

元素

 AddCustomList 方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

listArray

必选项。一字符串数组或一区域(Range)。

byRow

可选项。仅用于 listArray 是区域时。如果为True，MicrosoftExcel按区域中每行创建一自定义序列； 如果为False，Microsoft Excel按区域中每列创建一自定义序列。如果该参数省略并且区域中行数大 于列数（或行、列数相等），则Microsoft Excel按区域的每列创建一自定义序列。如果该参数省略，并且区域中列数大于 行数，则Microsoft Excel按区域的每行创建一自定义序列。

解释

如果要增加的序列已存在，该方法无效。


参阅

CustmListCount属性

DeleteCustomList方法

GetCustomListNum方法

GetCustomListContents方法


AddCustomList 方法实例

该实例以自定义序列方式增加一字符串数组。

Application.AddCustomList Array("cogs", "sprockets", _

"widgets", "gizmos")


AlertBeforeOverwriting 属性

实例

用于

Application

描述

如果在拖曳和下拉编辑操作过程中，Microsoft Excel在覆盖非空白单元格之前显示一消息，则为True。可读写。

语法

object.AlertBeforeOverwriting

元素

object

必选项。应用程序对象。


AlertBeforeOverwriting 属性实例

该实例在拖曳和下拉编辑操作过程中，使得Microsoft Excel

在覆盖非空白单元格之前，显示警告。

Application.AlertBeforeOverwriting = True


ClipboardFormats 属性

实例

用于

Application

描述

以数值数组方式，返回剪贴板上的当前格式。将数组中每一元素与下表中相应常 量比较， 判定特殊格式是否存在。只读。

语法

object.ClipboardFormats

元素

object

必选项。应用程序对象。

解释

该属性在Microsoft Windows中和Apple Macintosh上有效。某些格式仅可用于Apple Macintosh上或仅用于Microsoft Windows中。

该属性返回一数值数组。将数组中每一元素与下表中相应常数比较，判定 特殊剪贴板格式是否存在。

xlClipboardFormatBIFF xlClipboardFormatBIFF2 xlClipboardFormatBIFF3 xlClipboardFormatBIFF4 xlClipboardFormatBinary xlClipboardFormatBitmap xlClipboardFormatCGM xlClipboardFormatCSV xlClipboardFormatDIF xlClipboardFormatDspText xlClipboardFormatEmbeddedObject xlClipboardFormatEmbedSource xlClipboardFormatLink xlClipboardFormatLinkSource xlClipboardFormatLinkSourceDesc xlClipboardFormatMovie xlClipboardFormatNative	xlClipboardFormatObjectDesc xlClipboardFormatObjectLink xlClipboardFormatOwnerLink xlClipboardFormatPICT xlClipboardFormatPrintPICT xlClipboardFormatRTF xlClipboardFormatScreenPICT xlClipboardFormatStandardFont xlClipboardFormatStandardScale xlClipboardFormatSYLK xlClipboardFormatTable xlClipboardFormatText xlClipboardFormatToolFace xlClipboardFormatToolFacePICT xlClipboardFormatVALU xlClipboardFormatWK1


ClipboardFormats 属性实例

该实例显示一消息说明剪贴板是否包含一RTF对象。

aFmts = Application.ClipboardFormats

For Each fmt in aFmts

If fmt = xlClipboardFormatRTF Then

MsgBox "Clipboard contains rich text"

End If

Next


DeleteCustomList 方法

参阅	实例

用于

Application

描述

删除一自定义序列。

语法

object.DeleteCustomList(listNum)

元素

 DeleteCustomList 方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

listNum

必选项。自定义序列数。该数须大于或等于５(Microsoft Excel具有４个不可删除的内部自定义序列)。

解释

如果序列数小于５或一匹配的自定义列单不存在，该方法产生一错误。


参阅

AddCustomList方法

CustomListCount属性

GetCustomListNum方法

GetCustomListContents方法


DeleteCustomList 方法实例

该实例删除一自定义序列。

n = Application.GetCustomListNum(Array("cogs", "sprockets", _

"widgets", "gizmos"))

Application.DeleteCustomList n


EnableTipWizard 属性

实例

用于

Application

描述

如果操作指南是激活的，则为True。可读写。

语法

object.EnableTipWizard

元素

object

必选项。应用程序对象。


EnableTipWizard 属性实例

该实例激活操作指南。

Application.EnableTipWizard = True


FileConverters 属性

实例

用于

Application

描述

以文字数组方式返回一已安装的文件转换器序列。数组中每行包含 有关单个文件转换器的信息，如下表所示。如果不存在已安装的转换器，返回Null。 可读。

列	内容

１	转换器长名字，包含Microsoft Windows中文件类型搜索字符串（如＂Lotus 1-2-3Files(*WK*)＂）。

２	转换DLL路径名或代码资源。

３	在Microsoft Windows中的文件扩展名搜索字符串或Apple Macintosh上的４个字符文件类型。

语法

object.FileConverters

元素

object

必选项。应用程序对象。


FileConverters 属性实例

如果Multiplan文件转换器已安装，该实例设置变量FoundMultiplan为True。

installedCvts = Application.FileConverters

foundMultiplan = False

If Not IsNull(installedCvts) Then

For row = 1 To UBound(installedCvts, 1)

If installedCvts(row, 1) Like "*Multiplan*" Then

foundMultiplan = True

Exit For

End If

Next row

End If


GetCustomListContents 方法

参阅	实例

用于

Application

描述

返回指定的序列编号的自定义序列（字符串数组）。

语法

object.GetCustomListContents(listNum)

元素

GetCustomListContents方法具有下列对象限制和命名参数：

object

必选项。应用程序。

listNum

必选项。序列编号。

解释

如果一相应的序列不存在，该方法产生一错误。


参阅

AddCustomList方法

CustomListCount属性

GetCustomListNum方法

GetCustomListNum 方法


GetCustomListContents 方法实例

该实例设置变量listArray为第６个自定义序列。

On Error Goto err_handler

listArray = Application.GetCustomListContents(6)

Exit Sub

err_handler:

MsgBox("GetCustomListContents error occurred")

Resume Next


GetCustomListNum 方法

参阅	实例

用于

Application

描述

为字符串数组返回自定义序列编号。用这种方法内部和自定义序列均可被匹配。

语法

object.GetCustomListNum(listArray)

元素

 GetCustomListNum 方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

listArray

必选项。字符串数组。

解释

如果相应的序列不存在，该方法产生错误。


参阅

AddCustomList方法

CustomListCount属性

DeleteCustomList方法

GetCustomListContents方法


GetCustomListNum 方法实例

该实例删除一自定义序列。

n = Application.GetCustomListNum(Array("cogs", "sprockets", _

"widgets", "gizmos"))

Application.DeleteCustomList n


EditDirectlyInCell 属性

实例

用于

Application

描述

如果Microsoft Excel允许在单元格中编辑，则为True。可读写。

语法

object.EditDirectlyInCell

元素

object

必选项。应用程序对象。


EditDirectlyInCell 属性实例

该实例激活单元格中编辑。

Application.EditDirectlyInCell = True


MailLogoff 方法

参阅	实例

用于

Application

描述

关闭已建立的MAPI邮递过程。

语法

object.MailLogoff

元素

object

必选项。应用程序对象。


参阅

MailLogon方法

MailSession属性

SendMail方法


MailLogoff 方法实例

如果存在一邮递过程，该实例关闭已建立的邮递过程。

If Not IsNull(Application.MailSession) Then Application.MailLogoff


MailLogon 方法

参阅	实例

用于

Application

描述

打开MAPI 邮件并建立一邮递过程。在邮递或用文档传递函数被使用前，应先建立邮递过程。

语法

object.MailLogon(name, password, downloadNewMail)

元素

 MailLogon 方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

name

可选项。邮件帐号名。如果省略，则默认邮件帐号名被使用。

password

可选项。邮件帐号口令。

downloadNewMail

可选项。如为True，立即下装新邮件。

解释

在试图建立一新邮递过程之前，以前建立的邮递过程应关闭。在系统默认邮递过程 中， 名字和口令参数省略。


参阅

MailLogoff方法

MailSession属性

SendMail方法


MailLogon 方法实例

该实例打开MAPI邮件并立即下装新邮件。

If IsNull(Application.MailSession) Then

Application.MailLogon "oscarx", "mypassword", True

End If


MailSession 属性

参阅	实例

用于

Application

描述

如果存在当前邮递过程，以十六进制字符串形式返回MAPI邮递过程数，如果不存 在邮递过程，则返回Null。只读。

语法

object.MailSession

元素

object

必选项。应用程序对象。

解释

该属性不用于PowerTalk邮件系统。


参阅

MailLogon方法

MailLogoff方法

MailSystem属性

SendMail方法


MailSession 属性实例

如果存在一邮递过程，该实例关闭已建立的邮递过程。

If Not IsNull(Application.MailSession) Then Application.MailLogoff


MailSystem 属性

参阅	实例

用于

Application

描述

返回安装在主机上的邮件系统(为 xlNoMailSystem, xlMAPI,xlPowerTalk之一)。只读。

语法

object.MailSystem

元素

object

必选项。应用程序对象。


参阅

MailLogoff方法

MailLogon方法

MailSession属性

SendMail方法


MailSystem 属性实例

如果主机正用MAPI，该实例发送当前文档。

If Application.MailSystem = xlMAPI Then

ActiveWorkbook.SendMail "Jean Selva", "Sample Subject"

End If


NextLetter 方法

参阅	实例

用于

Application

描述

从In Tray中打开最早未读的Microsoft Excel信件。仅在装有PowerTalk邮件扩展系统的Apple Macintosh的Microsoft Excel中有效。

语法

object.NextLetter

元素

object

必选项。应用程序对象。

解释

该方法为最新打开的工作簿返回工作簿对象。如果没有工作簿打开，则返回Null。

该方法用于Microsoft Windows时，产生错误。


参阅

MailSystem属性

SendMail方法


NextLetter 方法实例

该实例从In Tray中打开最早未读的Microsoft Excel信件。

If Application.MailSystem = xlPowerTalk Then _

Application.NextLetter


OnCalculate 属性

实例

用于

Application, Worksheet

描述

返回或设置宏名，当重新计算工作表时，该宏运行。可读写。

语法

object.OnCalculate

元素

object

必选项。该属性施加的对象。

解释

为工作表设置该属性将越过任何应用程序的宏。设置该属性为空文字（＂＂）， 清除宏由 OnCalculate 属性设置运行的宏，在其他宏作用下不运行。例如，如果有宏调用Calculate 方法，由 OnCalculate 设置的宏不运行。但是如果在表中改变数据，设置为自动重算或选择Calc Now 按钮，该宏将运行。


OnCalculate 属性实例

当重新计算应用程序中任一工作表时，该实例使得Microsoft Excel运行"my_Recalc_Macro"（工作表本身设置OnCalculate属性时除外）。

Application.OnCalculate = "my_Recalc_Macro"


PromptForSummaryInfo 属性

实例

用于

Application

描述

当文件第一次保存时，如果Microsoft Excel询问摘要信息，则为True。可读写。

语法

object.PromptForSummaryInfo

元素

object

必选项。应用程序对象。


PromptForSummaryInfo 属性实例

当文件初次保存时该实例使Microsoft Excel询问摘要信息。

Application.PromptForSummaryInfo = True


SheetsInNewWorkbook 属性

实例

用于

Application

描述

返回或设置Microsoft Excel自动插入在新工作簿中的表编号。可读写。

语法

object.SheetsInNewWorkbook

元素

object

必选项。应用程序对象。


SheetsInNewWorkbook 属性实例

该实例显示Microsoft Excel插在新工作簿中的表编号。

MsgBox "Microsoft Excel inserts " & _

Application.SheetsInNewWorkbook & _

" sheet(s) in each new workbook"


StandardFont 属性

参阅	实例

用于

Application

描述

以字符串形式返回或设置标准字体名。可读写。

语法

object.StandardFont

元素

object

必选项。应用程序对象。

解释

如果使用该属性改变标准字体，此更改只有当重新启动Microsoft Excel时才有效。


参阅

StandardFontSize属性


StandardFont 属性实例

该实例设置标准字体为Arial

Application.StandardFont = "Arial"


StandardFontSize 属性

参阅	实例

用于

Application

描述

用点数（１／７２英寸）返回或设置标准字体大小。可读写。

语法

object.StandardFontSize

元素

object

必选项。应用程序对象。


参阅

StandardFont属性


StandardFontSize 属性实例

该实例设置标准字体大小为１２点。

Application.StandardFontSize = 12


Charts 方法

参阅	实例

用于

Application, Workbook

描述

在工作簿中返回单张图表（Chart对象，语法1）或图表集（Charts对象，语法2）。

语法1

object.Charts(index)

语法2

object.Charts

元素

     Charts方法具有下列对象限制和命名参数：

object

      可选项，对于应用程序；必选项，对工作簿。该方法施加于对象上。

index

      必选项，对于语法1。图名或图号（可用数组指定多个图表）。

解释

      该方法无对象限制时相当于ActiveWorkbook.Charts。


参阅

ChartObjects方法


Charts 方法实例

该实例打开当前工作簿中第一图表上分类轴（X轴）的主要网格线。

Charts(1).Axes(xlCategory).HasMajorGridlines = True


ClearArrows 方法

参阅	实例

用于

Worksheet

描述

   在工作表中清除追踪箭头。该箭头由审核功能加入。

语法

object.ClearArrows

元素

object

        必选项。工作表对象。


参阅

ShowDependents方法

ShowErrors方法

ShowPrecedents方法


ClearArrows 方法实例

该实例在当前表中清除追踪箭头。

ActiveSheet.ClearArrows


Copy 方法

参阅	实例

用于

Arc, Arcs, Button, Buttons, Chart, ChartArea, ChartObject, ChartObjects, Charts, CheckBox, CheckBoxes, DialogSheet, DialogSheets, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, Module, Modules, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Point, Range, Rectangle, Rectangles, ScrollBar, ScrollBars, Series, Sheets, Spinner, Spinners, TextBox, TextBoxes, ToolbarButton, Worksheet, Worksheets

描述

语法1：复制控制项或图形对象至剪贴板，复制点或系列的图片至剪贴板。

语法2：复制区域至指定区域，或至剪贴板。

语法3：复制表至工作簿中另一位置。

语法4：复制工具栏按钮至另一位置，可在相同或不同工具栏上进行。

语法1

object.Copy

语法2

object.Copy(before, after)

语法3

object.Copy（befor,after）

语法4

object.Copy(toolbar, before)

元素

     Copy方法具有下列对象限制和命名参数：

object

 必选项。该属性施加的对象。用语法3复制图表对象时，复制整个图表； 用语法1及图表区对象，只复制图表区。

destination

      可选项。指定复制区域的目的区域。如果该参数省略，Microsoft Excel将复制

      区域至剪贴板。

before

  语法3：可选项。复制表至该表之前。after、before不可同时指定。

  语法4：必选项。用数字指定新按钮位置，该数字从1至现有按钮数+1。间隔计为一 个位置。该位置的右边的按钮向右（或下）移动，为复制的按钮腾出空间。

after

      可选项。复制表至该表之后。after、before不可同时指定。

toolbar

     必选项，对语法4。指定要复制按钮的工具栏对象。

 解释

     如果after、before均未指定，Microsoft Excel创建一包含复制表的新工作簿。

    复制按钮并在其之前插入间隙。首先在目的工具栏上，用工具栏按钮Add方法，插入

    间隙，然后复制按钮至新间隙之后的位置。


参阅

Move方法

Paste方法


Copy 方法实例

该实例复制按钮1至剪贴板。

ActiveSheet.Buttons(1).Copy

该实例复制表1至表3之后。

Sheets("Sheet1").Copy after := Sheets("Sheet3")

该实例在Book2上复制工作表1至工作表9之前。

Application.Worksheets("Sheet1").Copy _

before := Workbooks("Book2").Worksheets("Sheet9")


DrawingObjects 方法

参阅	实例

用于

Chart, DialogSheet, Worksheet

描述

在图表、工作表、对话表上返回单一图形对象（语法1），或返回图形对象集 （语法2）。 返回全部图形对象，包括图表对象，图片，内嵌对象和图表。

语法1

object.DrawingObjects(index)

语法2

object.DrawingObjects

元素

     DrawingObjects方法具有下列对象限制和命名参数：

object

      必选项。图表、对话表、工作表对象。

index

      必选项，对于语法1。图形对象名或图形对象编号。可用数组返回多个图形对象。


参阅

图形对象


DrawingObjects 方法实例

该实例在当前工作表上删除图形对象3。

ActiveSheet.DrawingObjects(3).Delete


GroupObjects 方法

实例

用于

Chart, DialogSheet, Worksheet

描述

在图表、工作表或对话表上返回单一组（GroupObject对象，语法1），或返回组集（GroupObjects对象，语法2）。

语法1

object.GroupObjects(index)

语法2

object.GroupObjects

元素

     GroupObjects方法具有下列对象限制和命名参数：

object

       必选项。图表，对话表或工作表对象。

index

      必选项，对于语法1。组名或组号，可用数组指定多个组。


GroupObjects 方法实例

该实例在工作表1上取消组1。

Worksheets(1).GroupObjects(1).Ungroup


Move 方法

参阅	 实例

用于

Chart, Charts, DialogSheet, DialogSheets, Module, Modules, Sheets, ToolbarButton, Worksheet, Worksheets

描述

语法1：移动表至工作簿中另一位置。

语法2：移动工具栏按钮至另一位置，可在相同或不同工具栏上进行。

语法1

object.Move(before, after)

语法2

object.Move(toolbar, before)

元素

    Move方法具有下列对象限制和命名参数：

object

     必选项。该方法施加的对象。

before

      语法1：可选项。移动表至该表之前。before、after不可同时指定。

      语法2：必选项。用数字指定新按钮位置，该数字从1至现有按钮数+1。间隔计为 一个位置。该位置右边的按钮向右（或下）移动，为移动的按钮腾出空间。

after

      可选项。移动表至该表之后。after、befor不可同时指定。

toolbar

      必选项，对于语法2。指定要移动按钮的工具栏对象。

解释

    如果before、after均未指定，Microsoft Excel创建包含移动表的新工作簿。


参阅

Copy方法


Move方法实例

该实例在Book2中移动表1至表9之后。

Application.Worksheets("Sheet1").Move _

after:= Workbooks("Book2").Worksheets("Sheet9")


OnDoubleClick 属性

参阅 	实例

用于

Application, Chart, DialogSheet, Module, Worksheet

描述

     返回或设置宏的名字，当在图表或表中任何位置双击时，该宏运行。可读写。

语法

object.OnDoubleClick

元素

object

      必选项。应用程序、图表、对话表、模块表或工作表对象。

解释

    为工作表设置该属性，可越过任何设置于应用程序的宏。该属性越过 Microsoft Excel的普通双击行为，如在单元格中编辑数据或显示设置格式对话框。清除该宏时，设 置该属性为空文字（“  ”）。


参阅

DoubleClick方法


OnDoubleClick 属性实例

该实例当在当前表上双击时，使得Microsoft Excel运行宏"my _DblClick_Macro"。

ActiveSheet.OnDoubleClick = "my_DblClick_Macro"


PrintOut 方法

参阅	实例

用于

Chart, Charts, DialogSheet, DialogSheets, Module, Modules, Range, Sheets, Window, Workbook, Worksheet, Worksheets

描述

      打印对象。

语法

object.PrintOut(from, to, copies, preview)

元素

      PrintOut方法具有下列对象限制和命名参数：

object

      必选项。要打印的对象。

from

     可选项。打印的起始页号。如省略，打印从头开始。

to

       可选项。打印的终止页号。如省略，打印至最后一页。

copies

       可选项。打印的总页数。如省略，打印一页。

preview

       可选项。如为True，Microsoft Excel在打印对象前，生成打印预览。

       如为False（或省略），立即打印对象。

解释

     在from和to的描述中，"Pages"指定打印的页数，不代表表中或当前工作簿中总页数。

     该方法用于窗口对象时，窗口对象只能是信息窗口。


参阅

PrintArea属性

PrintPreview方法


PrintOut 方法实例

该实例打印当前表。

ActiveSheet.PrintOut


PrintPreview 方法

参阅	 实例

用于

Chart, Charts, DialogSheet, DialogSheets, Range, Sheets, Window, Workbook, Worksheet, Worksheets

描述

     显示要打印对象的预览。

语法

object.PrintPreview

元素

object

      必选项。要预览的对象。


参阅

Printout方法


PrintPreview 方法实例

该实例显示当前表的打印预览。

ActiveSheet.PrintPreview


Protect 方法

参阅	实例

用于

Chart, DialogSheet, Module, Workbook, Worksheet

描述

     保护图表、对话表、Visual Basic模块表、工作表（语法1）或工作簿（语法2）不被修改。

语法1

object.Protect(password, drawingObjects, contents, scenarios)

语法2

object.Protect(password, structure, windows)

元素

     Protect方法具有下列对象限制和命名参数：

object

      必选项。图表、对话表、模块表、工作表对象（语法1）或工作簿对象（语法2）。

password

   可选项。用字符串为表或工作簿指定区别大小写的口令。如果省略，则不 保护表或工作簿；如果指定，则必须为解除保护的表或工作簿设置口令。如 果忘记口令，表或工作簿将不能解除保护。建议妥善保存一个与文档名字相 对应的口令清单。

drawingObjects

 可选项。如保护表上图形对象，则为True。对于对话表，其保护控制项布局。 如果该参 数省略，图形对象不保护。对于Visual Basic模块表，图形对象可忽略。

contents

可选项。如果保护对象内容，则为True（或省略）。对于Visual Basic模块表，保护 的是源代码。对于图表，保护的是整个图表。对于对话表，保护的是对话布局和对 话控制项文字。对于工作表，保护的是单元格。

scenarios

     可选项。如果保护方案，则为True（或省略）。该参数仅对工作表有效。

structure

     可选项。如果保护工作簿结构（表的相对位置），则为True。如果该参数省略，

     则结构不被保护。

windows

     可选项。如果保护表或工作簿窗口，则为True。如果省略，则窗口不被保护。

解释

      如果工作簿已保护，用Protect方法将产生错误。


参阅

Locked属性

ProtectContents属性

ProtectDrawingObjects属性

ProtectScenarios属性

ProtectStructure属性

ProtectWindows属性

Unprotect方法


Protect 方法实例

该实例保护当前工作簿。

ActiveWorkbook.Protect password := "drowssap"


ProtectContents 属性

参阅	实例

用于

Chart, DialogSheet, Module, Worksheet

描述

如果表内容被保护，则为True。对于Visual Basic模块，保护的是源代码。对于图表， 保护的是整个图表。对于对话表，保护的是对话布局和对话控制项文字。对于工作 表，保护的是单元格。只读。

语法

object.ProtectContents

元素

object

        必选项。图表、对话表、模块表、工作表对象。


参阅

Locked属性

Protect方法

ProtectWindows属性

Unprotect方法


ProtectContents 属性实例

如果当前表内容被保护，该实例显示消息框。

If ActiveSheet.ProtectContents Then

MsgBox "The contents of the active sheet are protected."

End If


ProtectDrawingObjects 属性

参阅	实例

用于

Chart, DialogSheet, Worksheet

描述

如果表的图表形对象被保护，则为True。在对话表上，保护的是控制项布局。只读。

语法

object.ProtectDrawingObjects

元素

object

必选项。图表、对话表、工作表对象。


参阅

Locked属性

Protect方法

ProtectContents属性

Unprotect方法


ProtectDrawingObjects 属性实例

如果当前表上图形对象被保护，该实例显示消息框。

If ActiveSheet.ProtectDrawingObjects Then

MsgBox "The drawing objects on the active sheet are protected."

End If


Scenarios 方法

实例

用于

Worksheet

描述

在工作表上返回单一方案（Scenario对象，语法1）或方案集（Scenarios对象， 语法2）。

语法1

object.Scenarios(index)

语法2

object.Scenarios

元素

Scenarios方法具有下列对象限制和命名参数：

object

必选项。工作表对象。

index

必选项，对于语法1。方案名或方案编号，可用数组指定多个方案。


Scenarios 方法实例

该实例为第一方案设置注释。

ActiveSheet.Scenarios(1).Comment = "Worst case July 1993 sales"


Unprotect 方法

参阅	实例

用于

Chart, DialogSheet, Module, Workbook, Worksheet

描述

从表或工作簿中删除保护。如果表或工作簿未保护，该方法不生效。

语法

object.Unprotect(password)

元素

     Unprotect方法具有下列对象限制和命名参数：

object

必选项。该方法施加的 对象。

password

可选项。字符串赋于要区别大小写的口令，解除保护表或工作簿。如果表或工作簿没 有用口令保护，该参数可忽略。如果该参数省略，且表或工作簿有口令，则出现口令 提示。

解释

如果忘记口令，则不能表或工作簿不能解除保护。建议妥善保存与文档名相对应的口 令清单。


参阅

Locked属性

Protect方法

ProtectContents属性

ProtectDrawingObjects属性


Unprotect 方法实例

该实例从当前工作簿中删除保护。

ActiveWorkbook.Unprotect


ApplyDataLabels 方法

参阅	实例

用于

Chart， Point， Series

描述

    将数据标记用于点，系列或全部图表上的所有系列。

语法

object.ApplyDataLabels(type, legendKey)

元素

  ApplyDataLabels方法具有下列对象限制或命名参数:

object

  必选项。图表，点，系列对象。

type

  可选项。数据标记类型，如下表所示。

值	含义
xlNone	没有数据标记
xlShowValue	点值(如果该参数没有指定则为假定值)。
xlShowPercent	总百分比。仅对饼图或圆环图有效。
xlShowLabel	点分类。
xlShowLabelAndPercent	点的总百分比和分类。仅对饼图或圆环图有效。
legendKey

可选项。如果为True，Microsoft Excel显示点后面的图例标示。


参阅

DataLabel属性

HasDataLabel属性

HasDataLabels属性


ApplyDataLabels 方法实例

该实例将分类标记用于第一系列。

ActiveChart.SeriesCollection(1).ApplyDataLabels type:=xlShowLabel


DataLabel 属性

参阅	实例

用于

Point， Trendline

描述

    返回与点或趋势线相关的数据标记DataLabel 。只读。

语法

object.DataLabel

元素

object

  必选项。点或趋势线对象。


参阅

ApplyDataLabels方法

HasDataLabel属性


DataLabel 属性实例

该实例为系列3上的点7打开数据标记，并设置数据标记颜色。

With ActiveChart.SeriesCollection(3).Points(7)

.HasDataLabel = True

.ApplyDataLabels type:=xlValue

.DataLabel.Font.Color = RBG(0, 0 ,255)

End With


HasDataLabel 属性

参阅	实例

用于

Point

描述

    如果点有数据标记则为True。可读写。

语法

object.HasDataLabel

元素

object

  必选项。点对象。


参阅

ApplyDataLabels方法

DataLabel属性

HasDataLabels属性


HasDataLabel 属性实例

该实例为系列3上点7打开数据标记，并设置数据标记颜色。

With ActiveChart.SeriesCollection(3).Points(7)

.HasDataLabel = True

.ApplyDataLabels type:=xlValue

.DataLabel.Font.Color = RGB(0, 0, 255)

End With


MarkerStyle 属性

实例

用于

LegendKey， Point， Series

描述

    为折线图，散得图，雷达图上点或系列返回或设置标示式样。可读写。

语法

object.MarkerStyle

元素

object

  必选项。图例标示，点或系列对象。

解释

    该属性可为下表值之一。

值	含义

xlNone	没有标示

xlAutomtic	自动标示

xlSquare	方形标示

xlDiamond	菱形标示

xlTriangle	三角形标示

xlX	带X的方形标示

xlStar	带*的方形标示

xlDot	短条标示

xlDash	长条标示

xlCircle	循环标示

xlPlus	带+的方形标示

xlP:cture	图片标示


MarkerStyle 属性实例

该实例为第一系列设置标示式样。

ActiveChart.SeriesCollection(1).MarkerStyle = xlCircle


PictureType 属性

参阅	实例

用于

Point， Series

描述

返回或设置在柱形图或条形图片图上图片显示形式，如下表所示。 仅用于柱形图和条形图片图。可读写。

值	含义

xlStrelh	伸展图片以达到必需值。

xlStack	堆积图片以达到必需值。

xlScale	堆积图片，且用 PictureUnit 属性确定每个图片表示的单位。

语法

object.PictureType

元素

object

  必选项。点或系列对象。


参阅

PictureUnit属性


PictureType 属性实例

该实例设置第一系列为伸展图片。

ActiveChart.SeriesCollection(1).PictureType = xlStretch


PictureUnit 属性

参阅	实例

用于

Point， Series

描述

    当PictureType 属性设置为xlScale时，为柱形图或条形图片图上每个图片返回或设置单位。如果不是xlScale，该属性忽略。可读写。

语法

object.PictureUnit

元素

object

  必选项。点或系列对象。


参阅

PictureType属性


PictureUnit Property 属性实例

该实例设置第一系列为堆积图片，并且每一图片代表5个单位。

With ActiveChart.SeriesCollection(1)

.PictureType = xlScale

.PictureUnit = 5

End With


BaseField 属性

实例

用于

PivotField

描述

为自定义计算返回或设置基本字段。仅对数据字段有效。可读写。

语法

object.BaseField

元素

object

必选项。数据透视字段对象。


BaseField 属性实例

该实例设置基本字段为"Year"字段。

ActiveCell.PivotField.Calculation = xlDifferenceFrom

ActiveCell.PivotField.BaseField = "Year"

ActiveCell.PivotField.BaseItem = "1991"


BaseItem 属性

实例

用于

PivotField

描述

为自定义计算返回或设置基本字段中的项。仅对数据字段有效。可读写。

语法

object.BaseItem

元素

object

必选项。数据透视字段对象。


BaseItem 属性实例

该实例设置基本项为"1991"项。

ActiveCell.PivotField.Calculation = xlDifferenceFrom

ActiveCell.PivotField.BaseField = "Year"

ActiveCell.PivotField.BaseItem = "1991"


Calculation 属性

实例

用于

Application, PivotField

描述

对于应用程序对象，返回或设置计算方式，如下表如所。可读写。

值	含义

xlAutomatic	自动重新计算。

xlManual	只在用户请求时重新计算。

xlSemiautomatic	除模拟运算表外自动重新计算。

对数据透视字段对象，返回或设置由指定数据透视字段完成的计算类型。（指定数据透 视字段可为xlDifferenceFrom， xlIndex， xlNormal， xlPercentDifferenceFrom， xlPercentOf， xlPercentOfColumn， xlPercentOfRow， xlPercentOfTotal或 xlRunningTotal之一），仅对数据字段有效。可读写。

语法

object.Calculation

元素

object

必选项。应用程序或数据透视字段对象。


参阅

CalculateBeforeSave 属性


Calculation 属性实例

该实例使得Microsoft Excel在存盘前计算工作簿。

Application.Calculation = xlManual

Application.CalculateBeforeSave = True

该实例在数据透视表中设置当前字段，计算与基本字段的区别。

ActiveCell.PivotField.Calculation = xlDifferenceFrom

ActiveCell.PivotField.BaseField = "Year"

ActiveCell.PivotField.BaseItem = "1991"


ChildField 属性

实例

用于

PivotField

描述

为指定的字段返回子数据透视字段（该字段是分组的并有子字段）。只读。

语法

object.ChildField

元素

object

必选项。数据透视字段对象。

解释

如果指定的字段没有子数据透视字段，该属性产生错误。


ChildField 属性实例

该实例显示当前字段的子数据透视字段名字。

MsgBox "The name of the child field is " & _

ActiveCell.PivotField.ChildField.Name


ChildItems 方法

实例

用于

PivotField, PivotItem

描述

返回一个数据透视项（数据透视项PivotItem对象，语法1）或所有的数据透视项集 （数据透视项PivotItems对象，语法2），该数据透视项是指定字段的组子 字段或指定项的子项。只读。

语法１

object.ChildItems(index)

语法２

object.ChildItems

元素

Childitems方法具有下列对象限制和命名参数：

object

必选项。数据透视字段或数据透视项对象。

index

必选项，对于语法1。返回的数据透视项名字或编号（可用数组指定多个 名字或编号）。


ChildItems 方法实例

该实例在列表框中增加当前字段的所有组子字段名字。

For Each pvtItem in ActiveCell.PivotField.ChildItems

childItemListBox.AddItem(pvtItem.Name)

Next pvtItem


CurrentPage 属性

实例

用于

PivotField

描述

为分页字段返回或设置当前分页显示（仅对分页字段有效）。可读写 。

语法

object.CurrentPage

元素

object

必选项。数据透视字段对象。

解释

为设置该属性，应先设置其为页名字。将其设置为"全部"则设置所有分页显示。


CurrentPage 属性实例

该实例设置当前分页为"1990"页。

ActiveCell.PivotTable.PivotFields("Year").CurrentPage = "1990"


DataRange 属性

实例

用于

PivotField, PivotItem

描述

返回下表所示的区域Range。只读。

对象	数据区域

Data field	字段内的数据。

Row, Column, or Page field	字段内的项。

Item	由项限制的数据。

语法

object.DataRange

元素

object

必选项。数据透视字段或数据透视项对象。


DataRange 属性实例

该实例选定字段中的数据（如果字段为数据字段），或字段中的项（如果字段为 行，列或分页字段）。

ActiveCell.PivotField.DataRange.Select

该实例选定由当前数据透视项限制的数据。

ActiveCell.PivotItem.DataRange.Select


DataType 属性

实例

用于

PivotField

描述

返回常量描述的数据透视字段中的数据类型。可为xlText，xlNumber或xlDate之一。只读。

语法

object.DataType

元素

object

必选项。数据透视字段对象。


DataType 属性实例

如果当前字段包含文字，该实例显示消息框。

If ActiveCell.PivotField.DataType = xlText Then

MsgBox "This field contains text."

End If


Group 方法

参阅	实例

用于

Arcs, Buttons, ChartObjects, CheckBoxes, DrawingObjects, Drawings, DropDowns, EditBoxes, GroupBoxes, GroupObjects, Labels, Lines, ListBoxes, OLEObjects, OptionButtons, Ovals, Pictures, Range, Rectangles, ScrollBars, Spinners, TextBoxes

描述

语法1：在分级显示内降级区域（换言之，增加其分级显示层次）。区域应为整个 行（列），或是多个行（列）区域。（分组）数据透视表中不连续区域。 将多个控制项或图形对象组成一组；返回新的组对象GroupObject。

语法2：在数据透视表字段中进行数字或日期分组。

语法1

object.Group

语法2

object.Group(start, end, by, periods)

元素

Group方法具有下列对象限制和命名参数：

object

必选项。该方法施加于对象上。

start

可选项。分组第一数值。如果省略或为True，则用字段中第一数值。

end

可选项。分组最后数值。如果省略或为True，则用字段中最后数值。

by

可选项。如果字段是数字，指定每组大小。

如果字段是日期，当periods设置为days时，指定每组天数，否则by忽略。  如果该参数省略，自动选择默认组大小。

periods

可选项。布尔值数组，指定组的周期，如下表所示。

1	秒

2	分钟

3    小时

4    日

5	月

6	一刻钟

7	年

如果数组的元素为True。则为相应的时间创建组。如果元素为False，则不创建 组。当字段不是日期字段时，该参数忽略。


参阅

OutlineLevel 属性

Ungroup 方法


Group 方法实例

该实例从第一，第三和第十五图形对象中创建组。

Set myGroup = ActiveSheet.DrawingObjects(Array(1, 3, 5)).Group

myGroup.Select

该实例在数据透视表中分组日期字段。该字段从1993.1.1起至1993.12.31止， 按10天周期分组。该字段包含当前单元格。

ActiveCell.Group start:="1/1/1993", end:="12/31/1993", by:=10, _

periods:=Array(False, False, False, True, False, False, False)


GroupLevel 属性

实例

用于

PivotField

描述

返回字段组中指定字段的放置（该字段是字段组的成员）。只读。

语法

object.GroupLevel

元素

object

必选项。数据透视字段对象。

解释

最高级父字段（最左父字段）是GroupLevel1，其子字段是GroupLevel2，等等。


GroupLevel 属性实例

如果当前字段有GroupLevel1，该实例显示消息框。

If (ActiveCell.PivotField.GroupLevel = 1) Then

MsgBox "This is the highest-level parent field."

End If


HiddenItems 方法

参阅	实例

用于

PivotField

描述

在指定字段中返回单个隐藏数据透视项（数据透视项PivotItem对象，语法1）或 所有隐藏数据透视项集（数据透视项PivotItems对象，语法2）。只读。

语法1

object.HiddenItems(index)

语法2

object.HiddenItems

元素

Hiddenltems方法具有下列对象限制和命名参数：

object

必选项。数据透视字段对象。

index

必选项，对于语法1。返回的数据透视项名字或编号（可用数组指定多个 名字或编号）。


参阅

ChildItems 方法

ParentItems 方法

PivotItems 方法

VisibleItems 方法


HiddenItems 方法实例

该实例在列表框中增加当前字段的所有隐藏项名字。

For Each pvtItem in ActiveCell.PivotField.HiddenItems

hiddenItemListBox.AddItem(pvtItem.Name)

Next pvtItem


LabelRange 属性

实例

用于

PivotField, PivotItem

描述

数据透视字段：返回包含字段标记的单元格。如果有多个含有该标记单元 格，其均返回。只读。

数据透视项：返回数据透视表中包含全部单元格的区域（该数据透表包含项）。

语法

object.LabelRange

元素

object

必选项。数据透视字段或数据透视项对象。


LabelRange 属性实例

该实例选定当前字段页眉单元格。

ActiveCell.PivotField.LabelRange.Select


Orientation 属性

实例

用于

AxisTitle, Button, Buttons, ChartTitle, DataLabel, DataLabels, DrawingObjects, GroupObject, GroupObjects, PageSetup, PivotField, Range, Style, TextBox, TextBoxes, TickLabels

描述

返回或设置对象的方向，如下表所示

对象	方向

PageSetup	竖向或横向打印方式。可为xlPortrait或xlLandscape之一。.
PivotField	数据透视表中字段的位置。可为xlHidden， xlRowField，xlColumnField，xlPageField或xlDataField之一。
AxisTitle， Button， ChartTitle， DataLabel， DrawingObjects， GroupObject， RadarAxisLabels， Range， Style， TextBox， TickLabels	文字方向。可为xlHorizontal，xlVertical，xlUpward或 xlDownward之一 ，对TickLabels也可以是xlAutomatic。
语法

object.Orientation

元素

object

必选项。该属性施加于对象上。


Orientation 属性实例

该实例显示当前字段的方向。

Select Case ActiveCell.PivotField.Orientation

    Case xlHidden

        MsgBox "Hidden field"

    Case xlRowField

        MsgBox "Row field"

    Case xlColumnField

        MsgBox "Column field"

    Case xlPageField

        MsgBox "Page field"

    Case xlDataField

        MsgBox "Data field"

End Select

该实例设置第一工作表按横向方式打印。

Worksheets(1).PageSetup.Orientation = xlLandscape


ParentField 属性

实例

用于

PivotField

描述

返回数据透视字段，其为对象的组父字段。该字段应是分组的且有父字段。只读。

语法

object.ParentField

元素

object

必选项。数据透视字段对象。


ParentField 属性实例

该实例显示数据透视字段名字，该字段是当前字段的组父字段。

MsgBox "The active field is a child of the field " & _

ActiveCell.PivotField.ParentField.Name


ParentItems 方法

参阅	实例

用于

PivotField

描述

返回单个数据透视项（数据透视项PivotItem对象，语法1）或所有数据透视项集（数据透视项PivotItems对象，语法2），其为指定字段的组父字段。指定字段必须为另一个字段 的组父字段。只读。

语法1

object.ParentItems(index)

语法2

object.ParentItems

元素

Parentltems方法具有下列对象限制和命名参数：

object

必选项。数据透视字段对象。

index

必选项，对于语法1。返回的数据透视项名字或编号（可用数组指定多 个名字或编号）。


参阅

ChildItems 方法

HiddenItems 方法

PivotItems 方法

VisibleItems 方法


ParentItems 方法实例

该实例在列表框中增加所有项名字，其为当前字段中的组父字段。

For Each pvtItem in ActiveCell.PivotField.ParentItems

parentItemListBox.AddItem pvtItem.Name

Next pvtItem


PivotItems 方法

参阅	实例

用于

PivotField

描述

返回指定字段中单个数据透视项（数据透视项PivotItem对象，语法1）或所有可见 的和隐藏的数据透视项集（数据透视项PivotItems对象，语法2）。只读。

语法1

object.PivotItems(index)

语法2

object.PivotItems

元素

Pivotltems方法具有下列对象限制和命名参数：

object

必选项。数据透视字段对象。

index

必选项，对于语法1。返回的数据透视项名字或编号（可用于数组指定多 个名字或编号）。


参阅

ChildItems 方法

HiddenItems 方法

ParentItems 方法

VisibleItems 方法


PivotItems 方法实例

该实例在列表框中增加当前字段中所有项的名字。

For Each pvtItem in ActiveCell.PivotField.PivotItems

pvtItemListBox.AddItem(pvtItem.Name)

Next pvtItem


Position 属性

实例

用于

Legend, PivotField, PivotItem, Toolbar

描述

返回或设置指定对象的位置，如下表所示。可读写。

对象	位置

Legend	图表上图例的位置。可为xlBottom，xlCorner，xlTop，xlRight或xlLeft 之一。

PivotField	在所有字段中，沿着其方向（行，列，分页，数据）的字段 位置(第一、第二、第三等)。

Pivotltem	字段中项的位置，如果该项是当前显示的。

Toolbar	工具栏的位置。可为xlTop，xTLeft，xlRight，xlBottom或xlFloating 之一。

语法

object.Position

元素

object

必选项。该属性施加于对象上。


Position 属性实例

该实例设置当前数据透视字段为位置１。

ActiveCell.PivotField.Position = 1

该实例显示当前数据透视项的位置编号。

MsgBox "The active item is in position number " & _

ActiveCell.PivotItem.Position


Subtotals 属性

实例

用于

PivotField

描述

返回或设置对应于分类汇总的布尔值数组，该分类汇总与指定字段一同显示。该属 性仅对非数据字段有效。可读写。

语法

object.Subtotals

元素

object

必选项。数据透视字段对象。

解释

该属性返回如下表所示的布尔值数组。

数组元素	含义

1	Automatic

2	Sum

3	Count

4	Average

5	Max

6	Min

7	Product

8	Count Nums

9	StdDev

10	StdDevp

11	Var

12	Varp

如果数组值为True，该字段显示分类汇总。如果Automatic是True，其余值均设 置为False。


Subtotals 属性实例

该实例设置当前字段以显示Sum分类汇总。

ActiveCell.PivotField.Subtotals = _

Array(False, True, False, False, False, False, _

False, False, False, False, False, False)


TotalLevels  属性

实例

用于

PivotField

描述

返回当前字段分组中字段的总数。如果该字段没有分组，则TotalLevels返回 数值1。只读。

语法

object.TotalLevels

元素

object

必选项。数据透视字段对象。

解释

一组字段中的所有字段具有相同的TotalLavels值。


TotalLevels 属性实例

该实例显示当前字段分组中的字段总数。

MsgBox "This group has " & _

ActiveCell.PivotField.TotalLevels & " levels."


Ungroup 方法

参阅	实例

用于

DrawingObjects, GroupObject, GroupObjects, Range

描述

区域对象：升高分级显示层次中的区域（换言之，降低其分级显示层次）。指定的区域 应是行（列）或多个行（列）。如果区域在数据透视表中，不分组含于该区域内的项。

组对象：不分组图形对象组。返回包含组中对象的DrawingObjects集。

语法

object.Ungroup

元素

object

必选项。该属性施加于对象上。

解释

如果当前单元格在父字段的字段页眉，字段中的所有组均不分组并且从数据 透视表中删除该字段。当父字段中最后的组是不分组的，整个字段从数据透 视表中删除。


参阅

Group 方法

OutlineLevel 属性


Ungroup 方法实例

该实例对图形对象组取消组。

myGroup.Ungroup


VisibIeItems 方法
VisibleItems  方法

参阅	实例

用于

PivotField

描述

在指定字段中返回单个可见数据透视项（数据透视项PivotItem对象，语法1）或所 有可见数据透视项集（数据透视项族PivotItems对象，语法2）。只读。

语法1

object.VisibleItems(index)

语法2

object.VisibleItems

元素

Visibleltems方法具有下列对象限制和命名参数：

object

必选项。数据透视字段对象。

index

必选项，对于语法1。返回的数据透视项名字或编号（可用数组指定多个名字或编号）。


参阅

ChildItems 方法

HiddenItems 方法

ParentItems 方法

PivotItems 方法


VisibleItems 方法实例

该实例在列表框中增加当前字段的所有可见项名字。

For Each pvtItem in ActiveCell.PivotField.VisibleItems

visibleItemListBox.AddItem pvtItem.Name

Next pvtItem


ParentItem 属性

实例

用于

PivotItem

描述

    用父数据透视字段返回父数据透视项(PivotField) (字段需分组以生成父字段)。

    只读。

语法

object.ParentItem

元素

object

  必选项。数据透视项对象。


ParentItem 属性实例

该实例为活动项显示父数据透视项名字。

MsgBox "This item is a subitem of " & _

ActiveCell.PivotItem.ParentItem.Name


ParentShowDetail 属性

实例

用于

PivotItem

描述

在父项正显示状态明细数据的情况下，如果指定的子项正在显示，则为True。在父项正 隐藏明细数据地情况下，如果指定的子项不显示，则为False。该属性只有在项分组时， 才有效。只读。

语法

object.ParentShowDetail

元素

object

  必选项。数据透视项对象。


ParentShowDetail 属性实例

如果指定的项不显示(因为其父项隐藏明细数据)该实例显示对话框。

If Not targetItem.ParentShowDetail Then

MsgBox "The target item is not showing."

End If


SourceName 属性

实例

用于

PivotField, PivotItem

描述

    当对象名字以数据透视表的原始源数据形式出时，返回对象名子(字符串)。

如果用户在创建数据透视表后，重新命名该项，则可能与当前项名字不同。

语法

object.SourceName

元素

object

  必选项。数据透视字段或数据透视项对象。


SourceName 属性实例

该实例显示活动项的原始名字。

MsgBox("The original item name is " & _

ActiveCell.PivotItem.SourceName)


LocationInTable 属性

实例

用于

Range

描述

 返回常量，该常量用以描述 PivotTable 中含有指定区域左上角的那一部分 可为xlRowHeader, xlColumnHeader, xlPageHeader, xlDataHeader, xlRowItem, xlColumnItem, xlPageItem, xlDataItem或xlTableBody之一。只读。

语法

object.LocationInTable

元素

object

  必选项。区域对象。


LocationInTable 属性实例

如果当前单元格在数据透视表内,该实例显示消息框。

If ActiveCell.LocationInTable = xlTableBody Then

MsgBox "The active cell is in the body of the table."

End If


PivotTable 属性

实例

用于

Range

描述

    返回包含指定区域左上角的数据透视表(PivotTable) 。只读。

语法

object.PivotTable

元素

object

  必选项。区域对象。


PivotTable 属性实例

该实例显示包含当前单元格的数据透视表名字。

MsgBox "The active cell is in pivot table " & _

ActiveCell.PivotTable.Name


PivotField 属性

实例

用于

Range

描述

    返回包含区域左上角的数据透视字段(PivotField) 。只读。

语法

object.Field

元素

object

  必选项。区域对象。


PivotField 属性实例

该实例显示包含当前单元格的数据透视字段的名字。

MsgBox "The active cell is inside the field " & _

ActiveCell.PivotField.Name


PivotItem 属性

实例

用于

Range

描述

    返回包含区域左上角的数据透视项(PivotItem) 。只读。

语法

object.PivotItem

元素

object

  必选项。区域对象。


PivotItem 属性实例

该实例显示包含当前单元格的数据透视项的名字。

MsgBox "The active cell is inside the item " & _

ActiveCell.PivotItem.Name


ColumnFields方法

参阅	 实例

用于

PivotTable

描述

返回当前以列字段显示的单一数据透视字段（PivotField 对象，语法1）或数据透视字段

集（PivotFields 对象，语法2）。只读。

语法1

object.ColumnFields(index)

语法2

object.ColumnFields

元素

ColumnFields方法具有下列对象限制和命名参数named arguments

object

必选项。数据透视表对象。

index

必选项，对于语法1。返回的数据透视字段的名字或编号（可用数组指定定多个名字 或编号）。


参阅

DataFields方法

HiddenFields方法

PageFields方法

PivotFields方法

RowFields方法

VisibleFields方法


ColumnFields 方法实例

该实例在列表框中增加当前数据透视表列字段名字。

For Each clmField In ActiveCell.PivotTable.ColumnFields

columnFieldListBox.AddItem(clmField.Name)

Next clmField


ColumnGrand属性

参阅	实例

用于

PivotTable

描述

如果数据透视表显示列合计则为True。可读写。

语法

object.ColumnGrand

元素

object

必选项。数据透视表对象。


参阅

RowGrand属性


ColumnGrand 属性实例

该实例设置当前数据透视表显示列合计。

ActiveCell.PivotTable.ColumnGrand = True


ColumnRange 属性

参阅	实例

用于

PivotTable

描述

返回包含数据透视表列区域的Range 。只读。

语法

object.ColumnRange

元素

object

必选项。数据透视表对象。


参阅

DataBodyRange属性

DataLabelRange属性

PageRange属性

RowRange属性


ColumnRange属性实例

该实例为当前数据透视表选定列页眉。

ActiveCell.PivotTable.ColumnRange.Select


DataBodyRange 属性

参阅	实例

用于

PivotTable

描述

返回包含数据透视表数据区域的 Range 。只读。

语法

object.DataBodyRange

元素

object

必选项。数据透视表对象。


参阅

ColumnRange属性

DataLabelRange属性

PageRange属性

RowRange属性


DataBodyRange属性实例

该实例选定当前数据透视表数据。

ActiveCell.PivotTable.DataBodyRange.Select


DataFields 方法

参阅	实例

用于

PivotTable

描述

返回当前以数据字段显示的单一数据透视字段(数据透视字段(PivotField) 对象，语法1）或数据透视字段集（数据透视字段(PivotFields) 对象，语法2）。只读。

语法1

object.DataFields(index)

语法2

object.DataFields

元素

DataFields方法具有下列对象限制和命名参数named arguments：

object

必选项。数据透视表对象。

index

必选项，对于语法1。返回的数据透视字段的名字或编号（可用数组指定多个名字或 编号）。


参阅

ColumnFields方法

HiddenFields方法

PageFields方法

PivotFields方法

RowFields方法

VisibleFields方法


DataFields方法实例

该实例在列表框中增加当前数据透视表数据字段名字。

For Each dtaField In ActiveCell.PivotTable.DataFields

dataFieldListBox.AddItem(dtaField.Name)

Next


DataLabelRange 属性

参阅	实例

用于

PivotTable

描述

返回包含数据透视表数据字段标记的Range。只读。

语法

object.DataLabelRange

元素

object

必选项。数据透视表对象。


参阅

ColumnRange属性

DataBodyRange属性

PageRange属性

RowRange属性


DataLabelRange 属性实例

该实例在当前数据透视表中选定数据字段标记。

ActiveCell.PivotTable.DataLabelRange.Select


HasAutoFormat属性

实例

用于

PivotTable

描述

如果数据透视表被更新或字段被移动时自动格式化数据透视表则为TRUE。可读写。

语法

object.AutoFormat

元素

object

必选项。数据透视表对象。


HasAutoFormat 属性实例

该实例使得当前数据透视表在更新或移动字段时，自动重新格式化。

ActiveCell.PivotTable.HasAutoFormat = True


HiddenFields 方法

参阅	实例

用于

PivotTable

描述

返回单一数据透视字段（数据透视字段(PivotField) 对象，语法1）或数据透视字段集（数据透视字段(PivotFields) 对象，语法2）。其当前不以行，列，分页或数据字段显示。只读。

语法1

object.HiddenFields(index)

语法2

object.HiddenFields

元素

HiddenFields方法具有下列对象限制和命名参数：

object

必选项。数据透视表对象。

index

必选项，对于语法1。返回的数据透视字段的名字或编号（可用数组指定多个名字或编号）。


参阅

ColumnFields方法

DataFields方法

PageFields方法

PivotFields方法

RowFields方法

VisibleFields方法


HiddenFields 方法实例

该实例在列表框中增加当前数据透视表隐藏的字段名字。

For Each hdnField In ActiveCell.PivotTable.HiddenFields

hiddenFieldListBox.AddItem(hdnField.Name)

Next


PageFields 方法

参阅	 实例

用于

PivotTable

描述

返回当前以页字段显示的单一数据透视字段（数据透视字段(PivotField) 对象，语法1）或数据透视字段集（数据透视字段(PivotFields) 对象，语法2）。只读。

语法1

object.PageFields(index)

语法2

object.PageFields

元素

PageFields方法具有下列对象限制和命名参数：

object

必选项。数据透视表对象。

index

必选项，对于语法1。返回的数据透视字段名字或编号（可用数组指定多个名字或编号）。


参阅

ColumnFields方法

DataFields方法

HiddenFields方法

PivotFields方法

RowFields方法

VisibleFields方法


PageFields 方法实例

该实例在列表框中增加当前数据透视表页字段名字。

For Each pgField In ActiveCell.PivotTable.PageFields

pageFieldListBox.AddItem(pgField.Name)

Next pgField


PageRange 属性
PageRange 属生

参阅 	实例

用于

PivotTable

描述

返回包含数据透视表分页区域的 Range 。只读。

语法

object.PageRange

元素

object

必选项。数据透视表对象。


参阅

ColumnRange属性

DataBodyRange属性

DataLabelRange属性

RowRange属性


PageRange 属性实例

该实例选定当前数据透视表页眉。

ActiveCell.PivotTable.PageRange.Select


PivotFields 方法

参阅	 实例

用于

PivotTable

描述

返回数据透视表中单一数据透视字段（PivotField对象，语法1）或可见和隐藏的数据透视字段集（PivotFields对象，语法2）。只读。

语法1

object.PivotFields(index)

语法2

object.PivotFields

元素

PivotFields方法具有下列对象限制和命名参数：

object

必选项。数据透视表对象。

index

必选项，对于语法1。返回的数据透视字段名字或编号（可用数组指定多个名字或编号）。


参阅

ColumnFields方法

DatFields方法

HiddenFields方法

PageFields方法

RowFields方法

VisibleFields方法


PivotFields方法实例

该实例在列表框中增加当前数据透视表字段名字。

For Each pvtField In ActiveCell.PivotTable.PivotFields

pivotFieldListBox.AddItem(pvtField.Name)

Next pvtField


RefreshDate 属性

参阅	实例

用于

PivotTable

描述

返回数据透视表最后更新日期。只读。

语法

object.RefreshDate

元素

object

必选项。数据透视表对象。


参阅

RefreshName属性

RefreshTable方法


RefreshDate 属性实例

如果从1993年1月1日起数据透视表没有更新，该实例显示消息框。

If ActiveCell.PivotTable.RefreshDate < #1/1/93# Then

MsgBox "Please update to this year's data."

End If


RefreshName 属性

参阅	实例

用于

PivotTable

描述

返回最近更新数据透视表数据的人名。只读。

语法

object.RefreshName

元素

object

必选项。数据透视表对象。


参阅

RefreshDate属性

RefreshTable方法


RefreshName 属性实例

该实例显示最近更新数据透视表的人名。

MsgBox(ActiveCell.PivotTable.RefreshName & _

" was the last person to refresh this data.")


RefreshTable 方法

参阅	实例

用于

PivotTable

描述

从源数据中更新数据透视表，如果成功返回True。

语法

object.RefreshTable

元素

object

必选项。数据透视表对象。


参阅

RefreshName属性

RefreshDate属性


RefreshTable方法实例

该实例更新当前数据透视表。

ActiveCell.PivotTable.RefreshTable


RowFields 方法

参阅	实例

用于

PivotTable

描述

返回当前以行字段显示的单一数据透视字段（数据透视字段 (PivotField) 对象，语法1）或数据透视字段集（数据透视字段(PivotFields) 对象，语法2）。只读。

语法1

object.RowFields(index)

语法2

object.RowFields

元素

RowFields方法具有下列对象限制和命名参数：

object

必选项。数据透视表对象。

index

必选项，对于语法1。返回的数据透视字段的名字或编号（可用数组指定多个名字或编号）。


参阅

ColumnFields方法

DataFields方法

HiddenFields方法

PageFields方法

PivotFields方法

VisibleFields方法


RowFields 方法实例

该实例在列表框中增加当前数据透视表行字段名字。

For Each rwField In ActiveCell.PivotTable.RowFields

rowFieldListBox.AddItem(rwField.Name)

Next rwField


RowGrand 属性

参阅	 实例

用于

PivotTable

描述

如果数据透视表显示行合计则为True。可读写。

语法

object.RowGrand

元素

object

必选项。数据透视表对象。


参阅

ColumnGrand属性


RowGrand 属性实例

该实例设置当前数据透视表显示行合计。

ActiveCell.PivotTable.RowGrand = True


RowRange 属性

参阅	实例

用于

PivotTable

描述

返回包含数据透视表行区域的Range 。只读。

语法

object.RowRange

元素

object

必选项。数据透视表对象。


参阅

ColumnRange属性

DataBodyRange属性

DataLabelRange属性

PageRange属性


RowRange 属性实例

该实例选定当前数据透视表行页眉。

ActiveCell.PivotTable.RowRange.Select


SaveData 属性

            实例

用于

PivotTable

描述

如果数据透视表数据与工作簿一起保存，则为TRUE；如果仅保存数据透视表定义，则为False。可读写。

语法

object.SaveData

元素

object

必选项。数据透视表对象。


SaveData 属性实例

该实例设置当前数据透视表与工作簿一起保存。

ActiveCell.PivotTable.SaveData = True


ShowPages 方法

           实例

用于

PivotTable

描述

为分页字段中每一项创建新的数据透视表。每一新的数据透视表创建在新的工作表上。

语法

object.ShowPages(pageField)

元素

ShowPages方法具有下列对象限制和命名参数：

object

必选项。数据透视表对象。

pageField

必选项。数据透视表中命名单个分页字段的字符串。


ShowPages 方法实例

该实例为pivotTable1的Year分页创建新的数据透视表。

Set pivotTable1 = ActiveCell.PivotTable

pivotTable1.ShowPages("Year")


TableRange1 属性

            实例

用于

PivotTable

描述

返回包含整个数据透视表的Range ，但不包括分页字段。只读。

语法

object.TableRange1

元素

object

必选项。数据透视表对象。

解释

TableRange2 属性包括分页字段。


TableRange1 属性实例

该实例选定当前数据透视表，但分页字段除外。

ActiveCell.PivotTable.TableRange1.Select


TableRange2 属性

           实例

用于

PivotTable

描述

返回含有整个数据透视表的 Range ，包括页字段。只读。

语法

object.TableRange2

元素

object

必选项。数据透视表对象。

解释

TableRange1属性不包括分页字段。


TableRange2属性实例

该实例选定当前数据透视表，包括分页字段。

ActiveCell.PivotTable.TableRange2.Select


VisibleFields 方法

参阅	实例

用于

PivotTable

描述

返回单一数据透视字段（数据透视字段(PivotField) 对象，语法1）或可见数据透视字段集（数据透视字段(PivotFields) 对象，语法2）。可见的数据透视字段以行字段，列字段，分页字段或数据字段显示。只读。

语法1

object.VisibleFields(index)

语法2

object.VisibleFields

元素

VisibleFields方法具有下列对象限制和命名参数：

object

必选项。数据透视表对象。

index

必选项，对于语法1。返回的数据透视字段的名字或编号（可用数组指定多个名字或编号）。


参阅

ColumnFields方法

DataFields方法

HiddenFields方法

PageFields方法

PivotFields方法

RowFields方法


VisibleFields 方法实例

该实例在列表框中增加当前数据透视表可见字段名字。

For Each vsbField In ActiveCell.PivotTable.VisibleFields

visibleFieldListBox.AddItem(vsbField.Name)

Next vsbField


PivotTables 方法

参阅	 实例

用于

Worksheet

描述

返回工作表中单一数据透视表（PivotTable 对象，语法1）或所有数据透视表的集（PivotTables 对象，语法2）。只读。

语法1

object.PivotTables(index)

语法2

object.PivotTables

元素

PivotTables方法具有下列对象限制和命名参数：

object

必选项。工作表对象。

index

必选项，对语法1，数据透视表的名字和编号（可用数组指定多个名字或编 号）。


参阅

PivotFields方法

Pivotltems方法


PivotTables方法实例

该实例增加工作表1上所有的数据透视表名字到列表框。

For Each pvt in Worksheets(1).PivotTables

pivotTableListBox.AddItem pvt.Name

Next pvt


PivotTableWizard方法

实例

用于

Worksheet

描述

创建 PivotTable. 。该方法不显示数据透视表指南。

语法

object.PivotTableWizard(sourceType, sourceData, tableDestination, tableName, rowGrand, columnGrand, saveData, hasAutoFormat, autoPage)

元素

PivotTableWizard方法具有下列对象限制和命名参数：

object

必选项。工作表对象。

sourceType

可选项。描述数据透视表数据的源，如下表所示。如果指定该参数，也必须指定sourceDate.

值	含义
xlConsdidation	多重合并计算区域
xlDatebose	Microsoft Excel数据清单或数据库
xlExternal	另一应用程序的数据
xlPivotTable	与另一数据透视表源相同
如果sourceType和sourceDate没有指定，Microsoft Excel假定源类型为xlDatabase，并且源数据来自命名区域数据库。 如果命名区域不存在，Microsoft Excel使用当前区域，当前选定区域应在多于含有数据的十个单元格区域内，如果非真，该方法失败。

sourceData

可选项、新数据透视表的数据Range，区域数组或文字常量，表示另一数据 透视表名字。对外部数据库，这是一个两元素数组。第一个元素是指定 ODBC数据源的连接字符串。第二个元素是用于获得数据的SQL查询字符串。 如果指定该参数，必须指定sourceType，如果当前单元格在sourceData 区域内，必须指定tablePestination。

tableDestination

可选项。指定数据透视表放在工作表上何区域。如果该参数未被指定，数据 透视表被放在当前单元格上。

tableName

可选项。要创建的数据透视表的名字，用字符串给定。

rowGrand

可选项。如果为True，新数据透视表显示行合计。如果为False，行总计被省略。

columnGrand

可选项。如果为True、新数据透视表显示列合计。如果为False，列合计被省略。

saveData

可选项。如果为True，用表保存数据。如果为False，仅保存表定义。

hasAutoFormat

可选项。如果为True，当它被更新或字段被移动时，Microsoft Excel自动格式化数据透视表。

autoPage

可选项，仅当sourceType是xlConsdidation时合法。如果为True，Microsoft Excel为合并计算创建分页字段。如果为False，则必须创建分页字段。


PivotTableWizard方法实例

该实例从Microsoft Excel数据库（包含在区域A1:C100中）创建新数据透视表。

ActiveSheet.PivotTableWizard xlDatabase, Range("A1:C100")


Address 方法

参阅	实例

用于

Range

描述

    返回区域地址。在宏语言中为字符串。

语法

object.Address(rowAbsolute, columnAbsolute, referenceStyle, external, relativeTo)

元素

    Address方法具有下列对象限制和命名参数：

object

    必选项。返回地址到该区域。

rowAbsolute

    可选项。如果为True或省略，地址的行部分返回为绝对地址。

columnAbsolute

    可选项。如果为True或省略，地址的列部分返回为绝对地址。

referenceStyle

可选项。如果为X1A1或省略，该方法返回A1式样地址。如果为x1R1C1，该方法返回R1C1式样地址。

external

可选项。如果为True，该方法返回外部地址。如果为False，该方法返回局部地址。 默认为False。

relativeTo

可选项。如果rowAbsolute和columnAbsolute为False，且referenceStyle为xlR1C1， 必须包含相对地址的起点。该参数是定义起点的区域对象类型。

解释

    如果地址含有多个单元格，rowAbsolute和columnAbsolute施加于所有行和列。


参阅

    AddressLocal方法

    Offeset方法


Address 方法实例

    下面实例显示注释中的文字。

Set mc = Worksheets("Sheet1").Cells(1, 1)

MsgBox mc.Address()                              ' $A$1

MsgBox mc.Address(rowAbsolute:=False)            ' $A1

MsgBox mc.Address(referenceStyle:=xlR1C1)        ' R1C1

MsgBox mc.Address(referenceStyle:=xlR1C1, _

rowAbsolute:=False,     _

columnAbsolute:=False,  _

relativeTo:=Worksheets(1).Cells(3, 3))       ' R[-2]C[-2]


ApplyNames 方法

参阅	实例

用于

Range

描述

    把名字施加于区域中单元格。

语法

object.ApplyNames(names, ignoreRelativeAbsolute, useRowColumnNames, omitColumn, omitRow, order, appendLast)

元素

    ApplyNames方法具有下列对象限制和命名参数：

object

      可选项，施加名字的区域。

names

      可选项。包含要施加名字的数组。如果省略，表上所有名字施

      加于区域。

ignoreRelativeAbsolute

       可选项。如果为True或省略，以名字替代地址，而不必考虑名字或地址 的引用类型。如果为False，仅以绝对名字替代绝对地址，相对 名字替代相对地址，混合名字替代混合地址。

useRowColumnNames

可选项。如果为True或省略且该区域的名字未被发现，Microsoft Excel使用含有指定区域的行和列区域的名字。如果为False，omitColumn和omitRow参数被忽略。

omitColumn

      可选项。如果为True或省略，Microsoft Excel用不包括列向名字的行向名字替 代地址，如果引用的单元格与公式同列，并在行向命名区域内。

omitRow

      可选项。如果为True或省略，Microsoft Excal用不包括行向名字的列向名字替代地 址，如果引用的单元格与公式同行，并在列向命名区域内 。

order

可选项。当单元格地址被行向和列向区域名字替代时，确定哪个区域名字列在第一(xlRowThenColumn或xlColumnThenRow)。

appendLast

可选项。如果为True，Microsoft Excel替代names中的名字定义并替代最近定义的名字定义。如果apperdLast为False或省略，Microsoft Excel仅替代names中名字的定义。

解释

可使用Array函数创建names参数的名字清单。如果施加名字到整个表，使用Cells。ApplyNames。不能撤消施加名字;要删除名字，使用Delete方法。


参阅

    Add方法

    Array函数

    Delete方法


ApplyNames 方法实例

    该实例施加名字到整个表。

Cells.ApplyNames names:=Array("Sales", "Profits")


ApplyOutlineStyles 方法

实例

用于

Range

描述

    施加分级显示式样到区域。

语法

object.ApplyOutlineStyles

元素

object

    必选项。分级显示式样要施加的区域。


ApplyOutlineStyles 方法实例

该实例施加自动分级显示式样到选定区域，选定区域必须包括整个分级显示区域。

Selection.ApplyOutlineStyles


Areas 方法

参阅	实例

用于

Range

描述

    返回单一区域(区域Range 对象，语法1)或多重选定区域中所有区域的集(区域Areas 对象，语法2)。

语法1

object.Areas(index)

语法2

object.Areas

元素

object

    必选项。多重选定区域。

index

    必选项。对语法1。在多重选定区域中区域的编号。

解释

对单一选定区域，Areas方法返回一个对象的集，原始区域对象本身。对多重选定区域，Areas方法返回对每个选定区域都包含一个对象的集。


参阅

    Union方法


Areas 方法实例

   如果用户试图在多重选定区域上执行命令 ，该实例显示一消息。

If Selection.Areas.Count > 1 Then

MsgBox "Cannot do this to a multiple selection."

End If


AutoFill 方法

实例

用于

Range

描述

    在区域内的单元格上执行自动填充。

语法

object.AutoFill(destination, type)

元素

    AutoFill方法具有下列对象限制和命名参数：

object

      必选项。源区域。

destination

      必选项。表示要填充的单元格的区域对象。对象必须包括源区域。

type

可选项。可为xlFillDefault，xlFillSeries，xlFillcopy，xlFillFormats，xlFillValues，xlFillDays，xlFillWeekdays，xlFillMonths，xlFillYears，xlLinearTrend，xlGrownthTrend之一。如果为xlFillDefault或省略， 该方法基于源区域选定最合适的类型。


AutoFill 方法实例

基于源区域A1:A2，该实例在A1:A20单元格区域上执行自动填充。

Set currentSourceRange = ActiveSheet.Range(Cells(1, 1),Cells(2, 1))

Set currentFillRange = ActiveSheet.Range(Cells(1, 1), Cells(20, 1))

currentSourceRange.AutoFill destination:=currentFillRange


AutoFormat 方法(区域对象)

参阅	实例

用于

Range

描述

    用预定义格式自动格式化单元格区域。

语法

object.AutoFormat(format, number, font, alignment, border, pattern, width)

元素

    AutoFormat方法具有下列对象限制和命名参数：

object

      必选项。要格式化的区域。

format

可选项。要施加格式的名字或编号(xlClassic1，xlClassic2，xlClassic3，xlAccounting1，xlAccounting2，xlAccounting3，xlAccounting4，xlColor1，xlColor2，xlColor3，xlList1，xlList2，xlList3，xl3DEffects1，xl3DEffects2，xlSimple或xlNone之一)。如果该参数被省略，默认值为xlClassic1。

number

可选项。与自动套用格式对话框中数字选择框一致。可为True或False(如果省略为True)。

font

可选项。与自动套用格式对话框中字体选择框一致。可为True或False(如果省略为True)。

alignment

可选项。与自动套用格式对话框中对齐选择框一致。可为True或False(如果省略为True)。

border

可选项。与自动套用格式对话框中边框线选择框一致。可为True或False(如果省略为True)。

pattern

可选项。与自动套用格式对话框中图案选择框一致。可为True或False(如果省略为True)。

width

可选项。与自动套用格式对话框中列宽／行高选择框一致。可为True或False(如果省略为True)。

解释

如果区域是单一单元格，该方法也格式化该单元格周围的当前区域。换句话说，就是AutoFormat方法在单一单元格上执行CurrentRegion.AutoFormat。在日本Microsoft Excel中，下 列附加格式有效：xlLocalFormat1和xlLocalFormat2。


参阅

    AutoFormat方法(图表对象)

    CurrentRegion属性

    Style属性


AutoFormat 方法实例

    该实例用预定义格式格式化单元格区域。

Set currentSourceRange = ActiveSheet.Range(Cells(1, 1), Cells(8, 8))

currentSourceRange.AutoFormat format:=xlClassic1


AutoFit 方法

参阅	实例

用于

Range

描述

    改变区域中列宽和行高为最合适的。

语法

object.AutoFit

元素

object

可选项。施加最合适的至该区域。必须是行或行区域，列或列区域。反之，该方法产生 错误。

解释

    列宽的一个单位等于普通式样的一个字符宽度。


参阅

    ColumnWidth属性

    RowHeight属性


AutoFit 方法实例

该实例改变A至I列的宽度为最合适。

ActiveSheet.Range(Columns("A"), Columns("I")).AutoFit


ClearNotes 方法

参阅	实例

用于

Range

描述

    清除区域内所有单元格的附注和声音附注。

语法

object.ClearNotes

元素

object

    必选项。从该区域清除附注和声音附注。


参阅

    NoteText方法

    SoundNote属性


ClearNotes 方法实例

    该实例清除A至C列中所有附注和声音附注。

ActiveSheet.Range(Columns("A"), Columns("C")).ClearNotes


Column 属性

参阅	实例

用于

Range

描述

    以数字形式返回区域中第一区域的第一列。只读。

语法

object.Column

元素

object

    必选项。包含要返回列的区域。

解释

列A返回1，列B返回2，等等。若要返回区域中最后一列的编号，使用myRange.Columns(myRange.Columns.Count).Column


参阅

    Columns方法

    Row属性

    Rows方法


Column 属性实例

该实例返回含有B3:C5和D7:E9多重选定区域中第一列的编号。

Set r1 = Range(Cells(3, 2), Cells(5, 3))

Set r2 = Range(Cells(7, 4), Cells(9, 5))

Set multipleSelection = Union(r1, r2)

MsgBox "First column in the multiple selection is " & _

multipleSelection.Column      'Displays the number 2


ColumnDifferences 方法

参阅	实例

用于

Range

描述

    返回包含所有单元格的区域Range ，这些单元格内容与每列中比较单元格的不 同比较单元格是与comparison在同一行中的一个单元格。

语法

object.ColumnDifferences(comparison)

元素

    ColumnDifferences方法具有下列对象限制和命名参数：

object

      必选项。含有要比较的单元格的区域。

comparison

      必选项。比较行中的一个单元格。


参阅

    RowDifferences方法


ColumnDifferences 方法实例

 该实例选定列1中的单元格，其内容与当前单元格不同。

Columns(1).ColumnDifferences(ActiveCell).Select


ColumnWidth 属性

参阅	实例

用于

Range

描述

    返回或设置区域中所有列的宽度。可读写。

语法

object.ColumnWidth

元素

object

    必选项。返回或设置该区域的列宽。

解释

    列宽的一个单位等于普通式样的字符宽度。对比例字体，使用零字符宽度。使用Width 属性用点数返回列宽。如果区域中所有列具有相同宽度，ColumnWidth属性返回该宽度。如果区域中列具有不同宽度，该属性返回Null。


参阅

    RowHeight属性


ColumnWidth 属性实例

 该实例加倍当前工作表上列A和列B宽度。

With ActiveSheet.Range(Columns("A"), Columns("B"))

.ColumnWidth = .ColumnWidth * 2

End With


Consolidate 方法

参阅	实例

描述

    合并多个工作表上多个区域的数据到单一工作表上单一区域。

语法

object.Consolidate(sources, function, topRow, leftColumn, createLinks)

元素

object

    必选项。目的区域。

sources

可选项。指定合并源为R1C1式样表示法的文字地址字符串数组。 地址必须包括要合并工作表的全路径。

function

可选项。合并函数(xlAverage，xlCount，xlCountNums，xlMax，xlMin，xlProduct，xlStDew，xlStDevp，xlSum， xlVar或xlVarp)。

topRow

可选项。如果为True，数据合并基于合并区域顶行中的列页标题； 如果为False或省略，数据根据位置合并。

leftColumn

可选项。如果为True，数据合并基于合并区域最左列中的行标题； 如果为False或省略，数据根据位置合并。

createLinks

    可选项。如果为True，合并使用工作表链接。如果为False，合并复制数据。


参阅

    ConsolidationFunction属性

    ConsolidationOptions属性

    ConsolidationSources属性

    Style属性


Consolidate 方法实例

    该实例用MAX函数合并Sheet1和Sheet2上数据。

Worksheets(1).Cells(1, 1).Consolidate _

sources:=Array("Sheet1!R2C2:R37C6", "Sheet2!R2C2:R37C6"), _

function:=xlMax


CreateNames 方法

参阅	实例

用于

Range

描述

    在基于表中文字标记在给定区域内创建名字。

语法

object.CreateNames(top, left, bottom, right)

元素

    CreateNames方法具有下列对象限制和命名参数：

object

      必选项。在区域内创建名字。

top

      可选项。与创建对话框中顶端行选择框一致，可为True或False。

left

      可选项。与创建对话框中最左列选择框一致。可为True或False。

bottom

      可选项。与创建对话框中底行选择框一致。可为True或False。

right

      可选项。与创建对话框最右列选择框一致。可为True或False。


参阅

    Add方法

    Delete方法


CreateNames 方法实例

 该实例基于单元格A1:A3的文字为单元格B1:B3创建名字。

 注意必须包括区域中含有名字的单元格，即使名字仅为单元格B1:B3创建。

Set rangeToName = ActiveSheet.Range(Cells(1, 1), Cells(3, 2))

rangeToName.CreateNames


CurrentArray 属性

参阅	实例

用于

Range

描述

    如果该单元格是数组的一部分，返回整个数组的区域Range ，只读。

语法

object.CurrentArray

元素

object

    必选项。要测试的单一单元格。


参阅

    CurrentRegion属性

    HasArray属性


CurrentArray 属性实例

假定当前单元格为A1且当前单元格是包括A1:A10单元格数组的一部分。该实例设置对象 变量arrayRange为表示包含当前单元格的整个数组的区域。

Set arrayRange = ActiveCell.CurrentArray


CurrentRegion 属性

参阅	实例

用于

Range

描述

    返回当前区域。当前区域是由空白行和空白列任意组合而装订的区域Range 。只读。

语法

object.CurrentRegion

元素

object

    必选项。区域内的区域。

解释

    该属性对自动扩展选定区域到包括整个当前区域的许多操作是有用的，诸如 AutoFormat 方法。


参阅

    CurrentArray属性


CurrentRegion 属性实例

 该实例选定当前区域。

Selection.CurrentRegion.Select


DataSeries 方法

实例

用于

Range

描述

   创建区域内的数据系列

语法

object.DataSeries(rowcol, type, date, step, stop, trend)

元素

   DateSeries方法具有下列对象限制和命名参数：

object

     必选项。数据系列在该处创建。

rowcol

     可选项。可为xlRows或xlColumns，按行或列输入数据序列。 如果省略，使用当前区域的大小和形状。

type

     可选项。可为xlLinear，xlGrowh，xlChronological，xlAutoFill。如果省略，为xlLinear。

date

可选项。如果type参数是xlChrondogical，则指明日期单位步长，可为xlDay， xlWeekday，xlMonth，xlYear。如果省略，为xlDay。

step

     可选项。系列的步长值。如果省略，假定为1。

stop

     可选项。系列的终止值。如果省略，该方法填充到区域的最后。

trend

可选项。如果为True，该方法创建线性或增长趋势类型，如果为False或省略， 该方法创建标准数据系列。


DataSeries 方法实例

该实例创建十二个日期的系列。系列包含1994年每个月的第一天， 且在区域A1:A12中创建。

Set dateRange = ActiveSheet.Range(Cells(1, 1), Cells(12, 1))

ActiveSheet.Cells(1, 1).Formula = "1-JAN-1994"

dateRange.DataSeries type:=xlChronological, date:=xlMonth


Dependents 属性

参阅	实例

用于

Range

描述

返回包含单元格所有的从属单元格的区域Range 。如果多于一个从属单元格，可以是多重选定（区域对象的联合）。只读。

语法

object.Dependents

元素

object

必选项。返回该单元格的从属单元格。


参数

DirectDependents属性

DirectPrecedents属性

Precedents属性

ShowFependents方法


Dependents 属性实例

该实例选定当前单元格的从属单元格。

ActiveCell.Dependents.Select


DialogBox 方法

实例

用于

Range

描述

显示由Microsoft Excel v4.0宏表上对话框定义表定义的对话框。返回选择的控制项编号， 或如果用户选择[取消]按钮则为False。

语法

object.DialogBox

元素

object

必选项。对话框定义表。

解释

该方法包括Microsoft Excel v4.0宏语言的向下兼容性。


DialogBox 方法实例

该实例运行Microsoft Excel V4.0对话框，然后在消息框中显示返回值。变量DialogRange引用Microsoft Excel V4.0宏表上对话框定义表。

Set dialogRange = Excel4MacroSheets(1).Range("myDialogBox")

result = dialogRange.DialogBox

MsgBox result


DirectDependents 属性

参阅	实例

用于

Range

描述

返回包含所有单元格直接从属单元格的区域Range 。如果多于一个从属单元格。可以是多重选定区域（区域对象的联合）。只读。

语法

object.DirectDependents

元素

object

必选项。返回该单元格的直接从属单元格。


参阅

Dependents属性

DirectPrecedents属性

Precedents属性

ShowDependents方法


DirectDependents 属性实例

该实例选定当前单元格的直接从属单元格。

ActiveCell.DirectDependents.Select


DirectPrecedents 属性

参阅	实例

用于

Range

描述

返回包含单元格所有直接引用单元格的区域Range 。如果多于一个优先级，可以是多重选定（区域对象的联合）。只读。

语法

object.DirectPrecedents

元素

object

必选项。返回单元格的直接引用单元格。


参阅

Dependents属性

DirectDependents属性

Precedents属性

ShowPrecedents方法


DirectPrecedents 属性实例

该实例选定当前单元格的直接引用单元格。

ActiveCell.DirectPrecedents.Select


End 方法

实例

用于

Range

描述

返回包含源区域的区域末端的单元格（区域Range 对象）。等价于按下END+向上箭头，END+向下箭头，END+向左箭头或END+向右箭头。

语法

object.End(direction)

元素

End方法具有下列对象限制和命名参数：

object

必选项。区域中的单元格。

direction

必选项。指定移动方向，xlToLeft，xlToRight，xlUp或xlDown之一。


End 方法实例

该实例选定单元格B1。

Range("B4").End(xlUp).Select

该实例选定单元格IV4。

Range("B4").End(xlToRight).Select


EntireColumn 属性

参阅	实例

用于

Range

描述

返回包含区域的整列或多列。列是区域对象。只读。

语法

object.EntireColumn

元素

object

必选项。含有要返回一列或多列的区域。


参阅

EntireRow属性


EntireColumn 属性实例

该实例选定包含当前单元格的整列。

ActiveCell.EntireColumn.Select


EntireRow 属性

参阅	实例

用于

Range

描述

返回包含区域的整行或多行，行是区域对象。只读。

语法

object.EntireRow

元素

object

必选项。包含要返回的一行或多行的区域。


参阅

EntireColumn属性


EntireRow 属性实例

该实例选定当前单元格的整行。

ActiveCell.EntireRow.Select


FillDown 方法

参阅	实例

用于

Range

描述

从区域的顶端单元格向下填充到底端。 复制区域的顶端行单元格的内容和格式到区域其它行中。

语法

object.FillDown

元素

object

必选项。要填充的区域。


参阅

AutoFill方法

FillLeft方法

FillRight方法

FillUp方法


FillDown 方法实例

该实例复制单元格A1的内容和格式到单元格A10。

Range("A1", "A10").FillDown


FillLeft 方法

参阅	实例

用于

Range

描述

从区域的最右单元格向左填充到区域左边， 复制区域最右边列的内容和格式到区域的其余列。

语法

object.FillLeft

元素

object

必选的。要填充的区域。


参阅

AutoFill方法

FillDown方法

FillRight方法

FillUp方法


FillLeft 方法实例

该实例复制单元格H1的内容和格式到区域A1:H1。

Range("A1", "H1").FillLeft


FillRight 方法

参阅	实例

用于

Range

描述

从区域最左单元格向右填充到区域右边。 复制区域最左边列的单元格内容和格式到区域中其余列。

语法

object.FillRight

元素

object

必选项。要填充的区域。


参阅

AutoFill方法

FillDown方法

FillLeft方法

FillUp方法


FillRight 方法实例

该实例复制单元格A1的内容和格式到区域A1:H1。

Range("A1", "H1").FillRight


FillUp 方法

参阅	实例

用于

Range

描述

从区域最底端单元格向上填充到区域顶端。 复制区域底端单元格内容和格式到区域的其它行。

语法

object.FillUp

元素

object

必选项。要填充的区域。


参阅

AutoFill方法

FillDown方法

FillLeft方法

FillRight方法


FillUp 方法实例

该实例复制单元格A10的内容和格式到区域A1:A10。

Range("A1:A10").FillUp


Find 方法

参阅	实例

用于

Range

描述

查找区域中含有指定信息的单元格，并返回被发现的第一个单元格（区域Range 对象），不影响选定区域或当前单元格。为获得Visual Basic中关于使用Find工作表函数的帮助，参见在Visual Basic中使用工作表函数主题。

语法

object.Find(what, after, lookIn, lookAt, searchOrder, searchDirection, matchCase)

元素

Find方法具有下列对象限制和命名参数：

object

必选项。搜索的区域。

what

必选项。要搜索的内容。可以是字符串或任何Microsoft Excel数据类型。

after

可选项。在其后要搜索的第一个单元格。 这相应于搜索进行时用户界面上当前单元格的位置。如果省略， 区域的左上单元格被用作搜索起始点。After必须是区域中的一个单元格。 （参见实例解释）

lookIn

可选项。xlFormulas，xlValues，xlNotes之一。如果省略，xlFormulas被False定。

lookAt

可选项。可以是xlWhole或xlPart；如果省略，为xlPart。

searchOrder

可选项。xlByRows（搜索行为主）或xlByColumns（搜索列为主）之一。如果省略，xlByRows被False定。

searchDirection

可选项。xlNext或xlPrevious。如果省略，为xlNext。

matchCase

可选项，如果为True，区别大小写搜索被提示，如果为False或省略， 不区别大小写被提示。

解释

FindNext 和 FindPrevious 方法可用于重复搜索。为查找匹配较复杂的模式，使用带Like运算符的For Each。例如：下列代码使用由字母＂Cour＂开始的字体搜索区域A1:C5内所有单元格， 当查找到相匹配的时，改变字体为Times New Roman：

  	For Each c In [A1:C5]

If c.Font.Name Like "Cour*" Then

c.Font.Name = "Times New Roman"

End If

Next


参阅

FindNext方法

FindPrevious方法

InStr函数

Len函数

Mid函数

Reptace方法


Find 方法实例

这些实例显示Find方法的典型用法。

' Find "Phoenix" in Column H and activate it:

Columns("H").Find("Phoenix").Activate

' Search in column A for the first occurrence of the

' string "oscar", which appears below (but not in) A3, and select it:

Columns("A").Find("oscar", after := [A3]).Select

' User selects A1:C5 and makes B3 active.

' Then they search for "word". This is the equivalent in Basic:

Selection.Find("word", after := ActiveCell).Activate

' To find the next occurrence:

Selection.FindNext(after := ActiveCell).Activate


FindNext 方法

参阅	实例

用于

Range

描述

继续执行用 Find 方法启动的搜索。查找下一个匹配相同条件的单元格并返回单元格（区域Range 对象）。不影响选定区域或当前单元格。

语法

object.FindNext(after)

元素

FindNext方法具有下列对象限制和命名参数：

object

必选项。要搜索的区域。

after

可选项。在其后搜索的第一个单元格。 这相应于搜索进行时用户界面上当前单元格的位置。如果省略， 区域的左上单元格被用作搜索起始点。


参阅

Find方法

FindPrevious方法

Replace方法


FindNext 方法实例

该实例查找下两个＂Phoenix＂字出现的位置。

' Find "Phoenix" in Column H and select it:

Columns("H").Find("Phoenix").Activate

' Now find the next occurrence:

Columns("H").FindNext(ActiveCell).Activate

' Now find the first occurrence in column A:

Columns("A").FindNext().Activate


FindPrevious 方法

参阅	实例

用于

Range

描述

继续执行用 Find 方法启动的搜索。查找匹配相同条件的前一个单元格并返回单元格（区域Range 对象）。不影响选定区域或当前单元格。

语法

object.FindPrevious(after)

元素

FindPrevious方法具有下列对象限制和命名参数：

object

必选项。要搜索的区域。

after

可选项。在其前要搜索的第一个单元格。 这相应于搜索进行时用户界面上当前单元格的位置。如果省略， 区域左上单元格被用作搜索起始点（因为搜索从该单元格向后处理， 它立即在区域右下单元格底端周围折行）。


参阅

Find方法

FindNext方法

Replace方法


FindPrevious 方法实例

该实例查找前一个＂Phoenix＂．

' Find "Phoenix" in Column H and select it:

Columns("H").Find("Phoenix").Activate

' Now find the previous occurrence:

Columns("H").FindPrevious(ActiveCell).Activate


FormulaArray 属性

参阅	实例

用于

Range

描述

返回或设置用数组输入的区域公式，返回（或可设置为）单个公式或Visual  Basic数组。如果指定区域为非输入的数组，该属性返回Null。可读写。

语法

object.FormulaArray

元素

object

必选项。返回该区域的数组公式。


参阅

Formula属性


FormulaArray 属性实例

该实例在A1:C5中输入数字3为数组常量。

Range(Cells(1, 1), Cells(5, 3)).FormulaArray = "=3"


FormulaHidden 属性

参阅	实例

用于

Range, Style

描述

当工作簿或工作表被保护时，如果公式被隐藏为True。可读写。

语法

object.FormulaHidden

元素

object

必选项。该属性施加的区域。

解释

不要将该属性与 Hidden 属性混淆。


参阅

Locked属性

Protect方法

Unprotect方法


FormulaHidden 属性实例

该实例当工作簿或工作表被保护时隐藏列1中的公式。

Columns(1).FormulaHidden = True


GoalSeek 方法

实例

用于

Range

描述

计算达到指定目标所需的值。如果目标是由公式返回的数，计算提供给公式的值， 使公式返回需要的数。如果单变量求解成功则为True。

语法

object.GoalSeek(goal, changingCell)

元素

GoalSeek方法具有下列对象限制和命名参数：

object

必选项。指定的区域必须为单个单元格。

goal

必选项。在该单元格中要返回的值。

changingCell

必选项。指明何单元格被改变以达到目标值的区域对象。


GoalSeek 方法实例

假设工作表具有命名为Polynomial的单元格，含有公式=(x��3)+(3*x��2)+6且另一命名为X的单元格为空白。该实例为X单元格找到值使Polynomial含有值15。

Range("Polynomial").GoalSeek goal:=15, changingCell:=Range("X")


Goto 方法

参阅	实例

用于

Application

描述

在任一工作簿中选定任一区域或Visual Basic过程，并且如果工作簿不是当前的，激活它。

语法

object.Goto(reference, scroll)

元素

Goto方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

reference

必选项。指定目的地。可是区域或含有Visual Basic过程名的字符串。

scroll

可选项。如果该参数为True，Microsoft Excel滚动窗口，因此区域左上角出现在窗口的左上角。如果为False或省略，Microsoft Excel不滚动窗口。

解释

该方法在下列方面区别于 Select 方法

如果指定不在顶端的表上一个区域，Microsoft Excel在选定前切换到该表。（如果在区域不在顶端的表上使用select，则区域将被选定 ，但表未被激活）。

该方法具有让用户滚动目的窗口的Scroll参数。

当使用Goto方法时，前一次选定区域（Goto方法运行前） 被增加到以前选定区域的数组中（为进一步获取信息，参见 PreviousSelections 属性）。可使用该功能快速跳过多至四个选定区域。

Select方法具有replace参数；Goto方法没有。


参阅

Select方法


Goto 方法实例

该实例选定单元格A154并滚动窗口显示该区域。

Application.Goto reference:=Worksheets(1).Range("A154"), _

scroll:=True


HasArray 属性

参阅	实例

用于

Range

描述

如果指定的单元格是数组的一部分，则为True。只读。

语法

object.HasArray

元素

object

  必选项。要测试的单元格。


参阅

CurrentArray属性


HasArray 属性实例

该实例检测当前单元格是否为数组的一部分。

If Not ActiveCell.HasArray Then

ActiveCell.Delete

Else

MsgBox "You can't delete a cell that is part of an array."

End If


HasFormula 属性

实例

用于

Range

描述

如果区域中所有单元格含有公式，则为True。如果区域中无单元格含有公式，则为False；否则为Null。只读。

语法

object.Hidden

元素

object

  必选项。要测试的区域。


HasFormula 属性实例

该实例使用HasFormula属性运行宏的一部分，如果指定区域包含公式。

If Range("A1:A10").HasFormula Then

'all the cells in the range contain formulas

Else

'at least one cell in the range does not contain a formula

End If


Hidden属性

实例

用于

Range, Scenario

描述

区域对象：如果行或列隐藏，则为True，指定的区域必须跨越一整列或行。可读写。方案对象：如果方案隐藏，则为True，默认值为False。可读写。

语法

object.Hidden

元素

object

  必选项。该属性施加的对象。

解释

不能将该属性与 FormulaHidden 属性混淆。


Hidden 属性实例

该实例显示Hidden属性的一些典型用法。

Columns(1).Hidden = True	' Hide column A

Rows.Hidden = False	' Unhide all rows

' Hide columns A through F

Range(Columns("A"), Columns("F")).Hidden = True

' Hide every other column starting with A

j = 0

For Each i in Columns

If j = 0 Then

i.Hidden = True

j = 1

Else

i.Hidden = False

j = 0

End If

Next


Justify 方法

实例

用于

Range

描述

    重新安排区域中的文字，使它均匀填充区域。

语法

object.Justify

元素

object

  必选项。两端对齐的区域。

解释

    如果区域不够大，Microsoft Excel显示消息，其文字将扩展到区域下面。如果选择[确定]按钮，两端对齐的文字将替换扩展超出选定区域的单元格中内容。为禁止该消息出现，设置DispdayAlerts属性为False，在此情况下，文字将永远替换区域下面单元格中的内容。


Justify 方法实例

该实例两端对齐当前单元格中文字。

ActiveCell.Justify


ListNames方法

实例

用于

Range

描述

    粘贴所有非隐藏名字的清单到工作表上，从区域的第一个单元格开始。

语法

object.ListNames

  元素

object

  必选项。标识清单名字的工作表和名字被列于区域的开始点。

解释

  使用Names方法返回工作表上所有名字的集。


ListNames 方法实例

该实例粘贴定义在工作表上的所有非隐藏名字的清单，从当前单元格开始。

ActiveCell.ListNames


Next属性

参阅	实例

用于

Chart, DialogSheet, Module, Range, Worksheet

描述

    返回下一个表或单元格（区域Range对象）

语法

object.Next

元素

object

  必选项。该属性施加的对象。

解释

    如果对象为区域，该属性模拟TAB键，尽管该属性返回下一个单元格而不选定它。在 保护的表上，该属性返回下一个未锁定的单元格，在解除保护的表上， 总返回指定单元格 右边 的单元格。


参阅

ActivateNext方法

Previous属性


Next 属性实例

该实例激活下一个未锁定单元格（如果表是解除保护的， 该单元格为当前单元格右边相邻单元格）。

ActiveCell.Next.Activate


NoteText 方法

参阅	实例

用于

Range

描述

     返回或设置该区域内与左上角单元格相关的单元格附注。可读写。

语法

object.NoteText(text, start, length)

元素

object

  必选项。该属性施加的区域。

text

  可选项。如果指定包含要增加到附注的文字（至多255字符） 文字被插在位置start的开始，替换已有附注的Length个字符。 如果该参数被省略， 该方法返回位置start处开始的长度为length个字符的附注的当前文字。

start

  可选项。指定设置或返回文字的启始位置。如果不存在附注，该参数被省略， 指定追加文字到附注大于已有附注中的字符数的长度。

length

  可选项。指定设置和返回的字符数。如果该参数被省略，Microsoft Excel设置或返回从附注起始位置到终止位置的字符（至多255个字符），如果从附注起点到终点多于255字符，该方法仅返回255个字符。

解释

为增加包含多于255个字符的附注，使用该方法一次指定第一个255字符， 然后一次追加附注外的255字符。


参阅

ClearNotes方法


NoteText 方法实例

该实例设置当前单元格的附注。

ActiveCell.NoteText "This may change!"


NumberFormatLocal 属性

参阅	实例

用于

Range, Style

描述

    用字符串返回或设置对象的格式码，在用户语言中（非宏编写器语言）。可读写。

语法

object.NumberFormatLocal

元素

object

  必选项。区域或式样对象。

解释

  Format函数使用与NumerFormat和NumberFormatLocal属性不同的格式码字符串。


参阅

Format函数

NumberFormat属性


NumberFormatLocal 属性实例

该实例显示单元格A17的数字格式。

MsgBox "The number format for cell A17 is " & _

Range("A17").NumberFormatLocal


Offset 方法

参阅	实例

用于

Range

描述

    返回距指定区域偏移量处的区域。

语法

object.Offset(rowOffset, columnOffset)

元素

  Offset方法具有下列对象限制和命名参数:：

object

  必选项。返回距该区域的区域偏移量。

rowOffset

  可选项。偏移该区域的行数（正、负或零），如果省略，假定为零。

columnOffset

  可选项。偏移该区域的列数（正、负或零）。如果省略， 假定为零。


参阅

Address方法


Offset 方法实例

该实例激活当前单元格向右三列和向下三行的单元格。

ActiveCell.Offset(3, 3).Activate


OutlineLevel 属性

参阅	实例

用于

Range

描述

    返回或设置指定行或列的当前行或列分级显示层次。可读写。

语法

object.OutlineLevel

元素

object

  必选项。设置分级显示层次的行或列。区域必须是一行或一列，或多行或列的区域。

解释

  层次一是最外面的概要等级。


参阅

EntiveColumn属性

EntiveR属性


OutlineLevel 属性实例

该实例设置第2行的分级显示层次为一级。

Rows(2).OutlineLevel = 1


PageBreak 属性

实例

用于

Range

描述

    返回或设置分页线的位置（xlNone,xlManual,xlAutomatic）。可读写。

语法

object.PageBreak

元素

object

  必选项。控制分页线位置，如下表所示。

指定的区域	分页线位置

整列	列的左边

整行	行的上面

两者皆不	区域的左上。在这种情况下，可以设置分页线，但不返回它。

解释

该属性可返回自动或手动分页线的位置，但它仅能设置手动分页线的位置 （仅可设置为xlManual或xlNone）。为删除工作表上所有手工分页线，设置Calls.PageBreak为 xlNone。


PageBreak 属性实例

该实例显示Page Break属性的一些典型用法。

' Set a manual page break above row 25:

Rows(25).PageBreak = xlManual

' Set a manual page break to the left of column J

Columns("J").PageBreak = xlManual

' Get rid of both of those page breaks

Rows(25).PageBreak = xlNone

Columns("J").PageBreak = xlNone

' Another way to get rid of both page breaks

Range("J25").PageBreak = xlNone


Parse 方法

实例

用于

Range

描述

    分列数据区域并把它分成多个单元格，分布区域中的内容填充到多个相邻列中， 区域可不大于一列宽。

语法

object.Parse(parseLine, destination)

元素

  Parse方法具有下列对象限制和命名参数：

object

  必选项。分列的区域。

parseLine

可选项。用字符串分列行，这是包含左和右方括号的字符串指明在何处分割单元。例如"[xxx][xxx]"将把前三个字符放入目的区域的第一列， 后三个字符放入目的区域的第二列。如果省略，Microsoft Excel基于区域左上的单元格的间隔猜测在何处分割列。 如果想使用不同区域猜测分列行,使用区域作为parseLine参数。 那个区域必须是被分列的单元格之一。  Parseline参数不能大于255个字符，包括方括号和空格。

destination

    可选项。指明分割的数据的目的地左上角的区域。如果省略，Microsoft Excel将在本地分列。

解释

使用区域作为ParseLine参数识别，由其它应用程序创建的文件读出的数据， 诸如数据库（细节参见实例）。


Parse 方法实例

这些实例显示Parse方法的一些典型用法。如果数据顶端行含有字段名， 其它行包含真实数据，使用第二个实例，让Micorosoft Excel使用第二行猜测如何分列数据。

' Parse column 1 into columns 2:3 using [xxx] [xxx]:

Columns(1).Parse "[xxx] [xxx]", Cells(1, 2)

' Parse column 1 into columns 2:x based on cell A2:

Columns(1).Parse Cells(2,1), Cells(1,2)


Precedents 属性

参阅	实例

用于

Range

描述

返回包含所有单元格引用单元格的区域。如果多于一个引用单元格， 它是多重选定（区域对象的联合）。只读。

语法

object.Precedents

元素

object

  必选项。返回该单元的引用单元格。


参阅

Dependents属性

DirectDepents属性

DirectPrecedents属性

ShowPrecedents方法


Precedents 属性实例

该实例选定当前单元格的引用单元格。

ActiveCell.Precedents.Select


PrefixCharacter 属性

实例

用于

Range

描述

    返回单元格的前缀字符。只读。

语法

object.PrefixCharacter

元素

object

  必选项。返回该单元格的前缀字符。

解释

如果TransitionNavigKeys属性为False，对文字标记，该字符为'或为空，如果TransitionNavigkeys属性为True，对靠左对齐标记，该字符为'，对靠右对齐标记为"， 置中标记为^， 对重复标记为\或空白。


PrefixCharacter 属性实例

该实例显示当前单元格的前缀字符。

MsgBox "The prefix character is " & ActiveCell.PrefixCharacter


Previous 属性

参阅	实例

用于

Chart， DialogSheet， Module， Range， Worksheet

描述

    返回前一个表或单元格( Range 对象)。只读。

语法

object.Previous

元素

object

  必选项。该属性施加的对象。

解释

如果对象是区域，该属性模拟SHIFT+TAB组合键，尽管该属性返回上一个单元格而不用 选定它。在保护的表上，该属性返回上一个解除锁定的单元格，在解除保护的表上， 总返回指定单元格左边的单元格。


参阅

ActivatePrevious方法

Next属性


Previous 属性实例

该实例激活当前单元格之前的单元格。

ActiveCell.Previous.Activate


Replace 方法

参阅	实例

用于

Range

描述

    查找和替换区域内单元格中的字符。不改变选定区域和活动单元格。

    为进一步获取Visual Basic中关于使用 Replace 工作表函数的帮助，    参见在Visual Basic中使用工作表函数。

语法

object.Replace(what, replacement, lookAt, searchOrder, matchCase)

元素

  Replace 方法具有下列对象限制和命名参数：

object

  必选项。替换字符或区域中的单元格。

what

  必选项。指定要搜索的内容的字符串。

replacement

  必选项。指定要替换What文字的字符串。

lookAt

可选项。如果是xlWhole，what必须匹配单元格的整个内容。如果是xlPart或省略，What必须包含单元格内容的一部分。

searchOrder

  可选项。指定按行(xlByRows)还是按列(xlByColumns)搜索。默认为xlByRows。

matchCase

  可选项。如果为True，搜索是区分大小写的;如果为False或省略，与大小写无关。

解释

    如果What参数的内容在表中至少一个单元格内找到，该方法返回True。


参阅

Find方法

FindNext方法


Replace 方法实例

该实例用相同的等号替换单元格A1中公式的等号，它强迫Microoft Excel重新计算公式而不改变公式。

Cells(1, 1).Replace what:="=", replacement:="="


Resize 方法

实例

用于

Range

描述

    调整区域大小。

语法

object.Resize(rowSize, columnSize)

元素

  Resize方法具有下列对象限制和命名参数：

object

  必选项。要调整大小的区域。

rowSize

  可选项。新区域中行数。如果省略，区域将保持相同行数。

columnSize

  可选项。新区域中列数，如果省略，区域将保持相同列数。


Resize 方法实例

该实例扩展一行和一列调整当前选定区域的大小。

numRows = Selection.Rows.Count

numColumns = Selection.Columns.Count

Selection.Resize(numRows + 1, numColumns + 1).Select


Row 属性

参阅	实例

用于

Range

描述

    返回区域的第一区域的第一行的编号。只读。

语法

object.Row

元素

object

    必选项。区域对象。


参阅

column属性

EntireColumn属性

EntireRow属性

Rows方法


Row 属性实例

该实例显示Row属性对给定区域返回的内容：

MsgBox "Cells(1, 1).Row = " & Cells(1, 1).Row	' 1

MsgBox "Range(""C5"", ""F9"").Row = " & Range("C5", "F9").Row	' 5


RowDifferences 方法

参阅	实例

用于

Range

描述

返回包含其内容与每行中比较单元格不同的所有单元格的区域。 比较单元格是比较列中 的单元格并等于comparison 参数。

语法

object.RowDifferences(comparison)

元素

   RowDifferences 方法具有下列对象限制和命名参数：

object

  必选项。该方法施加的对象。

comparison

  必选项。比较列中的单元格，如果查找活动单元格的列与区域中所有列间的差异，使用 ActiveCell 属性。


参阅

ColumnDifferences方法


RowDifferences 方法实例

该实例选定A1:C3中所有单元格每行的单元格皆与比较列B不同，比较单元格设置为B2。

Range("A1", "C3").RowDifferences(Cells(2, 2)).Select


RowHeight 属性

参阅	实例

用于

Range

描述

    返回用点数度量的指定区域中所有行的高度(1/72英寸)。可读写。

语法

object.RowHeight

元素

object

  必选项。该属性施加的对象。

解释

    对单个行， Height 属性的值等于 RowHeight 的值。然而，也可用 Height 属性返回单元格区域的总高度。

 RowHeight 和 Height 之间的其它差异为：

 Height 为只读。

如果返回多行的 RowHeight ，可获得每行的行高(若行高相同)，或如果它们不同则为Null。如果返回多行的 Height 属性，将获得所有行的总高度。


参阅

Column Width属性

Height属性

StardardHeight属性


RowHeight 属性实例

该实例加倍行1和行2的行高。

With Range(Rows(1), Rows(2))

.RowHeight = .RowHeight * 2

End With

该实例恢复行1为标准行高。

Rows(1).RowHeight = Worksheets(1).StandardHeight


Select 方法

参阅	实例

用于

Arc， Arcs， Axis， AxisTitle， Button， Buttons， Chart， ChartArea， ChartObject， ChartObjects， Charts， ChartTitle， CheckBox， CheckBoxes， Corners， DataLabel， DataLabels， DialogFrame， DialogSheet， DialogSheets， DownBars， Drawing， DrawingObjects， Drawings， DropDown， DropDowns， DropLines， EditBox， EditBoxes， ErrorBars， Floor， Gridlines， GroupBox， GroupBoxes， GroupObject， GroupObjects， HiLoLines， Label， Labels， Legend， LegendEntry， LegendKey， Line， Lines， ListBox， ListBoxes， Module， Modules， OLEObject， OLEObjects， OptionButton， OptionButtons， Oval， Ovals， Picture， Pictures， PlotArea， Point， Range， Rectangle， Rectangles， ScrollBar， ScrollBars， Series， SeriesLines， Sheets， Spinner， Spinners， TextBox， TextBoxes， TickLabels， Trendline， UpBars， Walls， Worksheet， Worksheets

描述

选定对象。

语法

object.Select(replace)

元素

object

  必选项。被选定的对象。

replace

可选项(仅用于图形对象和表).如果为True或省略，当前选定被包含指定对象的新选定区域替换 。如果为False，当前选定区域扩展到包括任何以前选定的对象和指定的对象。

解释

    为选定单元格或单元格区域，使用 Select 方法，为使单个单元格为当前单元格，使用 Activate 方法。


参阅

Activate 方法

Goto 方法


Select 方法实例

该实例选定当前表上单元格区域A1:B3。

Range(Cells(1, 1), Cells(3, 2)).Select


SoundNote 属性

参阅	实例

用于

Range

描述

    返回与区域对象内左上单元格相关的声音附注(SoundNote) 。只读。

语法

object.SoundNote

元素

object

  必选项。包含具有声音附注的单元格的区域对象

解释

    计算机可能需要可选的硬件用以记录和演奏声音附注。


参阅

Import方法

Play方法

Record方法


SoundNote 属性实例

该实例设置变量 currentSoundNote 为当前选定区域的左上单元格中的声音附注。

Set currentSoundNote = Selection.SoundNote


Style 属性

实例

用于

Range

描述

    返回或设置区域的式样(Style) ，可读写。

语法

object.Style

元素

object

  必选项。区域对象。


Style 属性实例

该实例施加Normal式样到单元格A1。

Cells(1, 1).Style = "Normal"

该实例施加Percent式样到单元格B4，如果它当前具有Normal式样。

If Cells(4, 2).Style.Name = "Normal" Then

Cells(4, 2).Style = "Percent"

End If

该实例改变附加在单元格D72上的式样的字体大小，从当前值变为24。

Cells(72, 4).Style.Font.Size = 24


SubscribeTo 方法

参阅	实例

用于

Range

描述

    仅用于Apple Macintosh(运行于System7或后续型)。订购已出版的版本加下标。

语法

object.SubscribeTo(edition, format)

元素

 SubscribeTo 方法具有下列对象限制和命名参数：

object

  必选项。区域对象。

edition

  必选项。用字符串形式表示的要订购版本的名字。

format

  可选项。xlPicture订购图片，xlText订购文本。


参阅

CreatePublisher方法


SubscribeTo 方法实例

该实例在当前文件夹中给命名为CoporateLogo的版本加下标。

Cells(3, 3).SubscribeTo edition:="Corporate Logo", format:=xlPicture


Summary 属性

实例

用于

Range

描述

    如果区域是分级显示的摘要行或列则为True。区域必须是一行或一列。只读。

语法

object.Summary

元素

object

  必选项。行或列，作为区域对象。


Summary 属性实例

该实例格式化一列为粗体和斜体，如果它是分级显示的摘要列。

If Columns("A").Summary = True Then

Columns("A").Font.Bold = True

Columns("A").Font.Italic = True

End If


Table 方法

实例

用于

Range

描述

    基于工作表上定义的输入值和公式创建模拟运算表。

语法

object.Table(rowInput, columnInput)

元素

   Table 方法具有下列对象限制和命名参数：

object

  必选项。该属性施加的对象。

rowInput

  可选项。模拟运算表中用做按行输入的单一单元格。

columnInput

  可选项。模拟运算表中用做按列输入的单一单元格。

解释

    使用模拟运算表通过改变工作表上某一常量值进行假设分析，观察其他单元格的值如 何被影响。


Table 方法实例

该实例在A1:K11中创建增值表。

Set dataTableRange = Range(Cells(1, 1), Cells(11, 11))

Set rowInputCell = Cells(12, 1)

Set columnInputCell = Cells(13, 1)

Cells(1, 1).Formula = "=A12*A13"

For i = 2 To 11

Cells(i, 1) = i - 1

Cells(1, i) = i - 1

Next i

dataTableRange.Table rowInputCell, columnInputCell


UseStandardHeight 属性

参阅	实例

用于

Range

描述

    如果区域对象的行高等于表的标准行高为True。可读写。

语法

object.UseStandardHeight

元素

object

  必选项。区域对象。


参阅

RowHeithg属性

StanmdardHeight属性

UseStandardWidth属性


UseStandardHeight 属性实例

该实例设置当前表的行1的高度为标准高度。

Rows("1").UseStandardHeight = True


UseStandardWidth 属性

参阅	实例

用于

Range

描述

    如果区域对象的列宽等于表的标准宽度为True。可读写。

语法

object.UseStandardWidth

元素

object

  必选项。区域对象。


参阅

ColumnWidth属性

StandardWidth属性

UseStandardHeight属性


UseStandardWidth 属性实例

该实例设置当前表列A的宽度为标准宽度。

Columns("A").UseStandardWidth = True


VerticalAlignment 属性

参阅	实例

用于

AxisTitle， Button， Buttons， ChartTitle， DataLabel， DataLabels， DrawingObjects， GroupObject， GroupObjects， Range， Style， TextBox， TextBoxes

描述

    返回或设置对象的垂直对齐(可为xlBottom， xlCenter， xlDistributed， xlJustify或xlTop之一)。可读写。

语法

object.VerticalAlignment

元素

object

  必选项。该属性施加的对象。

解释

    xlDistributed 对齐式样仅在 Microsoft Excel远东版中起作用。


参阅

AddIndent属性

HorizentalAlignment属性


VerticalAlignment 属性实例

该实例设置行2高度为标准宽度的二倍，然后中心垂直对齐。

Rows(2).RowHeight = 2 * ActiveSheet.StandardHeight

Rows(2).VerticalAlignment = xlCenter


Worksheet 属性

实例

用于

Range

描述

    返回包含指定区域的工作表(Worksheet) 。只读

语法

object.Worksheet

元素

object

  必选的。返回包含该区域的工作表。


Worksheet 属性实例

该实例显示包含当前单元格的工作表的名字。

MsgBox ActiveCell.Worksheet.Name


WrapText 属性

实例

用于

Range， Style

描述

    如果Microsoft Excel在对象中文字自动换行，则为True。可读写。

语法

object.WrapText

元素

object

  必选项。区域或式样对象。


WrapText 属性实例

该实例格式化单元格B2，以使其中文字自动换行。

Cells(2, 2).Value = "This is a phrase that should wrap."

Cells(2, 2).WrapText = True


Borders 方法

实例

用于

Range， Style

描述

返回单一边框线（Border对象，语法１）或边框线集（Borders 对象，语法２）。可读写。

语法１

object.Borders(index)

语法２

object.Borders

元素

Borders方法具有下列对象限制和命名参数：

object

必选项。区域或式样对象。

index

必选项，对语法１。指定边框线（xlTop，xlBottom，xlzLeft或xlRight之一）。


Borders 方法实例

该实例设置底边框线的颜色。

Application.Range("A1:A10").Borders(xlBottom).Color = RGB(255, 0, 0)

该实例一次设置四个边框线的颜色。

Application.Range("A1:A10").Borders(xlBottom).Color = RGB(255, 0, 0)


CopyPicture 方法

参阅	实例

用于

Arc， Arcs， Button， Buttons， Chart， ChartObject， ChartObjects， CheckBox， CheckBoxes， DialogFrame， Drawing， DrawingObjects， Drawings， DropDown， DropDowns， EditBox， EditBoxes， GroupBox， GroupBoxes， GroupObject， GroupObjects， Label， Labels， Line， Lines， ListBox， ListBoxes， OLEObject， OLEObjects， OptionButton， OptionButtons， Oval， Ovals， Picture， Pictures， Range， Rectangle， Rectangles， ScrollBar， ScrollBars， Spinner， Spinners， TextBox， TextBoxes

描述

按图片Picture复制对象到剪贴板，语法２用于图表对象。语法１用于所有其他对象。

语法１

object.CopyPicture(appearance, format)

语法２

object.CopyPicture(appearance, format, size)

元素

CopyPicture方法具有下列对象限制和命名参数：

object

必选项。要复制的对象。

appearance

可选项。指定图片将被如何复制。如果是xlScreen或省略，图片复制尽可能与屏幕上显示的图片尺寸接近。如果是xlPrinter，图片复制与要打印的相同。

format

可选项。指定图片的格式（xlPicture或xlBitmap），如果省略，图片格式被使用。

size

可选项。当对象是图表上的图表文件时（不嵌入在工作表中），指定复制的图片的尺 寸。如果是xlPrinter或省略，图片复制尽可能与打印的图片尺寸接近。如果是xlScreen，图片复制尽可 能与 屏幕上显示的图片尺寸接近。

解释

该方法在剪贴板上创建图片对象，与被复制的对象无关。如果复制区域，它必须由相邻 单元格构成。


参阅

copy方法

Paste Method


CopyPicture 方法实例

该实例复制区域的屏幕图像到剪贴板，用位图。

Application.Range("C5:G37").CopyPicture xlScreen, xlBitmap


Cut 方法

参阅	实例

用于

Arc， Arcs， Button， Buttons， ChartObject， ChartObjects， CheckBox， CheckBoxes， Drawing， DrawingObjects， Drawings， DropDown， DropDowns， EditBox， EditBoxes， GroupBox， GroupBoxes， GroupObject， GroupObjects， Label， Labels， Line， Lines， ListBox， ListBoxes， OLEObject， OLEObjects， OptionButton， OptionButtons， Oval， Ovals， Picture， Pictures， Range， Rectangle， Rectangles， ScrollBar， ScrollBars， Spinner， Spinners， TextBox， TextBoxes

描述

剪切对象到剪贴板或指定的目的地。

语法

object.Cut(destination)

元素

Cut方法具有下列对象限制和命名参数:

object

必选项，要剪切的对象。

destination

可选项（仅用于区域对象）。指定对象粘贴在何区域。如果省略，对象被剪切到剪贴 板。目的区域必须是单一单元格或剪切区域的倍数。

解释

     剪切区域必须由相邻单元格构成。仅内嵌图表可被剪切。


参阅

copy方法

Paste方法


Cut 方法实例

该实例剪切一区域并把它放在剪贴板上。

Application.Range("A1:G37").Cut


Formula 属性

参阅	实例

用于

Button， Buttons， Picture， Pictures， Range， Series， TextBox， TextBoxes

描述

返回或设置对象的公式，用A1式样表示法和宏语言。可读写。

语法

object.Formula

元素

object

必选项。该属性施加的对象。

解释

如果单元格包含常量，该属性返回常量。如果单元格为空，它返回空字符串。如果单元 格包含公式，它用字符串返回公式，而且与在公式中显式的格式相同（包括等号）。

如果设置单元格的值或公式为日期，Microsoft Excel检查单元格是否已用日期或时间数字格式格式化。如果没有，它改变数字格式为短 日期数字格式。

如果区域是一维或二维区域，可设置公式为Visual �Basic相同维数的数组。类似地，可把公式放入Visual Basic数组，设置多单元格区域的公式，用公式填充区域内所有的单元格。当用于图形对 象时，公式必须使用绝对A1式样表示法。


参阅

FormulaArray属性

FormulaLocal属性

FormulaR1C1属性

FormulaR1C1Local属性


Formula 属性实例

该实例在单元格A1中设置公式。

Application.Cells(1, 1).Formula = "=$A$4+$A$10"


FunctionWizard 方法

实例

用于

Range

描述

为区域的左上单元格启动函数指南。

元素

object

必选项。区域对象。


FunctionWizard 方法实例

该实例为当前单元格启动函数指南。

ActiveCell.FunctionWizard


HorizontalAlignment 属性

参阅	实例

用于

AxisTitle， Button， Buttons， ChartTitle， DataLabel， DataLabels， DrawingObjects， GroupObject， GroupObjects， Range， Style， TextBox， TextBoxes

描述

返回或设置对象的水平对齐，可以是xlCenter，xlDistributed，xlJustify，xlLeft，xlRight之一 。此外，区域或式样对象可以设置为xlCenterAcrossSelection，xlFill或xlGeneral。可读写。

语法

object.HorizontalAlignment

元素

object

必选项。该属性施加的对象。

解释

 xlDistributed 对齐式样仅在Microsoft Excel远东版中起作用。


参阅

Addindent属性

VerticalAlignment属性


HorizontalAlignment 属性实例

该实例置中图表标题。

ActiveChart.ChartTitle.HorizontalAlignment = xlCenter


Interior 属性

实例

用于

Arc， Arcs， AxisTitle， ChartArea， ChartObject， ChartObjects， ChartTitle， CheckBox， CheckBoxes， DataLabel， DataLabels， DownBars， Drawing， DrawingObjects， Drawings， Floor， GroupObject， GroupObjects， Legend， LegendKey， OLEObject， OLEObjects， OptionButton， OptionButtons， Oval， Ovals， Picture， Pictures， PlotArea， Point， Range， Rectangle， Rectangles， Series， Style， TextBox， TextBoxes， UpBars， Walls

描述

返回或设置对象的Interior。可读写。

语法

object.Interior

元素

object

必选项。该属性施加的对象。


Interior 属性实例

该实例设置单元格A1的内部颜色。

Range("A1").Interior.Color = RGB(255,0,0)


Locked 属性

参阅	实例

用于

Arc， Arcs， Button， Buttons， ChartObject， ChartObjects， CheckBox， CheckBoxes， DialogFrame， Drawing， DrawingObjects， Drawings， DropDown， DropDowns， EditBox， EditBoxes， GroupBox， GroupBoxes， GroupObject， GroupObjects， Label， Labels， Line， Lines， ListBox， ListBoxes， OLEObject， OLEObjects， OptionButton， OptionButtons， Oval， Ovals， Picture， Pictures， Range， Rectangle， Rectangles， Scenario， ScrollBar， ScrollBars， Spinner， Spinners， Style， TextBox， TextBoxes

描述

当表被保护时，如果对象可被修改，则为False。可读写。

语法

object.Locked

元素

object

必选项。区域对象。


参阅

FormulaHidden属性

Protect方法

Unprotect方法


Locked 属性实例

该实例解锁单元格A1:G37，因此当表被保护时，它们能被修改。

Range("A1:G37").Locked = False

ActiveSheet.Protect


NumberFormat 属性

参阅	实例

用于

DataLabel， DataLabels， PivotField， Range， Style， TickLabels

描述

返回或设置对象的格式码（用字符串）。可读写。

语法

object.NumberFormat

元素

object

必选项。该属性施加的对象。

解释

对数据透视字段对象，NumberFormat属性仅可设置为数据字段。格式码与设置单元格格式对话框中格式码选项有相同字符串，Format函数使用与NumberFormat和NumberFormatLocal 属性不同的格式码字符串。


参阅

Format函数

NumberFormatLinked属性

NumberFormatLocal属性


NumberFormat 属性实例

该实例为单元格A17，行1和列C设置数字格式。

Range("A17").NumberFormat = "General"

Rows(1).NumberFormat = "hh:mm:ss"

Columns("C").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"


RemoveSubtotal 方法

参阅	实例

用于

Range

描述

从数据清单中删除分类汇总。

语法

object.RemoveSubtotal

元素

object

必选项。区域对象。


参阅

Subtotal方法


RemoveSubtotal 方法实例

该实例从单元格区域A1:G37删除分类汇总。

Range("A1", "G37").RemoveSubtotal


ShowDependents 方法

参阅	实例

用于

Range

描述

画追踪箭头到区域的从属单元格。

语法

object.ShowDependents(remove)

元素

showDependents方法具有下列对象限制和命名参数:

object

必选项。区域对象，必须是单一单元格。

remove

可选项。如果为True，删除指向从属单元格的一级追踪箭头。如果为False或省略，扩 展一级追踪箭头。


参阅

ClearArrows方法

Dependents属性

ShowErrors方法

Showprecedents方法


ShowDependents 方法实例

该实例画追踪箭头到当前单元格的从属单元格。

ActiveCell.ShowDependents


ShowErrors 方法

参阅	实例

用于

Range

描述

画追踪箭头通过引用单元格树到错误源单元格。

语法

object.ShowErrors

元素

object

必选项。区域对象。


参阅

ClearArrows方法

ShowDependents属性

ShowPrecedents方法


ShowErrors 方法实例

该实例显示红色追踪箭头，如果在当前单元格中有错误。

If IsError(ActiveCell.Value) Then

ActiveCell.ShowErrors

End If


ShowPrecedents 方法

参阅	实例

用于

Range

描述

画追跟踪箭头指向区域的引用单元格。

语法

object.ShowPrecedents(remove)

元素

showPrecedents方法具有下列对象限制和命名参数：

object

必选项。区域对象，必须是单一单元格。

remove

可选项。如果为True，删除指向引用单元格的一级追踪箭头。如果为False或省略， 扩展一级追踪箭头。


参阅

ClearArrows方法

Precedents属性

ShowDeperdents方法

ShowErrors方法


ShowPrecedents 方法实例

该实例画追跟踪箭头到当前单元格的引用单元格。

ActiveCell.ShowPrecedents

该实例删除当前单元格的引用单元格的一级追踪箭头。

ActiveCell.ShowPrecedents remove := True


Sort 方法

实例

用于

Range

描述

语法１：排序区域或当前区域，如果该区域仅包含单一单元格。

语法２：排序数据透视表；为获取详细信息参见参数列表。

语法１

object.Sort(key1, order1, key2, type, order2, key3, order3, header, orderCustom, matchCase, orientation)

语法２

object.Sort(key1, order1, type, orderCustom, orientation)

元素

sort方法具有下列对象限制和命名参数：

object

必选项。区域对象。

key1

必选项（当排序数据透视表时为可选项）。主要排序字段，为文字 （数据透视字段或区域名）或区域对象（例如，"Dept"或Cells(1,1))。

order1

可选项。如果为xlAscending或省略，key1按升序排序。如果为xlDesceding， key1按降序排序。

key2

可选项。次要排序字段，为文本（数据透视字段或区域名字）或区域对象。 如果省略， 则没有次要排序字段。当排序数据透视表时不使用。

type

可选项。 仅用于排序数据透视表。指定要排序的元素，xlSortValues 或 xlSortLabels。

order2

可选项。key2的排序次序(xlAsending或xlDesending)。如果省略，xlAscending， 被假定为False，当排序数据透视表时不使用。

key3

可选项。第三排序字段，为文字（区域名字）或区域对象。如果省略，则没有第三 排序字段。当排序数据透视表时不使用。

order3

可选项，key3的排序次序（xlAsceding或xlDesending）。如果省略，xlAsecending被 假定为False。当排序数据透视表时不使用。

header

可选项。如果为xlYes，第一行包含页眉（不被排序）。如果为xlNo或省 略，无页眉 存在（整个区域被排序）。如果为xlGuess，Microsoft Excel猜测是否有页眉，如果有一个它在何处。当排序数据透视表时不使 用。

orderCustom

可选项。基于自定义排序次序序列中的整数编移量。如果省略，使用１（普通）。

matchCase

可选项。如果为True，排序区别大小写，如果为False，排序不区别大小 写。当排序数据透视表时不使用。

orientation

可选项。如果为xlTopToBottom或省略，排序自顶向下进行（按行排序） 。如果为xlLeftToRight，排序从左向右进行（按列排序）。


Sort 方法实例

该实例用单元格A1作为主要关键字，单元格C1作为次要关键字排序区域A1:G37。排序按行升序完成，并且无页眉。

Range("A1", "G37").Sort key1:=Range("A1"), key2:=Range("C1")


Subtotal 方法

参阅	实例

用于

Range

描述

创建区域（或当前区域，如果区域是单一单元格）的分类汇总。为获取Visual Basic中关于使用Subtotal工作表函数的帮助，参阅在Visual Basic中使用工作表函数。

语法

object.Subtotal(groupBy, function, totalList, replace, pageBreaks, summaryBelowData)

元素

subtotal方法具有下列对象限制和命名参数:

object

必选项。区域对象。

groupBy

必选项。分组的字段，用基于1的整数偏移量。为进一步获取信息，参阅实例。

function

必选项。分类汇总函数。可以是xlAverage, xlCount, xlCountNums, xlMax, xlMin, xlProduct, xlStDev, xlStDevP, xlSum, xlVar, 或 xlVarP。

totalList

必选项。基于1的字段偏移量的数组，指明分类汇总要增加的字段。为进一步获取信息，参阅实例。

replace

可选项。如果为True，现有的分类汇总被替换，如果为False或省略，现有的分类汇总的 不被替换。

pageBreaks

可选项。每组之后创建分页为True，如果不创建分页，则为False或省略。

summaryBelowData

可选项。如果为xlBelow或省略，明细数据下出现摘要。如果为xlAbove，摘要出现在明细 数据上。


参阅

RemoveSubtotal方法


Subtotal 方法实例

该实例为选定区域创建分类汇总。字段1中按变化分组的分类汇总求和，把分类汇总增加到字段２和字段３。

Selection.Subtotal groupBy:=1, function:=xlSum, _

totalList:=Array(2, 3)


Delivery属性

实例

用于

RoutingSlip

描述

返回或设置发送时使用的传递方法(xloneAfterArother或xlAllAtOnle)。 发送开始前为可读写，一旦发送在进行中为只读。

语法

object.Delivery

元素

object

 必选项。发送名单对象。


Delivery 属性实例

该实例发送BOOK.XLS到三个接受器，一个接一个。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

End With

Workbooks("BOOK1.XLS").Route


Message 属性

参阅	实例

用于

RoutingSlip

描述

    返回或设置发送名单的消息文字，该文字用于发送工作簿使用的邮 件消息的主体文字。可读写。

语法

object.Message

元素

object

 必选项。发送名单对象。


参阅

Subject属性


Message 属性实例

该实例发送BOOK.XLS到三个接受器，一个接一个。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

End With

Workbooks("BOOK1.XLS").Route


Recipients 属性

实例

用于

RoutingSlip

描述

    返回或设置发送名单的接受器(为字符串数组)。可读写。

语法

object.Recipients

元素

object

  必选项。发送名单对象

解释

    接受器序列的次序定义投递次序，如果发送投递选项是xlOneAfterAnother。

    如果发送名单在进行中，仅那些未接收的接受器和发送的文档

    被返回或设置。


Recipients 属性实例

该实例发送BOOK1.XLS到三个接受器，一个接一个。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

.ReturnWhenDone = True

End With

Workbooks("BOOK1.XLS").Route


Reset 方法

实例

用于

MenuBar， RoutingSlip， Toolbar， ToolbarButton

描述

    恢复内部菜单栏或工具栏为其原始默认配置，重新设置工具栏按钮为其原始外观。 重新设置发送名单致使新发送可用相同名单（使用相同接受器序列和投递信息）初始 化，发送必须在使用该方法前完成。在其他时间使用该方法，导致错误。

语法

object.Reset

元素

object

  必选项。该属性施加的对象。

解释

    当重新设置菜单栏或工具栏时必须小心，其他宏可能已增加按钮或菜 单项，并且重新设置该栏也将删除这些，为避免与其他宏冲突， 删除宏已增加的项或按钮而不重新设置菜单栏或工具栏。


Reset 方法实例

如果发送完成，该实例重新设置工作簿的发送名单。

With Workbooks("BOOK1.XLS").RoutingSlip

If .Status = xlRoutingComplete Then

.Reset

Else

MsgBox "Cannot reset routing; not yet complete"

End If

End With


ReturnWhenDone 属性

实例

用于

RoutingSlip

描述

    当发送完成时，如果工作簿被返回到发送器，则为True。发送开始前为可读写。 当发送在进行时为可读。

语法

object.ReturnWhenDone

元素

object

  必选项。发送名单对象。


ReturnWhenDone 属性实例

该实例发送BOOK.XLS到三个接受器，一个接一个，并且当完成时，返回该工作簿到发送器。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

.ReturnWhenDone = True

End With

Workbooks("BOOK1.XLS").Route


Status 属性

实例

用于

RoutingSlip

描述

    表明发送名单的状态(xlNotYetRouted，xlRoutingInProgress或xlRoutingComplete之一)。 只读。

语法

object.Status

元素

object

  必选项。发送名单对象。


Status 属性实例

如果发送完成，该实例重新设置工作簿的发送名单。

With Workbooks("BOOK1.XLS").RoutingSlip

If .Status = xlRoutingComplete Then

.Reset

Else

MsgBox "Cannot reset routing; not yet complete."

End If

End With


TrackStatus 属性

实例

用于

RoutingSlip

描述

    如果发送名单的状态追踪有效，则为True。发送开始前为可读写，当发送在 进行中为只读。

语法

object.TrackStatus

元素

object

 必选项。发送名单对象。


TrackStatus 属性实例

该实例用有效状态追踪发送BOOK.XLS到三个接受器。

Workbooks("BOOK1.XLS").HasRoutingSlip = True

With Workbooks("BOOK1.XLS").RoutingSlip

.Delivery = xlOneAfterAnother

.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")

.Subject = "Here is BOOK1.XLS"

.Message = "Here is the workbook. What do you think?"

.ReturnWhenDone = True

.TrackStatus = True

End With

Workbooks("BOOK1.XLS").Route


ChangeScenario 方法

参阅	实例

用于

Scenario

描述

    改变具有一组新的可变单元格和方案值(可选的)的方案。

语法

object.ChangeScenario(changingCells, values)

元素

  ChangeScenario 方法具有下列对象限制和命名参数：

object

  必选项。方案对象。

changingCells

  必选项。指定方案的一组新的可变单元格的 Range 。可变单元格必须与方案在相同表上。

values

  可选项,包含可变单元格的新方案的数组。如果省略,方案值被假定为可变单元格中的 当前值。

解释

  如果指定 values,数组必须包含 changingCells 区域中每个单元格的元素。


参阅

ChangingCells 属性

Comment 属性


ChangeScenario 方法实例

该实例设置方案的可变单元格为区域A1:A10。

ActiveSheet.Scenarios(1).ChangeScenario ActiveSheet.Range("A1:A10")


ChangingCells 属性

参阅	 实例

用于

Scenario

描述

    返回包含方案的可变单元格的 Range 。只读。

语法

object.ChangingCells

元素

object

  必选项。方案对象。


参阅

ChangeScenario方法

Comment属性


ChangingCells 属性实例

该实例为方案1选定可变单元格。

ActiveSheet.Scenarios(1).ChangingCells.Select


Comment 属性

参阅	实例

用于

Scenario

描述

    返回或设置与方案相关的注释,注释文字不能超过255个字符。可读写。

语法

object.Comment

元素

object

  必选项。方案对象。


参阅

ChangeScenario方法

ChangintCells属性


Comment 属性实例

该实例为方案1设置注释。

ActiveSheet.Scenarios(1).Comment = "Worst case July 1993 sales"


CreateSummary 方法

实例

用于

Scenarios

描述

    为指定工作表上的方案创建含有摘要报告的新工作表。

语法

object.CreateSummary(reportType, resultCells)

元素

   CreateSummary 方法具有下列下象限制和命名参数:

object

  必选项。方案集对象。

reportType

  可选项。指定报告类型(xlStandardSummary或xlPivotTable)。如果该参数被省略， 一般报告被创建。

resultCells

  可选项。在指定工作表上含有结果单元格的区域。一般地，该区域引用含有依赖于用 户模型的可变单元格值的公式的一个或多个单元格——即显示特定方案结果的 单元格,如果该参数被省略，在报告中不包括结果单元格。


CreateSummary 方法实例

  该实例用区域C4:C9中的结果单元格创建当前工作表上的方案摘要。

ActiveSheet.Scenarios.CreateSummary _

resultCells := ActiveSheet.Range("C4:C9")


ErrorBar 方法

参阅	实例

用于

Series

描述

    施加误差线于系列。

语法

object.ErrorBar(direction, include, type, amount, minusValues)

元素

  ErrorBar具有下列对象限制和命名参数：

object

  必选项。系列对象。

direction

  可选项。指定误差线方向(可为XLS或XLY。X仅对散列图有效)。 如果省略，误差线被施加于Y方向。

include

  可选项。指定错误要包括的部分(xlPlusValus,xlMinsValues,xlNone或xlBoth之一)。 如果省略，两条误差线都被包括。

type

  可选项。指定误差线类型(xlFixedValue，xlPercent， xlstDev，xlStError或xlCustom之一)

amount

  可选项。误差数量，当type=xlCustom时,仅用于正误差数量。

minusValues

  可选项。当 type = xlCustom时,负误差数量。


参阅

ErrorBars属性

HasErrorBars属性


ErrorBar 方法实例

该实例在Y向施加标准误差线,包括正和负。

ActiveChart.SeriesCollection(1).ErrorBar _

direction:=xlY, include:=xlBoth, type:=xlStError


ErrorBars 属性

参阅 	 实例

用于

Series

描述

    返回系列的 ErrorBars 。只读。

语法

object.ErrorBars

元素

object

  必选项。系列对象。


参阅

ErrorBar方法

HasErrorBars属性


ErrorBars 属性实例

该实例设置误差线颜色。

With ActiveChart.SeriesCollection(1)

.HasErrorBars = True

.ErrorBars.Border.Color = RGB(0, 255, 0)

End With


HasErrorBars 属性

参阅	 实例

用于

Series

描述

    如果系列具有误差线，则为True。该属性在3-D图上无效，可读写。

语法

object.HasErrorBars

元素

object

  必选项。系列对象。


参阅

ErrorBar方法

ErrorBars属性


HasErrorBars 属性实例

该实例设置误差线颜色。

With ActiveChart.SeriesCollection(1)

.HasErrorBars = True

.ErrorBars.Border.Color = RGB(0, 255, 0)

End With


InvertIfNegative 属性

实例

用于

LegendKey, Point, Series

描述

    当一项目相应于一个负数时，如果Microsoft Excel在该项目中反转图案，则为True。可读写。

语法

object.InvertIfNegative

元素

object

  必选项．图例标示、点或系列对象。


InvertIfNegative 属性实例

该实例为系列1上为负值反转图案。

ActiveChart.SeriesCollection(1).InvertIfNegative = True


PlotOrder 属性

实例

用于

Series

描述

    返回或设置图表组内系列的绘制次序，可读写。

语法

object.PlotOrder

元素

object

  必选项。系列对象。

解释

绘制次序仅可在图组中设置(如果具有多于一个力类型,不能为整个图设置绘制次序)。 图组是具有相同类型和子类型的系列集。

改变一系列的绘制次序将导致图组上其他的列绘制次序做必要的调整。


PlotOrder 属性实例

该实例把图组1中第三系列绘制变为第四系列。

ActiveChart.ChartGroups(1).SeriesCollection(3).PlotOrder = 4


Points 方法

实例

用于

Series

描述

    返回系列中单一点(Point对象,语法1)或所有点的集(Points 对象，语法2)。只读。

语法1

object.Points(index)

语法2

object.Points

元素

   Points 方法具有下列对象限制和命名参数:

object

  必选项。系列对象。

index

  必选项，对语法1。点的名字或编号。


Points 方法实例

该实例施加数据标记于系列中第一点。

ActiveChart.SeriesCollection(1).Points(1).ApplyDataLabels


Smooth 属性

实例

用于

LegendKey, Series

描述

    如果折线图或散点图的曲线平滑打开，则为True。仅施加于折线图和散点图。 可读写。

语法

object.Smooth

元素

object

  必选项。图例标示或系列对象。


Smooth 属性实例

该实例打开曲线平滑。

ActiveChart.SeriesCollection(7).Smooth = True


Trendlines 方法

实例

用于

Series

描述

返回系列的单一趋势线(Trendline 对象,语法1)或所有趋势线的集(Trendlines 对象，语法2)。

语法1

object.Trendlines(index)

语法2

object.Trendlines

元素

object

  必选项。系列对象。

index

  必选项，对语法1。趋势线的名字或编号。


Trendlines 方法实例

该实例设置第一趋势线的类型。

ActiveChart.SeriesCollection(1).Trendlines(1).Type = xlLinear


Values 属性

实例

用于

Scenario, Series

描述

方案对象：返回含有方案可变单元格的当前值的数组。只读。

系列对象：返回或设置系列中所有值的集。可以是工作表上的区 域或常量值数组(但不是二者的组合)。参阅实例获得细节。可读写。

语法

object.Values

元素

object.Values

必选项。方案或系列对象。


Values 属性实例

该实例设置区域系列值。使用 Set 语句，因为表达式的右边是对象，而非值。

Set ActiveChart.SeriesCollection(1).Values = _

Worksheets(1).Range("C5:T5")

为给每个独立数据点设置常量值，必须使用数组。该实例不需要 Set 语句。

ActiveChart.SeriesCollection(1).Values = _

Array(1.5,1.6,1.77,1.89,2.0001)


IncludeAlignment 属性

参阅	实例

用于

Style

描述

如果式样包括AddIndent, HorizontalAlignment, VerticalAlignment, WrapText, 和 Orientation 属性，则为True。可读写。

语法

object.IncludeAlignment

元素

object

  必选项。式样对象。


参阅

IncludeBorder属性

IncludeFont属性

IncludeNumber属性

IncludePatterns属性

IncludeProtextion属性


IncludeAlignment 属性实例

该实例在当前单元格中设置式样以包括对齐属性。

ActiveCell.Style.IncludeAlignment = True


IncludeBorder 属性

参阅	实例

用于

Style

描述

    如果式样包括 Borders属性，则为True。可读写。

语法

object.IncludeBorder

元素

object

  必选项。式样对象。


参阅

IncludeAlignment属性

IncludeFont属性

IncludeNumber属性

IncludePatterns属性

IncludeProtection属性


IncludeBorder 属性实例

该实例在当前单元格中设置式样以包括边框线。

ActiveCell.Style.IncludeBorder = True


IncludeFont 属性

参阅	实例

用于

Style

描述

    如果式样包括 Font 属性，则为True。可读写。

语法

object.IncludeFont

元素

object

  必选项。式样对象。


参阅

IncludeAlignment属性

IncludeBorder属性

IncludeNumber属性

IncludePatterns属性

IncludeProtection属性


IncludeFont 属性实例

该实例在当前单元设置式样以包括字体属性。

ActiveCell.Style.IncludeFont = True


IncludeNumber 属性

参阅	实例

用于

Style

描述

    如果式样包括 NumberFormat 属性，则为True。可读写。

语法

object.IncludeNumber

元素

object

  必选项。式样对象。


参阅

IncludeAlighment属性

IncludeBorder属性

IncludeFont属性

IncludePatterns属性

IncluerProtection属性


IncludeNumber 属性实例

该实例在当前单元格中设置式样以包括数字格式属性。

ActiveCell.Style.IncludeNumber = True


IncludePatterns 属性

参阅	实例

用于

Style

描述

    如果式样包括 Interior 属性，则为True。可读写。

语法

object.IncludePatterns

元素

object

  必选项。式样对象。


参阅

IncludeAlignment属性

IncludeBorder属性

IncludeFont属性

IncludeNumber属性

IncludeProtection属性


IncludePatterns 属性实例

该实例在当前单元格内设置式样以包括内部图案。

ActiveCell.Style.IncludePatterns = True


IncludeProtection 属性

参阅	实例

用于

Style

描述

    如果式样包括 FormulaHidden 和 Locked 保护属性，则为True。可读写。

语法

object.IncludeProtection

元素

object

  必选项。式样对象。


参阅

IncludeAlignment属性

IncludeBorder属性

Includefont属性

IncludeNumber属性

IncludePatterns属性


IncludeProtection 属性实例

该实例在当前单元格中设置式样以包括保护属性。

ActiveCell.Style.IncludeProtection = True


ActivePane 属性

参阅	实例

用于

Window

描述

窗口的 当前Pane 。只读。

语法

object.ActivePane

元素

object

必选项。窗口对象。

解释

该属性仅施加于工作表和宏表。

该属性返回一个分割区域对象。必须使用 Index 属性获得当前分割区域的索引。


参阅

ActiveWindow 属性


ActivePane 属性实例

该实例激活当前窗口的下一个分割区域。

With ActiveWindow

i = .ActivePane.Index

If i = .Panes.Count Then

.Panes(1).Activate

Else

.Panes(i+1).Activate

End If

End With


Arrange 方法

实例

用于

Windows

描述

重排屏幕上的窗口。

语法

object.Arrange(arrangeStyle, activeWorkbook, syncHorizontal, syncVertical)

元素

Arrange方法具有下列对象限制和命名参数:

object

必选项。窗口对象。

arrangeStyle

可选项。用该式样重排窗口，可用下列值之一：

值	含义

xlTiled 	平铺窗口（默认值。当arrangeStyle省略时使用）。

xlCascade	层叠窗口。

xlHorizontal	水平重排窗口。

xlVertical	垂直重排窗口。

xlIcons	重排图标。

activeWorkbook

可选项。如果为True，仅重排当前工作簿的可见窗口，而不是Microsoft Excel中所有窗口，如果为False或省略，重排所有窗口。

syncHorizontal

可选项。当activeWorkbook为False或省略时忽略。如果为True，当前工作簿的窗口在水平滚动时是同步的。如果为False或省略，窗口是不同步的。

syncVertical

可选项。当activeWorkbook为False或省略时忽略。如果为True，当前工作簿在垂直滚动时是同步的。如果为False或省略，窗口不同步。


Arrange 方法实例

该实例平铺屏幕上所有窗口。

Application.Windows.Arrange


DisplayAutomaticPageBreaks 属性

实例

用于

DialogSheet, Worksheet

描述

如果工作表的自动分页线被显示，则为True。可读写。

语法

object.DisplayAutomaticPageBreaks

元素

object

必选项。该属性施加的对象。


DisplayAutomaticPageBreaks 属性实例

该实例使得当前工作簿显示自动分页线。

ActiveSheet.DisplayAutomaticPageBreaks = True


DisplayFormulas 属性

实例

用于

Window

描述

如果窗口显示公式，为True。如果窗口显示值，为False。可读写。

语法

object.DisplayFormulas

元素

object

必选项，窗口对象。

解释

该属性仅施加于工作簿和宏表。


DisplayFormulas 属性实例

该实例改变当前窗口为显示公式。

ActiveWindow.DisplayFormulas = True


DisplayGridlines 属性

实例

用于

Window

描述

如果网格线被显示，则为True。可读写。

语法

object.DisplayGridlines

元素

object

必选项。窗口对象。

解释

该属性仅施加于工作表和宏表。

该属性仅影响显示的网格线，使用 PrintGridlines 属性控制网格线的打印。


DisplayGridlines 属性实例

该实例显示活动窗口中的网格线。

ActiveWindow.DisplayGridlines = True


DisplayHeadings 属性

实例

用于

Window

描述

如果行号列标均被显示，则为True。如果无行号列标被显示，则为False。可读写。

语法

object.DisplayHeadings

元素

object

必选项。窗口对象。

解释

该属性仅施加于工作表和宏表。

该属性仅影响被显示的行号列标。使用 PrintHeadings 属性控制行号列标的打印。


DisplayHeadings 属性实例

该实例关闭当前窗口中的行号列标。

ActiveWindow.DisplayHeadings = False


DisplayOutline 属性

实例

用于

Window

描述

如果分级显示标记被显示，则为True。可读写。

语法

object.DisplayOutline

元素

object

必选项。窗口对象。

解释

该属性仅施加于工作表和宏表。


DisplayOutline 属性实例

该实例显示当前窗口的分级显示标记。

ActiveWindow.DisplayOutline = True


DisplayZeros 属性

实例

用于

Window

描述

如果零值被显示，则为True。可读写。

语法

object.DisplayZeros

元素

object

必选项，窗口对象。

解释

该属性仅施加于工作表和宏表。


DisplayZeros 属性实例

该实例设置当前窗口显示零值

ActiveWindow.DisplayZeros = True


FreezePanes 属性

实例

用于

Window

描述

如果分割的分割区域被冻结，则为True。可读写。

语法

object.FreezePanes

元素

object

必选项。窗口对象。

解释

FreezePanes可能为True和Split可能为False，或相反。

该属性仅施加于工作表和宏表。


FreezePanes 属性实例

该实例冻结当前窗口中分割的分割区域。

ActiveWindow.FreezePanes = True


GridlineColor 属性

参阅	实例

用于

Window

描述

返回或设置网格线颜色为RGB值，可读写。

语法

object.GridlineColor

元素

object

必选项，窗口对象。


参阅

DisplayGridlines 属性

GridlineColorIndex 属性


GridlineColor 属性实例

该实例设置当前窗口网格线颜色为红色。

ActiveWindow.GridlineColor = RGB(255,0,0)


Panes 方法

实例

用于

Window

描述

返回窗口中的单一分割区域(Pane对象，语法１）或所有分割区域集（Panes对象， 语法２）。只读。

语法１

object.Panes(index)

语法２

object.Panes

元素

Pane具有下列对象限制和命名参数

object

必选项。窗口对象。

index

必选项，对语法１。分割区域的名字或编号。

解释

该属性仅在可被分割的窗口上有效（工作表和Microsoft Excel 4.0宏表）。


Panes 方法实例

该实例显示当前窗口上分割区域的编号。

MsgBox "There are " & ActiveWindow.Panes.Count & _

" panes in the active window"

该实例激活窗口左上的分割区域。

ActiveWindow.Panes(1).Activate


SelectedSheets 方法

实例

用于

Window

描述

返回窗口中所有选定的表集(Sheets集)。

语法

object.SelectedSheets

元素

object

必选项。窗口对象。


SelectedSheets 属性实例

该实例设置变量answer为True，如果sheet1被选定。

answer = False

For Each sheet In Windows(1).SelectedSheets

If sheet.Name = "Sheet1" Then

answer = True

Exit For

End If

Next


Split 属性

实例

用于

Window

描述

如果窗口被分割，为True。可读写。

语法

object.Split

元素

object

必选项。窗口对象。

解释

FreezePanes可能为True且Split可能为False，或相反。

该属性仅施加于工作表和宏表。


Split 属性实例

该实例在单元格B2分割当前窗口，不冻结分割区域。这使得Split属性返回True。

With ActiveWindow

.SplitColumn = 2

.SplitRow = 2

End With

有两种方法删除分割。

ActiveWindow.Split = False	'method one

ActiveWindow.SplitColumn = 0	'method two

ActiveWindow.SplitRow = 0

该实例删除窗口分割，必须设置FreezePanes为False以便在删除分割前删除冻结分割区域。

With ActiveWindow

.FreezePanes = False

.Split = False

End With


SplitColumn 属性

参阅	实例

用于

Window

描述

返回或设置窗口被分割为分割区域处的列号（分割线左边的列号）。可读写。

语法

object.SplitColumn

元素

object

必选项，窗口对象。


参阅

SplitHorizontal 属性

SplitRow 属性

SplitVertical 属性


SplitColumn 属性实例

该实例分割窗口且分割线左边剩余1.5列。

ActiveWindow.SplitColumn = 1.5


SplitHorizontal 属性

参阅	实例

用于

Window

描述

返回或设置水平窗口分割的位置，用点数（１／７２英寸）。可读写。

语法

object.SplitHorizontal

元素

object

必选项，窗口对象。


参阅

SplitColumn 属性

SplitRow 属性

SplitVertical 属性


SplitHorizontal 属性实例

该实例设置当前窗口的水平分割为216点(3英寸)。

ActiveWindow.SplitHorizontal = 216


SplitRow 属性

参阅	实例

用于

Window

描述

返回或设置窗口被分割为分割区域处的行号(分割线上面的行)。可读写。

语法

object.SplitRow

元素

object

必选项。窗口对象。


参阅

SplitColumn 属性

SplitHorizontal 属性

SplitVertical 属性


SplitRow 属性实例

该实例分割当前窗口，致使分割线上有１０行。

ActiveWindow.SplitRow = 10


SplitVertical 属性

实例

用于

Window

描述

返回或设置垂直窗口分割的位置，用点数（１／７２英寸）。可读写。

语法

object.SplitVertical

元素

object

必选项。窗口对象。


SplitVertical 属性实例

该实例设置当前窗口的垂直分割为216点(3英寸)。

ActiveWindow.SplitVertical = 216


CreateBackup 属性

实例

用于

Workbook

描述

当保存文件时，如果备份被创建，则为True。只读。

语法

object.CreateBackup

元素

object

必选项。工作簿对象。


CreateBackup 属性实例

保存时如果备份被创建，该实例保存工作簿Book1.XLS为NEW BOOK.XLS。

With Workbooks("BOOK1.XLS")

If .CreateBackup Then .SaveAs "NEWBOOK.XLS"

End With


DialogSheets 方法

实例

用于

Application, Workbook

描述

返回工作簿中单个对话框编辑表（DialogSheet对象，语法1）或所有对话框编辑表集（DialogSheets对象，语法2）只读。

语法1

object.DialogSheets(index)

语法2

object.DialogSheets

元素

Dialog sheets方法具有下列对象限制和命名参数；

object

可选项，对应用程序。必选项，对工作簿，包含对话框编辑表的对象。

index

必选项，对语法1。返回的对话框编辑表名字或编号。

解释

使用该方法而无对象限制对ActiveWorkbook.Diablonsheets是快显菜单。


DialogSheets 方法实例。

该实例显示当前工作薄中对话框编辑表的编号。

MsgBox "There are " & ActiveWorkbook.DialogSheets.Count & _

" dialog sheets in this workbook."


Excel4IntlMacroSheets 方法

参阅	实例

用于

Application, Workbook

描述

返回工作薄中Microsoft Excel 4.0国际宏表（Worksheet对象，对话法1 ）或所有Microsoft Excel 4.0国际宏表集（Worksheets对象，对话语法2）。只读。

语法1

object.Excel4IntlMacroSheets(index)

语法2

object.Excel4IntlMacroSheets

Excel4lntlMacroSheets方法具有下列对象限制和命名参数：

object

可选项，对应用程序。必选项，对工作薄。包含Microsoft Excel 4.0 国际宏表的对象。

index

必选项，对语法1。返回的Microsoft Excel 4.0国际宏表的名字或编号。使用该方法而无对象限制对Activeworkbook.Excel4lntlMacroSheets是快显菜单。


参阅

Excel4MacroSheets 方法

Worksheets 方法


Excel4IntlMacroSheets 方法实例

该实例显示当前工作薄中Microsoft Excel4.0国际宏表的编号。

MsgBox "There are " & ActiveWorkbook.Excel4IntlMacroSheets.Count & _

" Microsoft Excel 4.0 international macro sheets in this workbook"


Excel4MacroSheets 方法

参阅	实例

用于

Application, Workbook

描述

返回工作薄中Microsoft Excel  4. 0 宏表（Worksheet 对象， 语法 1 ）或所有Microsoft Excel 4.0宏表集（Worksheets对象，语法2）。只读。

语法1

object.Excel4MacroSheets(index)

语法2

object.Excel4MacroSheets

元素

Excel4MocroSheets方法具有下列对象限制和命名参数：

object

可选项，对应用程序。必选项，对工作薄。包含Micorosoft Excel 4.0  宏表的对象。

index

必选项，对语法1。返回的Microsoft Excel 4.0宏表的名字和编号。

解释

使用该方法而无对象限制对Activeworkbook.Excel4MocroSheets是快显菜单。


参阅

Excel4IntlMacroSheets 方法

Worksheets 方法


Excel4MacroSheets 方法实例

该实例显示当前工作簿中Microsoft Excel 4.0宏表的编号。

MsgBox "There are " & ActiveWorkbook.Excel4MacroSheets.Count & _

" Microsoft Excel 4.0 macro sheets in this workbook"


FileFormat 属性

实例

用于

Workbook

描述

返回文件格式和/或工作薄类型，如下表所示。只读。

xlAddIn xlCSV xlCSVMac xlCSVMSDOS xlCSVWindows xlDBF2 xlDBF3 xlDBF4 xlDIF xlExcel2	xlExcel3 xlExcel4 xlExcel4Workbook xlIntlAddIn xlIntlMacro xlNormal xlSYLK xlTemplate xlText xlTextMac	xlTextMSDOS xlTextWindows xlTextPrinter xlWK1 xlWK3 xlWKS xlWQ1 xlWK3FM3 xlWK1FMT xlWK1ALL
语法

object.FileFormat

元素

object

必选项。工作簿对象。

解释

下列附加格式在远东Microsoft Excel 中有效： XLWJZWD1 ， xlExcelFarEast 和xlWorksfarEast。


FileFormat 属性实例

如果当前文件格式是WK3，该实例用一般文件格式保存当前工作薄。

If ActiveWorkbook.FileFormat = xlWK3 Then

ActiveWorkbook.SaveAs fileFormat:=xlNormal

End If


HasPassword 属性

实例

用于

Workbook

描述

如果工作簿含有保护口令为True，只读。

语法

object.HasPassword

元素

object

必选项。工作簿对象。

解释

用SaveAs方法指定保护口令给工作簿。


HasPassword 属性实例

该实例显示消息提醒用户工作簿PROFIT92XLS具有保护口令，且如果HasPassword属性为True，退出Microsoft Excel。

If Workbooks("PROFIT92.XLS").HasPassword Then

MsgBox "PROFIT92.XLS is protected." & _

" To read, please obtain the password" & _

" from the Network Administrator."

Application.Quit

End If


Modules 方法

实例

用于

Application, Workbook

描述

返回工作簿中模块表（Module对象，语法1）或所有模块表集（Modules对象， 语法2）。只读。

语法1

object.Modules(index)

语法2

object.Modules

元素

Modues方法具有下列对象限制和命名参数；

object

必选项。工作簿对象。

index

必选项，对语法1。返回的模块表名字或编号。


Modules 方法实例

该实例显示当前工作簿中有效模块表编号。

MsgBox "There are " & ActiveWorkbook.Modules.Count & _

" modules in this workbook."


NewWindow 方法

实例

用于

Window，Workbook

描述

为工作簿创建新窗口或创建指定窗口的副本。

语法

object.NewWindow

元素

object

必选项。窗口或工作簿对象。


NewWindow 方法实例

该实例为工作簿BOOK1、XLS创建新窗口。

Workbooks("BOOK1.XLS").NewWindow


Open 方法

参阅	实例

用于

Workbooks

描述

打开工作簿。

语法

object.Open(fileName, updateLinks, readOnly, format, password, writeResPassword, ignoreReadOnlyRecommended, origin, delimiter, editable, notify, converter)

元素

object

必选项。工作簿对象。

fileName

指定要打开的工作簿的文件名。

updateLinks

可选项。指定文件中的链接如何被更新，如果该参数被省略，用户被提示决定如何更新链接。否则，该参数是下列之一：

0	不更新。

1	更新外部的但不是远程引用。

2	更新远程但不是外部引用。

3	更新远程和外部引用。

如果Microsoft Excel用WKS，WK1或 WK3 格式打开文件且 UpdateLinks 参数为 2 ，Microsoft Excel从隶属该文件的图形上产生图表。如果该参数为0，没有图表被创建。

readOnly

可选项。如果为True，工作簿用只读方式打开。

format

可选项。如果Microsoft Excel打开文本文件，该参数指定界符， 如下列表所示。如果该参数被省略，当前界符被使用。

值 	界符

1	Tab键。

2	逗号。

3	空格。

4	分号。

5	无。

6	自定义字符，参阅delimiter参数。

password

可选项。包含打开保护的工作簿所需口令的字符串，如果省略且该工作簿需要口令，用户将被提示需要口令。

writeResPassword

可选项。包含写入写保护的工作簿所需口令的字符串，如果省略且工作簿需要口令，用户将被提示需要口令。

ignoreReadOnlyRecommended

可选项。如果为True且工作簿用推荐的只读选项保存，Microsoft Excel不显示推荐的只读消息。

origin

可选项。如果文件是文本文件，它指明文件起源于何处（因此代码页和CR/LF 可被正确映象）。可为xeMacintogh.xlwindows或xlMSDOS之一。如果该参数被省略， 使用当前操作系统。

delimiter

可选项。如果文件是文本文件且format参数为6， 这是指定用作界符字符的字符串。例如，chr（9）为Tab键，"，"为逗号，"；" 为分号或自定义字符， 仅使用字符串的第一个字符。

editable

可选项。如果文件是Microsoft Excel 4.0加载宏，使用True打开加载宏， 使之为可见窗口，如果为False或省略，加载宏隐藏。该选项不适用于Microsoft Excel  5.0加载宏。如果文件不是加载宏，指定为True防止任一Auto-Open宏运行。

notify

可选项。如果文件不能用Readonly请求方式打开，指定为True增加文件到文件通知 清单。Microsoft Excel将打开只读文件，得到文件通知清单， 当文件变为有效时， 通知用户。如果该参数为False或省略，无通知被请求，且试图打开无效文件将失败。

converter

可选项。当打开文件时，指定第一文件转换器（索引）试一试。指定的文件转换器先试，如果指定的转换器不能识别该文件，通知有其余转换器被试。转换器索引是FileConverters属性返回的转换器行号。

解释

如果打开的工作簿具有任一Auto-Open宏在其中，当从VisualBasic打开文件时，它们不运行。如果想运行Auto-Open宏，必须使用RunAutoMacros。


参阅

Activate 方法

Close 方法

FileConverters 属性

OpenText 方法


Open 方法实例

该实例用口令"drowssap"打开工作簿OSCAR.XLS。

Workbooks.Open fileName:="OSCAR.XLS", password:="drowssap"


ProtectStructure 属性

参阅	实例

用于

Workbook

描述

如果工作簿中表的次序被保护为True。只读。

语法

object.ProtectStructure

元素

object

必选项。工作簿对象。


参阅

Protect 方法

Unprotect 方法

ProtectWindows 属性


ProtectStructure 属性实例

该实例显示消息告知用户工作簿PROFIT92.XLS结构的保护结果。

If Workbooks("PROFIT92.XLS").ProtectStructure Then

MsgBox "Remember, you cannot delete, add, or change " & _

"the location of any sheets in this workbook."

End If


ProtectWindows 属性

参阅	实例

用于

Workbook

描述

如果工作簿的窗口被保护为True。只读。

语法

object.ProtectWindows

元素

object

必选项。工作薄对象。


参阅

Protect 方法

Unprotect 方法

ProtectStructure 属性


ProtectWindows 属性实例

该实例显示消息告知用户工作簿PROFIT92.XLS窗口的保护结果。

If Workbooks("PROFIT92.XLS").ProtectWindows Then

MsgBox "Remember, you cannot rearrange any window in this workbook."

End If


ReadOnly 属性

参阅	实例

用于

Workbook

描述

如果工作簿按只读方式打开为True。只读。

语法

object.ReadOnly

元素

object

必选项，工作簿对象。


参阅

Open 方法

SaveAs 方法


ReadOnly 属性实例

该实例保存当前工作簿为NEWFILE.XLS，如果它是只读的。

If ActiveWorkbook.ReadOnly Then

ActiveWorkbook.SaveAs fileName:="NEWFILE.XLS"

End If


ReadOnlyRecommended 属性

参阅	实例

用于

Workbook

描述

如果工作簿用推荐的只读保存为True。只读。

语法

object.ReadOnlyRecommended

元素

object

必选项。工作簿对象。

解释

当打开用推荐只读保存的文档时，Microsoft Excel 显示推荐的用只读打开文档的消息。使用SaveAs 方法改变该属性.


参阅

Open 方法

SaveAs 方法


ReadOnlyRecommended 属性实例

在该实例中，如果工作簿BUDGET93.XLS用推荐的只读保存，代码把它保存为TESTFILE.

XLS。

With Workbooks("BUDGET93.XLS")

If .ReadOnlyRecommended Then

.SaveAs fileName:="TESTFILE.XLS"

End If

End With


RunAutoMacros 方法

实例

用于

Workbook

描述

运行隶属工作簿的Auto-Open，Auto-Close，Auto-Activate或Auto-Deactivate宏。当工作簿由Visual Basic程序打开或关闭时（且当工作表是激活的或关闭的时），这四个自动宏 不运行。使用该方法运行自动宏。

语法

object.RunAutoMacros(which)

元素

RunAutoMacros方法具有下列对象限制和命名参数；

object

必选项，工作簿对象。

which

必选项，指定哪个宏运行，如下表所示。

值 	含 义

xlAutoOpen 	Auto-Open宏

xlAutoClose 	Auta-Close宏

xlAutl Activate 	Auto-Activate宏

xlAutoDeactivate 	Auto-Deactivate宏

解释

包括Auto-Activate和Auto-Deactive宏是为了与Microsoft Excel版本4.0宏语言向后兼容，当用Visual Basic编程时，使用OnSheetActivate和OnSheetDeactivate属性。


RunAutoMacros 方法实例

该实例为ANALYSIS.XLS运行Auto-Open宏。

Workbooks.Open "ANALYSIS.XLS"

ActiveWorkbook.RunAutoMacros xlAutoOpen

该实例为当前工作簿运行Auto-Close宏，然后关闭工作簿。

With ActiveWorkbook

.RunAutoMacros xlAutoClose

.Close

End With


SaveAs 方法

参阅	实例

用于

Chart, DialogSheet, Module, Workbook, Worksheet

描述

用不同的文件保存改变的表或工作薄。

语法

object.SaveAs(filename, fileFormat, password, writeResPassword, readOnlyRecommended, createBackup)

元素

SaveAs方法具有下列对象限制和命名参数；

object

必选项。该方法施加的对象。

filename

可选项。  指示要保存的文件名的字符串。  可以包括全路径，  如果不包括。Microsoft Excel保存文件到当前目录中。

fileFormat

可选项。保存文件时使用的文件格式。参阅FileFormat属性获悉合法选择的清单。

password

可选项。指明给予文件保护口令的区别大小写的字符串。不可多于15个字符。

writeResPassword

可选项。指明该文件写保护口令的字符串。如果文件用口令保存且当文件打开时未提供口令，文件以只读方式打开。

readOnlyRecommended

可选项。当文件打开时，如果为True，Microsoft Excel 显示消息推荐以只读方式打开文件。

createBackup

可选项。如果为True，Microsoft Excel创建备份文件，如果为False，不创建备份文件。如果省略，状态不改变。

解释

为指明工作簿是保存的而不把它写到磁盘上，设置工作簿的Saved属性为True。 该方法仅在非3D格式中用于保存工作簿。basic模块表仅可用文本格式保存。


参阅

FileFormat 属性

Save 方法

SaveCopyAs 方法

Saved 属性


SaveAs 方法实例

在该实例中上，如果BUDGET93。XLS以只读方式打开，代码把它保存为 TESTFILE

.XLS。

If Workbooks("BUDGET93.XLS").ReadOnly Then

Workbooks("BUDGET93.XLS").SaveAs fileName:="TESTFILE.XLS"

End If


Saved 属性

参阅	实例

用于

Workbook

描述

如果上一次保存的工作簿已发生变化为False。可读写。

语法

object.Saved

Elements

object

必选项，工作簿对象。

解释

如果工作簿从未被保存，其Path将返回空串（" "）。

如果想关闭修改的工作簿而不保存它或被提示保存它，可以设置该属性为True。


参阅

Save 方法

SaveAs 方法

SaveCopyAs 方法


Saved 属性实例

该实例显示消息提醒用户退出前保存工作簿，如果尚未这样做。

If Not ActiveWorkbook.Saved Then

MsgBox "Please remember to save this workbook " & _

"before you exit."

End If


Sheets 方法

参阅	实例

用于

Application, Workbook

描述

返回工作簿中单个表（语法1 ）或表集（语法 2 ）。 只读， 表可以是 Chart, DialogSheet, Module, 或 Worksheet。

语法1

object.Sheets(index)

语法2

object.Sheets

元素

sheets方法具有下列对象限制和命名参数。

object

可选项。对应用程序。必选项，对工作簿，该属性施加的对象。

index

必选项，对语1，返回的表的名字或编号。

解释

使用该方法而无对象限制等价于Activeworkbook.sheets。


参阅

Charts 方法

DialogSheets 方法

Modules 方法

Worksheets 方法


Sheets 方法实例

该实例删除工作簿中第三个表。

ActiveWorkbook.Sheets(3).Delete


Styles 方法

实例

用于

Workbook

描述

返回工作簿中单个式样（Style对象，语法1）或所有式样集（Styles对象，语法2）。

语法1

object.Styles(index)

语法2

object.Styles

元素

Styles方法具有下列对象限制和命名参数；

object

必选项，工作簿对象。

index

必选项，对语法1。返回的式样名字或编号。


Styles 方法实例

该实例从第一个工作簿删除用户自定义式样"stock Quovt Style"。

Workbooks(1).Styles("Stock Quote Style").Delete


Worksheets 方法

实例

用于

Application, Workbook

描述

返回工作簿中单个工作表（Worksheet对象，语法1）或所有工作表集（ Worksheets对象，语法2）。

语法1

object.Worksheets(index)

语法2

object.Worksheets

元素

worksheets方法具有下列对象限制和命名参数；

object

可选项。对应用程序。必选项，对工作簿，包含工作表的对象。

index

必选项，对语法1，返回的工作表名字或编号。

解释

该方法用Type属性返回工作表等价于xlworksheet，不等价于 xlexcel4macrosheet或    xlexcel4intlmecrosheet 。    使用     Excel4MacroSheets 方法或Excel4IntlMacroSheets方法返回那些类型。使用该方法而无对象限制对Activeworkbook，worksheets是快显菜单。


Worksheets 方法实例

该实例显示当前工作簿中工作表的编号。

MsgBox "There are " & ActiveWorkbook.Worksheets.Count & _

" worksheets in this workbook."


WriteReserved 属性

实例

用于

Workbook

描述

如果工作簿是写保护的为True，只读。

语法

object.WriteReserved

元素

object

必选项。工作簿对象。

解释

使用SaveAs方法设置该属性。


WriteReserved 属性实例

在该实例中，如果工作簿BUDGET93.XLS用写保护状态保存，代码把它保存为TESTFILE.XLS。

If Workbooks("BUDGET93.XLS").WriteReserved Then

Workbooks("BUDGET93.XLS").SaveAs fileName:="TESTFILE.XLS"

End If


WriteReservedBy 属性

实例

用于

Workbook

描述

返回用当前写许可命名工作簿的字符串。只读。

语法

object.WriteReservedBy

元素

object

必选项，工作簿对象。


WriteReservedBy 属性实例

如果WriteReserveelBy属性为True，该实例显示消息提醒接触具有当前写许可 的工作簿PROFIT92. XLS 用户。

With Workbooks("PROFIT92.XLS")

If .WriteReserved Then

MsgBox "Please contact " & .WriteReservedBy & _

" if you need to insert data in this workbook."

End If

End With


TransitionExpEval 属性

                 实例

用于

Worksheet

描述

如果Microsoft Excel对工作表使用Lotus1-2-3表达式计算规则，

则为True。可读写。

语法

object.TransitionExpEval

元素

  object

  必选项。工作表对象。


TransitionExpEval 属性实例

该实例设置Microsoft Excel对第一工作表使用Lotus表达式计算规则。

Worksheets(1).TransitionExpEval = True


TransitionFormEntry 属性

                   实例

用于

Worksheet

描述

   如果Microsoft Excel对工作表使用Lotus1-2-3表达式计算规则，则为True。可读写。

语法

object.TransitionFormEntry

元素

    object

    必选项。工作表对象。

解释

    该属性在AppleMacintosh上无效。


TransitionFormEntry 属性实例

该实例使Microsoft Excel对第一工作表使用Lotus1-2-3公式输入规则。

Worksheets(1).TransitionFormEntry = True


Date1904 属性

        实例

用于

Workbook

描述

    如果工作表使用1904日期系统为True。可读写。

语法

object.Date1904

元素

object

  必选项。工作表对象。


Date1904 属性实例

该实例使Microsoft Excel对当前工作簿使用1904日期系统。

ActiveWorkbook.Date1904 = True


DeleteNumberFormat方法

                   实例

用于

Workbook

描述

  从工作簿上删除自定义的数字格式。

语法

object.DeleteNumberFormat(numberFormat)

元素

  DeleteNumberFormat方法具有下列对象限制和命名参数:

  object

  必选项。工作簿对象。

  numberFormat

  必选项。要删除的命名数字格式的字符串。


DeleteNumberFormat 方法实例

该实例从当前工作簿删除数字格式"000-00-0000".

ActiveWorkbook.DeleteNumberFormat("000-00-0000")


DisplayDrawingObjects 属性

                    实例

用于

  Workbook

描述

返回或设置图形对象如何被显示，如下表所示。可读写。

值	含义

xlAll	显示所有图形对象。

xlPlaceholders	仅显示预留位置。

xlHide	隐藏所有图形对象。

语法

  object.DisplayDrawingObjects

元素

  object

  必选项。工作簿对象。


DisplayDrawingObjects 属性实例

该实例隐藏当前工作簿中所有图形对象。

ActiveWorkbook.DisplayDrawingObjects = xlHide


Drawings 方法

        实例

用于

Chart, DialogSheet, Worksheet

描述

返回单一图形(Drawing对象,语法1)或图形集(Drawings对象,语法2)在图表、对话表或 工作 表上。图形由图形工具栏上的[手划多边形]、[手画线] 和[实心手划多边形]按钮来创建。

语法1

object.Drawings(index)

语法2

object.Drawings

元素

  Drawings方法具有下列对象限制和命名参数:

元素

  object

  必选项。图表,对话表或工作表对象。

  index

  必选项。对语法1。返回图形的名字或编号,可指定多个索引。


Drawings 方法实例

该实例把图形1置于工作表1的前面。

Worksheets(1).Drawings(1).BringToFront


PrecisionAsDisplayed 属性

                    实例

用于

Workbook

描述

  如果工作簿上的计算仅用其显示的数字精度进行为True。可读写。

语法

object.PrecisionAsDisplayed

元素

  object

  必选项。工作簿对象。


PrecisionAsDisplayed 属性实例

该实例使得当前工作簿上的计算仅使用显示的数字精度。

ActiveWorkbook.PrecisionAsDisplayed = True


SaveLinkValues 属性

              实例

用于

Workbook

描述

    如果Microsoft Excel保存该工作簿外部链接值为True。可读写。

语法

object.SaveLinkValues

元素

  object

  必选项。工作簿对象。


SaveLinkValues 属性实例

该实例使得Microsoft Excel保存当前工作簿的外部链接值。

ActiveWorkbook.SaveLinkValues = True


ShowDataForm 方法

            实例

用于

Worksheet

描述

  显示与工作表相关的数据记录单。

语法

object.ShowDataForm

元素

  object

  必选项.工作表对象.

解释

当使用数据记录单时,宏暂停。当用户关闭数据记录单时,宏将从ShowDataForm方法后 的行重新 开始运行。如果存在,该方法返回自定义数据记录单。


ShowDataForm方法实例

该实例显示第一个工作表的数据记录单。

Worksheets(1).ShowDataForm


SpecialCells 方法

            实例

用于

Range

描述

    返回引用匹配指定类型和值的所有单元格的区域。

语法

object.SpecialCells(type, value)

元素

  SpecialCells具有下列对象限制和命名参数:

  object

  必选项。区域对象。

  type

  必选项。包括的单元格类型,如下表所示:

值	 含义

xlNotes	包含附注的单元格。

xlConstants	包含常量的单元格。

xlFormulas	包含公式的单元格。

xlBlanks	空单元格。

xlLastCell	使用区域的最后单元格。

xlVisible	所有可见单元格。

Value

  可选项。如果type是xlConstants或xlFormulas,Value

  参数用于确定哪种单元格类型包含在结果中,这些值可

  以加在一起,返回多种类型。默认为选定所有常量或公式,不管是何类型。

值	 含义

xlNumber	数字

xlTextValues	文字

xlLogical	逻辑值

xlErrors	错误值


SpecialCells 方法实例

该实例激活当前选定区域中最后单元格。

Selection.SpecialCells(xlLastCell).Activate


StandardHeight 属性

参阅	实例

用于

Worksheet

描述

  返回工作表中所有行的标准(默认)高度,用点数度量(1/72英寸)。只读。

语法

object.StandardHeight

元素

  object

  必选项。工作表对象。


参阅

Height属性

RowHeight属性

StandardWidth属性


StandardHeight 属性实例

该实例设置行1中单元格高度为标准高度。

Worksheets(1).Rows(1).RowHeight = Worksheets(1).StandardHeight


StandardWidth 属性

参阅	实例

用于

Worksheet

描述

  返回或设置工作表中所有列的标准(默认)宽度,用一般字体的  字符度量。可读写。

语法

object.StandardWidth

元素

  object

  必选项。工作表对象。

解释

    如果一般字体是proportional字体,该属性返回用一般字体中零(0)字符度量的列宽。


参阅

ColumnWidth属性

StandardHeight属性

Width属性


StandardWidth 属性实例

该实例设置列1中单元格宽度为标准宽度。

Worksheets(1).Columns(1).ColumnWidth = Worksheets(1).StandardWidth


UpdateRemoteReferences 属性

                      实例

用于

Workbook

描述

    对于工作簿如果远程引用被更新为True。可读写。

语法

object.UpdateRemoteReferences

元素

  object

  必选项。工作簿对象。


UpdateRemoteReferences 属性实例

该实例使得当前工作簿上远程引用被更新。

ActiveWorkbook.UpdateRemoteReferences = True


UsedRange 属性

         实例

用于

Worksheet

描述

   返回使用工作表的Range。只读。

语法

object.UsedRange

元素

  object

  必选项。工作簿对象。


UsedRange 属性实例

该实例选定第一工作表上使用的区域。

Worksheets(1).UsedRange.Select


Import 方法

参阅	实例

用于

SoundNote

描述

    从文件中引入声音附注。

语法

object.Import(file, resource)

元素

  Import方法具有下列对象限制和命名参数：

object

  必选项。声音附注对象。

file

必选项。含有声音文件的名字。

resource

必选项。对于Apple Macintosh(Microsoft Windows不使用)。引入  的文件中声音资源的名字或编号。


参阅

Play方法

Record方法


Import 方法实例

该实例增加声音附注到当前单元格。

ActiveCell.SoundNote.Import "C:\SOUNDS\CHIMES.WAV"


Play 方法

参阅	实例

用于

SoundNote

描述

    演奏声音附注。

语法

object.Play

元素

object

  必选项。声音附注对象。

解释

    为演奏声音，必须具有声音硬件安装在计算机上。


参阅

Pecord方法


Play 方法实例

该实例演奏选定区域中所有单元格的声音附注。

For Each c In Selection.Cells

c.SoundNote.Play

Next


Record 方法

参阅 	实例

用于

SoundNote

描述

    显示记录对话框，可记录声音附注。

语法

object.Record

元素

object

  必选项。声音附注对象。

解释

  为录音，必须具有声音硬件安装在计算机上。


参阅

Play方法


Record 方法实例

该实例显示记录对话框，因此可记录声音附注到当前单元格中。

ActiveCell.SoundNote.Record


 Builtin属性

参阅	实例

用于

MenuBar, Toolbar, ToolbarButton

描述

如果对象是内部的(Microsoft Excel的一部分,而不是自定义的对象)，则为True。只读。

语法

object.BuiltIn

元素

object

必选项。菜单栏、工具栏、工具栏按钮对象。


参阅

BuiltinFace属性


Builtin属性实例

该实例重新设置每个具有自定义外观的按钮的外观。

For Each btn in Application.Toolbars(1).ToolbarButtons

If btn.BuiltIn And Not btn.BuiltInFace Then

btn.BuiltInFace = True

End If

Next btn


BuiltinFace属性

 参阅	实例

用于

ToolbarButton

描述

如果按钮外观是内部的则为True，如果按钮外观是自定义的，则为False。可读写。

语法

object.BuiltInFace

元素

object

必选项。菜单栏按钮对象。

解释

该属性只可为True，它迫使按钮使用内部外观，不能设置为False;为使用自定义外观， 用CopyFace和PasteFace方法(它设置BuiltInFace属性为False)。


参阅

Builtin属性

CopyFace方法

PasteFace方法


BuiltinFace属性实例

该实例重新设置每个具有自义外观的内部按钮的外观。

For Each btn In Application.Toolbars(1).ToolbarButtons

If btn.BuiltIn And Not btn.BuiltInFace Then

btn.BuiltInFace = True

End If

Next btn


CopyFace方法

 参阅	实例

用于

ToolbarButton

描述

将指定的按钮外观复制到剪贴板上。该方法仅复制位图按钮外观，而不是按钮本身。

语法

object.CopyFace

元素

object

必选项。工具栏按钮对象。


 参阅

Builtin属性

BuiltinFace属性

PasteFace方法


CopyFace方法实例

该实例复制工具栏１上按钮１的位图外观，然后将其粘贴到按钮３上。

With Toolbars(1)

.ToolbarButtons(1).CopyFace

.ToolbarButtons(3).PasteFace

End With


Pushed属性

 参阅	实例

用于

ToolbarButton

描述

如果按钮呈按下状态，则为True。可读写。

语法

object.Pushed

元素

object

必选项。工具栏按钮对象。

解释

该属性不可用于内部按钮，只能设置它为自定义按钮。仅当该按钮具有附加其上的过 程。


 参阅

Enabled属性


Pushed属性实例

该实例在工具栏１上增加一自定义按钮，并附加my_Macro过程于其上，并使该按钮呈 按下状态。

Set btn = Toolbars(1).ToolbarButtons.Add(button:=220, before:=3)

btn.OnAction = "my_Macro"

btn.Pushed = True


Enabled属性

 参阅	实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, Menu, MenuItem, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes, ToolbarButton

描述

如果控制项、图形对象或菜单项是激活的，则为True。除菜单外可读写，菜单只能写。

语法

object.Enabled

元素

object

必选项。该属性施加的对象。

解释

失效的菜单项是暗灰色的。失效的工具栏是暗灰色的，按下时发出嘟嘟声。


 参阅

Pushed属性


Pushed属性实例

该实例使工具栏１上所有具有自定义外观的按钮失效。

For Each btn In Application.Toolbars(1).ToolbarButtons

If Not btn.BuiltInFace Then

btn.Enabled = False

End If

Next btn


IsGap属性

实例

用于

ToolbarButton

描述

如果按钮实际上是间隙(按钮间扩展的空间)，则为True。只读。

语法

object.IsGap

元素

object

必选项。工具栏按钮对象。


IsGap属性实例

如果工具栏１上第３个按钮是间隙，则该实例设置变量buttonIsGap为True。

buttonIsGap = Application.ToolBars(1).ToolbarButtons(3).IsGap


Id属性

实例

用于

ToolbarButton

描述

按钮标识号(仅用于内部按钮)。只读。

语法

object.Id

元素

object

必选项。工具栏按钮对象。


Id属性实例

该实例设置变量buttonId 为工具栏２上按钮１的标识号。

buttonId = Toolbars(2).ToolbarButtons(1).Id


OnAction属性

实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, DialogFrame, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes, ToolbarButton

描述

返回或设置单击该对象时运行的宏名。可读写。

语法

object.OnAction

元素

object

必选项。该属性施加的对象。


OnAction属性实例

该实例单击工具栏１上第３按钮时，使得"My_Debug_Macro"宏运行。

Application.ToolBars(1).ToolbarButtons(3).OnAction = "my_Debug_Macro"


PasteFace方法

 参阅	实例

用于

ToolbarButton

描述

从剪贴板上粘贴一位图按钮外观至指定按钮上。

语法

object.PasteFace

元素

object

必选项。工具栏按钮对象。


 参阅

BuiltinFace属性

CopyFace方法


PasteFace方法实例

该实例复制工具栏１上按钮１的位图外观，并将其粘贴至按钮３上。

With Toolbars(1)

.ToolbarButtons(1).CopyFace

.ToolbarButtons(3).PasteFace

End With


AutoFilter 方法

参阅	实例

用于

Range

描述

语法1：显示或隐藏自动筛选下拉箭头。

语法2：用自动筛选筛选数据清单。

语法1

object.AutoFilter

语法2

object.AutoFilter(field, criteria1, operator, criteria2)

元素

AutoFilter方法具有下列对象限制和命名参数：

object

必选项。区域对象。

field

  必选项。字段整型偏移量筛选基于其上。(从数据清单左边起，最左边的是字段1)。

criteria1

  可选项，准则(字符串;例如"101")。利用"="查找空白字段， "<>"查找非空白字段。如果该参数省略，准则为全部。

operator

可选项，与criterial和criteria2一起用于构造复合准则。  可为xlAnd或xlOr之一。如果省略，则为xlAnd。

criteria2

  可选项。第二准则(字符串)。与criterial和operator一起用于构造复合准则。


参阅

AdvaeedFinter方法

AutoFilterMode属性

FilterMode属性

ShowAllData方法


AutoFilter 方法实例

该实例过滤数据清单，只显示字段1"Otio"的输入项。

Range(Cells(1, 1), Cells(10, 10)).AutoFilter field:=1, _

criteria1:="Otis"


DisplayHorizontalScrollBar 属性

参阅	实例

用于

Window

描述

    如果水平滚动条被显示，则为True。可读写。

语法

object.DisplayHorizontalScrollBar

元素

object

    必选项。窗口对象。


参阅

DisplayVerticalScrollBar属性

DisplayScrollBars属性

TabRatio属性


DisplayHorizontalScrollBar 属性实例

该实例打开水平滚动条。

ActiveWindow.DisplayHorizontalScrollBar = True


DisplayVerticalScrollBar 属性

参阅	实例

用于

DrawingObjects， EditBox， EditBoxes， Window

描述

    如果垂直滚动条被显示，则为True。可读写。

语法

object.DisplayVerticalScrollBar

元素

object

  必选项。该属性施加的对象。


参阅

DisplayHorizontalScrollBar属性

DisplayScrollBars属性


DisplayVerticalScrollBar 属性实例

该实例打开垂直滚动条。

ActiveWindow.DisplayVerticalScrollBar = True


DisplayWorkbookTabs 属性

参阅	实例

用于

Window

描述

    如果显示工作簿标签，则为True。可读写。

语法

object.DisplayWorkbookTabs

元素

object

  必选项。窗口对象。


参阅

TabRatio属性


DisplayWorkbookTabs 属性实例

该实例打开工作簿标签。

ActiveWindow.DisplayWorkbookTabs = True


Draft 属性

参阅	实例

用于

PageSetup

描述

    如果需打印的表没有图形，则为True。可读写。

语法

object.Draft

元素

object

  必选项。页面设置对象。

解释

    设置该属性为True，使打印速度加快（以不打印图形为代价）。


参阅

PrintObject属性


Draft Property 属性实例

该实例关闭图形打印。

ActiveSheet.PageSetup.Draft = True


FilterMode 属性

参阅	实例

用于

Worksheet

描述

    如果工作表处于筛选方式，则为True。只读。

语法

object.FilterMode

元素

object

  必选项.工作表对象。

解释

    如果工作表包含筛选过的数据清单，数据清单中有隐藏行，则该属性为True。


参阅

AdvancedFilter方法

AutoFilter方法

AutoFilterMode属性

ShouAplData方法


FilterMode 属性实例

该实例显示消息框，该框显示FilterMode属性的当前状态。

If ActiveSheet.FilterMode Then

isItOn = "On"

Else

isItOn = "Off"

End If

MsgBox "Filter mode is " & isItOn


FontStyle 属性

参阅	实例

用于

Font

描述

以字符串形式。返回或设置字体式样。可读写。

语法

object.FontStyle

元素

object

  必选项。字体对象。

解释

    改变该属性将影响其余字体(Font) 属性(如粗体(Bold)、斜体(Italic))，与大部分的

属性不同，该属性一直存在于系统语言中，系统确定什么字体有效。

在Spanish Windows中，除了可用English宏的"粗体"外，必须用"Negrita"，用独立的字体(Font)  对象属性避开该限制。


参阅

Font对象

Background属性

Bold属性

Color属性

ColorIndex属性

Italic属性

Name属性

OutlineFont属性

Shadow属性

Size属性

Strikethrough属性

Subscript属性

Superscript属性

Underline属性


FontStyle 属性实例

该实例为单元格Al设置字体式样。

Cells(1, 1).Font.FontStyle = "Bold Italic"


FooterMargin 属性

参阅	实例

用于

PageSetup

描述

以点数(1/72英寸)返回或设置页底端至页脚距离。可读写。

语法

object.FooterMargin

元素

object

  必选项。页面设置对象。


参阅

BottomMargin属性

HeaderMargin属性

LeftMargin属性

RightMargin属性

TopMargin属性


FooterMargin 属性实例

该实例设置页脚边距为0.5英寸。

ActiveSheet.PageSetup.FooterMargin = Application.InchesToPoints(0.5)


HeaderMargin 属性

参阅	实例

用于

PageSetup

描述

以点数(1/72英寸)返回或设置页顶端至页眉的距离。可读写。

语法

object.HeaderMargin

元素

object

  必选项。页面设置对象。


参阅

BottomMargin属性

FooterMargin属性

LeftMargin属性

RightMargin属性

TopMargin属性


HeaderMargin 属性实例

该实例设置页眉边距为0.5英寸。

ActiveSheet.PageSetup.HeaderMargin = Application.InchesToPoints(0.5)


PrintNotes 属性

实例

用于

PageSetup

描述

    如果单元格附注随同表打印，则为True。可读写。

语法

object.PrintNotes

元素

object

  必选项。页面设置对象。

解释

  该属性仅用于工作表页面。


PrintNotes 属性实例

该实例关闭附注打印。

ActiveSheet.PageSetup.PrintNotes = False


PrintQuality 属性

实例

用于

PageSetup

描述

以二元素数组返回或设置打印品质，该数组包含水平和垂直品质。某些打印机 不支持垂直打印品质。可读写。

语法

object.PrintQuality

元素

object

  必选项。页面设置对象。

解释

    即使打印机不支持垂直打印品质，该属性仍返回二元素数组。


PrintQuality 属性实例

该实例在非正方象素打印机上设置打印品质。数组指定水平和垂直打印品质。

ActiveSheet.PageSetup.PrintQuality = Array(240, 140)

该实例显示当前水平打印品质的设置。

MsgBox "Horizontal Print Quality is " & _

ActiveSheet.PageSetup.PrintQuality(1)


ScrollColumn 属性

参阅	实例

用于

Pane， Window

描述

返回或设置列数，其显现在分割区域或窗口的左边。可读写

语法

object.ScrollColumn

元素

object

  必选项。分割区域或窗口对象

解释

    如果窗口是分割的，Window.ScrollColumn与左边顶端分割区域有关。

    如果分割区域冻结，Window.ScrollColumn不包括冻结区域。


参阅

ScrollRow属性


ScrollColumn 属性实例

该实例移动第三列至窗口左边。

ActiveWindow.ScrollColumn = 3


ScrollRow 属性

参阅	实例

用于

Pane， Window

描述

    返回或设置行数，其显现在分割区域或窗口的顶端。可读写。

语法

object.ScrollRow

元素

object

  必选项。窗口对象。

解释

    如果窗口是分割的，Window.ScrollRow与左边顶端分割区域有关。如果分割区域冻结，Window.ScrollRow不包括冻结区域。


参阅

ScrollColumn属性


ScrollRow 属性实例

该实例移动第10行至窗口顶部。

ActiveWindow.ScrollRow = 10


ScrollWorkbookTabs 方法

实例

用于

Window

描述

    滚动窗口底端的工作簿定位，不影响工作簿中的活动表。

语法

object.ScrollWorkbookTabs(sheets, position)

元素

  ScrollWorkbookTabs方法具有下列对象限制和命名参数：

object

  必选项。窗口对象

sheets

    可选项。滚动表数。正表示向前滚动，负表示向后滚动，零表示不滚动。

    如果不指定Position必须指定sheets。

position

可选项。xlFirst为滚动第一张表，xlLast为滚动最后一张表。如果不指定 sheets，必须指定Position。


ScrollWorkbookTabs 方法实例

该实例滚动工作簿标签至最后一张表。

ActiveWindow.ScrollWorkbookTabs position:=xlLast


Shadow 属性

实例

用于

AxisTitle， ChartArea， ChartObject， ChartObjects， ChartTitle， DataLabel， DataLabels， Drawing， DrawingObjects， Drawings， Font， GroupObject， GroupObjects， Legend， OLEObject， OLEObjects， Oval， Ovals， Picture， Pictures， Rectangle， Rectangles， TextBox， TextBoxes

描述

    如果字体是阴影字体或图形对象有阴影，则为True。可读写。

语法

object.Shadow

元素

object

  必选项。该属性施加的对象。

解释

    对于字体对象，该属性在Micrsoft Windows中不起作用，但其值

    保留，可设置和返回。


Shadow 属性实例

该实例为图表标题增加阴影。

Charts(1).ChartTitle.Shadow = True


Subscript 属性

参阅	实例

用于

Font

描述

    如果字体加了下标，则为True。可读写。

语法

object.Subscript

元素

object

  必选项。字体对象。

解释

    该属性缺省为False。


参阅

Characters 对象

Saperscript属性


Subscript 属性实例

该实例使文字框中第一字符为下标。

ActiveSheet.TextBoxes(1).Characters(1, 1).Font.Subscript = True


Superscript 属性

参阅	实例

用于

Font

描述

    如果字体加了上标，则为True。可读写。

语法

object.Superscript

元素

object

  必选项.字体对象。

解释

    该属性缺省为False。


参阅

Characters 对象

Subscript属性


Superscript 属性实例

该实例使文字框中最后一个字符为上标。

c = ActiveSheet.TextBoxes(1).Characters.Count

ActiveSheet.TextBoxes(1).Characters(c).Font.Superscript = True


TabRatio 属性

参阅	实例

用于

Window

描述

    返回或设置窗口工作簿标签宽度与窗口水平滚动条宽度比例。

    为0~1之间的数，缺省值为0.75。可读写。

语法

object.TabRatio

元素

object

  必选项。窗口对象。

解释

  当 DisplayWorkbookTabs 设置为False时，该属性不生效。其数值保留，但对显示无效。


参阅

DisplayHorizontalScrollbar属性

DisplayWorkbookTabs属性


TabRatio 属性实例

该实例使工作簿标签为水平滚动条宽度的一半。

ActiveWindow.TabRatio = 0.5


Application属性

参阅	实例

用于

       所有对象。

描述

       返回创建对象的 Application。只读。

语法

      object.Application

元素

      object

      必选项。该属性施加的对象。

解释

       如果对象是由Microsoft Excel产生的，则该属性值为"Microsoft Excel"。


参阅

Creator属性


Application属性实例

      该实例运行一个条件块，来判断一个对象是否由Microsoft Excel创建。

Set myObject = ActiveWorkbook

If myObject.Application.Value = "Microsoft Excel" Then

MsgBox "This is a Microsoft Excel object"

Else

MsgBox "This is not a Microsoft Excel object"

End If


Creator属性

参阅	实例

用于

       所有对象。

描述

返回创建对象的应用程序，返回值为32位整数。若一个对象由Microsoft Excel创建， 则该属性返回一个字符串XCEL。XCEL串是十六进制数5843454c 。只读。

语法

      object.Creator

元素

      object

      必选项。该属性施加的对象。

解释

Creator属性用于Apple Macintosh机的Microsoft Excel中，每一个应用程序都具有由四个字符组成的生成器码。例如，Microsoft EXcel的生成器码为XCEL。


参阅

Application属性


Creator属性实例

       该实例显示myObject的生成器消息。

Set myObject = ActiveWorkbook

If myObject.Creator = &h5843454c Then

MsgBox "This is a Microsoft Excel object"

Else

MsgBox "This is not a Microsoft Excel object"

End If


Parent属性

 	实例

用于

       所有对象。

描述

       返回指定对象的上属对象。只读。

语法

      object.Parent

元素

      object

      必选项。该属性施加的对象。


Parent属性实例

  该实例显示包含myAxis的图表名。

Set myAxis = Charts(1).Axes(xlValue)

MsgBox myAxis.Parent.Name


AddIn Object Methods
AddIn 对象方法

AddIn 对象        属性

该对象不具有方法。


AddIns Object Methods
AddIns 对象方法

AddIns 对象        属性

Add

Item


Application Object Methods
Application 对象方法

Application 对象        属性

ActivateMicrosoftApp

AddChartAutoFormat

AddCustomList

AddIns

Calculate

Cells

CentimetersToPoints

Charts

CheckSpelling

Columns

ConvertFormula

DDEExecute

DDEInitiate

DDEPoke

DDERequest

DDETerminate

DeleteChartAutoFormat

DeleteCustomList

Dialogs

DialogSheets

DoubleClick

Evaluate

Excel4IntlMacroSheets

Excel4MacroSheets

ExecuteExcel4Macro

FindFile

GetCustomListContents

GetCustomListNum

GetOpenFilename

GetSaveAsFilename

Goto

Help

InchesToPoints

InputBox

Intersect

MailLogoff

MailLogon

MenuBars

Modules

Names

NextLetter

OnKey

OnRepeat

OnTime

OnUndo

Quit

Range

RecordMacro

RegisterXLL

Repeat

ResetTipWizard

Rows

Run

Save

SendKeys

SetDefaultChart

Sheets

ShortcutMenus

Toolbars

Undo

Union

Volatile

Wait

Windows

Workbooks

Worksheets


Arc Object Methods
Arc 对象方法

Arc 对象        属性

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Arcs Object Methods
Arcs 对象方法

Arcs 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Areas Object Methods
Areas 对象方法

Areas 对象        属性

Item


Axes Object Methods
Axes 对象方法

Axes 对象        属性

Item


Axis Object Methods
Axis 对象方法

Axis 对象        属性

Delete

Select


AxisTitle Object Methods
AxisTitle 对象方法

AxisTitle 对象        属性

Characters

Delete

Select


Border Object Methods
Border 对象方法

Border 对象        属性

该对象不具有方法。


Borders Object Methods
Borders 对象方法

Borders 对象        属性

Item


Button Object Methods
Button 对象方法

Button 对象        属性

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Buttons Object Methods
Buttons 对象方法

Buttons 对象        属性

Add

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Characters Object Methods
Characters 对象方法

Characters 对象        属性

Delete

Insert


Chart Object Methods
Chart 对象方法

Chart 对象        属性

Activate

ApplyDataLabels

Arcs

AreaGroups

AutoFormat

Axes

BarGroups

Buttons

ChartGroups

ChartObjects

ChartWizard

CheckBoxes

CheckSpelling

ColumnGroups

Copy

CopyPicture

CreatePublisher

Delete

Deselect

DoughnutGroups

DrawingObjects

Drawings

DropDowns

Evaluate

GroupBoxes

GroupObjects

Labels

LineGroups

Lines

ListBoxes

Move

OLEObjects

OptionButtons

Ovals

Paste

Pictures

PieGroups

PrintOut

PrintPreview

Protect

RadarGroups

Rectangles

SaveAs

ScrollBars

Select

SeriesCollection

Spinners

TextBoxes

Unprotect

XYGroups


ChartArea Object Methods
ChartArea 对象方法

ChartArea 对象        属性

Clear

ClearContents

ClearFormats

Copy

Select


ChartGroup Object Methods
ChartGroup 对象方法

ChartGroup 对象        属性

SeriesCollection


ChartGroups Object Methods
ChartGroups 对象方法

ChartGroups 对象        属性

Item


ChartObject Object Methods
ChartObject 对象方法

ChartObject 对象        属性

Activate

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


ChartObjects Object Methods
ChartObjects 对象方法

ChartObjects 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Charts Object Methods
Charts 对象方法

Charts 对象        属性

Add

Copy

Delete

Item

Move

PrintOut

PrintPreview

Select


ChartTitle Object Methods
ChartTitle 对象方法

ChartTitle 对象        属性

Characters

Delete

Select


CheckBox Object Methods
CheckBox 对象方法

CheckBox 对象        属性

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


CheckBoxes Object Methods
CheckBoxes 对象方法

CheckBoxes 对象        属性

Add

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Corners Object Methods
Corners 对象方法

Corners 对象        属性

Select


DataLabel Object Methods
DataLabel 对象方法

DataLabel 对象        属性

Characters

Delete

Select


DataLabels Object Methods
DataLabels 对象方法

DataLabels 对象        属性

Delete

Item

Select


Dialog Object Methods
Dialog 对象方法

Dialog 对象        属性

Show


DialogFrame Object Methods
DialogFrame 对象方法

DialogFrame 对象        属性

Characters

CheckSpelling

CopyPicture

Select


Dialogs Object Methods
Dialogs 对象方法

Dialogs 对象        属性

Item


DialogSheet Object Methods
DialogSheet 对象方法

DialogSheet 对象        属性

Activate

Arcs

Buttons

ChartObjects

CheckBoxes

CheckSpelling

Copy

Delete

DrawingObjects

Drawings

DropDowns

EditBoxes

Evaluate

GroupBoxes

GroupObjects

Hide

Labels

Lines

ListBoxes

Move

OLEObjects

OptionButtons

Ovals

Paste

PasteSpecial

Pictures

PrintOut

PrintPreview

Protect

Rectangles

SaveAs

ScrollBars

Select

Show

Spinners

TextBoxes

Unprotect


DialogSheets Object Methods
DialogSheets 对象方法

DialogSheets 对象        属性

Add

Copy

Delete

Item

Move

PrintOut

PrintPreview

Select


DownBars Object Methods
DownBars 对象方法

DownBars 对象        属性

Delete

Select


Drawing Object Methods
Drawing 对象方法

Drawing 对象        属性

AddVertex

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Reshape

Select

SendToBack


DrawingObjects Object Methods
DrawingObjects 对象方法

DrawingObjects 对象        属性

AddItem

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

LinkCombo

RemoveAllItems

RemoveItem

Reshape

Select

SendToBack

Ungroup


Drawings Object Methods
Drawings 对象方法

Drawings 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Reshape

Select

SendToBack


DropDown Object Methods
DropDown 对象方法

DropDown 对象        属性

AddItem

BringToFront

Characters

Copy

CopyPicture

Cut

Delete

Duplicate

RemoveAllItems

RemoveItem

Select

SendToBack


DropDowns Object Methods
DropDowns 对象方法

DropDowns 对象        属性

Add

AddItem

BringToFront

Characters

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

RemoveAllItems

RemoveItem

Select

SendToBack


DropLines Object Methods
DropLines 对象方法

DropLines 对象        属性

Delete

Select


EditBox Object Methods
EditBox 对象方法

EditBox 对象        属性

BringToFront

Characters

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


EditBoxes Object Methods
EditBoxes 对象方法

EditBoxes 对象        属性

Add

BringToFront

Characters

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


ErrorBars Object Methods
ErrorBars 对象方法

ErrorBars 对象        属性

Delete

Select


Floor Object Methods
Floor 对象方法

Floor 对象        属性

ClearFormats

Select


Font Object Methods
Font 对象方法

Font 对象        属性

该对象不具有方法。


Gridlines Object Methods
Gridlines 对象方法

Gridlines 对象        属性

Delete

Select


GroupBox Object Methods
GroupBox 对象方法

GroupBox 对象        属性

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


GroupBoxes Object Methods
GroupBoxes 对象方法

GroupBoxes 对象        属性

Add

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


GroupObject Object Methods
GroupObject 对象方法

GroupObject 对象        属性

BringToFront

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack

Ungroup


GroupObjects Object Methods
GroupObjects 对象方法

GroupObjects 对象        属性

BringToFront

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack

Ungroup


HiLoLines Object Methods
HiLoLines 对象方法

HiLoLines 对象        属性

Delete

Select


Interior Object Methods
Interior 对象方法

Interior 对象        属性

该对象不具有方法。


Label Object Methods
Label 对象方法

Label 对象        属性

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Labels Object Methods
Labels 对象方法

Labels 对象        属性

Add

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Legend Object Methods
Legend 对象方法

Legend 对象        属性

Delete

LegendEntries

Select


LegendEntries Object Methods
LegendEntries 对象方法

LegendEntries 对象        属性

Item


LegendEntry Object Methods
LegendEntry 对象方法

LegendEntry 对象        属性

Delete

Select


LegendKey Object Methods
LegendKey 对象方法

LegendKey 对象        属性

ClearFormats

Delete

Select


Line Object Methods
Line 对象方法

Line 对象        属性

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Lines Object Methods
Lines 对象方法

Lines 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


ListBox Object Methods
ListBox 对象方法

ListBox 对象        属性

AddItem

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

RemoveAllItems

RemoveItem

Select

SendToBack


ListBoxes Object Methods
ListBoxes 对象方法

ListBoxes 对象        属性

Add

AddItem

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

RemoveAllItems

RemoveItem

Select

SendToBack


Mailer Object Methods
Mailer 对象方法

Mailer 对象        属性

该对象不具有方法。


Menu Object Methods
Menu 对象方法

Menu 对象        属性

Delete

MenuItems


MenuBar Object Methods
MenuBar 对象方法

MenuBar 对象        属性

Activate

Delete

Menus

Reset


MenuBars Object Methods
MenuBars 对象方法

MenuBars 对象        属性

Add

Item


MenuItem Object Methods
MenuItem 对象方法

MenuItem 对象        属性

Delete


MenuItems Object Methods
MenuItems 对象方法

MenuItems 对象        属性

Add

AddMenu

Item


Menus Object Methods
Menus 对象方法

Menus 对象        属性

Add

Item


Module Object Methods
Module 对象方法

Module 对象        属性

Activate

Copy

Delete

InsertFile

Move

PrintOut

Protect

SaveAs

Select

Unprotect


Modules Object Methods
Modules 对象方法

Modules 对象        属性

Add

Copy

Delete

Item

Move

PrintOut

Select


Name Object Methods
Name 对象方法

Name 对象        属性

Delete


Names Object Methods
Names 对象方法

Names 对象        属性

Add

Item


OLEObject Object Methods
OLEObject 对象方法

OLEObject 对象        属性

Activate

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack

Update

Verb


OLEObjects Object Methods
OLEObjects 对象方法

OLEObjects 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


OptionButton Object Methods
OptionButton 对象方法

OptionButton 对象        属性

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


OptionButtons Object Methods
OptionButtons 对象方法

OptionButtons 对象        属性

Add

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Outline Object Methods
Outline 对象方法

Outline 对象        属性

ShowLevels


Oval Object Methods
Oval 对象方法

Oval 对象        属性

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Ovals Object Methods
Ovals 对象方法

Ovals 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


PageSetup Object Methods
PageSetup 对象方法

PageSetup 对象        属性

该对象不具有方法。


Pane Object Methods
Pane 对象方法

Pane 对象        属性

Activate

LargeScroll

SmallScroll


Panes Object Methods
Panes 对象方法

Panes 对象        属性

Item


Picture Object Methods
Picture 对象方法

Picture 对象        属性

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Pictures Object Methods
Pictures 对象方法

Pictures 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Insert

Item

Paste

Select

SendToBack


PivotField Object Methods
PivotField 对象方法

PivotField 对象        属性

ChildItems

HiddenItems

ParentItems

PivotItems

VisibleItems


PivotFields Object Methods
PivotFields 对象方法

PivotFields 对象        属性

Item


PivotItem Object Methods
PivotItem 对象方法

PivotItem 对象        属性

ChildItems


PivotItems Object Methods
PivotItems 对象方法

PivotItems 对象        属性

Item


PivotTable Object Methods
PivotTable 对象方法

PivotTable 对象        属性

AddFields

ColumnFields

DataFields

HiddenFields

PageFields

PivotFields

RefreshTable

RowFields

ShowPages

VisibleFields


PivotTables Object Methods
PivotTables 对象方法

PivotTables 对象        属性

Item


PlotArea Object Methods
PlotArea 对象方法

PlotArea 对象        属性

ClearFormats

Select


Point Object Methods
Point 对象方法

Point 对象        属性

ApplyDataLabels

ClearFormats

Copy

Delete

Paste

Select


Points Object Methods
Points 对象方法

Points 对象        属性

Item


Range Object Methods
Range 对象方法

Range 对象        属性

Activate

Address

AddressLocal

AdvancedFilter

ApplyNames

ApplyOutlineStyles

Areas

AutoFill

AutoFilter

AutoFit

AutoFormat

AutoOutline

BorderAround

Borders

Calculate

Cells

Characters

CheckSpelling

Clear

ClearContents

ClearFormats

ClearNotes

ClearOutline

ColumnDifferences

Columns

Consolidate

Copy

CopyPicture

CreateNames

CreatePublisher

Cut

DataSeries

Delete

DialogBox

End

FillDown

FillLeft

FillRight

FillUp

Find

FindNext

FindPrevious

FunctionWizard

GoalSeek

Group

Insert

Item

Justify

ListNames

NavigateArrow

NoteText

Offset

Parse

PasteSpecial

PrintOut

PrintPreview

Range

RemoveSubtotal

Replace

Resize

RowDifferences

Rows

Run

Select

Show

ShowDependents

ShowErrors

ShowPrecedents

Sort

SortSpecial Method

SpecialCells

SubscribeTo

Subtotal

Table

TextToColumns

Ungroup


Rectangle Object Methods
Rectangle 对象方法

Rectangle 对象        属性

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Rectangles Object Methods
Rectangles 对象方法

Rectangles 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


RoutingSlip Object Methods
RoutingSlip 对象方法

RoutingSlip 对象        属性

Reset


Scenario Object Methods
Scenario 对象方法

Scenario 对象        属性

ChangeScenario

Delete

Show


Scenarios Object Methods
Scenarios 对象方法

Scenarios 对象        属性

Add

CreateSummary

Item

Merge


ScrollBar Object Methods
ScrollBar 对象方法

ScrollBar 对象        属性

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


ScrollBars Object Methods
ScrollBars 对象方法

ScrollBars 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Series Object Methods
Series 对象方法

Series 对象        属性

ApplyDataLabels

ClearFormats

Copy

DataLabels

Delete

ErrorBar

Paste

Points

Select

Trendlines


SeriesCollection Object Methods
SeriesCollection 对象方法

SeriesCollection 对象        属性

Add

Extend

Item

Paste


SeriesLines Object Methods
SeriesLines 对象方法

SeriesLines 对象        属性

Delete

Select


Sheets Object Methods
Sheets 对象方法

Sheets 对象        属性

Add

Copy

Delete

FillAcrossSheets

Item

Move

PrintOut

PrintPreview

Select


SoundNote Object Methods
SoundNote 对象方法

SoundNote 对象        属性

Delete

Import

Play

Record


Spinner Object Methods
Spinner 对象方法

Spinner 对象        属性

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


Spinners Object Methods
Spinners 对象方法

Spinners 对象        属性

Add

BringToFront

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


Style Object Methods
Style 对象方法

Style 对象        属性

Borders

Delete


Styles Object Methods
Styles 对象方法

Styles 对象        属性

Add

Item

Merge


TextBox Object Methods
TextBox 对象方法

TextBox 对象        属性

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Select

SendToBack


TextBoxes Object Methods
TextBoxes 对象方法

TextBoxes 对象        属性

Add

BringToFront

Characters

CheckSpelling

Copy

CopyPicture

Cut

Delete

Duplicate

Group

Item

Select

SendToBack


TickLabels Object Methods
TickLabels 对象方法

TickLabels 对象        属性

Delete

Select


Toolbar Object Methods
Toolbar 对象方法

Toolbar 对象        属性

Delete

Reset

ToolbarButtons


ToolbarButton Object Methods
ToolbarButton 对象方法

ToolbarButton 对象        属性

Copy

CopyFace

Delete

Edit

Move

PasteFace

Reset


ToolbarButtons Object Methods
ToolbarButtons 对象方法

ToolbarButtons 对象        属性

Add

Item


Toolbars Object Methods
Toolbars 对象方法

Toolbars 对象        属性

Add

Item


Trendline Object Methods
Trendline 对象方法

Trendline 对象        属性

ClearFormats

Delete

Select


Trendlines Object Methods
Trendlines 对象方法

Trendlines 对象        属性

Add

Item


UpBars Object Methods
UpBars 对象方法

UpBars 对象        属性

Delete

Select


Walls Object Methods
Walls 对象方法

Walls 对象        属性

ClearFormats

Select


Window Object Methods
Window 对象方法

Window 对象        属性

Activate

ActivateNext

ActivatePrevious

Close

LargeScroll

NewWindow

Panes

PrintOut

PrintPreview

ScrollWorkbookTabs

SelectedSheets

SetInfoDisplay

SmallScroll


Windows Object Methods
Windows 对象方法

Windows 对象        属性

Arrange

Item


Workbook Object Methods
Workbook 对象方法

Workbook 对象        属性

Activate

ChangeFileAccess

ChangeLink

Charts

Close

DeleteNumberFormat

DialogSheets

EditionOptions

Excel4IntlMacroSheets

Excel4MacroSheets

ForwardMailer

LinkInfo

LinkSources

Modules

Names

NewWindow

OpenLinks

PrintOut

PrintPreview

Protect

Reply

ReplyAll

Route

RunAutoMacros

Save

SaveAs

SaveCopyAs

SendMail

SendMailer

SetLinkOnData

Sheets

Styles

Unprotect

UpdateFromFile

UpdateLink

Windows

Worksheets


Workbooks Object Methods
Workbooks 对象方法

Workbooks 对象        属性

Add

Close

Item

Open

OpenText


Worksheet Object Methods
Worksheet 对象方法

Worksheet 对象        属性

Activate

Arcs

Buttons

Calculate

Cells

ChartObjects

CheckBoxes

CheckSpelling

ClearArrows

Columns

Copy

Delete

DrawingObjects

Drawings

DropDowns

Evaluate

GroupBoxes

GroupObjects

Labels

Lines

ListBoxes

Move

OLEObjects

OptionButtons

Ovals

Paste

PasteSpecial

Pictures

PivotTables

PivotTableWizard

PrintOut

PrintPreview

Protect

Range

Rectangles

Rows

SaveAs

Scenarios

ScrollBars

Select

ShowAllData

ShowDataForm

Spinners

TextBoxes

Unprotect


Worksheets Object Methods
Worksheets 对象方法

Worksheets 对象        属性

Add

Copy

Delete

FillAcrossSheets

Item

Move

PrintOut

PrintPreview

Select


AddIn 对象属性

AddIn 对象        方法

Application

Author

Comments

Creator

FullName

Installed

Keywords

Name

Parent

Path

Subject

Title


AddIns 对象属性

AddIns 对象        方法

Application

Count

Creator

Parent


Application 对象属性

Application 对象        方法

ActiveCell

ActiveChart

ActiveDialog

ActiveMenuBar

ActivePrinter

ActiveSheet

ActiveWindow

ActiveWorkbook

AlertBeforeOverwriting

AltStartupPath

Application

AskToUpdateLinks

CalculateBeforeSave

Calculation

Caller

CanPlaySounds

CanRecordSounds

Caption

CellDragAndDrop

ClipboardFormats

ColorButtons

CommandUnderlines

ConstrainNumeric

CopyObjectsWithCells

Creator

CustomListCount

CutCopyMode

DataEntryMode

DDEAppReturnCode

DefaultFilePath

DisplayAlerts

DisplayClipboardWindow

DisplayExcel4Menus

DisplayFormulaBar

DisplayFullScreen

DisplayInfoWindow

DisplayNoteIndicator

DisplayRecentFiles

DisplayScrollBars

DisplayStatusBar

EditDirectlyInCell

EnableCancelKey

EnableTipWizard

FileConverters

FixedDecimal

FixedDecimalPlaces

Height

IgnoreRemoteRequests

Interactive

International

Iteration

LargeButtons

Left

LibraryPath

MailSession

MailSystem

MathCoprocessorAvailable

MaxChange

MaxIterations

MemoryFree

MemoryTotal

MemoryUsed

MouseAvailable

MoveAfterReturn

Name

OnCalculate

OnData

OnDoubleClick

OnEntry

OnSheetActivate

OnSheetDeactivate

OnWindow

OperatingSystem

OrganizationName

Parent

Path

PathSeparator

PreviousSelections

PromptForSummaryInfo

RecordRelative

ReferenceStyle

RegisteredFunctions

ScreenUpdating

Selection

SheetsInNewWorkbook

ShowToolTips

StandardFont

StandardFontSize

StartupPath

StatusBar

ThisWorkbook

Top

TransitionMenuKey

TransitionMenuKeyAction

TransitionNavigKeys

UsableHeight

UsableWidth

UserName

Value

Version

Visible

Width

WindowsForPens

WindowState


Arc 对象属性

Arc 对象        方法

Application

Border

BottomRightCell

Creator

Enabled

Height

Index

Interior

Left

Locked

Name

OnAction

Parent

Placement

PrintObject

Top

TopLeftCell

Visible

Width

ZOrder


Arcs 对象属性

Arcs 对象        方法

Application

Border

Count

Creator

Enabled

Height

Interior

Left

Locked

OnAction

Parent

Placement

PrintObject

Top

Visible

Width

ZOrder


Areas 对象属性

Areas 对象        方法

Application

Count

Creator

Parent


Axes 对象属性

Axes 对象        方法

Application

Count

Creator

Parent


Axis 对象属性

Axis 对象        方法

Application

AxisBetweenCategories

AxisGroup

AxisTitle

Border

CategoryNames

Creator

Crosses

CrossesAt

HasMajorGridlines

HasMinorGridlines

HasTitle

MajorGridlines

MajorTickMark

MajorUnit

MajorUnitIsAuto

MaximumScale

MaximumScaleIsAuto

MinimumScale

MinimumScaleIsAuto

MinorGridlines

MinorTickMark

MinorUnit

MinorUnitIsAuto

Parent

ReversePlotOrder

ScaleType

TickLabelPosition

TickLabels

TickLabelSpacing

TickMarkSpacing

Type


AxisTitle 对象属性

AxisTitle 对象        方法

Application

Border

Caption

Creator

Font

HorizontalAlignment

Interior

Left

Name

Orientation

Parent

Shadow

Text

Top

VerticalAlignment


Border 对象属性

Border 对象        方法

Application

Color

ColorIndex

Creator

LineStyle

Parent

Weight


Borders 对象属性

Borders 对象        方法

Application

Color

ColorIndex

Creator

LineStyle

Parent

Value

Weight


Button 对象属性

Button 对象        方法

Accelerator

AddIndent

Application

AutoSize

BottomRightCell

CancelButton

Caption

Creator

DefaultButton

DismissButton

Enabled

Font

Formula

Height

HelpButton

HorizontalAlignment

Index

Left

Locked

LockedText

Name

OnAction

Orientation

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

TopLeftCell

VerticalAlignment

Visible

Width

ZOrder


Buttons 对象属性

Buttons 对象        方法

Accelerator

AddIndent

Application

AutoSize

CancelButton

Caption

Count

Creator

DefaultButton

DismissButton

Enabled

Font

Formula

Height

HelpButton

HorizontalAlignment

Left

Locked

LockedText

OnAction

Orientation

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

VerticalAlignment

Visible

Width

ZOrder


Characters 对象属性

Characters 对象        方法

Application

Caption

Count

Creator

Font

Parent

Text


Chart 对象属性

Chart 对象        方法

Application

Area3DGroup

AutoScaling

Bar3DGroup

ChartArea

ChartTitle

Column3DGroup

Corners

Creator

DepthPercent

DisplayBlanksAs

Elevation

Floor

GapDepth

HasAxis

HasLegend

HasTitle

HeightPercent

Index

Legend

Line3DGroup

Name

Next

OnDoubleClick

OnSheetActivate

OnSheetDeactivate

PageSetup

Parent

Perspective

Pie3DGroup

PlotArea

PlotVisibleOnly

Previous

ProtectContents

ProtectDrawingObjects

RightAngleAxes

Rotation

SizeWithWindow

SubType

SurfaceGroup

Type

Visible

Walls

WallsAndGridlines2D


ChartArea 对象属性

ChartArea 对象        方法

Application

Border

Creator

Font

Height

Interior

Left

Name

Parent

Shadow

Top

Width


ChartGroup 对象属性

ChartGroup 对象        方法

Application

AxisGroup

Creator

DoughnutHoleSize

DownBars

DropLines

FirstSliceAngle

GapWidth

HasDropLines

HasHiLoLines

HasRadarAxisLabels

HasSeriesLines

HasUpDownBars

HiLoLines

Overlap

Parent

RadarAxisLabels

SeriesLines

SubType

Type

UpBars

VaryByCategories


ChartGroups 对象属性

ChartGroups 对象        方法

Application

Count

Creator

Parent


ChartObject 对象属性

ChartObject 对象        方法

Application

Border

BottomRightCell

Chart

Creator

Enabled

Height

Index

Interior

Left

Locked

Name

OnAction

Parent

Placement

PrintObject

RoundedCorners

Shadow

Top

TopLeftCell

Visible

Width

ZOrder


ChartObjects 对象属性

ChartObjects 对象        方法

Application

Border

Count

Creator

Enabled

Height

Interior

Left

Locked

OnAction

Parent

Placement

PrintObject

RoundedCorners

Shadow

Top

Visible

Width

ZOrder


Charts 对象属性

Charts 对象        方法

Application

Count

Creator

Parent

Visible


ChartTitle 对象属性

ChartTitle 对象        方法

Application

Border

Caption

Creator

Font

HorizontalAlignment

Interior

Left

Name

Orientation

Parent

Shadow

Text

Top

VerticalAlignment


CheckBox 对象属性

CheckBox 对象        方法

Accelerator

Application

Border

BottomRightCell

Caption

Creator

Display3DShading

Enabled

Height

Index

Interior

Left

LinkedCell

Locked

LockedText

Name

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

TopLeftCell

Value

Visible

Width

ZOrder


CheckBoxes 对象属性

CheckBoxes 对象        方法

Accelerator

Application

Border

Caption

Count

Creator

Display3DShading

Enabled

Height

Interior

Left

LinkedCell

Locked

LockedText

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

Value

Visible

Width

ZOrder


Corners 对象属性

Corners 对象        方法

Application

Creator

Name

Parent


DataLabel 对象属性

DataLabel 对象        方法

Application

AutoText

Border

Caption

Creator

Font

HorizontalAlignment

Interior

Left

Name

NumberFormat

NumberFormatLinked

Orientation

Parent

Shadow

ShowLegendKey

Text

Top

Type

VerticalAlignment


DataLabels 对象属性

DataLabels 对象        方法

Application

AutoText

Border

Caption

Count

Creator

Font

HorizontalAlignment

Interior

Left

Name

NumberFormat

NumberFormatLinked

Orientation

Parent

Shadow

ShowLegendKey

Text

Top

Type

VerticalAlignment


Dialog 对象属性

Dialog 对象        方法

Application

Creator

Parent


DialogFrame 对象属性

DialogFrame 对象        方法

Application

Caption

Creator

Height

Left

Locked

LockedText

Name

OnAction

Parent

Text

Top

Width


Dialogs 对象属性

Dialogs 对象        方法

Application

Count

Creator

Parent


DialogSheet 对象属性

DialogSheet 对象        方法

Application

Creator

DefaultButton

DialogFrame

DisplayAutomaticPageBreaks

Focus

Index

Name

Next

OnDoubleClick

OnSheetActivate

OnSheetDeactivate

PageSetup

Parent

Previous

ProtectContents

ProtectDrawingObjects

Visible


DialogSheets 对象属性

DialogSheets 对象        方法

Application

Count

Creator

Parent

Visible


DownBars 对象属性

DownBars 对象        方法

Application

Border

Creator

Interior

Name

Parent


Drawing 对象属性

Drawing 对象        方法

Application

Border

BottomRightCell

Creator

Enabled

Height

Index

Interior

Left

Locked

Name

OnAction

Parent

Placement

PrintObject

Shadow

Top

TopLeftCell

Vertices

Visible

Width

ZOrder


DrawingObjects 对象属性

DrawingObjects 对象        方法

Accelerator

AddIndent

Application

ArrowHeadLength

ArrowHeadStyle

ArrowHeadWidth

AutoSize

Border

CancelButton

Caption

Count

Creator

DefaultButton

DismissButton

Display3DShading

DisplayVerticalScrollBar

DropDownLines

Enabled

Font

Height

HelpButton

HorizontalAlignment

InputType

Interior

LargeChange

Left

LinkedCell

List

ListFillRange

ListIndex

Locked

LockedText

Max

Min

MultiLine

MultiSelect

OnAction

Orientation

Parent

PhoneticAccelerator

Placement

PrintObject

RoundedCorners

Shadow

Shadow

SmallChange

Text

Top

Value

VerticalAlignment

Vertices

Visible

Width

ZOrder


Drawings 对象属性

Drawings 对象        方法

Application

Border

Count

Creator

Enabled

Height

Interior

Left

Locked

OnAction

Parent

Placement

PrintObject

Shadow

Top

Visible

Width

ZOrder


DropDown 对象属性

DropDown 对象        方法

Application

BottomRightCell

Caption

Creator

Display3DShading

DropDownLines

Enabled

Height

Index

Left

LinkedCell

LinkedObject

List

ListCount

ListFillRange

ListIndex

Locked

Name

OnAction

Parent

Placement

PrintObject

Selected

Text

Top

TopLeftCell

Value

Visible

Width

ZOrder


DropDowns 对象属性

DropDowns 对象        方法

Application

Caption

Count

Creator

Display3DShading

DropDownLines

Enabled

Height

Left

LinkedCell

List

ListFillRange

ListIndex

Locked

OnAction

Parent

Placement

PrintObject

Selected

Text

Top

Value

Visible

Width

ZOrder


DropLines 对象属性

DropLines 对象        方法

Application

Border

Creator

Name

Parent


EditBox 对象属性

EditBox 对象        方法

Application

BottomRightCell

Caption

Creator

DisplayVerticalScrollBar

Enabled

Height

Index

InputType

Left

LinkedObject

Locked

MultiLine

Name

OnAction

Parent

Placement

PrintObject

Text

Top

TopLeftCell

Visible

Width

ZOrder


EditBoxes 对象属性

EditBoxes 对象        方法

Application

Caption

Count

Creator

DisplayVerticalScrollBar

Enabled

Height

InputType

Left

Locked

MultiLine

OnAction

Parent

Placement

PrintObject

Text

Top

Visible

Width

ZOrder


ErrorBars 对象属性

ErrorBars 对象        方法

Application

Border

Creator

EndStyle

Name

Parent


Floor 对象属性

Floor 对象        方法

Application

Border

Creator

Interior

Name

Parent


Font 对象属性

Font 对象        方法

Application

Background

Bold

Color

ColorIndex

Creator

FontStyle

Italic

Name

OutlineFont

Parent

Shadow

Size

Strikethrough

Subscript

Superscript

Underline


Gridlines 对象属性

Gridlines 对象        方法

Application

Border

Creator

Name

Parent


GroupBox 对象属性

GroupBox 对象        方法

Accelerator

Application

BottomRightCell

Caption

Creator

Display3DShading

Enabled

Height

Index

Left

Locked

LockedText

Name

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

TopLeftCell

Visible

Width

ZOrder


GroupBoxes 对象属性

GroupBoxes 对象        方法

Accelerator

Application

Caption

Count

Creator

Display3DShading

Enabled

Height

Left

Locked

LockedText

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

Visible

Width

ZOrder


GroupObject 对象属性

GroupObject 对象        方法

AddIndent

Application

ArrowHeadLength

ArrowHeadStyle

ArrowHeadWidth

AutoSize

Border

BottomRightCell

Creator

Enabled

Font

Height

HorizontalAlignment

Index

Interior

Left

Locked

Name

OnAction

Orientation

Parent

Placement

PrintObject

RoundedCorners

Shadow

Top

TopLeftCell

VerticalAlignment

Visible

Width

ZOrder


GroupObjects 对象属性

GroupObjects 对象        方法

AddIndent

Application

ArrowHeadLength

ArrowHeadStyle

ArrowHeadWidth

AutoSize

Border

Count

Creator

Enabled

Font

Height

HorizontalAlignment

Interior

Left

Locked

OnAction

Orientation

Parent

Placement

PrintObject

RoundedCorners

Shadow

Top

VerticalAlignment

Visible

Width

ZOrder


HiLoLines 对象属性

HiLoLines 对象        方法

Application

Border

Creator

Name

Parent


Interior 对象属性

Interior 对象        方法

Application

Color

ColorIndex

Creator

Parent

Pattern

PatternColor

PatternColorIndex


Label 对象属性

Label 对象        方法

Accelerator

Application

BottomRightCell

Caption

Creator

Enabled

Height

Index

Left

Locked

LockedText

Name

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

TopLeftCell

Visible

Width

ZOrder


Labels 对象属性

Labels 对象        方法

Accelerator

Application

Caption

Count

Creator

Enabled

Height

Left

Locked

LockedText

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

Visible

Width

ZOrder


Legend 对象属性

Legend 对象        方法

Application

Border

Creator

Font

Height

Interior

Left

Name

Parent

Position

Shadow

Top

Width


LegendEntries 对象属性

LegendEntries 对象        方法

Application

Count

Creator

Parent


LegendEntry 对象属性

LegendEntry 对象        方法

Application

Creator

Font

Index

LegendKey

Parent


LegendKey 对象属性

LegendKey 对象        方法

Application

Border

Creator

Interior

InvertIfNegative

MarkerBackgroundColor

MarkerBackgroundColorIndex

MarkerForegroundColor

MarkerForegroundColorIndex

MarkerStyle

Parent

Smooth


Line 对象属性

Line 对象        方法

Application

ArrowHeadLength

ArrowHeadStyle

ArrowHeadWidth

Border

BottomRightCell

Creator

Enabled

Height

Index

Left

Locked

Name

OnAction

Parent

Placement

PrintObject

Top

TopLeftCell

Visible

Width

ZOrder


Lines 对象属性

Lines 对象        方法

Application

ArrowHeadLength

ArrowHeadStyle

ArrowHeadWidth

Border

Count

Creator

Enabled

Height

Left

Locked

OnAction

Parent

Placement

PrintObject

Top

Visible

Width

ZOrder


ListBox 对象属性

ListBox 对象        方法

Application

BottomRightCell

Creator

Display3DShading

Enabled

Height

Index

Left

LinkedCell

LinkedObject

List

ListCount

ListFillRange

ListIndex

Locked

MultiSelect

Name

OnAction

Parent

Placement

PrintObject

Selected

Top

TopLeftCell

Value

Visible

Width

ZOrder


ListBoxes 对象属性

ListBoxes 对象        方法

Application

Count

Creator

Display3DShading

Enabled

Height

Left

LinkedCell

List

ListFillRange

ListIndex

Locked

MultiSelect

OnAction

Parent

Placement

PrintObject

Selected

Top

Value

Visible

Width

ZOrder


Mailer 对象属性

Mailer 对象        方法

Application

BCCRecipients

CCRecipients

Creator

Enclosures

Parent

Received

SendDateTime

Sender

Subject

ToRecipients


Menu 对象属性

Menu 对象        方法

Application

Caption

Creator

Enabled

Index

Parent


MenuBar 对象属性

MenuBar 对象        方法

Application

BuiltIn

Caption

Creator

Index

Parent


MenuBars 对象属性

MenuBars 对象        方法

Application

Count

Creator

Parent


MenuItem 对象属性

MenuItem 对象        方法

Application

Caption

Checked

Creator

Enabled

Index

Parent


MenuItems 对象属性

MenuItems 对象        方法

Application

Count

Creator

Parent


Menus 对象属性

Menus 对象        方法

Application

Count

Creator

Parent


Module 对象属性

Module 对象        方法

Application

Creator

Index

Name

Next

OnDoubleClick

OnSheetActivate

OnSheetDeactivate

PageSetup

Parent

Previous

ProtectContents

Visible


Modules 对象属性

Modules 对象        方法

Application

Count

Creator

Parent

Visible


Name 对象属性

Name 对象        方法

Application

Category

CategoryLocal

Creator

Index

MacroType

Name

NameLocal

Parent

RefersTo

RefersToLocal

RefersToR1C1

RefersToR1C1Local

ShortcutKey

Value

Visible


Names 对象属性

Names 对象        方法

Application

Count

Creator

Parent


OLEObject 对象属性

OLEObject 对象        方法

Application

AutoUpdate

Border

BottomRightCell

Creator

Enabled

Height

Index

Interior

Left

Locked

Name

Object

OLEType

OnAction

Parent

Placement

PrintObject

Shadow

Top

TopLeftCell

Visible

Width

ZOrder


OLEObjects 对象属性

OLEObjects 对象        方法

Application

Border

Count

Creator

Enabled

Height

Interior

Left

Locked

OnAction

Parent

Placement

PrintObject

Shadow

Top

Visible

Width

ZOrder


OptionButton 对象属性

OptionButton 对象        方法

Accelerator

Application

Border

BottomRightCell

Caption

Creator

Display3DShading

Enabled

Height

Index

Interior

Left

LinkedCell

Locked

LockedText

Name

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

TopLeftCell

Value

Visible

Width

ZOrder


OptionButtons 对象属性

OptionButtons 对象        方法

Accelerator

Application

Border

Caption

Count

Creator

Display3DShading

Enabled

Height

Interior

Left

LinkedCell

Locked

LockedText

OnAction

Parent

PhoneticAccelerator

Placement

PrintObject

Text

Top

Value

Visible

Width

ZOrder


Outline 对象属性

Outline 对象        方法

Application

AutomaticStyles

Creator

Parent

SummaryColumn

SummaryRow


Oval 对象属性

Oval 对象        方法

Application

Border

BottomRightCell

Creator

Enabled

Height

Index

Interior

Left

Locked

Name

OnAction

Parent

Placement

PrintObject

Shadow

Top

TopLeftCell

Visible

Width

ZOrder


Ovals 对象属性

Ovals 对象        方法

Application

Border

Count

Creator

Enabled

Height

Interior

Left

Locked

OnAction

Parent

Placement

PrintObject

Shadow

Top

Visible

Width

ZOrder


PageSetup 对象属性

PageSetup 对象        方法

Application

BlackAndWhite

BottomMargin

CenterFooter

CenterHeader

CenterHorizontally

CenterVertically

ChartSize

Creator

Draft

FirstPageNumber

FitToPagesTall

FitToPagesWide

FooterMargin

HeaderMargin

LeftFooter

LeftHeader

LeftMargin

Order

Orientation

PaperSize

Parent

PrintArea

PrintGridlines

PrintHeadings

PrintNotes

PrintQuality

PrintTitleColumns

PrintTitleRows

RightFooter

RightHeader

RightMargin

TopMargin

Zoom


Pane 对象属性

Pane 对象        方法

Application

Creator

Index

Parent

ScrollColumn

ScrollRow

VisibleRange


Panes 对象属性

Panes 对象        方法

Application

Count

Creator

Parent


Picture 对象属性

Picture 对象        方法

Application

Border

BottomRightCell

Creator

Enabled

Formula

Height

Index

Interior

Left

Locked

Name

OnAction

Parent

Placement

PrintObject

Shadow

Top

TopLeftCell

Visible

Width

ZOrder


Pictures 对象属性

Pictures 对象        方法

Application

Border

Count

Creator

Enabled

Formula

Height

Interior

Left

Locked

OnAction

Parent

Placement

PrintObject

Shadow

Top

Visible

Width

ZOrder


PivotField 对象属性

PivotField 对象        方法

Application

BaseField

BaseItem

Calculation

ChildField

Creator

CurrentPage

DataRange

DataType

Function

GroupLevel

LabelRange

Name

NumberFormat

Orientation

Parent

ParentField

Position

SourceName

Subtotals

TotalLevels

Value


PivotFields 对象属性

PivotFields 对象        方法

Application

Count

Creator

Parent


PivotItem 对象属性

PivotItem 对象        方法

Application

Creator

DataRange

LabelRange

Name

Parent

ParentItem

ParentShowDetail

Position

ShowDetail

SourceName

Value

Visible


PivotItems 对象属性

PivotItems 对象        方法

Application

Count

Creator

Parent


PivotTable 对象属性

PivotTable 对象        方法

Application

ColumnGrand

ColumnRange

Creator

DataBodyRange

DataLabelRange

HasAutoFormat

InnerDetail

Name

PageRange

Parent

RefreshDate

RefreshName

RowGrand

RowRange

SaveData

SourceData

TableRange1

TableRange2

Value


PivotTables 对象属性

PivotTables 对象        方法

Application

Count

Creator

Parent


PlotArea 对象属性

PlotArea 对象        方法

Application

Border

Creator

Font

Height

Interior

Left

Name

Parent

Top

Width


Point 对象属性

Point 对象        方法

Application

Border

Creator

DataLabel

Explosion

HasDataLabel

Interior

InvertIfNegative

MarkerBackgroundColor

MarkerBackgroundColorIndex

MarkerForegroundColor

MarkerForegroundColorIndex

MarkerStyle

Parent

PictureType

PictureUnit


Points 对象属性

Points 对象        方法

Application

Count

Creator

Parent


Range 对象属性

Range 对象        方法

AddIndent

Application

Column

ColumnWidth

Count

Creator

CurrentArray

CurrentRegion

Dependents

DirectDependents

DirectPrecedents

EntireColumn

EntireRow

Font

Formula

FormulaArray

FormulaHidden

FormulaLocal

FormulaR1C1

FormulaR1C1Local

HasArray

HasFormula

Height

Hidden

HorizontalAlignment

Interior

Left

LocationInTable

Locked

Name

Next

NumberFormat

NumberFormatLocal

Orientation

OutlineLevel

PageBreak

Parent

PivotField

PivotItem

PivotTable

Precedents

PrefixCharacter

Previous

Row

RowHeight

ShowDetail

SoundNote

Style

Summary

Text

Top

UseStandardHeight

UseStandardWidth

Value

VerticalAlignment

Width

Worksheet

WrapText


Rectangle 对象属性

Rectangle 对象        方法

Application

Border

BottomRightCell

Creator

Enabled

Height

Index

Interior

Left

Locked

Name

OnAction

Parent

Placement

PrintObject

RoundedCorners

Shadow

Top

TopLeftCell

Visible

Width

ZOrder


Rectangles 对象属性

Rectangles 对象        方法

Application

Border

Count

Creator

Enabled

Height

Interior

Left

Locked

OnAction

Parent

Placement

PrintObject

RoundedCorners

Shadow

Top

Visible

Width

ZOrder


RoutingSlip 对象属性

RoutingSlip 对象        方法

Application

Creator

Delivery

Message

Parent

Recipients

ReturnWhenDone

Status

Subject

TrackStatus


Scenario 对象属性

Scenario 对象        方法

Application

ChangingCells

Comment

Creator

Hidden

Index

Locked

Name

Parent

Values


Scenarios 对象属性

Scenarios 对象        方法

Application

Count

Creator

Parent


ScrollBar 对象属性

ScrollBar 对象        方法

Application

BottomRightCell

Creator

Display3DShading

Enabled

Height

Index

LargeChange

Left

LinkedCell

Locked

Max

Min

Name

OnAction

Parent

Placement

PrintObject

SmallChange

Top

TopLeftCell

Value

Visible

Width

ZOrder


ScrollBars 对象属性

ScrollBars 对象        方法

Application

Count

Creator

Display3DShading

Enabled

Height

LargeChange

Left

LinkedCell

Locked

Max

Min

OnAction

Parent

Placement

PrintObject

SmallChange

Top

Value

Visible

Width

ZOrder


Series 对象属性

Series 对象        方法

Application

AxisGroup

Border

Creator

ErrorBars

Explosion

Formula

FormulaLocal

FormulaR1C1

FormulaR1C1Local

HasDataLabels

HasErrorBars

Interior

InvertIfNegative

MarkerBackgroundColor

MarkerBackgroundColorIndex

MarkerForegroundColor

MarkerForegroundColorIndex

MarkerStyle

Name

Parent

PictureType

PictureUnit

PlotOrder

Smooth

Type

Values

XValues


SeriesCollection 对象属性

SeriesCollection 对象        方法

Application

Count

Creator

Parent


SeriesLines 对象属性

SeriesLines 对象        方法

Application

Border

Creator

Name

Parent


Sheets 对象属性

Sheets 对象        方法

Application

Count

Creator

Parent

Visible


SoundNote 对象属性

SoundNote 对象        方法

Application

Creator

Parent


Spinner 对象属性

Spinner 对象        方法

Application

BottomRightCell

Creator

Display3DShading

Enabled

Height

Index

Left

LinkedCell

Locked

Max

Min

Name

OnAction

Parent

Placement

PrintObject

SmallChange

Top

TopLeftCell

Value

Visible

Width

ZOrder


Spinners 对象属性

Spinners 对象        方法

Application

Count

Creator

Display3DShading

Enabled

Height

Left

LinkedCell

Locked

Max

Min

OnAction

Parent

Placement

PrintObject

SmallChange

Top

Value

Visible

Width

ZOrder


Style 对象属性

Style 对象        方法

AddIndent

Application

Creator

Font

FormulaHidden

HorizontalAlignment

IncludeAlignment

IncludeBorder

IncludeFont

IncludeNumber

IncludePatterns

IncludeProtection

Interior

Locked

Name

NameLocal

NumberFormat

NumberFormatLocal

Orientation

Parent

Value

VerticalAlignment

WrapText


Styles 对象属性

Styles 对象        方法

Application

Count

Creator

Parent


TextBox 对象属性

TextBox 对象        方法

AddIndent

Application

AutoSize

Border

BottomRightCell

Caption

Creator

Enabled

Font

Formula

Height

HorizontalAlignment

Index

Interior

Left

Locked

LockedText

Name

OnAction

Orientation

Parent

Placement

PrintObject

RoundedCorners

Shadow

Text

Top

TopLeftCell

VerticalAlignment

Visible

Width

ZOrder


TextBoxes 对象属性

TextBoxes 对象        方法

AddIndent

Application

AutoSize

Border

Caption

Count

Creator

Enabled

Font

Formula

Height

HorizontalAlignment

Interior

Left

Locked

LockedText

OnAction

Orientation

Parent

Placement

PrintObject

RoundedCorners

Shadow

Text

Top

VerticalAlignment

Visible

Width

ZOrder


TickLabels 对象属性

TickLabels 对象        方法

Application

Creator

Font

Name

NumberFormat

NumberFormatLinked

Orientation

Parent


Toolbar 对象属性

Toolbar 对象        方法

Application

BuiltIn

Creator

Height

Left

Name

Parent

Position

Top

Visible

Width


ToolbarButton 对象属性

ToolbarButton 对象        方法

Application

BuiltIn

BuiltInFace

Creator

Enabled

Id

IsGap

Name

OnAction

Parent

Pushed

Width


ToolbarButtons 对象属性

ToolbarButtons 对象        方法

Application

Count

Creator

Parent


Toolbars 对象属性

Toolbars 对象        方法

Application

Count

Creator

Parent


Trendline 对象属性

Trendline 对象        方法

Application

Backward

Border

Creator

DataLabel

DisplayEquation

DisplayRSquared

Forward

Index

Intercept

InterceptIsAuto

Name

NameIsAuto

Order

Parent

Period

Type


Trendlines 对象属性

Trendlines 对象        方法

Application

Count

Creator

Parent


UpBars 对象属性

UpBars 对象        方法

Application

Border

Creator

Interior

Name

Parent


Walls 对象属性

Walls 对象        方法

Application

Border

Creator

Interior

Name

Parent


Window 对象属性

Window 对象        方法

ActiveCell

ActiveChart

ActivePane

ActiveSheet

Application

Caption

Creator

DisplayFormulas

DisplayGridlines

DisplayHeadings

DisplayHorizontalScrollBar

DisplayOutline

DisplayRightToLeft

DisplayVerticalScrollBar

DisplayWorkbookTabs

DisplayZeros

FreezePanes

GridlineColor

GridlineColorIndex

Height

Index

Left

OnWindow

PageSetup

Parent

ScrollColumn

ScrollRow

Selection

Split

SplitColumn

SplitHorizontal

SplitRow

SplitVertical

TabRatio

Top

Type

UsableHeight

UsableWidth

Visible

VisibleRange

Width

WindowNumber

WindowState

Zoom


Windows 对象属性

Windows 对象        方法

Application

Count

Creator

Parent


Workbook 对象属性

Workbook 对象        方法

ActiveChart

ActiveSheet

Application

Author

Colors

Comments

CreateBackup

Creator

Date1904

DisplayDrawingObjects

FileFormat

FullName

HasMailer

HasPassword

HasRoutingSlip

Keywords

Mailer

Name

OnSheetActivate

OnSheetDeactivate

Parent

Path

PrecisionAsDisplayed

ProtectStructure

ProtectWindows

ReadOnly

ReadOnlyRecommended

Routed

RoutingSlip

Saved

SaveLinkValues

Subject

Title

UpdateRemoteReferences

WriteReserved

WriteReservedBy


Workbooks 对象属性

Workbooks 对象        方法

Application

Count

Creator

Parent


Worksheet 对象属性

Worksheet 对象        方法

Application

AutoFilterMode

CircularReference

ConsolidationFunction

ConsolidationOptions

ConsolidationSources

Creator

DisplayAutomaticPageBreaks

FilterMode

Index

Name

Next

OnCalculate

OnData

OnDoubleClick

OnEntry

OnSheetActivate

OnSheetDeactivate

Outline

PageSetup

Parent

Previous

ProtectContents

ProtectDrawingObjects

ProtectScenarios

StandardHeight

StandardWidth

TransitionExpEval

TransitionFormEntry

Type

UsedRange

Visible


Worksheets 对象属性

Worksheets 对象        方法

Application

Count

Creator

Parent

Visible


ArrowHeadLength属性

参阅	实例

用于

DrawingObjects, GroupObject, GroupObjects, Line, Lines

描述

返回或设置箭头长度（xlShort,xlMedium,或xlLong之一）可读写。

语法

object.ArrowHeadLength

元素

object

必选项。该属性施加的对象。


参阅

ArrowHeadStyle属性

ArrowHeadWidth属性


ArrowHeadLength属性实例

该实例在直线1上设置箭头长度、宽度和式样。

With Charts(1).Lines(1)

.ArrowHeadLength = xlShort

.ArrowHeadWidth = xlNarrow

.ArrowHeadStyle = xlOpen

End With


ArrowHeadStyle属性

参阅	实例

用于

DrawingObjects, GroupObject, GroupObjects, Line, Lines

描述

返回或设置箭头式样（xlNone、xlOpen、xlClosed、xlDoubleOpen或

xlDoubleClosed之一）。可读写。

语法

object.ArrowHeadStyle

元素

object

必选项。该属性施加的对象。


参阅

ArrowHeadLength属性

ArrowHeadWidth属性


ArrowHeadStyle属性实例

该实例在直线1上设置箭头长度、宽度和式样。

With Charts(1).Lines(1)

.ArrowHeadLength = xlShort

.ArrowHeadWidth = xlNarrow

.ArrowHeadStyle = xlOpen

End With


ArrowHeadWidth属性

参阅	实例

用于

DrawingObjects, GroupObject, GroupObjects, Line, Lines

描述

返回或设置箭头宽度（xlNarrow,xlMedium,xlWide之一）。可读写。

语法

object.ArrowHeadWidth

元素

object

必选项。该属性施加的对象。


参阅

ArrowHeadLength属性

ArrowHeadStyle属性


ArrowHeadWidth属性实例

该实例在直线 1上设置箭头长度、宽度和式样。

With Charts(1).Lines(1)

.ArrowHeadLength = xlShort

.ArrowHeadWidth = xlNarrow

.ArrowHeadStyle = xlOpen

End With


AutoSize属性

实例

用于

Button, Buttons, DrawingObjects, GroupObject, GroupObjects, TextBox, TextBoxes

描述

如果对象自动调整大小以适应它所包含的文字，则为True。可读写。

语法

object.AutoSize

元素

object

必选项。该属性施加的对象。

解释

如果手动调整对象大小（由用户或用Height或Width属性），则属性设为False。


AutoSize属性实例

该实例设置按钮 1为自动调整大小以适应其所含文字。

ActiveSheet.Buttons(1).AutoSize = True


AutoText属性

实例

用于

DataLabel, DataLabels

描述

如果对象自动产生适应基于内容的文字，则为True。可读写。

语法

object.AutoText

元素

object

必选项。数据标记或数据标记对象。


AutoText属性实例

该实例在系列1上设置数据标记以自动产生相适应的文字。

Charts(1).SeriesCollection(1).DataLabels.AutoText = True


Border属性

实例

用于

Arc, Arcs, Axis, AxisTitle, ChartArea, ChartObject, ChartObjects, ChartTitle, CheckBox, CheckBoxes, DataLabel, DataLabels, DownBars, Drawing, DrawingObjects, Drawings, DropLines, ErrorBars, Floor, Gridlines, GroupObject, GroupObjects, HiLoLines, Legend, LegendKey, Line, Lines, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, PlotArea, Point, Rectangle, Rectangles, Series, SeriesLines, TextBox, TextBoxes, Trendline, UpBars, Walls

描述

返回或设置对象Border。可读写。

语法

object.Border

元素

object

必选项。该属性施加的对象。


Border边界属性实例

该实例设置图表区边框线的颜色。

Charts(1).ChartArea.Border.Color = RGB(255, 0, 0)


BottomRightCell属性

参阅	实例

用于

Arc, Button, ChartObject, CheckBox, Drawing, DropDown, EditBox, GroupBox, GroupObject, Label, Line, ListBox, OLEObject, OptionButton, Oval, Picture, Rectangle, ScrollBar, Spinner, TextBox

描述

返回位于该对象右下角下边的单元格，对图形对象，这个属性仅当图形对象位于一 工作表时起作用，可读写。

语法

object.BottomRightCell

元素

object

必选项。该属性施加的对象。


参阅

TopLeftCell属性


BottomRightCell属性实例

该实例显示在直线1右下角的单元格的引用。

MsgBox "The bottom right corner is " & _

Worksheets(1).Lines(1).BottomRightCell.Address


BringToFront方法

参阅	实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes

描述

把对象放到Z次序前面。

语法

object.BringToFront

元素

object

必选项。该方法应用的对象。


参阅

SendToBack方法

Zorder属性


BringToFront方法实例

该实例把直线1放到Z次序前面。

ActiveSheet.DrawingObjects("Line 1").BringToFront


Characters方法

实例

用于

AxisTitle, Button, Buttons, ChartTitle, CheckBox, CheckBoxes, DataLabel, DialogFrame, DrawingObjects, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, Label, Labels, OptionButton, OptionButtons, Range, TextBox, TextBoxes

描述

在对象文字中返回一Characters区域，允许在一文字串中格式化字符。

语法

object.Characters(start, length)

元素

Characters方法有下列对象限制和命名参数：

object

必选项。该方法适用的对象。

start

可选项。返回首字符，如果这个参数为一个或省略的，此方法返回一个从首字符开始 的字符区域。

length

可选项。返回字符数。如果此参数省略，此方法返回在star字符后的字符串剩余部分。

解释

对于一对象区域，假如它和参数及不包含文字值的单元格一起用，此方法将失败。 可用没有参数的方法来获得全区域的一组字符，但不能对参数用这种方法。


Characters方法实例

该实例把活动单元格里的第三个字符变为一个下标。

ActiveCell.Characters(3, 1).Font.Subscript = True


Chart属性

实例

用于

ChartObject

描述

返回包含在对象中的Chart。只读。

语法

object.Chart

元素

object

必选项。该属性作用的对象。


Chart属性实例

该实例设置图表对象1中的图表使用自动缩放比例。

ActiveSheet.ChartObjects(1).Chart.AutoScaling = True


ClearFormats方法

参阅	实例

用于

ChartArea, Floor, LegendKey, PlotArea, Point, Range, Series, Trendline, Walls

描述

清除对象的格式。

语法

object.ClearFormats

元素

object

必选项。该方法作用的对象。


参阅

Clear方法

ClearContents方法


ClearFormats方法实例

该实例清除区域A1:G37所有的格式。

Range("A1", "G37").ClearFormats


Color属性

实例

用于

Border, Borders, Font, Interior

描述

返回或设置对象的主要颜色，如下表所示，此颜色为一长整数由 RGB函数产生，可读写。

对象	颜色
边框线	边框线的颜色。
边框线	一个区域所有四条边框线的颜色，如国它们不 相同，返回Null。
字体	字体的颜色。
内部	单元格阴影颜色或图形对象填充颜色。

语法

object.Color

元素

object

必选项。该属性施加的对象。

解释

如果颜色是自动的，Color属性作为一个RGB值（一长整数）返回自动颜色，用ColorIndex属性决定颜色是否自动。


Color属性实例

该实例在坐标轴上设置刻度线标记颜色。

Charts(1).Axes(xlValue).TickLabels.Font.Color = RGB(0, 255, 0)


Delete方法

实例

用于

Arc, Arcs, Axis, AxisTitle, Button, Buttons, Characters, Chart, ChartObject, ChartObjects, Charts, ChartTitle, CheckBox, CheckBoxes, DataLabel, DataLabels, DialogSheet, DialogSheets, DownBars, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, DropLines, EditBox, EditBoxes, ErrorBars, Gridlines, GroupBox, GroupBoxes, GroupObject, GroupObjects, HiLoLines, Label, Labels, Legend, LegendEntry, LegendKey, Line, Lines, ListBox, ListBoxes, Menu, MenuBar, MenuItem, Module, Modules, Name, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Point, Range, Rectangle, Rectangles, Scenario, ScrollBar, ScrollBars, Series, SeriesLines, Sheets, SoundNote, Spinner, Spinners, Style, TextBox, TextBoxes, TickLabels, Toolbar, ToolbarButton, Trendline, UpBars, Worksheet, Worksheets

描述

删除对象。语法2仅作用于区域对象。

语法1

object.Delete

语法2

object.Delete(shift)

元素

object

必选项。该方法作用的对象，语法2仅用于区域对象。

shift

可选项。指定如何移动被删除的单元（xlToleft,或xlUp）。如果此参数省略了，Microsoft Excel选定基于区域形状的默认值。

解释

试图删除一内部工具栏或菜单栏对象将会失败;但不会出错，允许用For Each循环删除所有自定义工具栏或菜单栏。删除一点或图例标示删除整个系列。


Delete方法实例

该实例在活动表上删除椭圆形1。

ActiveSheet.Ovals(1).Delete


index属性

实例

用于

Arc, Button, Chart, ChartObject, CheckBox, DialogSheet, Drawing, DropDown, EditBox, GroupBox, GroupObject, Label, LegendEntry, Line, ListBox, Menu, MenuBar, MenuItem, Module, Name, OLEObject, OptionButton, Oval, Pane, Picture, Rectangle, Scenario, ScrollBar, Spinner, TextBox, Trendline, Window, Worksheet

描述

在类似对象集中返回对象的索引号，只读。

有关使用Visual Basic中index工作表函数的帮助，请参见使用Visual Baxic中工作表函数主题。

语法

object.Index

元素

object

必选项。该属性施加的对象。


Index属性实例

该实例显示传递到此过程的一个对象索引号。

MsgBox "The index number of this object is " & obj.Index


LineStyle属性

实例

用于

Border, Borders

描述

返回或设置边框线的线条式样。可为下列之一xlcontious、xlDash、xlDot、xlDashDot、xlDashDotDot、xlGray50、xlGray75、xlGray25、xlDouble、xlNone或xlAutomatic， 可读写。

语法

object.LineStyle

元素

object

必选项，边框线或边框线对象


LineStyle属性实例

该实例在数值轴上设置主要网格线为50%灰度。

Charts(1).Axes(xlValue).MajorGridlines.Border.LineStyle = xlGray50


LockedText属性

参阅	实例

用于

Button, Buttons, CheckBox, CheckBoxes, DialogFrame, DrawingObjects, GroupBox, GroupBoxes, Label, Labels, OptionButton, OptionButtons, TextBox, TextBoxes

描述

文档被保护时如果此对象中的文字被锁定以禁止改变，则为True。

语法

object.LockedText

元素

object

必选项。该属性施加的对象。


参阅

Protect方法

ProtectContents属性


LockedText属性实例

该实例在铵钮1锁定文字。

ActiveSheet.Buttons(1).LockedText = True


NumberFormatLinked 属性

实例

用于

DataLabel, DataLabels, TickLabels

描述

如果数字格式与单元格关联时，为True（以便当它在单元格中改变时，数字格式在标记 中也改变）。可读写。

语法

object.NumberFormatLinked

元素

object

必选项。数据标记或刻度线标记对象。


NumberFormatLinked属性实例

该实例为数值轴链接刻度线标记数字格式到它的单元格。

Charts(1).Axes(xlValue).TickLabels.NumberFormatLinked = True


Placement属性

实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes

描述

返回或设置对象如何附加于其下的单元格。可为下列之一xlMoveAndsize,xlMoveor xlFreeFloating。仅能用于一工作表中的对象上。可读写。

语法

object.Placement

元素

object

必选项。该属性施加的对象。


Placement属性实例

该实例设置椭圆形1为一自由浮动对象。

ActiveSheet.Ovals(1).Placement = xlFreeFloating


PrintObject属性

参阅	实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes

描述

如果当文档被打印时对象也被打印，则为True。可读写。

语法

object.PrintObject

元素

object

必选项。该属性施加的对象。


参阅

Printout方法


PrintObject属性实例

该实例设置椭圆形1和工作表一块打印。

ActiveSheet.Ovals(1).PrintObject = True


Reshape方法

参阅	实例

用于

Drawing, DrawingObjects, Drawings

描述

通过插入、移动、或删除顶点来修整多边形图形。

语法

object.Reshape(vertex, insert, left, top)

元素

Reshape方法有下列对象限制和命名参数：

对象

object

必选项。该方法作用的对象。

vertex

必选项。指定想插入、移动或删除的顶点。

insert

必选项，如果为True，Microsoft Excel在顶点vertex和vetex-1之间插入一个顶点。新顶点数目于是成为vertex。先前由verlex标识的顶点数目成为vertex+1。以此类推，如果insert为False，Microsoft Excel删除顶点（如果top和left省略）或移动顶点到由top和left参数指定的位置。

left

可选项。新的或移动顶点的左边位置用与单元格A1或图表的左上角相关的点数表示（ 每点1/72英寸）。

top

可选项。新的或移动顶点的顶端位置，用与单元格A1或图表的左上角相关的点数来 表示。

解释

当仅剩两个顶点时，不可删除顶点。


参阅

AddVertex方法

Vertices属性


Reshape方法实例

该实例通过删除顶点5来修整多边形图形。

ActiveSheet.Drawings(1).Reshape 5, False


RoundedCorners属性

 实例

用于

ChartObject, ChartObjects, DrawingObjects, GroupObject, GroupObjects, Rectangle, Rectangles, TextBox, TextBoxes

描述

如果图形对象有圆角，则为True。可读写。

语法

object.RoundedCorners

元素

object

必选项。该属性施加的对象。


RoundedCorners属性实例

该实例对矩形1加圆角。

ActiveSheet.Rectangles(1).RoundedCorners = True


SendToBack方法

参阅	实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes

描述

发送对象到Z次序后面。

语法

object.SendToBack

元素

object

必选项。该方法施加的对象。


参阅

BringToFront方法

ZOrder属性


SendToBack方法实例

该实例发送直线1到Z次序后面。

ActiveSheet.DrawingObjects("Line 1").SendToBack


ShowLegendKey属性

实例

用于

DataLabel, DataLabels

描述

如果数据标记图例标示可见，则为True。可读写。

语法

object.ShowLegendKey

元素

object

必选项。数据标记或数据标记对象。


ShowLegendKey属性实例

该实例对系列1设置数据标记以显示值和图例标示。

With Charts(1).SeriesCollection(1).DataLabels

.ShowLegendKey = True

.Type = xlValue

End With


TopLeftCell属性

参阅	 实例

用于

Arc, Button, ChartObject, CheckBox, Drawing, DropDown, EditBox, GroupBox, GroupObject, Label, Line, ListBox, OLEObject, OptionButton, Oval, Picture, Rectangle, ScrollBar, Spinner, TextBox

描述

返回此对象左上角下面的单元格，对图形对象，此属性仅用于图形对象在工作表 中时，只读。

语法

object.TopLeftCell

元素

object

必选项。该属性施加的对象。


参阅

BottomRightCell属性


TopLeftCell属性实例

该实例显示直线1左上角下面的单元格引用。

MsgBox "The top left corner is " & _

Worksheets(1).Lines(1).TopLeftCell.Address


Vertices属性

参阅	实例

用于

Drawing, DrawingObjects

描述

用顶点坐标的二维数组来返回或设置多边形顶点或手画线图形，顶点坐标用相对于 单元格A1的左上角处的点数来表示(每点1/72英寸)。X坐标为数组中的第一列，Y坐标则为第 二列。每个图形和多边形至少有两个顶点。

语法

object.Vertices

元素

object

必选项。该属性施加的对象。


参阅

AddVertex方法

Reshape方法


Vertices 属性实例

该实例显示绘图形1的顶点坐标。

allVertices = ActiveSheet.Drawings(1).Vertices

Range("A1:C1").HorizontalAlignment = True

Range("A1:C1").Font.Bold = True

Cells(1, 1) = "Vertex"

Cells(1, 2) = "X"

Cells(1, 3) = "Y"

for i = 1 to UBound(allVertices, 1)

Cells(i + 1, 1) = i

Cells(i + 1, 2) = allVertices(i, 1)

Cells(i + 1, 3) = allVertices(i, 2)

Next i

该实例通过沿X方向移动顶点5十二个点（1/6英寸）来修整多边形图形。

With ActiveSheet.Drawings(1)

vX = .Vertices(5,1)

vY = .Vertices(5,2)

.Reshape 5, FALSE, vX + 12, vY

End With


Weight属性

实例

用于

Border, Borders

描述

返回或设置边框线粗细（xlHairline、xlThin、xlMedium或xlThick之一）。可读写。

语法

object.Weight

元素

object

必选项。边框线或边框线对象。


Weight属性实例

该实例设置椭圆形1的边框线粗细。

ActiveSheet.Ovals(1).Border.Weight = xlMedium


ZOrder属性

参阅	实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes

描述

返回对象的Z次序位置。只读。

语法

object.ZOrder

元素

object

必选项。该属性施加的对象。

解释

对任何对象集，在Z次序后面的对象为集（1），在Z次序前面的对象为集（集、计数），例如，有三个椭圆形在当前表中，在Z次序后面的椭圆形为ActiveSheet.Ovals(1)，在Z次 序前面的椭圆形为 ActiveSheet.Ovals(ActiveSheet.Ovals.Count).。


参阅

BringToFront方法

SendToBack方法


ZOrder 属性实例

该实例显示椭圆形1的Z次序位置。

MsgBox "The oval position is " & _

ActiveSheet.Ovals("Oval 1").ZOrder


AskToUpdateLinks属性

实例

用于

Application

描述

打开具有链接的文件时，如果Microsoft Excel请求用户更新链接，则为True；如果链接自动更新，则为False。可读写。

语法

object.AskToUpdateLinks

元素

object

  必选项。应用程序对象。


AskToUpdateLinks属性实例

打开具有链接的文件时，该实例使得Microsoft Excel请求用户更新链接.

Application.AskToUpdateLinks = True


AutoUpdate属性

实例

用于

OLEObject

描述

当源改变时，如果OLE对象自动更新，则为True。仅对链接对象有效(其OLEType属性应 为 xlOLELink)。只读。

语法

object.AutoUpdate

元素

object

  必选项。OLE对象。


AutoUpdate属性实例

该实例为活动工作表上所有OLE对象显示自动更新状态。

Worksheets(1).Activate

Cells(1， 1) = "Name"

Cells(1， 2) = "Link Status"

Cells(1， 3) = "AutoUpdate Status"

i = 2

For Each obj In ActiveSheet.OLEObjects

Cells(i， 1) = obj.Name

If obj.OLEType = xlOLELink Then

Cells(i， 2) = "Linked"

Cells(i， 3) = obj.AutoUpdate

Else

Cells(i， 2) = "Embedded"

End If

i = i + 1

Next


Backward属性

参阅	实例

用于

Trendline

描述

    返回或设置周期(或散点图单位)数，向后扩展趋势线。可读写。

语法

object.Backward

元素

object

  必选项。趋势线对象。


参阅

Add方法

Forward属性


Backward属性实例

该实例设置趋势线向前和向后扩展的单位数。

With ActiveChart.SeriesCollection(1).Trendlines(1)

.Forward = 5

.Backward = 5

End With


BlackAndWhite属性

实例

用于

PageSetup

描述

    如果文档元素按单色打印，则为True。可读写。

语法

object.BlackAndWhite

元素

object

  必选项。页面设置对象。

解释

    该属性仅用于工作表页面。


BlackAndWhite属性实例

该实例使得活动表按单色打印。

ActiveSheet.PageSetup.BlackAndWhite = True


Category属性

参阅	实例

用于

Name

描述

如果名字引用到自定义函数或命令，该属性以字符串形式为该名字设置或返回分类， 该字符串转换成宏语言。可读写。

语法

object.Category

元素

object

  必选项。名字对象。


参阅

MacroType属性


Category属性实例

该实例以宏语言显示名字分类。

With ActiveWorkbook.Names(1)

If .MacroType <> xlNone Then

MsgBox "The category for this name is " & .Category

Else

MsgBox "This name does not refer to" & _

" a custom function or command."

End If

End With


ChangeFileAccess方法

实例

用于

         Workbook

描述

    改变工作簿访问权，可能要求从磁盘装入更新的版本。

语法

object.ChangeFileAccess(mode， writePassword， notify)

元素

  ChangeFileAccess方法具有下列对象限制和命名参数：

object

  必选项.工作簿对象。

mode

  必选项。指定新的访问方式(为xlReadWrite或xlReadOnly之一)。

writePassword

  可选项。如果文件是写保护的且mode为xlReadWrite，指定写保护口令。如果文件没有口令或mode为xlReadOnly，则可忽略。

notify

  可选项，如果想获知文件是否可即时访问，则为True。如果省略，则假定为True。

解释

    如果文件用只读方式打开，则没有写的权限。如果将文件从只读改为可读写 ，Microsoft Excel需装入新的文件拷贝，保证以只读方式打开文件时 不发生变化。


ChangeFileAccess方法实例

该实例设置活动工作簿为只读方式。

ActiveWorkbook.ChangeFileAccess(xlReadOnly)


Chartgroups方法

实例

用于

Chart

描述

返回图表中单个图表组(ChartGroup对象，语法1)或图表组集(ChartGroups对 象， 语法2)。每个组类型包含在返回的集中。

语法1

object.ChartGroups(index)

语法2

object.ChartGroups

元素

  ChartGroups方法具有下列对象限制和命名参数：

object

 必选项。图表对象。

index

  必选项，对语法1。图表组编号。


ChartGroups方法实例

该实例使图表组1为面积图。

This example makes chart group one an area chart.

ActiveChart.ChartGroups(1).Type = xlArea


Checked属性

实例

用于

MenuItem

描述

     如果菜单项是选择的，则为True。可读写。

语法

object.Checked

元素

object

   必选项。菜单项对象


Checked属性实例

该实例在菜单1上选择菜单项4。

ActiveMenuBar.Menus(1).MenuItems(4).Checked = True


CopyobjectsWithCells属性

 实例

用于

Application

描述

如果图形对象与单元格一起剪切、复制、抽取、排序，则为True。可读写。

语法

object.CopyObjectsWithCells

元素

object

必选项。应用程序对象。


CopyObjectsWithCells属性实例

该实例使得Microsoft Excel图形对象和单元格一起进行剪切、复制、抽取及排序。

Application.CopyObjectsWithCells = True


Count属性

实例

用于

All collections

描述

返回集里的项编号。只读。

为进一步获取Visual Basic中的有关Count工作表函数的信息，参见Visual Basic中的工作表函数用法。

语法

object.Count

元素

object

      必选项。该属性施加的对象。


Count属性实例

该实例显示当前菜单栏上菜单编号。

MsgBox "The active menu bar contains " & _

ActiveMenuBar.Menus.Count & " menus."


CustomListCount属性

参阅	实例

用于

Application

描述

返回定义的自定义序列编号（包括内部序列）。只读。

语法

object.CustomListCount

元素

object

必选项。应用程序对象。


参阅

AddCustomList方法

DeleteCustomList方法

GetCustomListNum方法

GetCustomListContents方法


CustomListCount属性实例

该实例显示当前定义的自定义序列编号。

MsgBox "There are currently " & Application.CustomListCount & _

" defined custom lists."


DefaultFilePath属性

实例

用于

Application

描述

返回或设置默认路径，Microsoft Excel用它打开文件。可读写。

语法

object.DefaultFilePath

元素

object

必选项。应用程序对象。


DefaultFilePath属性实例

该实例显示当前默认的文件路径。

MsgBox "The current default file path is " & _

Application.DefaultFilePath


Dialogs方法

参阅	实例

用于

Application

描述

返回单个内部对话（Dialog对象，语法1）或内部对话集（Dialogs对象，语法2）。只读。

语法1

object.Dialogs（index）

语法2

object.Dialogs(index)

元素

Dialogs方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

index

必选项，对语法1。内部常量。详细信息，参见下面解释部分。

解释

采用Dialogs和Show方法，可显示近200个内部对话框。每个对话框都有一常量指定 给它，这些常量均以xlDialog开头，可用[对象浏览]命令去浏览对话框常量序列。从 [视窗] 菜单，选择[对象浏览]，选定MicrosoftExcel库，然后选定常量对象。 在[方法／属性]框中滚动清单，直到发现带xlDialog的常量。常量与对话框名字 相对应，例如：Find File对话框常量为：xlDialongFindFile如果用不正确的上 下文显示对话框，Dialogs方法将失败。例如用VisualBasic表达式Application.Dialogs （xlDialogDataLabel）.Show显示[设置数据标记格式]对话框时，当前表必须是图表， 否则该方法失败。


参阅

Show方法


Dialogs方法实例

该实例显示[文件]菜单上的[打开文件]命令对话框。

Application.Dialogs(xlDialogOpen).Show


DisplayBlanKsAs属性

 实例

用于

Chart

描述

返回或设置在图表上绘制空白单元格的方式（为xlNotPlotted,xlInterpolated,或xlZero之 一）。 可读写。

语法

object.DisplayBlanksAs

元素

object

必选项。图表对象。


DisplayBlanKsAs属性实例

该实例使Microsoft Excel不绘制空白单元格。

ActiveWorkbook.Charts(1).DisplayBlanksAs = xlNotPlotted


DisplayEquation属性

参阅	实例

用于

Trendline

描述

如果趋势线方程式在图表上显示（与R平方值在相同的数据标记上），则为True。设置该属性为True， 则自动打开数据标记。可读写。

语法

object.DisplayEquation

元素

object

必选项。趋势线对象。


参阅

Add方法

DisplayRSquared属性


DisplayEquation属性实例

该实例显示趋势线1的R平方值及方程式。

With ActiveWorkbook.Charts(1).SeriesCollection(1).Trendlines(1)

.DisplayRSquared = True

.DisplayEquation = True

End With


DisplayFullScreen属性

实例

用于

Application

描述

如果Microsoft Excel处于全屏幕方式，则为True。可读写。

语法

object.DisplayFullScreen

元素

object

必选项。应用程序对象。

解释

全屏幕方式是最大化应用程序窗口，以覆盖整个屏幕并隐藏应用程序标题栏（在Microsoft Windows中）。为全屏幕和普通方式设置的工具栏，状态栏及编辑栏仍然独立显示。


DisplayFullScreen属性实例

该实例使得Microsoft Excel以全屏幕方式显示。

Application.DisplayFullScreen = True


DisplayExcel4Menus属性

 实例

用于

Application

描述

如果Microsoft Excel显示Excel4菜单栏，则为True；如果Microsoft Excel显示Excel5菜单栏，则为False。可读写。

语法

object.DisplayExcel4Menus

元素

object

必选项。应用程序对象。


DisplayExcel4Menus属性实例

如果当前应用的是版本4的菜单，该实例切换到Microsoft Excel版本5的菜单。

If Application.DisplayExcel4Menus Then

Application.DisplayExcel4Menus = False

End If


DisplayRecentFiles属性

实例

用于

Application

描述

如果最近用过的文件序列显示在文件菜单中，则为True。可读写。

语法

object.DisplayRecentFiles

元素

object

必选项。应用程序对象。


DisplayRecentFiles属性实例

该实例关闭最近用过的文件序列。

Application.DisplayRecentFiles = False


DisplayRSquared属性

参阅	实例

用于

Trendline

描述

如果趋势线的R平方值在图表上显示（与方程式在相同的数据标记上）。设置该属性为True，用以自动打开数据标记。可读写。

语法

object.DisplayRSquared

元素

object

必选项。趋势线对象。


参阅

Add方法

DisplayEquation属性


DisplayRSquared属性实例

该实例显示趋势线1的R平方值和方程式。

With ActiveWorkbook.Charts(1).SeriesCollection(1).Trendlines(1)

.DisplayRSquared = True

.DisplayEquation = True

End With


Duplicate方法

实例

用于

Arc, Arcs, Button, Buttons, ChartObject, ChartObjects, CheckBox, CheckBoxes, Drawing, DrawingObjects, Drawings, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, Line, Lines, ListBox, ListBoxes, OLEObject, OLEObjects, OptionButton, OptionButtons, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes

描述

复制对象并返回新副本地址。

语法

object.Duplicate

元素

object

必选项。该方法施加的对象。


Duplicate方法实例

该实例复制椭圆形1，然后选定副本。

Set dOval = ActiveSheet.Ovals(1).Duplicate

dOval.Select


Edit方法

实例

用于

ToolbarButton

描述

为指定的工具栏按钮启动按钮编辑器。

语法

object.Edit

元素

object

必选项。工具栏按钮对象。


Edit方法实例

该实例为工具栏1上的按钮5启动按钮编辑器。

Application.Toolbars(1).ToolbarButtons(5).Edit


FindFile方法

         	 实例

用于

Application

描述

为[查找文件]命令显示对话框，该对话仅能显示（不能预先设置）。

语法

object.FindFile

元素

object

必选项。应用程序对象。


FindFile方法实例

该实例为[查找文件]命令显示对话框。

Application.FindFile


Forward属性

参阅	实例

用于

Trendline

描述

返回或设置周期数（或散点图上的单位数），该周期使趋势线向前扩展。可读写。

语法

object.Forward

元素

object

必选项。趋势线对象。


参阅

Add方法

ForwardMailer方法

Backward属性


Forward属性实例

该实例设置前后扩展的趋势线单位数。

With ActiveWorkbook.Charts(1).SeriesCollection(1).Trendlines(1)

.Forward = 5

.Backward = 5

End With


HasTitle属性

实例

用于

Axis, Chart

描述

如果坐标轴或图表有可见标题，则为True。可读写。

语法

object.HasTitle

元素

object

必选项。坐标轴或图表对象。

解释

坐标轴标题为AxisTitle对象。

图表标题为ChartTitle对象。


HasTitle属性实例

该实例以17点斜体的格式设置数据轴标题为"Population Growth"。

With ActiveWorkbook.Charts(1).Axes(xlValue)

.HasTitle = True

With .AxisTitle

.Caption = "Population Growth"

.Font.Italic = True

.Font.Size = 17

End With

End With


InsertFile方法

 实例

用于

Module

描述

以文件中增加文字至模块表后端。

语法

object.InsertFile(fileName, merge)

元素

InsertFile方法具有下列对象限制和命名参数：

object

必选项。模块表对象。

fileName

必选项。要插入的含有文字的文件名。

merge

可选项。如果新文件是归并的，则为True。以便使所有声明位于模块表顶端，所有 过程位于声明下面。如果为False或省略，新文件在插入点插入。

解释

不能在正运行的代码模块表中插入文字。该方法除用于运行过程以外还用于运行含有代码的模块表，该代码入栈等待直到当前过程返回。


InsertFile方法实例

该实例从文件中增加文字于模块1。

ActiveWorkbook.Modules(1).InsertFile fileName:="MYMACRO.TXT"


Intercept属性

参阅	实例

用于

Trendline

描述

返回或设置趋势线与数值轴的交叉点位置。可读写。

为进一步获取有关Visual Basic中Intercept工作表函数用法的信息，参见Visual Basic中的工作表函数使用。

语法

object.Intercept

元素

object

必选项。趋势线对象。

解释

设置该属性将使InterceptIsAuto属性设置为False。


参阅

InterceptlsAuto属性


Intercept属性实例

该实例使得趋势线1与数值轴相交于5。

ActiveWorkbook.Charts(1).SeriesCollection(1) _

.Trendlines(1).Intercept = 5


InterceptIsAuto属性

参阅	实例

用于

Trendline

描述

如果趋势线与数值轴的交点是由回归法自动确定的，则为True。可读写。

语法

object.InterceptIsAuto

元素

object

必选项。趋势线对象。

解释

设置Intercept属性将使本属性的设置为False。


参阅

Intercept属性


InterceptIsAuto属性实例

该实例使趋势线截距点自动确定。

ActiveWorkbook.Charts(1).SeriesCollection(1) _

.Trendlines(1).InterceptIsAuto = True


LargeButtons属性

参阅	 实例

用于

Application

描述

如果Microsoft Excel使用大工具栏按钮，则为True。如果Microsoft Excel使用一般工具栏按钮，则为False。可读写。

语法

object.LargeButtons

元素

object

必选项。应用程序对象。


参阅

ColorButtons属性


LargeButtons属性实例

该实例显示大工具栏按钮。

Application.LargeButtons = True


MacroType属性

参阅	实例

用于

Name

描述

返回或设置名字的引用内容，如下表所示。可读写。

值	含义

xlCommand	名字是用户定义的宏。

xlFunction	名字是用户定义的函数。

xlNone	名字既不是函数也不是宏。

语法

object.MacroType

元素

object

必选项。名字对象。


参阅

Category属性


MacroType属性实例

该实例用宏语言显示名字分类。

With ActiveWorkbook.Names(1)

If .MacroType <> xlNone Then

MsgBox "The category for this name is " & .Category

Else

MsgBox "This name does not refer to a custom function or command."

End If

End With


MenuItems 方法
Menultems方法

实例

用于

Menu

描述

在菜单上返回单一菜单项（MenuItem对象，语法1），或返回菜单项集 （MenuItems对象，语法2）。只读。

语法1

object.MenuItems(index)

语法2

object.MenuItems

元素

Menultems方法具有下列对象限制和命名参数：

object

必选项。菜单对象。

index

必选项，对语法1。菜单项名字或编号。


{ [image] Menultems方法实例

该实例给当前菜单栏上的帮助菜单增加菜单项。

With ActiveMenuBar.Menus("Help")

Set mi = .MenuItems.Add("&More Help", "my_Help_Macro")

End With


Menus方法

实例

用于

MenuBar

描述

在菜单栏上返回单一菜单（Menu对象，语法1），或返回菜单集 （Menus对象，语法2）。只读。

语法1

object.Menus(index)

语法2

object.Menus

元素

Menus方法具有下列对象限制和命名参数：

object

必选项。菜单栏对象。

index

必选项，对语法1。菜单名字或编号。为下列常量之一。

常量	描述

xlWorksheet	工作表、宏表及对话表

xlChart	图表

xlModule	Visual Basic模块表

xlNoDocuments	没有文档打开

xlInfo	信息窗口

xlWorksheetShort	短的工作表菜单（Microsoft Excel3兼容）

xlChartShort	短的图表菜单（Microsoft Excel3兼容）

xlWorksheet4	旧的工作表菜单栏（Microsoft Excel4兼容）

xlChart4	旧的图表菜单栏（Microsoft Excel4兼容）


Menus方法实例

该实例给当前菜单栏上的帮助菜单增加菜单项。

With ActiveMenuBar.Menus("Help")

Set mi = .MenuItems.Add("&More Help", "my_Help_Macro")

End With


NameIsAuto 属性
NamelsAuto属性

实例

用于

Trendline

描述

如果Microsoft Excel自动确定趋势线名字，则为True。可读写。

语法

object.NameIsAuto

元素

object

必选项。趋势线的对象。


NamelsAuto属性实例

该实例使得Microsoft自动确定趋势线1的名字。

ActiveWorkbook.Charts(1).SeriesCollection(1) _

.Trendlines(1).NameIsAuto = True


Object属性

实例

用于

OLE对象

描述

    返回与OLE对象相关联的OLE自动对象。只读。

语法

object.Object

元素

object

  必选项。OLE对象。


Object属性实例

该实例插入文字至内嵌的Microsoft Word文档中。

Set wordObj = ActiveSheet.OLEObjects(1)

wordObj.Activate

With wordObj.Object.Application.WordBasic

.Insert "Start here"

End With


OLEObjects 方法
OLEObject方法

参阅	实例

用于

Chart, DialogSheet, Worksheet

描述

在图表或表上返回单个OLE对象(OLEObject，语法1)或OLE对象集(OLEObjects集， 语法2)。只读。

语法 1

object.OLEObjects(index)

语法 2

object.OLEObjects

元素

OLEObjects方法具有下列对象限制和命名参数：

object

  必选项。图表，对话表或工作表对象。

index

  必选项，对语法1。OLE对象名字或编号。


参阅

Charts方法

OLEType属性


OLEObjects方法实例

该实例为当前表中的OLE对象创建链接类型清单。

i = 2

Cells(1, 1).Value = "Link Type"

For Each ob In ActiveSheet.OLEObjects

If ob.OLEType = xlOLELink Then

Cells(i, 1) = "Linked"

Else

Cells(i, 1) = "Embedded"

End If

i = i + 1

Next


OLEType属性

参阅	实例

用于

OLEObject

描述

如果对象是链接的(存在于文件外)，返回xlOlELink。如果对象是    内嵌的(完全包含在文件内)，返回xlOLEEmbed。只读。

语法

object.OLEType

元素

object

  必选项。OLE对象。


参阅

OLEObjects方法


OLEType属性实例

该实例为当前表中的OLE对象创建链接类型清单。

i = 2

Cells(1, 1).Value = "Link Type"

For Each ob In ActiveSheet.OLEObjects

If ob.OLEType = xlOLELink Then

Cells(i, 1) = "Linked"

Else

Cells(i, 1) = "Embedded"

End If

i = i + 1

Next


Pattern属性

参阅	实例

用于

Interior

描述

    返回或设置内部的图案。可读写。

语法

object.Pattern

元素

object

  必选项。内部对象。

解释

该属性可具有下列值之一。

xlAutomatic xlChecker xlCrissCross xlDown xlGray16 xlGray25 xlGray50 xlGray75 xlGray8 xlGrid	xlHorizontal xlLightDown xlLightHorizontal xlLightUp xlLightVertical xlNone xlSemiGray75 xlSolid xlUp xlVertical


参阅

PatternColor属性


 Pattern属性实例

该实例在椭圆形1内部增加十字图案。

ActiveSheet.Ovals(1).Interior.Pattern = xlCrissCross


Period属性

参阅	实例

用于

Trendline

描述

    返回或设置趋势线周期(仅用于移动平均趋势线;其Type属性应为

    xlMovingAvg)。可读写。

语法

object.Period

元素

object

  必选项。趋势线对象。


参阅

Type属性


Period属性实例

如果趋势线1的类型为xlMovingAvg，该实例设置其周期。

With ActiveWorkbook.Charts(1).SeriesCollection(1).Trendlines(1)

If .Type = xlMovingAvg Then .Period = 10

End With


PlotvisibleOnly属性

实例

用于

Chart

描述

如果仅绘制可见单元格，则为True。（如果可见和隐藏的单元格均绘制，则    为False。）可读写。

语法

object.PlotVisibleOnly

元素

object

  必选项。图表对象。


PlotVisibleOnly属性实例

该实例使得Microsoft Excel仅绘制图表1上的可见单元格。

ActiveWorkbook.Charts(1).PlotVisibleOnly = True


PrintArea属性

参阅	 实例

用于

PageSetup

描述

    以字符串形式设置或返回打印区域，该字符串为宏语言中的A1式样引用。可 读写。

语法

object.PrintArea

元素

object

  必选项。页面设置对象。

解释

打印区域为整个表时，该属性设置为False或空字符串("")。该属性仅用于工作表页面。


参阅

PrintOut方法


PrintArea属性实例

该实例设置打印区域为单元格区域A1：C5。

ActiveSheet.PageSetup.PrintArea = "A1：C5"

该实例设置打印区域为当前选定区域。

ActiveSheet.PageSetup.PrintArea = Selection.Address


PrintTitleColumns 属性
PrintTitleColumn属性

参阅	实例

用于

PageSetup

描述

用宏语言中带有A1式样注释的字符串，返回或设置含有在每 页左边重复的。单元格的列。可读写。

语法

object.PrintTitleColumns

元素

object

  必选项。页面设置对象。

解释

如果仅指定列或列集的一部分，MicrosoftExcel将其扩展至全部列。    设置该属性为False或为空字符串("")，以关闭标题列。    该属性仅用于工作表页面。


参阅

PrintTitleRows属性


PrintTitleColumns属性实例

该实例设置行3为打印标题行，列1至列3为标题列。

ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(3)

ActiveSheet.PageSetup.PrintTitleColumns = ActiveSheet.Columns("A：C")


PrintTitleRows属性

参阅	实例

用于

PageSetup

描述

用宏语言中有A1式样注释的字符串，返回或设置含有在每页顶端重复的单元 格的行。可读写。

语法

object.PrintTitleRows

元素

object

  必选项。页面设置对象。

解释

 如果仅指定行或行集的一部分，MicrosoftExcel将其扩展至全部行。    设置该属性为False或为空字符串("")，以关闭标题行。    该属性仅用于工作表页面。


参阅

PrintTitleColumns属性


PrintTitleRows属性实例

该实例设置行3为打印标题行，列1至列3为标题列.

ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(3)

ActiveSheet.PageSetup.PrintTitleColumns = ActiveSheet.Columns("A：C")


VisibleRange属性

实例

用于

Pane, Window

描述

返回窗口或分割区域中可见的单元格Range，如果行或列部分可见，则其包含 在区域内。只读。

语法

object.VisibleRange

元素

object

  必选项。分割区域或窗口对象。


VisibleRange属性实例

该实例设置分割区域 1中所有可见单元格字体为粗体。

ActiveWindow.Panes(1).VisibleRange.Font.Bold = True


RefersTo属性

参阅	实例

用于

Name

描述

返回或设置含有公式的字符串，在A1式样注释和宏语言编写器中，其名字定 义为以等号开头的引用。可读写。

语法

object.RefersTo

元素

object

  必选项。应用程序对象。


参阅

Formula属性

RefersToLocal属性

RefersToR1C1属性

RefersToR1C1Local属性


RefersTo属性实例

该实例创建当前工作薄中所有名字的清单，并用带有A1式样注释的宏语言显 示其公式。

i = 1

For Each nm In ActiveWorkbook.Names

Cells(i,1).Value = nm.Name

Cells(i,2).Value = nm.RefersTo

i = i + 1

Next


ShowDetail 属性

实例

用于

PivotItem, Range

描述

如果为指定的区域扩展分级显示(列或行详细可见)，则为True。指定区域 应是分级显示中单个摘要列或行。可读写。

 对于数据透视项对象(或是数据透视表中的区域对象)，如果数据透视 项正显示明细数据，则该属性为True。

语法

object.ShowDetail

元素

object

  必选项。数据透视项或区域对象。

解释

如果指定的区域不在数据透视表中，注意下列说明。区域应在单个摘要行(列)中如果子行(列)隐藏，该属性返回False。设置该属性为True，相等于取消隐藏摘要行(列)上 的所有子行(列)。设置该属性为False，相等于隐藏摘要行(列)上的所有子行(列)。 如果指定的区域在数据透视表中，且区域邻接，一次可多个单元格设置该属性 为。返回  该属性时，区域应为单个单元格。


ShowDetail 属性实例

该实例显示列1的明细数据。

Columns(1).ShowDetail = True


TransitionMenuKeyAction属性

参阅	实例

用于

Application

描述

    当替换菜单键按下时(xlExcelMenus或XILotusHelp)，返回或设置该操作。可读 写。

语法

object.TransitionMenuKeyAction

元素

object

  必选项。应用程序对象。


参阅

TransitionMenukey属性


TransitionMenuKeyAction属性实例

该实例设置替换菜单键，当其按下时，运行Lotus1-2-3帮助。

Application.TransitionMenuKeyAction = xlLotusHelp


Update方法

实例

用于

OLEObject

描述

    更新链接。

语法

object.Update

元素

object

  必选项。OLE对象。


Update方法实例

该实例更新当前表上每一个内嵌的MicrosoftWord对象。

For Each wordObj in ActiveSheet.OLEObjects

If wordObj.OLEClass Like "*Word*" Then

wordObj.Update

End If

Next


Verb方法

实例

用于

OLEObject

描述

发送动词给指定的OLE对象服务器

语法

object.Verb(verb)

元素

  Verb方法具有下列对象限制和命名参数：

object

  必选项。OLE对象。

verb

    可选项。OLE对象的服务器应作用于其上。如果该参数省略，则发送默认动词。有效的动词由对象的源应用程序确定。OLE 2 对象的典型动词是  Open和Primary(分别用常量xlOpen和Primary表示)。


Verb方法实例

该实例发送默认动词给服务器

ActiveSheet.OLEObjects(1).Verb


WallsAndGridlines2D属性

实例

用于

Chart

描述

    如果在三维图上以二维方式绘制网格线，则为True。可读写。

语法

object.WallsAndGridlines2D

元素

object

  必选项。图表对象。


WallsAndGridlines2D属性实例

该实例使得MicrosoftExcel在图表1上绘制二维网格线。

ActiveWorkbook.Charts(1).WallsAndGridlines2D = True


Add方法

描述

增加成员到下表所示的集中。选定一对象而获取该对象的Add方法的详细描述。

对象	描述
AddIns	增加新的加载宏文件到当前加载宏清单中。
Arcs, Buttons, ChartObjects, Drawings, Lines, Ovals, Pictures, Rectangles, TextBoxes	创建新图形对象。对象类型依赖于调用的Add 集。例如，Lines.Add创建新线条；Ovals.Add创建新椭圆。
CheckBoxes, DropDowns, EditBoxes, GroupBoxes, Labels, ListBoxes, OptionButtons, ScrollBars, Spinners	创建新控制项。对象的类型依赖于调用的Add集。 例如，DropDowns.Add创建新下拉菜单； EditBoxes.add创建新编辑框。
Charts	创建新图表。
DialogSheets	创建新对话表。
MenuBars	创建新菜单栏。
MenuItems	增加新菜单项到菜单上。该方法也可用于恢复以前删除的内部菜单项。
Menus	增加新菜单。(无法创建新的快显菜单；仅能修改内部快显菜单)。该方法也可用于恢复以前删除的内部菜单。
Modules	创建新模块表。
Names	创建新定义的名字。
OLEObjects	增加新OLE对象到当前显表。
Scenarios	创建新方案，并把它增加到当前工作表可用的 方案清单中。
SeriesCollection	增加一个或多个序列到序列集。
Sheets	创建新表（工作表、图表、模块表、对话表或 宏表）。
Styles	创建新式样并把它增加到当前工作簿可用的式 样清单中。
ToolbarButtons	增加新按钮到现有的工具栏。
Toolbars	创建新工具栏。
Trendlines	用指定的参数创建趋势线。
Workbooks	创建新工作簿。新工作簿变为当前工作簿。
Worksheets	创建新工作表。新工作表变为当前工作表。


Add方法（加载宏集）
Add方法(加载宏集)

     参阅	实例

     用于

AddIns

     描述

        增加新的加载宏文件到加载宏清单中。返回新AddIn对象。

     语法

        object.Add(fileName, copyFile)

    元素

　　Add方法具有下列对象限制和命名参数：

            object

            必选项。加载宏对象。

            fileName

            必选项。包含想要加到加载宏管理器中加载宏清单上的加载宏文件的名字。

        copyFile

            可选项。如果加载宏文件在硬盘上，则忽略。如果为True且加载宏在可移动介质上（软 盘或只读光盘），加载宏将被复制到硬盘上。如果为False，加载宏保留在可移动介质上。如果该参数被省略，Microsoft Excel显示一对话框并请求选择。

     解释

            该方法不安装新加载宏，用户必须设置Installed属性来安装加载宏。


参阅

            Add方法

          Installed属性


Add方法实例

该实例增加规划求解加载宏，然后通过设置其 Installed属性为True来安装它。

Set solverAddIn = AddIns.Add("C:\EXCEL\LIBRARY\SOLVER\SOLVER.XLA")

solverAddIn.Installed = True


Add方法（图表集）

参阅	实例

用于

      Charts

描述

创建新图表。返回Chart对象。

语法

object.Add(before, after, count)

元素

Add方法具有下列对象限制和命名参数：

objec

       必选项。图表对象。

before

     可选项。指定在哪个表之前增加新表。

 after

     可选项。指定在哪个表之后增加新表。

 count

      可选项。要增加的表数量，如果省略，默认值为1。

解释

        如果before和after 被省略，则新图表插在活动表之前。


参阅

Add方法


Add方法实例

该实例创建新图表并把它插在活动表之前。

ActiveWorkbook.Charts.Add


Add方法（对话表集）

参阅	实例

用于

        DialogSheets

描述

       创建新对话表。返回DialogSheet对象。

语法

object.Add(before, after, count)

元素

    Add方法具有下列对象限制和命名参数:

object

     必选项。对话表对象。

before

     可选项。指定在哪个表之前增加新表。

after

     可选项。指定在哪个表之后增加新表。

count

   可选项。要增加的表数量。如果省略，默认值为1。

解释

      如果before和after被省略，新表插在活动表之前。


参阅

Add方法


Add方法实例

该实例创建新对话表并把它插在活动表之前。

ActiveWorkbook.DialogSheets.Add


Add方法（菜单栏集）

参阅	实例

用于

MenuBars

描述

创建新菜单栏。返回MenuBar对象。

语法

object.Add(name)

元素

    Add方法具有下列对象限制和命名参数：

object

    必选项。菜单栏对象。

name

   可选项。新菜单栏的名字。

解释

菜单栏名字与其功能标题相同。


参阅

Add方法


Add方法实例

该实例创建新菜单栏。

Set newMenuBar = MenuBars.Add


Add方法（菜单项集）

参阅	实例

用于

MenuItems

描述

增加新菜单项到指定的菜单。也可用于恢复已被删除的Microsoft Excel的内部菜单项中的一项。返回MenuItem对象。

语法

object.Add(caption, onAction, shortcutKey, before, restore)

元素

Add方法具有下列对象限制和命名参数:

object

    必选项。菜单项对象。

caption

   必选项。菜单项文字（为新菜单项设置Caption属性初始值）。在命令底线前使用&符。 用单连字符（“－”）为功能标题创建分隔条。

onAction

      可选项。新对象的OnAction属性的初始值。

shortcutKey

      可选项。仅用于Apple Macintosh。为菜单项指定快捷键。

before

      可选项。指定在哪个菜单项之前增加新菜单项。既可用数字（例如，１插入在菜单顶部），也可用另一个已有的菜单项功能标题（在宏语言中，没有“&”符 ），或菜单项引用。

restore

    可选项。如果为True，Microsoft Excel将恢复以前删除掉的Caption命名的内部菜单项。如果为False或省略，Microsoft Excel将增加新菜单项。


参阅

Add方法

Checked属性

Enabled属性

OnAction属性


 Add方法实例

该实例增加新菜单项到每个菜单栏上帮助菜单的顶部。

For Each mb in MenuBars

mb.Menus("Help").MenuItems.Add _

caption:="Read Me First", _

onAction:="Read_Me_First", _

before:=1

Next


Add方法（菜单集）

参阅	实例

用于

Menus

描述

    增加新菜单。也可用于恢复已被删除的Microsoft Excel内部菜单。返回Menu对象。

语法

object.Add(caption, before, restore)

元素

     Add方法具有下列对象限制和命名参数：

object

    必选项。菜单对象。

caption

    必选项。菜单文字（为新菜单设置Caption属性初始值）。在命令底线前使用“&”符。

before

    可选项。指定在哪个菜单之前增加新菜单，既可用数字（例如，1插在菜单栏开始），也可用另一个已有的菜单功能标题（在宏语言中，没有“&”符），或菜单引用。 如果该参数省略，新菜单加在窗口菜单的左边。

restore

    可选项。如果为True，Microsoft Excel将恢复以前删除的Caption命名的内部菜单。如果为False或省略，Microsoft Excel将增加新菜单。

解释

在Apple macintosh上，如果没有足够的空间创建新菜单，则该方法返回一错误。用户必须经常 检查返回值确保新菜单成功地增加。

在Microsoft Windows中，如果需要，菜单栏将自动换行以适应新菜单。不能创建新的快显菜单 ，仅能修改内部快显菜单。


参阅

    Add方法


Add方法实例

该实例增加新菜单到工作表菜单栏。

MenuBars(xlWorksheet).Menus.Add caption:="More Help"


增加方法（模块表集）
Add方法（模块表集）

    参阅	实例

 用于

          Modules

  描述

        创建新的Visual Basic模块表。

  语法

object.Add(before, after, count)

元素

　   Add方法具有下列对象限制和命名参数：

objec

       必选项。模块表对象。

before

       可选项。指定在哪个表之前增加模块表。

after

      可选项。指定在哪个表之后增加模块表。

count

      可选项。要增加的表数量。如果省略，默认值为 1。

解释

    如果before和after被省略，模块表插在活动表之前。


参阅

    Add方法


Add方法实例

该实例在活动表之前插入新模块表。

ActiveWorkbook.Modules.Add


Add方法（名字集）

    参阅	实例

用于

Names

描述

      定义新名字。返回Name对象。

语法

object.Add(name, refersTo, visible, macroType, shortcutKey, category, nameLocal, refersToLocal, categoryLocal, refersToR1C1, refersToR1C1Local)

元素

      Add方法具有下列对象限制和命名参数：

object

     必选项。名字对象。

name

 必选项（除非nameLocal被指定）。文字用于名字（在宏语言中）， 名字不能包括空格，并且看起来不能象单元格地址。

refersTo

 必选项（除非另一refersTo参数被指定）。描述名字引用方式（在宏语言中，使用A1式样注释）。

visible

 可选项。如果为True或省略，Microsoft Excel正常的定义名字，如果为False， 名字被定义为隐藏的（不在［定义名字］ 、［粘贴名字］或［定位到］对话框中出现）。

macroType

    可选项。指定宏类型，如下表所示。

值	含义

1	用户定义的函数（函数过程）。

2	宏（也可认为是子过程）。

3或省略	无（即，名字不引用用户定义的函数或宏）。

shortcutKey

      可选项。指定宏快捷键。必须是单个字母，诸如“ｚ”或“Z”。仅适用于命 令宏。

category

如果macroType为１或２指定宏或函数的类别。类别在函数指南中使用。 现有的类别可通过数字（由１开始）或名字（在宏语言中）引用。如果指定的类 别不存在，Microsoft Excel创建新类别。

nameLocal

如果name没指定是必选项。文字用作名字（在用户语言中）。名字不能包含空格，且不能象单元格地址。

refersToLocal

 必选项（除非另一参数refersTo被指定）。描述名字引用方式（在用户语言中， 使用A1式样注释）。

categoryLocal

    如果category没指定是必选项。在用户语言中，文字标识自定义函数的类别。

refersToR1C1

 必选项（除非另一参数refersTo被指定）。描述名字引用方式（在用户语方中， 使用R1C1式样注释）。

refersToR1C1Local

 必选项（除非另一参数refersTo被指定）。描述名称引用什么（在用户语方中， 使用R1C1式样标记）。


参阅

Add方法


Add方法实例

   该实例为A1:D3定义新名字。

ActiveWorkbook.Names.Add _

name:="tempRange", _

refersToR1C1:="=Sheet1!R1C1:R3C4"


Add方法（方案集）

参阅	实例

用于

Scenarios

描述

创建新的方案并把它增加到对当前工作表有效的方案清单中。返回Scenario对象。

语法

object.Add(name, changingCells, values, comment, locked, hidden)

元素

     Add方法具有下列对象限制和命名参数：

object

      必选项。方案对象。

name

      必选项。指定新方案名字的字符串。

changingCells

      必选项。给出方案的改变单元格的区域。

values

可选项。包含changingCells中单元格的方案值的数组。如果省略，方案值被假定为changingCells的单元格中的当前值。

comment

可选项。指定方案注释文字的字符串。当增加新方案时，作者名和日期被自动增加在注释文字的开始。

locked

可选项。如果方案被锁定而禁示改变，则为True。如果该参数被省略，方案被锁定。

hidden

     可选项。如果方案被隐藏，则为True。如果该参数被省略，方案不隐藏。

解释

    方案名字必须唯一，如果试图用已在使用的名字创建方案，Microsoft Excel产生一错误。


参阅

Add方法


Add方法实例

   该实例定义一方案。

ActiveSheet.Scenarios.Add name:="Best Case", _

changingCells:=ActiveSheet.Range("A1:A4"), _

values:=Array(23, 5, 6, 21), comment:="Most favorable outcome."


Add方法（表集）

参阅	实例

用于

Sheets

描述

     创建新的工作表、图表、模块表、对话表或宏表。

语法

object.Add(before, after, count, type)

元素

    Add方法具有下列对象限制和命名参数：

object

       必选项。表对象。

before

      可选项。指定在哪个表之前增加新表。必须是一对象。

例如 ActiveWorkbook.Worksheets("Sheet1").

after

       可选项。指定在哪个表之后增加新表。必须是一对象。

例如ActiveWorkbook.ActiveSheet.

count

      可选项。要增加的表数量。如果省略，默认值为１。

type

可选项。要增加的表类型。必须是 xlWorksheet， xlChart， xlModule， xlDialogSheet， xlExcel4MacroSheet或xlExcel4IntlMacroSheet之一。 如果省略，默认为xlWorksheet。

解释

       如果before 和after 被省略，新表插在活动表之前。


参阅

Add方法


Add方法实例

  该实例在活动表前插入新工作表。

ActiveWorkbook.Sheets.Add before:=ActiveWorkbook.ActiveSheet

  该实例在第一模块表后增加两个新的对话表。

ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets("Module1"), _

type:=xlDialogSheet, count:=2


Add方法（式样集）

参阅	实例

用于

Styles

描述

     创建新式样并把它增加到对当前工作簿有效的式样清单中。返回Style对象。

语法

object.Add(name, basedOn)

元素

     Add方法具有下列对象限制和命名参数：

object

     必选项。式样对象。

name

     必选项。指定新式样名字的字符串。

basedOn

可选项。引用单元格，它将被用作为新式样的基础。如果指定，新创建的式样将 被给予基于该单元格的式样。如果省略，新创建的式样将基于一般式样。

解释

如果具有指定名字的式样已存在，该方法基于basedOn中指定的单元格重新 定义式样。下例基于活动单元格重新定义一般式样:

ActiveWorkbook.Styles.Add name:="Normal", _

basedOn:=ActiveCell


参阅

Add方法


Add方法实例

该实例基于活动单元格定义式样。

ActiveWorkbook.Styles.Add name:="myNewStyle", _

basedOn:=ActiveCell

该 实例定义仅具有字体属性的新式样。

With ActiveWorkbook.Styles.Add(name:="theNewStyle")

.IncludeNumber = False

.IncludeFont = True

.IncludeAlignment = False

.IncludeBorder = False

.IncludePatterns = False

.IncludeProtection = False

.Font.Name = "Arial"

.Font.Size = 18

End With


Add方法（工具栏按钮集）

参阅	实例

用于

ToolbarButtons

描述

     增加新按钮到已有的工具栏上。

语法

object.Add(button, before, onAction, pushed, enabled)

元素

    Add方法具有下列对象限制和命名参数：

object

     必选项。工具栏按钮对象。

button

 可选项。按钮ＩＤ号，为整数。如果该参数被省略，在工具栏中插入间隙。为获取可用于Visual Basic完整的按钮ID的清单，参见《Visual Basic用户手册》中附录D。

before

可选项。指定新按钮的位置。新按钮被插在具有该按钮ID号的按钮之前。 如果该参数被省略，按钮插在工具栏最后。

onAction

可选项。指定OnAction 属性的初始值，它是当按钮被单击时运行的宏名字。 如果省略为内部按钮，按钮将具有内部行为。如果省略为自定义按钮，当该钮第一次被单击时，指定宏对话框将显示。

pushed

    可选项。指定 Pushed 属性的初始值（如果按钮被按下，则为True）。

enabled

    可选项，指定Enabled 属性的初始值（如果按钮有效，则为True）。


参阅

Add方法

Pushed属性

Enabled属性

OnAction属性


Add方法实例

  该实例增加新按钮到工具栏1。

Toolbars(1).ToolbarButtons.Add(101)


Add方法（工具栏集）

参阅	实例

用于

Toolbars

描述

 创建新工具栏。返回Toolbar对象。

语法

object.Add(name)

元素

    Add方法具有下列对象限制和命名参数：

object

    必选项。工具栏对象。

name

可选项。为新工具栏指定名字的字符串。如果省略，Microsoft Excel使用默认的名字（诸如"Toolbar 1"）。


参阅

Add方法


Add方法实例

   该实例创建新工具栏。

Toolbars.Add name:="myNewToolbar"


Add方法（趋势线集）

参阅	实例

用于

Trendlines

描述

     创建新趋势线(Trendline)。

语法

object.Add(type, order, period, forward, backward, intercept, displayEquation, displayRSquared, name)

元素

    Add方法具有下列对象限制和命名参数：

object

    必选项。趋势线对象。

type

   可选项。指定趋势线类型（xlLinear， xlLogarithmic， xlExponential，

    xlPolynomial， xlMovingAvg，或xlPower之一）。如果省略，默认为xlLinear。

order

    必选项，如果类型为xlpolynomial.指定趋势线次序。必须是2到6的整数。

period

   必选项。如果类型为xlMovingAvg。指定趋势线周期。必须是大于1的整数而 小于给其增加趋势线的序列中的数据点数。

forward

   可选项。设置趋势线向前扩展的周期（或散点图上的单位）数。

backward

   可选项。设置趋势线向后扩展的周期（或散点图上的单位）数。

intercept

   可选项。设置趋势线截矩。如果省略，截矩通过回归自动设置。

displayEquation

    可选项。如果趋势线方程式在图表上显示，则为True（与R平方值数据标记相同）。

displayRSquared

可选项。如果趋势线R平方值在图表上显示，则示为True（与方程式数据标记相同）。

name

   可选项。用文字指定趋势线名字。如果该参数被省略，自动产生的名字被使用。


参阅

Add方法

Backward属性

DisplayEquation属性

DisplayRSquared属性

Forward属性

Intercept属性

Order属性

Period属性


Add 方法实例

   该方法创建一条新的线性趋势线。

Set newTrendline = _

ActiveWorkbook.Charts(1).SeriesCollection(1).Trendlines.Add


Add方法（工作簿集）

参阅	实例

用于

Workbooks

描述

创建新的Workbook。新工作簿变为当前工作簿。

语法

object.Add(template)

元素

    Add方法具有下列对象限制和命名参数:

object

    必选项。工作簿对象。

template

可选项。确定新工作簿如何创建。可以是字符串，为新工作簿指定模板（字 符串可包括文件路径），或为常量创建含有单个表的新工作簿（xlWorksheet，xlChart，xlExcel4Macrosheet，xlExcel4lntMacroSheet之一）。如果该参数被省 略，Microsoft Excel用一组空表创建新工作簿（表数由 SheetslnNewWorkbook属性设置）。


参阅

ActiveWorkbook属性

Add方法

SheetslnNewWorkbook属性


Add方法实例

该实例创建新的默认工作簿。

Workbooks.Add


Add方法（工作表集）

参阅	实例

用于

Worksheets

描述

    创建新Worksheet。新工作表变为活动表。

语法

object.Add(before, after, count, type)

元素

    Add方法具有下列对象限制和命名参数：

object

    必选项。工作表对象。

before

    可选项。指定在哪个表之前增加新表。

after

    可选项。指定在哪个表之后增加新表。

count

    可选项。要增加的表数量。如果省略则为1。

type

可选项。指定工作表类型（xlWorksheet，xlExcel4MacroSheet，或xlExcel4lntlMacroSheet之一）。

解释

如果省略，默认为xlWorksheet。如果before和after被省略 ，新表插在活动表之前。


参阅

Add方法


Add方法实例

该实例在活动表之前插入新工作表。

ActiveWorkbook.Worksheets.Add


Add方法（图形对象）

参阅	实例

用于

Buttons， ChartObjects， CheckBoxes， EditBoxes， GroupBoxes， Labels， ListBoxes， OptionButtons， Ovals， Pictures， Rectangles， ScrollBars， Spinners， TextBoxes

描述

用以点数（1/72英寸）指定的坐标创建新的图形对象。对象的类型依赖于调用的Add集。例如，Rectangles.Add创建新矩形；Ovals.Add创建新椭圆形。

语法

object.Add(left, top, width, height)

元素

    Add方法具有下列对象限制和命名参数：

object

    必选项。该方法施加的对象。

left,top

必选项。用点数（1/72英寸）指定新对象的初始坐标。相对于工作表上A1单元格的左上角或图表的左上角。

Width,height

    必选项。用点数指定新对象初始尺寸。


参阅

Add方法

Add方法（弧线和线条）

Add方法（图形集）

Add方法（下拉集）

Duplicate方法


Add方法实例

  该实例增加新的椭圆形。

ActiveSheet.Ovals.Add 0,0,72,72


Add方法（OLE对象集）

参阅	实例

用于

OLEObjects

描述

     增加新OLE对象到当前表。

语法

object.Add(classType, fileName, link, displayAsIcon, iconFileName, iconIndex, iconLabel)

元素

      Add方法具有下列对象限制和命名参数：

object

    必选项。OLE对象集。

classType

可选项（必须指定classType或fileName之一）包含被创建的对象的OLE长类名字的字符串。如果classType被指定，fileName和link被省略。

fileName

可选项（必须指定classType或fileName之一）。指定创建OLE对象文件的字符串。

link

可选项。如果基于fileName的新OLE对象链接到该文件上，则为True。如果非链接， 文件作为该文件的副本被创建。如果省略，则为False。

displayAslcon

可选项。如果新OLE对象被显示为图标或规则图片，则为True。如果为True，iconfileName和iconlndex被用于指定图标。

inconfileName

 可选项。指定含有要显示的图标的文件的字符串，仅用于displayAslcon    为True时。如果未指定或文件不含图标，OLE类的默认图标被使用。

iconlndex

可选项。在iconfileName中的图标号。仅当displayAslcon为True，且iconfileName引用含有图标的合法文件时被使用。如果给定索引的图标在iconfileName指 定的文件中不存在，文件中第一个图标被使用。

iconLabel

 可选项。指定显示在图标下的标记字符串，仅当displayAslcon 为True时使用。如果该参数被省略或字符串为空（" "），则无图标标题被显示。


参阅

Add方法


Add方法实例

该实例增加新OLE对象。

ActiveSheet.OLEObjects.Add fileName:="README.DOC"


Add方法（系列集）
Add方法（序列集）

参阅	实例

用于

SeriesCollection

描述

     增加一个或多个新序列到序列集。

语法

object.Add(source, rowcol, seriesLabels, categoryLabels, replace)

元素

     Add方法具有下列对象限制和命名参数:

object

    必选项。序列集对象。

source

    必选项。指定新数据，既可为数据点区域，也可为数据点数组。

rowcol

可选项。指定新值是否在指定区域的行（xlRows）或列（xlColumns）中，默认值为xlColumns。

seriesLabels

   可选项。如果source是数组，忽略。如果第一行或列含有数据序列名字， 则为True。如果第一行或列含有序列的第一个数据点，则为False。如果该参数被省略，Microsoft Excel试着用第一行或列的内容确定序列名位置。

categoryLabels

可选项。如果source是一数组，则忽略。如果第一行或列含有分类标记名字 ，则为True。如果第一行或列含有序列的第一数据点，则为False。如果该参数 被省略，Microsof Excel试着用第一行 或列的内容确定分类标记位置。

replace

   可选项。如果categoryLabels为True，且replace为True，则指定的分类替换系 列中当前已有的所有分类;如果该参数为False或省略，已有的分类将不被替换。


参阅

Extend方法


Add方法实例

该实例增加列1到图表1的序列集。

Charts(1).SeriesCollection.Add Columns(1), xlColumns


Item方法

用于

  所有集。

描述

返回集的一部分。对于一个集，Item方法的作用与存取器方法一样。例如下列代码：

ActiveWorkbook.Worksheets.Item(1)

等价于：

ActiveWorkbook.Worksheets(1)

Item方法一般不是必选的。通常可使用集存取器形式。但是，如果当把变量赋值给 一个集并传递给一个函数或子过程时，则必须使用Item方法返回集的一部分。如下 例所示。

Sub UseItem(wk as Worksheets)

wk.Item(1).PageSetup.BottomMargin = 120	'must use Item here

End Sub

为进一步获得有关存取集的一个元素的详细信息，可从下表中选定相应集。

AddIns Arcs AreaGroups Axes BarGroups Borders Buttons Cells Characters ChartGroups ChartObjects Charts CheckBoxes ChildItems ColumnFields ColumnGroups Columns DataFields DialogSheets Dialogs DoughnutGroups DrawingObjects Drawings DropDowns EditBoxes	Excel4IntlMacroSheets Excel4MacroSheets GroupBoxes GroupObjects HiddenFields HiddenItems Labels LegendEntries LineGroups Lines ListBoxes MenuBars MenuItems Menus Modules Names OLEObjects OptionButtons Ovals PageFields Panes ParentItems Pictures PieGroups PivotFields	PivotItems PivotTables Points RadarGroups Range Rectangles RowFields Rows Scenarios ScrollBars SeriesCollection Sheets ShortcutMenus Spinners Styles TextBoxes ToolbarButtons Toolbars Trendlines VisibleFields VisibleItems Windows Workbooks Worksheets XYGroups


AddMenu 方法

实例

用于

MenuItems

描述

在菜单中增加一个新的子菜单。通过设置restore参数为True， 该方法也可用于恢复以前删除的内部子菜单。

语法

object.AddMenu(caption, before, restore)

元素

Add Menu 方法具有下列对象限制和命名参数：

object

必选项。菜单项对象。

caption

必选项。该功能标题用于新的子菜单。在存取键字母前增加&符号， 以创建新的存取键。

before

可选项。如果该参数是现存的，指定菜单项，在其之前插入子菜单。可以是包含菜单项 功能标题的字符串（不含&符号），编号指示菜单项位置或菜单项引用。

restore

可选项。如果该参数为True，Microsoft Excel恢复以前删除的由caption参数命名的内部子菜单。如果为False或省略，Microsoft Excel增加新的子菜单。


AddMenu 方法实例

该实例在[帮助]菜单中增加新的子菜单。

Application.MenuBars(1).Menus("Help").MenuItems.AddMenu("More")


AdvancedFilter 方法

参阅	实例

用于

Range

描述

基于条件范围筛选或复制数据清单。如果初始选定区域是单个单元格， 则应用其当前区域。

语法

object.AdvancedFilter(action, criteriaRange, copyToRange, unique)

元素

AdvancedFilter方法具有下列对象限制和命名参数：

object

必选项。区域对象。

action

必选项。指定的运算（xlfilterInplace或xlFilterCopy）。

criteriaRange

可选项。条件范围。如果忽略，则没有条件。

copyToRange

必选项，当Action是xlfiltercopy时。其余省略。复制行的目的区域。

unique

可选项。True表示唯一记录，False表示满足条件的全部记录。如果省略， 假定为False。


参阅

AutoFilter 方法

FilterMode 属性

ShowAllData 方法


AdvancedFilter 方法实例

该实例筛选数据库（其名为Datebase），该数据库以名为criteria条件范围为基础。

Range("Database").AdvancedFilter _

action:=xlFilterInPlace, _

criteriaRange:=Range("Criteria")


Caller 属性

用于

Application

描述

返回有关调用visual basic的信息（详情参阅解释部分）。只读。

语法

object.Caller

元素

object

必选项。应用程序对象。

解释

该属性返回有关调用VisualBasic的信息，如下表所示。

调用者	返回
在单个单元格中输入的自定义函数	Range 指定该单元格。
自定义函数，其为单元格区域中数组公式一部分	Range 指定单元格区域。
An Auto_Open, Auto_Close, Auto_Activate, or Auto_Deactivate macro	文字形式的文档名字
菜单上的命令	三维数组指定命令的位置编号，菜单编号及菜单条编号。
用户在图形对象上单击	以字符串指定对象。
工具栏上工具	二维数组指定工具位置编号及文本形式的工具栏名字。
由OnDoubleClick 或 OnEntry 属性设置的宏.	图表对象标识符名字或单元格引用名字。如果适用则施加于其上。
从工具宏对话框或为了上述未说明的原因，手动运行	#REF! 错误值。
该属性返回有关调用Visual Basic的信息，与当前调用过程无关。例如， 如果用户按下按钮4调用宏1，宏1调用宏2，宏2使用Caller属性，该属性返回"Button4"。 如果需要编写宏， 是由按钮调用还是由菜单项调用其行为不同。  必须在[给对象指定宏]的对话框内，为宏指定参数。


CheckSpelling 方法

实例

用于

Application, Button, Buttons, Chart, CheckBox, CheckBoxes, DialogFrame, DialogSheet, DrawingObjects, GroupBox, GroupBoxes, GroupObject, GroupObjects, Label, Labels, OptionButton, OptionButtons, Range, TextBox, TextBoxes, Worksheet

描述

语法1：检查对象的拼写。该形式没有返回值；Microsoft Excel显示拼写对话框。

语法2：检查单个字的拼写。如果该字在某字典内发现， 返回True； 没有发现， 返回False。

语法1

object.CheckSpelling(customDictionary, ignoreUppercase, alwaysSuggest)

语法2

object.CheckSpelling(word, customDictionary, ignoreUppercase)

元素

Checkspelling方法具有下列对象限制和命名参数：

object

必选项。该方法施加于对象上。用应用程序对象检查单个字（语法2）。

customDictionary

可选项。指明自定义字典的文件名字符串，检查主字典中是否有该字。如果省略， 则使用当前指定的字典。

ignoreUppercase

可选项。如果为True， Microsoft  Excel 忽略大写的字。 如果为False， Microsoft Excel将检查大写的字。如果省略，则使用当前设置。

alwaysSuggest

可选项。如果为True， Microsoft Excel当发现不正确的拼写时， 显示建议可选拼写清单。如果为False，Microsoft Excel等待用户输入正确的拼写。如果省略，则使用当前设置。

word

必选项（仅与应用程序对象一起使用）。需要检查的字。

解释

用Worksheef.CheekSpelling检查页眉，页脚和对象。

用Worksheef.Cells。CheckSpelling仅检查单元格和附注。


CheckSpelling 方法实例

该实例检查当前表的拼写。

ActiveSheet.CheckSpelling


Colors 属性

参阅	实例

用于

Workbook

描述

在调色板中为工作簿返回或设置颜色数组（1到56）。可读写。

语法

object.Colors

元素

object

必选项。工作簿对象。


参阅

ColorIndex 属性


Colors 属性实例

该实例为当前工作簿设置调色板，使其与BOOK2.XLS的调色板相同。

ActiveWorkbook.Colors = Workbooks("BOOK2.XLS").Colors


DisplayRightToLeft 属性

实例

用于

Window

描述

如果窗口从右到左显示，而不是从左至右则为True。可读写。

语法

object.DisplayRightToLeft

元素

object

必选项。窗口对象。

解释

该属性仅在Arabic和Hebrew Microsoft Excel中有效。


DisplayRightToLeft 属性实例

该实例设置窗口1从右至左显示。

ActiveWorkbook.Windows(1).DisplayRightToLeft = True


FillAcrossSheets 方法

实例

用于

Sheets, Worksheets

描述

复制区域至集中所有其余工作表的相同区域上。

语法

object.FillAcrossSheets(range, type)

元素

FillAcrossSheets方法具有下列对象限制和命名参数：

object

必选项。表或工作表对象。

range

必选项。指定集中工作表的填充区域。该区域必须来自集中的某工作表。

type

可选项。指定如何复制区域（可为xlAll，xlcontents或xlformulas之一）。如果该参数省略，默认为xlAll。


FillAcrossSheets 方法实例

该实例填充表1，表5和表7上的区域A1：C5。

x = Array("Sheet1", "Sheet5", "Sheet7")

Sheets(x).FillAcrossSheets _

Worksheets("Sheet1").Range("A1:C5")


Name 属性

参阅	实例

用于

AddIn, Application, Arc, AxisTitle, Button, Chart, ChartArea, ChartObject, ChartTitle, CheckBox, Corners, DataLabel, DataLabels, DialogFrame, DialogSheet, DownBars, Drawing, DropDown, DropLines, EditBox, ErrorBars, Floor, Font, Gridlines, GroupBox, GroupObject, HiLoLines, Label, Legend, Line, ListBox, Module, Name, OLEObject, OptionButton, Oval, Picture, PivotField, PivotItem, PivotTable, PlotArea, Range, Rectangle, Scenario, ScrollBar, Series, SeriesLines, Spinner, Style, TextBox, TickLabels, Toolbar, ToolbarButton, Trendline, UpBars, Walls, Workbook, Worksheet

描述

返回或设置对象名字。详情参阅解释部分。

语法

object.Name

元素

object

必选项。该属性施加于对象上。

解释

该属性含义取决于对象，如下表所示。区域对象名字为名字Name对象，对于其 余对象，名字为字符串。

对象	名字
AddIn	加载宏的文件名字不包含其在磁盘上的路径。只读。
Application	应用程序名字。只读。
Chart	如果图表是工作表中的一页，则为标签上所示的页名 字。如果图表是内嵌的对象，则为 对象名字。可读写。
Control or drawing object	控制项或图形对象名，以宏语言表示。可读写。
DialogSheet, Module, Worksheet	在标签上显示的表名字。可读写。
Font	字体名字。
Name	名字本身。 如果是内部名字之一，则转换成宏语言。可读写。
OLEObject	对象名字。可读写。
PivotField	数据透视表中字段名字。可读写。
PivotItem	数据透视表字段中项名字。可读写。
PivotTable	数据透视表名字。可读写。
Range	区域名字（为名字Name 对象）。指定该属性定义名字。如果该区域有多个名字 ，返 回第一个。可读写。
Scenario	方案名字。可读写。
Series	序列名字。可读写。
Style	式样名字。如果式样为内部式样，以宏语言返回式样名 字。只读。
Toolbar	工具栏名字，以字符串表示。如果工具栏是内部的，以 用户语言返回名字。 对于自定义工具栏，可读写。对于内部工具栏。只读。
ToolbarButton	按钮名字，以字符串表示。可读写。
Trendline	在图例中出现的趋势线名字。可读写。
Workbook	工作簿名字，不包含其在磁盘上的路径。只读。


参阅

NameLocal 属性


Name 属性实例

该实例显示式样名字和其地区化的名字。

With ActiveWorkbook.Styles(1)

MsgBox "The name of the style is " & .Name

MsgBox "The localized name of the style is " & .NameLocal

End With


NameLocal 属性

参阅	实例

用于

Name, Style

描述

以用户语言返回或设置对象名字。对于名字可读写，对于式样只读。

语法

object.NameLocal

元素

object

必选项。名字或式样对象。

解释

如果式样是内部式样，该属性以当前地区语言返回式样名字。


参阅

Name 属性


NameLocal 属性实例

该实例显示式样的名字和其地区化的名字。

With ActiveWorkbook.Styles(1)

MsgBox "The name of the style is " & .Name

MsgBox "The localized name of the style is " & .NameLocal

End With


Range 方法

参阅	实例

用于

Application, Range, Worksheet

描述

返回单元格或单元格区域。

语法1

object.Range(cell1)

语法2

object.Range(cell1, cell2)

元素

range方法具有下列对象限制和命名参数：

object

可选项，对于应用程序。必选项，对于区域和工作表。该方法施加于对象上。

cell1

必选项，对于语法1。区域名字。其必须是宏语言表示的A1式样引用。 可包含区域运算符'：'（冒号），与运算符' '（空格）及联合运算符'，'（逗号）。其可包含美元符，但美元符忽略。区域的任意部分可使用局部定义的名字。如果使用名字，该名字假定以宏语言表示。

cell1, cell2

必选项，对于语法2。单元格在区域左顶部和右底部。 可以是只包含单个单元格的区域（或整个列（行））， 也可以是以宏语言命名的单个单元格的字符串。

解释

当没有对象限制时，该方法为快显菜单Activesheet.range。当用于区域对象时，  该方法与区域对象相关。   例如，如果选定的是单元格c3，Selection.Range（"B1"）返回单元格D3， 因为其与由Selection属性返回的区域对象相关。另一方面， 代码ActiveSheet.Range（"B1"）总是返回单元格B1。


参阅

Cells 方法


Range 方法实例

该实例复制单元格区域A1：J10至剪贴板。该实例用语法1。

Application.Range("A1:J10").Copy

该实例设置单元格区域A1：C5字体为斜体。该实例用语法2。

Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True


RecordMacro 方法

实例

用于

Application

描述

如果宏记录器打开，记录代码。

语法

object.RecordMacro(basicCode, xlmCode)

元素

RecordMacro方法具有下列对象限制和命名参数：

object

必选项。应用程序对象。

basicCode

可选项。指定Visual Basic代码的字符串，如果宏记录器正记录Visual Basic模块表， 该代码将被记录。字符串记录于一行上。如果字符串包含回车（ASCLL字符10或CHR$ （10）代码），该字符串记录于多行上。

xlmCode

可选项。指定公式的字符串，如果宏记录器正记录 Microsoft Excel版本4.0的宏表，该公式将被记录。该字符串记录入一个单元格。 如果字符串不是以等号开头，则记录注释。

解释

RecordMacro 方法不能记录入当前模块表（ RecordMacro 方法存在该模块表中） 。 如果basicCode省略，并且应用程序正记录入Visual Basic，Microsoft Excel将记录相应的Application.run语句。

如果xlmCode省略， 并且应用程序正记录入Microsoft Excel 4. 0， Micxrosoft Excel将记录合适的Run宏函数。为防止记录（例如，用户取消对话框）， 用2个空字符串调用该函数。


RecordMacro 方法实例

该实例记录visual basic代码或一个XLM公式。

Application.RecordMacro basicCode:="Application.Run ""MySub"" ", _

xlmCode:="=MySub()"


Show 方法

实例

用于

Dialog, DialogSheet, Range, Scenario

描述

对话框编辑表对象（语法1）；运行对话框。该方法直到对话框关闭或隐藏时，才返回调用过程。但是当调用过程暂停时，赋给对话框控制项的事件过程将运行。 区域对象（语法1）；滚动当前窗口，将区域移入视窗。该区域必须由单个单元格构成，该单元格为当前文档的一部分。方案对象（语法1）：用在工作表中插入方案的数值的方法显示方案。 受影响的单元格是方案的可变单元格。对话对象（语法2）：显示对话框并等待用户输入数据。

语法1

object.Show

语法2

object.Show(arg1, arg2, ..., arg30)

元素

show方法具有下列对象限制和命名参数：

object

必选项。对于语法1，为对话框编辑表、区域或方案对象。对于语法2，为对话对象。

arg1, arg2, ..., arg30

可选项。仅用内部对话框，为命令提供初始参数。详细内容，参阅下面的解释部分。

解释

对于内部对话框编辑表，当用户按下[确定]按钮时， 该方法返回True。 当用户按下[取消]按钮时， 返回False。单个对话框一次可以改变许多属性。例如，设置单元格格式对话框能够改变所有字体Font对象的属性。对于某些内部对话框（例如，打开文件），可用arg1，arg2...，arg30设置初始值。 为查找设置参数，搜索有关Microsoft Excel 4.0宏函数的帮助。例如，搜索打开文件函数查找Open对话框的参数。 有关内部对话框的详细信息，参见Dialogs。


Show 方法实例

该实例显示打开文件对话框，在Microsoft Excel for Windows中，选定只读(Read＿Only)选项。

Application.Dialogs(xlDialogOpen).Show arg3:=True


ShowAllData 方法

参阅	实例

用于

Worksheet

描述

对于当前筛选过的数据清单，使所有行为可见。如果使用Autofilter，该方法改 变箭头为"ALL"。

语法

object.ShowAllData

元素

object

必选项。工作表对象。


参阅

AdvancedFilter 方法

AutoFilter 方法

FilterMode 属性


ShowAllData 方法实例

该实例使当前工作表上所有数据为可见。

ActiveSheet.ShowAllData


Value 属性

参阅	实例

用于

Application, Borders, CheckBox, CheckBoxes, DrawingObjects, DropDown, DropDowns, ListBox, ListBoxes, Name, OptionButton, OptionButtons, PivotField, PivotItem, PivotTable, Range, ScrollBar, ScrollBars, Spinner, Spinners, Style

描述

Value属性的含义取决于施加该属性的对象，如下表所示。

   对象    	值

Application	总是返回"Microsoft excel"。只读。

Borders	Borders.LineStyle的同义词。

Checkbox	指明选择框的状态 (可为xlOn, xlOff或 xlMixed)。

DropDown, ListBox	指明列表中的选定项（该值在1与列表中项编号之间）。 该方法不能 用于多重选定的列表框；对于多重选定的列表框， 使用Selected方法取而代之。

Name    	包含公式的字符串，用以定义名字。使用以等号开头带 A1式样表示法的宏语言。

OptionButton    	指明按钮状态（可为xlOn, xlOff或 xlMixed）。

PivotField      	数据透视表中字段名字。

PivotItem       	数据透视表字段中项名字。

PivotTable      	数据透视表名字。

Range           	单元格数值。如果单元格为空，返回Empty值。 使用isEmpty函数测试该状态。 如果区域对象包含多个单元格，返回数值数组。 使用IsArray函数测试该状态。

ScrollBar       	滚动框位置。

Spinner         	最小和最大区域限制间的数值。

Style           	式样名字。

语法

object.Value

元素

object

必选项。该属性施加于对象上。


参阅

LineStyle 属性

MultiSelect 属性

Selected 属性


Value 属性实例

该实例在Extract区域中以零替换所有小于1E－6（0.000001）的数值。

For Each c In Range("Extract")

If c.Value < 1e-6 Then

c.Formula = 0

End If

Next


Accelerator 属性

实例

用于

Button, Buttons, CheckBox, CheckBoxes, DrawingObjects, GroupBox, GroupBoxes, Label, Labels, OptionButton, OptionButtons

描述

为控制项返回或设置键盘加速字符。可读写。

语法

object.Accelerator

元素

object

必选项。此属性作用的对象。

解释

当运行一对话时，每个控制项有一个用户用以激活控制项的和Alt键组合按压的加 速字符。和第一个加速文字字符匹配的第一个控制项文字字符将加下划线。 下划线比较区分大小写，当键按下时大小写不予考虑。在Apple Macintosh中，当CommandUnderlines属性 为True时，加速字符仅加下划线，如果此属性为False，加速字符保护，但不加下 划线。如果加速键控制项中不和任何文本匹配，加速为非功能键。


Accelerator 属性实例。

该实例对按钮4设置按钮文字和加速键。

With DialogSheets(1).Buttons(4)

.Text = "Press Me"

.Accelerator = "P"

End With


ActiveChart 属性

实例

用于

Application, Window, Workbook

描述

返回当前当前图表Chart（内嵌图表或图表），当内嵌图表被选定或激活时， 它被认为当前的。当没有当前图表时，此属性返回Nothing。只读。

语法

object.ActiveChart

元素

object

对应用程序为可选项。对窗口和工作簿为必选项。此属性作用的对象。


ActiveChart 属性实例。

该实例为当前图表打开图例。

ActiveChart.HasLegend = True


ActiveDialog 属性

实例

用于

Application

描述

返回最顶端当前运行的对话框编辑表DialogSheet，如果没有运行对话，此属性返回Nothing。注意当前对话不是必须的当前表。只读。

语法

object.ActiveDialog

元素

object

可选项。应用程序对象。


ActiveDialog 属性实例。

该实例隐藏当前对话框编辑表。

ActiveDialog.Hide cancel:=True


AddChartAutoFormat 方法

参阅	实例

描述

Application

描述

把自定义图表自动套用格式增加到可用图表自动套用格式的清单中。

语法

object.AddChartAutoFormat(chart, name, description)

元素

Add chart Auto Format方法有以下对象限制和命名参数：

object

必选项。应用程序对象。

chart

必选项。当新图表自动套用格式被应用时，包含此格式的图表对象将被使用。

name

必选项。代表自动套用格式名字的字符串。

description

可选项。描述自定义自动套用格式的字符串。


参阅

DeleteChartAutoFormat 方法

SetDefaultChart 方法


AddChartAutoFormat 方法实例

该实例基于图表1增加新的自动套用格式。

Application.AddChartAutoFormat _

chart:=Charts("Chart1"), name:="Presentation Chart"


AddFields 方法

参阅	实例

用于

PivotTable

描述

增加行、列和分页字段到数据透视表。

语法

object.AddFields(rowFields, columnFields, pageFields, addToTable)

元素

AddFields方法有以下对象限制和命名参数：

object

必选项。数据透视表对象。

rowFields

可选项。一数据透视字段（或数据透视字段数组）作为行增加。

columnFields

可选项。数据透视字段（或数据透视字段数组）作为列增加。

pageFields

可选项。数据透视字段（或数据透视字段数组）作为页增加。

addToTable

可选项。若为True，字段增加到数据透视表（已有的字段不被替代），若为False， 新段替代已有的字段，若此参数没指定则默认为False。

解释

必须指定一个字段参数。


参阅

ColumnFields 方法

DataFields 方法

HiddenFields 方法

PageFields 方法

RowFields 方法

VisibleFields 方法


AddFields 方法实例

该实例用status和closed By字段替代在第一数据透视表中已有的列字段。

ActiveSheet.PivotTables(1).AddFields _

ColumnFields:=Array("Status", "Closed_By")


AddItem 方法

参阅	实例

用于

DrawingObjects, DropDown, DropDowns, ListBox, ListBoxes

描述

增加项到列表框和下拉列表框中。

语法

object.AddItem(text, index)

元素

Addltem方法具有以下对象限制和命名参数：

object

必选项。此方法作用对象。

text

必选项。指定要加入的文字字符串。

index

可选项。指定加入新的输入项位置，如果列表输入项对象少于指定索引，空白项从列表 末尾加入到指定位置，此参数若省略，此项增补到已有列表中。

解释

用此法清除任何 ListFillRange。


参阅

List 属性

RemoveItem 方法


AddItem 方法实例

该实例在列表框4开始处增加新的项。

DialogSheets(1).ListBoxes(4).AddItem text:="New Item", index:=1


AutoFilterMode 属性

参阅	实例

用于

Worksheet

描述

如果自动筛选的下拉箭头当前显示在表中，则为True。此属性独立于 FilterMode 属性。可读写。

语法

object.AutoFilterMode

元素

object

必选项。工作簿对象。

解释

如果下拉箭头当前显示则此属性为True。你可设此属性为False以删除箭头， 但不可设其为True。用 AutoFilter 方法筛选列表且显示下拉箭头。


参阅

AutoFilter 方法

FilterMode 属性


AutoFilterMode 属性实例

该实例显示AutoFilterMode属性当前状态。

If ActiveSheet.AutoFilterMode Then

isOn = "On"

Else

isOn = "Off"

End If

MsgBox "AutoFilterMode is " & isOn


AutoOutline 方法

参阅	实例

用于

Range

描述

为指定区域自动创建分级显示，如果区域为单个单元格，Microsoft Excel为整个表创建分级显示。新分级显示替代已有的分级显示。

语法

object.AutoOutline

元素

object

必选项，区域对象


参阅

ApplyOutlineStyles 方法

ClearOutline 方法


AutoOutline 方法实例

该实例为区域A1：G37创建分级显示。区域必须包含摘要行或摘要列。

Range("A1:G37").AutoOutline


BorderAround 方法

实例

用于

Range

描述

对区域增加边框线并对新边框线设置color，Linestyle，和weight属性。

语法

object.BorderAround(lineStyle, weight, colorIndex, color)

元素

BorderAround 方法具有以下对象限制和命名参数：

object

必选项。区域对象。

lineStyle

可选项。指定边框线式样，可为xlcoutinuous，xlDash，xlDot或xlDouble之一。

weight

可选项。指定边框线粗细，可为 xlHairline, xlThin, xlMedium, 或 xlThick。 若省略，为xlThin。

colorIndex

可选项。把边框线颜色作为颜色索引指定到当前调色板中，可从1到56编号或用窗口文字颜色的特殊常量xlAutomatic。

color

可选项。指定边框线颜色为RGB值。

解释

可指定colorindex或color，但不可同时指定。如果一个参数都没指定，MicrosoftExcel用xlAutomatic颜色索引。类似的，可指定linestyle 或weight，但不可同时指定。如果没指定参数，Microsoft Excel创建一默认边框线。

该方法分级显示没有在其中填充它的整个区域。为设置所有单元格的边框线，要对Borders集设置 Color, LineStyle, 和 Weight 属性。删除边框线，要对区域中所有单元格设置Linestyle属性为xlNone。


BorderAround 方法实例

该实例对单元格区域A1：G37增加粗红边框线。

Range("A1:G37").BorderAround color:=RGB(255, 0, 0), weight:=xlThick


CancelButton 属性

参阅	实例

用于

Button, Buttons, DrawingObjects

描述

仅用于用户定义对话按钮，当Escape键按下或当系统菜单关闭框或菜单项被选定时如果按钮自动被选定，则为True。当用户按下Escape键，取消按钮被选，且Microsoft Excel运行由按钮的 OnAction 属性标识的宏。

语法

object.CancelButton

元素

object

必选项。该属性作用的对象。

解释

当对话取消，如果你想使某代码总运行则为一按钮设置此属性，即使由Escape键或系统菜单取消之。

在任何时候，对话中仅有一按钮可将取消属性设置为True。设置一按钮将对所有表中 其他按钮重设此属性。


参阅

DismissButton 属性


CancelButton 属性实例

该实例对按钮４设置Cancel Button属性。

ActiveWorkbook.DialogSheets(1).Buttons(4).CancelButton = True


ChangeLink 方法

实例

用于

Workbook

描述

从一文档改变链接到另一文档。

语法

object.ChangeLink(name, newName, type)

元素

The ChangeLink 方法具有以下对象限制和命名参数：

object

必选项。工作簿对象。

name

必选项。指定要改变Microsoft Excel或DDE／OLE链接的名字，如从 LinkSources 方法返回。

newName

必选项。链接的新名字。

type

可选项。指定链接类型（xlExcelinks或xlOLELinks），若省略，默认为xlExcelLinks。 对DDE和OLE链接用xlOLELinks。


ChangeLink 方法实例

该实例为窗口链接改变Microsoft word。

ActiveWorkbook.ChangeLink "WinWord|'C:\DOC1.DOC'!DDE_LINK1", _

"WinWord|'C:\DOC2.DOC'!DDE_LINK2", xlOLELinks

该实例改变Microsoft Excel链接。

ActiveWorkbook.ChangeLink "c:\excel\book1.xls", _

"c:\excel\book2.xls", xlExcelLinks


ChartWizard 方法

实例

用于

Chart

描述

修改给定图表的属性，不用设置所有单个属性即允许快速格式化。此方法非相互作用， 仅改变指定属性。

语法

object.ChartWizard(source, gallery, format, plotBy, categoryLabels, seriesLabels, hasLegend, title, categoryTitle, valueTitle, extraTitle)

元素

ChartWizard 方法有以下对象限制和命名参数：

object

必选项。图表对象。

source

可选项。指定对图表包含源数据的区域，如果此参数省略，Microsoft Excel用当前选定区域。

gallery

可选项。指定图表类型（xlArea，xlBar，Xlcolumn，xlline，xlpie，xlRadar，xlXyscatler，xlcombination，xl3DArea，xl3Dbar，Xl3Dcolumn，xl3DLine，Xl3Dpie，Xl3Dsurface，或 xlDoughnut之一）

format

可选项。对内部自动套用格式指定选项编号。可从1到10，依赖于图库类型。如果此参数省略，Microsoft Excel依图库类型和数据源选定一默认值。

plotBy

可选项。指定每系列数据为行或列（xlRows或xlcolumns）。

categoryLabels

可选项。整数指定包含分类标记的源区域中行或列的编号。有效值在0到一小于相应分类或 系列的最大值之间。

seriesLabels

可选项。整数指定包含系列标记的源区中行或列的编号。有效值在0到一小于相应分类或序 列的最大值之间。

hasLegend

可选项。包含图例为True。

title

可选项。图表标题文字。

categoryTitle

可选项。分类（x）轴标题文字。

valueTitle

可选项。数值轴标题文字。

extraTitle

可选项。三维图的系列轴标题，二维图的数值轴标题。


ChartWizard 方法实例

该实例重新格式化图表1为折线图并增加一图例和x，y轴标题

ActiveWorkbook.Charts(1).ChartWizard _

gallery:=xlLine, _

hasLegend:=True, categoryTitle:="Year", valueTitle:="Sales"


CheckBoxes 方法

实例

用于

Chart, DialogSheet, Worksheet

描述

返回在图表或表中单个选定框（CheckBox 对象，语法1）或选定框集( CheckBoxes 对象，语法 2)。

语法１

object.CheckBoxes(index)

语法２

object.CheckBoxes

元素

checkBoxes方法有下列对象限制和命名参数：

object

必选项。图表，对话框编辑表，或工作表对象。

index

对语法1是必选项，指定选定框名字或编号（可用数组指定多个）。


CheckBoxes 方法实例

该实例显示对话框编辑表１中的选定框编号。

cCheckBox = ActiveWorkbook.DialogSheets(1).CheckBoxes.Count

MsgBox "There are " & cCheckBox & " check boxes on dialog sheet one."


ClearOutline 方法

参阅	实例

用于

Range

描述

清除指定区域的分级显示。

语法

object.ClearOutline

元素

object

必选项。区域对象。


参阅

AutoOutline 方法


ClearOutline 方法实例

该实例清除区域A1：G37的分级显示。

Range("A1:G37").ClearOutline


ConsolidationFunction 属性

参阅	实例

用于

Worksheet

描述

为当前合并计算返回函数代码（xlAverage， xlcount，xlcountNums，xlMax，xlMin，xlproduct，xlstDev，xlstDerp，xlSum，xlVar，或xlVarp之一）。只读。

语法

object.ConsolidationFunction

元素

object

必选项。工作表对象。


参阅

Consolidate 方法

ConsolidationOptions 属性

ConsolidationSources 属性


ConsolidationFunction 属性实例

该实例显示如果当前合并计算使用sum函数，则显示消息框。

If ActiveSheet.ConsolidationFunction = xlSum Then

MsgBox "This worksheet uses the SUM function for consolidation."

End If


ConsolidationOptions 属性

参阅	实例

用于

Worksheet

描述

返回合并计算选项的三元素数组，如下表所示，如果元素为True，选项被设置。只读。

元素	含义

１	标记在顶端行。

２	标记在左列。

３	为数据创建链接。

语法

object.ConsolidationOptions

元素

object

必选项。工作表对象。


参阅

Consolidate 方法

ConsolidationFunction 属性

ConsolidationSources 属性


ConsolidationOptions 属性实例

该实例对当前工作表显示合并计算选项。

aOptions = ActiveSheet.ConsolidationOptions

Cells(1, 1) = "Labels in top row"

Cells(2, 1) = "Labels in left column"

Cells(3, 1) = "Create links for data"

For i = 1 To 3

If aOptions(i) Then

Cells(i, 2) = "True"

Else

Cells(i, 2) = "False"

End If

Next i


ConsolidationSources 属性

参阅	实例

用于

Worksheet

描述

返回为工作表当前合并计算命名源表的字符串值的数组。如表中无合并计算则返回Empty。只读。

语法

object.ConsolidationSources

元素

object

必选项。工作表对象。


参阅

Consolidate 方法

ConsolidationFunction 属性

ConsolidationOptions 属性


ConsolidationSources 属性实例。

该实例显示为当前工作表的合并计算起的源表名字。

Cells(1, 1) = "Consolidation Sources"

aSources = ActiveSheet.ConsolidationSources

If IsEmpty(aSources) Then

Cells(2, 1) = "none"

Else

For i = 1 To UBound(aSources)

Cells(i + 1, 1) = aSources(i)

Next i

End If


DefaultButton 属性

参阅	实例

用于

Button, Buttons, DialogSheet, DrawingObjects

描述

仅用于用户定义的对话按钮。对按钮对象，如果按钮为用户定义对话的默认按钮，则为True。 此默认按钮由粗边框线表示。当用户按ENTER键，默认按钮被选定，MicrosoftExcel 运用由按钮的OnAction属性标识的宏。可读写。对对话框编辑表对象，此属性为对 话运行时默认的按钮名字。可读写。

语法

object.DefaultButton

元素

object

必选项。此属性作用的对象。

解释

当对话不显示时，此属性可和返回或设置初始默认按钮的按钮对象一起使用。 （对话第一次显示时默认按钮）。对话中仅能有一个默认按钮， 设置此属性即为所有对话框编辑表 中其他按钮设置重设此属性。

当对话显示时，在事件过程中用此属性返回或设置当前默认按钮。 这种情况下此属性作为一字符串为按钮ＩD，属性用于对话框编辑表对象。 当对话显示时，不能对按钮对象用此属性。


参阅

CancelButton 属性


DefaultButton 属性实例

该实例设置按钮4为初始默认按钮。当对话不在运行时，只能设初始默认按钮。

ActiveWorkbook.DialogSheets(1).Buttons(4).DefaultButton = True

该实例设置按钮5在对话框编辑表1中为当前默认按钮。当对话进行时，只可设置当前默认 按钮。

With ActiveWorkbook.DialogSheets(1)

.DefaultButton = .Buttons(5).Name

End With


DeleteChartAutoFormat 方法

参阅	实例

用于

Application

描述

从可用图表自动套用格式清单删除一自定义图表自动套用格式。

语法

object.DeleteChartAutoFormat(name)

元素

DeleteCharAutoFormat方法，有下列对象限制和命名参数：

object

必选项。应用程序对象。

name

必选项。指定删除的自定义自动套用格式的名字。


参阅

AddChartAutoFormat 方法

SetDefaultChart 方法


DeleteChartAutoFormat 方法实例

该实例删除＂Presentation chart＂自定义自动套用格式。

Application.DeleteChartAutoFormat name:="Presentation Chart"


DialogFrame 属性

实例

用于

DialogSheet

描述

返回与对话框编辑表相关的DialogFrame 。只读。

语法

object.DialogFrame

元素

object

必选项。对话框编辑表对象。


DialogFrame 属性实例

该实例设置对话框架的高度和宽度。

With ActiveWorkbook.DialogSheets(1).DialogFrame

.Height = 144

.Width = 196

End With


DismissButton 属性

参阅	实例

用于

Button, Buttons, DrawingObjects

描述

当按钮被单击后如果按钮自动关闭用户定义的对话则为True。 任何数目的表中按钮都可有DismissButton属性以设置为True。可读写。

语法

object.DismissButton

元素

object

必选项。此属性作用的对象。

当单击有DismissButton属性的按钮以设置为True时，有下列三个步骤。

１．	按钮的 OnAction 过程运行，如果想验证任何自定义数据则在此过程中执行。如果验证失败，可设置DismissButton属性为False。此时对话保持可见。当验证完毕时，记住重设置DismissButton属性为True。

２．	当onAction过程结束且DismissButton属性为True时，对话中编辑区域自动验证以确 保其包含的由其InputType属性指定的类型数据。如果自动验证失败，microsoftExcel显示一警告，错误的编辑框变为焦点，对话保持可视。

３．	如果自动验证完毕，对话关闭且称为对话的Show方法返回True，如果表中没有按钮具有DismissButton属性以设置为True，则必须明确访问Hide方法或取消对话以关闭它。


参阅

CancelButton 属性

Hide 方法

InputType 属性

OnAction 属性

Show 方法


DismissButton 属性实例

该实例为对话框编辑表中每个按钮设置DismissButton属性。

For Each bt in ActiveWorkbook.DialogSheets(1).Buttons

bt.DismissButton = True

Next bt


DisplayClipboardWindow 属性

实例

用于

Application

描述

只用于Macihtosh，如果剪贴板窗口显示为True。设此属性为True以显示剪贴板窗口。可读写。

语法

object.DisplayClipboardWindow

元素

object

必选项。应用程序对象。

解释

Microsoft Windows中，此属性保留其值，但不做工作。


DisplayClipboardWindow 属性实例

该实例显示剪贴板窗口。

Application.DisplayClipboardWindow = True


DisplayInfoWindow 属性

实例

用于

Application

描述

如果信息窗口被显示为True。设置此属性为True以显示信息窗口。可读写。

语法

object.DisplayInfoWindow

元素

object

必选项。应用程序对象。


DisplayInfoWindow 属性实例

该实例显示信息窗口。

Application.DisplayInfoWindow = True


DropDownLines 属性

实例

用于

DrawingObjects， DropDown， DropDowns

描述

返回或设置显示在下拉列表框的下拉部分中的清单行数量。可读写。

语法

object.DropDownLines

元素

object

必选项。此属性作用的对象。

解释

  此属性在Apple Macihtosh上忽略。


DropDownLines 属性实例

该实例在下拉列表框4设置清单行数量。

Application.DialogSheets(1).DropDowns(4).DropDownLines = 10


DropDowns 方法

实例

用于

Chart， DialogSheet， Worksheet

描述

  返回图表或表中单个下拉列表框控制项（下拉DropDown对象，语法1）或下拉列表框控制项集（下拉 DropDowns对象，语法2）。

语法1

object.DropDowns(index)

语法2

object.DropDowns

元素

  DropDowns方法有下列对象限制和命名参数：

object

必选项。图表，对话框编辑表，工作簿对象。

index

必选项，对语法1。指定下拉列表框控制项的名字或编号（可用数组指定多个）。


DropDowns 方法实例

该实例在下拉列表框1中设置清单行数量。

Application.DialogSheets(1).DropDowns(1).DropDownLines = 10


EditBoxes 方法

实例

用于

DialogSheet

描述

返回表中单个编辑框控制项（编辑框EditBox对象，语法1）或编辑框控制项集（编辑框EditBoxes对象，语法2）。

语法1

object.EditBoxes(index)

语法2

object.EditBoxes

元素

  The EditBoxes方法有下列对象限制和命名参数：

object

必选项。对话框编辑表对象。

index

对语法1必选。指定编辑框的名字或编号（可用数组指定多个）。


EditBoxes方法实例

该实例显示对话框编辑表1中编辑框的号码。

cEditBoxes = Application.DialogSheets(1).EditBoxes.Count

MsgBox "There are " & cEditBoxes & "edit boxes on dialog sheet one."


EditionOptions 方法

用于

Workbook

描述

在工作簿中为出版商和用户设置选项。仅在Apple Macintosh上用，运行系统下7。

语法

object.EditionOptions(type, option, name, reference, appearance, chartSize, formats)

元素

EditionOptions方法有以下对象限制和命名参数：

object

必选项。工作簿对象。

type

必选项。指定改变编辑类型（xlPublisher或xlSubscviber）

option

必选项。指定信息类型以设置编辑。如果类型为xlpublisher，Option可为xlconul，xlsendpulisher，xlselect，xlAutomaticupdate，xlManualupdate，或xlchangeAttvibutes之一。如果类型为xlSubscviber，Option可为xlcancel，xlupdatesubscviber，xlopensource，xlAutomaticupdate，或xlMonualupdate之一。

  name

  可选项。当从Linksources方法返回指定编辑名字，如果name省略，  reference必须指定。

  reforence

可选项（如果name没指定则必需）。指定编辑引用为R1C1式样文本。

如果在工作本内有多于1个相同编辑名字出版商或用户，或name变量省略此参量则为必需 的。

appearance

  可选项。如果option为xlchangeAttributes，指定编辑是否按屏幕所显

  出版（xlscreen）或如所显打印（xlpvinter）。

chartSize

  可选项。如果option为xlchangeAttvibute且出版对象为图表，指定编辑

  大小（xlscreen或xlprinter）。如果编辑不是图表，省略此参数。

formats

  可选的。如果option为xlchangeAttvisutes，指定出版编辑格式。

  可为xlPICT， xlBIFF， xlRTF， 或 xlVALU任意组合。


Extend方法

参阅	实例

用于

SeriesCollection

描述

    增加新数据点到已有的系列集中。

语法

object.Extend(source, rowcol, categoryLabels)

元素

  Exterd方法有下列对象限制和命名参数：

object

  必选项。系列集对象。

  source

  必选项。指定加到系列集中的新的数据，作为一区域或数据点数组。

rowcol

  可选项。指定新值是否在给定区域源的行（xlRows）或列（xlColumns）。

如果此参数省略，Microsoft Excel决定值在何处调整大小和改变方向由选定的区域或数组的维 数确定。如果源数据在数组中此参数忽略。

categoryLabels

    可选项。如果Source为一数组，省略。如果第一行或列包含分类标记名字则为True。 如果第一行或列包含系列的第一数据点，则为False。如果此参数省略，Microsoft Excel将从第一行或列的内容中确定分类标记的位置。


参阅

Add方法


Extend 方法实例

该实例在列1增加数据到系列集1中。

Application.Charts(1).SeriesCollection.Extend _

Worksheets(1).Columns(1), xlColumns, False


Focus 属性

实例

用于

DialogSheet

描述

返回或设置运行对话框的动态焦点，作为包含ID的字符串给具有焦点的控制项。 具有焦点的控制项由用户键盘直接输入， 在控制项中围绕控制项或选定区域由一虚线矩形指明焦点是可视的。可读写。

语法

object.Focus

元素

object

必选项。DialogSheet 对象。

解释

对话没有运行时，读和设置此属性将出现错误。当对话运行时， 设置此属性将改变指定控制项的焦点。不是所有控制项接受焦点， 对话管理器将拒绝在确定条件下移动焦点，读此属性总是返回用焦点控制项ID。


Focus 属性实例

如果不包含一数该实例将对编辑框1设置焦点。

If Not IsNumeric(myDialog.EditBoxes(1).Text) Then

myDialog.Focus = myDialog.EditBoxes(1).Name

End If


GroupBoxes 方法

实例

用于

Chart， DialogSheet， Worksheet

描述

  在图表或表中返回单个组框控制项（一组框GroupBox对象，语法1）或组框控制项集（组框GroupBoxes对象，语法2）。

语法1

object.GroupBoxes(index)

语法2

object.GroupBoxes

元素

  GroupBoxes方法有下列对象限制和命名参数：

object

  必选项。图表，对话框编辑表，或工作簿对象。

  index

  对语法1为必选项。指定组框的名字或编号（可用数组指定多个）。


GroupBoxes 方法实例

该实例显示对话框编辑表1中的组框编号。

cGroupBoxes = Application.DialogSheets(1).GroupBoxes.Count

MsgBox "There are " & cGroupBoxes & " group boxes on dialog sheet one."


HelpButton 属性

参阅	实例

用于

Button， Buttons， DrawingObjects

描述

  只用于用户定义对话框中按钮。如为True，然后按[帮助]键运行以按钮的 OnAction 属性标识的宏。如为False，按[帮助]键无作用，[帮助]键在Microsoft Excel for window 中为F1。在Microsoft Excel for the Macintosh中为coMMAnd+?。可读写。

语法

object.HelpButton

元素

object

必选项。此属性适用对象。

解释

在对话框中只有一个按钮可有HelpButton属性，在任何时候可设置为True； 为对话框中所有其他按钮设置此属性将重新设置它。如果用户按下没有[帮助]按钮的对话框中的[帮助]键，无作用。


参阅

Help方法


HelpButton 属性实例

该实例对按钮5设置HelpButton属性。

Application.DialogSheets(1).Buttons(5).HelpButton = True


Hide 方法

实例

用于

DialogSheet

描述

  隐藏对话，如果对话当前不显示，则出错。

语法

object.Hide(cancel)

元素

  Hide方法有下列对象限制和命名参数：

object

  必选项。对话框编辑表对象。

cancel

  可选项。若为True，对话不经验证编辑框内容就取消，若为False或省略编辑框内容返回前验证，没有赋于[取消]或[确定]按钮的宏在其中一种情况下运行。

解释

  如果cancel为False且对话中编辑区域不能验证，则此方法返回False且对话不存在，否则， 此法返回True。


Hide 方法实例

该实例隐藏活动对话。

ActiveDialog.Hide


InnerDetail属性

参阅	实例

用于

PivotTable

描述

对于最内部行或列字段当ShowDetail属性为True， 则返回或设置作为详细数据显示的字段的名字。可读写。

语法

object.InnerDetail

元素

object

必选项。数据透视表对象。


参阅

ShowDetail属性


InnerDetail 属性实例

该实例为"Region"字段设置InnevDetail属性。

ActiveCell.PivotTable.InnerDetail = "Region"


InputType 属性

实例

用于

DrawingObjects， EditBox， EditBoxes

描述

返回或设置作用于编辑框内容的输入验证为何种类型（xlFormnia，xlInteger，xlNumber，xlReferovce或xlText之一）。可读写。

语法

object.InputType

元素

object

必选项。此属性作用的对象。


InputType 属性实例

该实例设置编辑框1必需为一整数。

Application.DialogSheets(1).Editboxes(1).InputType = xlInteger


Labels 方法

实例

用于

Chart， DialogSheet， Worksheet

描述

返回表中单个标记（标记Label对象，语法1）或（一标记Labels对象，语法2） 或标记的集。

语法1

object.Labels(index)

语法2

object.Labels

元素

Labels方法有以下对象限制和命名参数：

object

必选项。图表，对话框编辑表或工作簿对象。

Index

语法1必选项。指定标记的名字或编号（可用数组指定多个）。


Labels 方法实例

该实例显示对话框编辑表1的标记的编号。

cLabels = Application.DialogSheets(1).Labels.Count

MsgBox "There are " & cLabels & " labels on dialog sheet one."


LargeChange 属性

参阅	实例

用于

DrawingObjects， ScrollBar， ScrollBars

描述

返回或设置对页面滚动的滚动框增加量或减少量（当用户单击滚动条体区域时）。 可读写。

语法

object.LargeChange

元素

object

必选项。该属性作用的对象。


参阅

Small change属性


LargeChange 属性实例

该实例对每行滚动设置滚动条移动两个单位，对每页滚动设置移动十个单位。

With ActiveSheet.ScrollBars(1)

.SmallChange = 2

.LargeChange = 10

End With


LegendEntries 方法

实例

用于

Legend

描述

返回图例的单个图例输入项（LegendEntry对象，语法1）或图例的输入项集（LegendEntries对象，语法2）。

语法1

object.LegendEntries(index)

语法2

object.LegendEntries

元素

LegendEntvies方法有下列对象限制和命名参数：

object

必选项。图例对象。

index

对语法1为必选项。指定图例输入项的名字或编号。


LegendEntries 方法实例

该实例选定图例输入项3。

Application.Charts(1).Legend.LegendEntries(3).Select


LegendKey 属性

实例

用于

LegendEntry

描述

返回与输入项相关的图例LegendKey对象。

语法

object.LegendKey

元素

object

必选项。图例输入项对象。


LegendKey 属性实例

该实例对图例输入项5选定图例标示。


LinkedCell 属性

实例

用于

CheckBox， CheckBoxes， DrawingObjects， DropDown， DropDowns， ListBox， ListBoxes， OptionButton， OptionButtons， ScrollBar， ScrollBars， Spinner， Spinners

描述

返回或设置链接到控制项值的单元格或单元格区域（用字符串引用）。 当值放入单元格时，此控制项取此值。 同样，如果控制项值改变，此值也放入此单格元中。

语法

object.LinkedCell

object.LinkedCell

元素

object

必选项。此属性作用的对象。

解释

   此属性不能和多重选定列表框一起用。


LinkedCell 属性实例

该实例链接列表框1和单元格区域A1:A5

ActiveDialog.Listboxes(1).LinkedCell = "Sheet1!A1:A5"


LinkedObject 属性

参阅	实例

用于

DropDown， EditBox， ListBox

描述

    返回与编辑框，列表框，下拉控制项链接的对象名字。对于下拉对象，如果可编辑， 返回下拉控制项名字。如果不可编辑则为False。只读。

语法

object.LinkedObject

元素

  object

  必选项。该属性施加于对象上。


参阅

LinkCombo方法


LinkedObject属性实例

该实例设置与编辑框4链接的对象焦点。

With Application.DialogSheets(1)

.Focus = .EditBoxes(4).LinkedObject

End With


LinkInfo 方法

实例

用于

Workbook

描述

    返回有关链接日期和更新状态信息。

语法

object.LinkInfo(name, linkInfo, type, editionRef)

元素

  LinkInfo方法具有下列对象限制命名参数：

  object

  必选项。工作簿对象。

  name

  必选项。当从LinkSources方法返回时，指定链接名字。

  linkInfo

必选项。指定返回的有关链接的信息类型(为xlUpdateStale和xlEditionDate之一)。xlEditionDate仅用于编辑。对于xlUpdateState，如果链接自动更新返回1;如果链接手动更新返回2。

  type

  可选项。指定返回的链接类型。可为xlOLELinks，xlPublishers，xlSubscribers之一。

  editionRef

  可选项。如果链接是版本，该参数以RICI式样的字符串形式指定版本引用。  如果工作簿中出版商或用户有多个名字，该参数为必选项。


LinkInfo 方法实例

如果链接自动更新该实例显示消息框。

If ActiveWorkbook.LinkInfo( _

"WinWord|'C:\MSGFILE.DOC'!DDE_LINK1", xlUpdateState, _

xlOLELink) = 1 Then

MsgBox "Automatic update"

End If


LinkSources 方法

实例

用于

Workbook

描述

在工作簿中返回链接数组。数组中的名字是链接文档的名字，版本，DDE或OLE服务器的名字。如果没有链接返回Empty。

语法

object.LinkSources(type)

元素

  LinkSources方法具有下列对象限制和命名参数：

  object

  必选项。工作簿对象。

  type

  可选项。指定返回的链接类型。可为xlExcelLinks，xlOLELinks，xlPublishers和  xlSubscribers之一。

解释

数组格式是所有类型(出版商和用户除外)的一维数组。返回包含带有相应链接类型注释的链接源名字字符串。例如，DDE链接用"ServerDocumentlltem"语法。对于出版商和用 户链接。返回的数组是二维的，数组第一列包含版本名字， 第二列包含文字形式的版本引用。


LinkSources 方法实例

该实例显示活动工作簿中Microsoft Excel链接清单。

aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)

If Not IsEmpty(aLinks) Then

For i = 1 to UBound(aLinks)

Cells(i, 1) = aLinks(i)

Next i

End If


List 属性

参阅	实例

用于

DrawingObjects， DropDown， DropDowns， ListBox， ListBoxes

描述

以字符串数组(语法1)返回或设置列表框或下拉列表框的文字输入项， 或者返回或设置单个文字。输入项(语法2)。如果列表中没有输入项返回错误。可读写。

语法1

object.List

语法2

object.List(index)

元素

  object

  必选项。该属性施加于对象上。

  index

  必选项。对于语法2。文字输入项编号。

解释

    设置该属性清除ListFillRange。


参阅

Addltem方法

ListCount属性

Removeltem方法


List 属性实例

该实例在列表框1中设置输入项4。

Application.DialogSheets(1).ListBoxes(1).List = _

Array("cogs", "widgets", "sprockets", "gizmos")

该实例在列表框1中设置输入项。

Application.DialogSheets(1).ListBoxes(1).List(4) = "gadgets"


ListBoxes 方法

实例

用于

Chart， DialogSheet， Worksheet

描述

  在图表或表上返回单个列表框控制项(ListBox对象，语法1)或列表框控制项集  ( ListBoxes对象，语法2)。

语法1

object.ListBoxes(index)

语法2

object.ListBoxes

元素

  ListBoxes方法具有下列对象限制和命名参数：

  object

  必选项。图表，对话表，工作表对象。

  index

  必选项。对于语法1。指定列表框名字或编号(可用数组指定多个名字或编号)。


ListBoxes 方法实例

该实例在列表框1中设置输入项。

Application.DialogSheets(1).Listboxes(1).List = _

Array("cogs", "widgets", "sprockets", "gizmos")


ListCount 属性

参阅	实例

用于

DropDown， ListBox

描述

在列表框或下拉列表框中返回输入项编号，如果列表框中没有输入项，则返回零。 只读。

语法

object.ListCount

元素

  object

  必选项。该属性施加于对象上。


参阅

Listnt属性


ListCount 属性实例

该实例在列表框1中显示输入项编号。

cEntries = Application.DialogSheets(1).ListBoxes(1).ListCount

MsgBox "There are " & cEntries & " entries in list box one."


ListFillRange 属性

参阅	实例

用于

DrawingObjects， DropDown， DropDowns， ListBox， ListBoxes

描述

  以字符串形式返回或设置用于充填列表框的工作表区域。 设置该属性将破坏列表框中已有的清单。可读写。

语法

object.ListFillRange

元素

  object

  必选项。该属性施加于对象上。

解释

    Microsoft Excel读取区域上每个单元格内容并输入列表框。该清单将跟踪区域单元格内的变化。

    如果列表框中清单是由 AddItem方法创建的，该属性返回空字符串("")。


参阅

Addltem方法

List属性

Removeltem方法


ListFillRange 属性实例

该实例在表1上用单元格区域A1:A10填充列表框4。

Application.DialogSheets(1).Listboxes(4).ListFillRange = _

"Sheet1!A1:A10"


ListIndex 属性

参阅	实例

用于

DrawingObjects， DropDown， DropDowns， ListBox， ListBoxes

描述

    在列表框或下拉列表框中，返回或设置当前选定项索引。可读写。

语法

object.ListIndex

元素

  object

  必选项。该属性施加于对象上。

解释

    该属性不能与多重选定列表框一起使用。要用Selected属性替代。


参阅

MultiSelect属性

Selected属性

Value属性


ListIndex 属性实例

该实例在列表框4中选定项4。

Application.DialogSheets(1).ListBoxes(4).ListIndex = 4


Max属性

参阅	实例

用于

DrawingObjects， ScrollBar， ScrollBars， Spinner， Spinners

描述

返回或设置滚动条或旋转器区域的最大值。滚动条或旋转器的取值不大于该最大值。 可读写。

    为进一步获取有关Visual Basic的Max工作表函数信息，参阅在 Visual Basic中使用工作表功能。

语法

object.Max

元素

  object

  必选项。该属性施加于对象上。

解释

    Max属性的值必须大于Min属性的值。


参阅

Min属性


Max 属性实例

该实例设置滚动条1的最小值和最大值。

With Application.DialogSheets(1).ScrollBars(1)

.Min = 20

.Max = 50

End With


Merge 方法

实例

用于

Scenarios， Styles

描述

语法1：将另一表的方案归并于方案集。

语法2：将另一工作簿的式样归并于式样集。

语法1

object.Merge(source)

语法2

object.Merge(workbook)

元素

  Merge方法具有下列对象限制和命名参数：

  object

  必选项。方案或式样对象。

  source

 对于语法1为必选项。工作表对象或是包含归并方案的表名。

  workbook

  对于语法2为必选项。包含归并式样的工作簿对象。


Merge 方法实例

该实例归并工作簿2的式样于活动工作簿。

ActiveWorkbook.Styles.Merge Workbooks(2)


Min 属性

参阅	实例

用于

DrawingObjects， ScrollBar， ScrollBars， Spinner， Spinners

描述

    返回或设置滚动条或旋转器区域的最小值。滚动条或旋转器的取值不小于该最小值。 可读写。

    为进一步获取有Visual Basic的Min工作表函数信息，参阅 在 Visual Basic中使用工作表功能。

语法

object.Min

元素

  object

  必选项。该属性施加于对象上。

解释

    Min属性的值必须小于Max属性的值。


参阅

Max属性


Min 属性实例

该实例设置滚动条1的最小值和最大值。

With Application.DialogSheets(1).ScrollBars(1)

.Min = 20

.Max = 50

End With


MultiLine 属性

实例

用于

DrawingObjects， EditBox， EditBoxes

描述

    如果编辑框能够多行编辑的则为True。可读写。

语法

object.MultiLine

元素

  object

  必选项。该属性施加于对象上。


MultiLine 属性实例

该实例使编辑框1能够多行输入。

Application.DialogSheets(1).EditBoxes(1).MultiLine = True


OpenLinks 方法

实例

用于

Workbook

描述

    为单个或多个链接打开支持文档。

语法

object.OpenLinks(name, readOnly, type)

元素

  OpenLinks方法具有下列对象限制和命名参数：

  object

  必选项。工作簿对象。

  name

  必选项。当其从LinkSources方法返回时(可用数组指定多个链接名)指定的Microsoft Excel或DDE/OLE链接名字。

  readOnly

  可选项。如果文档打开并且只读则为True。如果省略则为False。

  type

  可选项。指定链接类型。可为xlExcelLinks，xlOLELinks，xlPublishers 或xlSubscribers之一。如果省略则为xlExcelLinks。


OpenLinks 方法实例

该实例打开链接支持文档。

ActiveWorkbook.OpenLinks "WinWord|'C:\MSGFILE.DOC'!DDE_LINK1", _

xlOLELinks

该实例为活动工作簿打开全部支持Microsoft Excle文档。

ActiveWorkbook.OpenLinks _

name:=ActiveWorkbook.LinkSources(xlExcelLinks)


OptionButtons方法

实例

用于

Chart， DialogSheet， Worksheet

描述

在图表或表上返回单个选项按钮控制项(OptionButton对象，语法1)或选项按钮控制项集(OptionButtons对象，语法2)。

语法1

object.OptionButtons(index)

语法2

object.OptionButtons

元素

  OptionButtons方法具有下列对象限制和命名参数：

  object

  必选项。图表，对话表，工作表对象。

  index

 对于语法1为 必选项。指定选项按钮名字或编号(可用数组指定多个名字或编号)。


OptionButtons 方法实例

该实例显示对话表1上选项按钮编号。

cOptionButtons = Application.Dialogsheets(1).OptionButtons.Count

MsgBox "There are " & cOptionButtons & _

" option buttons on dialog sheet one."


ProtectScenarios 属性

参阅	实例

用于

Workbook

描述

  如果保护工作表方案则为True。只读。

语法

object.ProtectScenarios

元素

object

  必选项。工作表对象。


参阅

Protect 方法

Unprotect 方法


ProtectScenarios 属性实例

如果活动工作表上的方案被保护，该实例显示消息框。

If ActiveSheet.ProtectScenarios Then _

MsgBox "Scenarios are protected on this worksheet."


RemoveAllItems 方法

参阅	实例

用于

DrawingObjects, DropDown, DropDowns, ListBox, ListBoxes

描述

  从列表框或下拉列表框中删除所有输入项。

语法

object.RemoveAllItems

元素

object

  必选项。该方法施加于对象上。


参阅

AddItem 方法

List 属性

RemoveItem 方法


RemoveAllItems 方法实例

该实例删除列表框1的全部输入项。

Application.DialogSheets(1).Listboxes(1).RemoveAllItems


RemoveItem 方法

参阅	实例

用于

DrawingObjects, DropDown, DropDowns, ListBox, ListBoxes

描述

  从列表框或下拉列表框中删除一个或多个项。

语法

object.RemoveItem(index, count)

元素

  Removeltem方法具有下列对象限制和命令参数：

object

  必选项。该方法施加于对象上。

index

    必选项。指定删除的第一项编号。合法值为1至列表中的项编号（由 ListCount 属性返回）。

count

  可选项。指定从项index开始删除项的数目。如果该参数省略，只删除一项。如 果index+count超过列表中项的数目，从index至列表最后的全部项均无错删除。

解释

  如果对象有 ListFillRange 限定，该方法失效。


参阅

AddItem 方法

List 属性

RemoveAllItems 方法


RemoveItem 方法实例

该实例删除列表框1的第一输入项。

Application.DialogSheets(1).Listboxes(1).RemoveItem index:=1


ScrollBars 方法

参阅	实例

用于

Chart, DialogSheet, Worksheet

描述

  在图表或表上返回单个滚动条控制项（滚动条ScrollBar 对象，语法1）或滚动条控制项集（滚动条集ScrollBars 对象，语法2）。

语法1

object.ScrollBars(index)

语法2

object.ScrollBars

元素

  ScrollBars方法具有下列对象限制和命名参数：

object

  必选项。图表，对话框编辑表，工作表对象。

index

 必选项，对于语法1。指定滚动条的名字或编号（可用数组指定多个名字或编号）。


参阅

Max 属性

Min 属性


ScrollBars 方法实例

该实例为滚动条1设置最小值和最大值。

With Application.DialogSheets(1).ScrollBars(1)

.Min = 20

.Max = 50

End With


SetInfoDisplay 方法

实例

用于

Workbook

描述

  在信息窗口中设置显示的信息（指定的窗口对象必须是信息窗口）。

语法

object.SetInfoDisplay(cell, formula, value, format, protection, names, precedents, dependents, note)

元素

  SetlnfoDisplay方法具有下列对象限制和命名参数：

object

  必选项。窗口对象。

cell

  可选项。显示单元格引用文字为True。

formula

  可选项。显示单元格公式为True。

value

  可选项。显示单元格值。

format

  可选项。显示单元格格式信息为True。

protection

  可选项。显示单元格保护信息为True。

names

  可选项。显示单元格名字信息为True。

precedents

  可选项。设置是否显示单元格引用（xlNone，xlDirect或xlAll之一)。

dependents

  可选项。设置是否显示从属单元格（xlNone，xlDirect或xlAll之一)。

note

  可选项。显示附注为True。

解释

  如果该方法用于信息窗口之外的其余窗口，将产生错误。


SetInfoDisplay 方法实例

该实例设置信息窗口显示单元格引用文字和单元格名字信息。

Windows(1).SetInfoDisplay cell:=True, names:=True


SetLinkOnData 方法

参阅	实例

用于

Workbook

描述

  设置当链接更新时，运行宏或过程的名字。

语法

object.SetLinkOnData(name, procedure)

元素

  SetLinkOnData方法具有下列对象限制和命名参数：

object

  必选项。工作簿对象。

name

  必选项，指定Microsoft Excel或DEE/OLE链接名字，当其从LinkSources方法返回时。

procedure

  可选项。指定的当链接更新时运行的过程名字。其可为Microsoft Excel4.0宏或Visual Basic过程。该参数设置为空字符串（"")表明当链接更新时不运行过程。

解释

  用该方法为指定链接设置通知。当链接更新时，如果要被通知则使用 OnData 属性。


参阅

OnData 属性


SetLinkOnData 方法实例

该实例设置过程名字，当链接更新时运行该过程。

ActiveWorkbook.SetLinkOnData "WinWord|'C:\MSGFILE.DOC'!DDE_LINK1", _

"my_Link_Update_Macro"


ShortcutKey 属性

实例

用于

Name

描述

  为自定义Microsoft Excel4.0宏命令的名字返回或设置快捷键。可读写。

语法

object.ShortcutKey

元素

object

  必选项。名字对象。


ShortcutKey 属性实例

该实例为名字1设置快捷键。

ActiveWorkbook.Names(1).ShortcutKey = "K"


ShowToolTips 属性

实例

用于

Application

描述

  ToolTips打开为True。可读写。

语法

object.ShowToolTips

元素

object

  必选项。应用程序对象。


ShowToolTips 属性实例

该实例打开ToolTips

Application.ShowToolTips = True


SizeWithWindow 属性

参阅	实例

用于

Chart

描述

  如果图表调整大小用以匹配图表窗口的大小则为True。如果图表大小与窗口大小不匹配 则为False。仅用于工作簿中是表的图表，不用于内嵌图表。可读写。

语法

object.SizeWithWindow

元素

object

必选项。图表对象。


参阅

ChartSize 属性


SizeWithWindow 属性实例

该实例设置活动图表匹配图表窗口大小。

ActiveChart.SizeWithWindow = True


SmallChange 属性

.参阅	实例

用于

DrawingObjects, ScrollBar, ScrollBars, Spinner, Spinners

描述

  用于行滚动的（用户单击箭头时)滚动条或旋转器的增量或减量。可读写。

语法

object.SmallChange

元素

object

  必选项。该属性施加于对象上。


参阅

LargeChange 属性


SmallChange 属性实例

该实例设置滚动条每行滚动移动2个单位，每页滚动105个单位。

With ActiveSheet.ScrollBars(1)

.SmallChange = 2

.LargeChange = 10

End With


Spinners 方法

实例

用于

Chart, DialogSheet, Worksheet

描述

  在图表或表上返回单个旋转器控制项（旋转器Spinner 对象，语法1)或旋转器控制项集（旋转器族Spinners对象，语法2)。

语法1

object.Spinners(index)

语法2

object.Spinners

元素

  Spinners方法具有下列对象限制和命令参数：

object

  必选项。图表，对话框编辑表，工作表对象。

index

  必选项，语法1。指定旋转器的名字或编号（可用数组指定多个名字或编号)。


Spinners 方法实例

 该实例显示活动对话框编辑表上旋转器编号。

cSpinners = ActiveDialog.Spinners.Count

MsgBox "There are " & cSpinners & _

" spinners on the active dialog sheet."


TextToColumns 方法

.参阅	实例

用于

Range

描述

  将包含文字的单元格分列。

语法

object.TextToColumns(destination, dataType, textQualifier, consecutiveDelimiter, tab, semicolon, comma, space, other, otherChar, fieldInfo)

元素

  TextToColumns方法具有下列对象限制和命名参数：

object

   必选项。区域对象。

destination

可选项。指定Microsoft Excel放置结果的区域。如果该区域大于一个单元格，则使用最左 上单元格。

dataType

可选项。指定分列的文字格式。可为xlDelimited或xlFixedWidth之一。 默认为xlDoubleQuote。

textQualifier

可选项。指定文字限制。可为xlDoubleQuote，xlsingleleQuote或xlNone之一。默认为xlDoubleQuote。

consecutiveDelimiter

   可选项，如果将连续的分隔符号当作一个分隔符号则为True。默认为False。

tab

   可选项。如果datatype是xlDelimited，并且定位字符是分隔符号则为True。默认为False。

semicolon

   可选项。如果datatype是xlDelimited，并且分号字符是分隔符号则为True。默认为False。

comma

   可选项。如果datatype是xlDelimited，并且逗号字符是分隔符号则为True。默认为False。

space

   可选项。如果datatype是xlDelimited，并且空格字符是分隔符号则为True。默认为False。

other

可选项。如果datatype是xlDelimited，并且由otherChar参数指定的字符是分隔符号则为True。默认为False。

otherChar

可选项。（other为True时，为必选项)。other为True时指定分隔符号字符。如果指定多个字符，则使用字符串的第一字符，其余字符忽略。

fieldInfo

   可选项。包含单个数据列分解信息的数组。解释取决于datatype值。

   当数据是分隔符号时，该参数是二维数组。每一个二维数组指定特殊的列的转换选项。 第一元素是列编号，第二元素是下列编号之一，用以指定列分解形式。

  1	普通

  2	文字

  3	MDY萒RUE赺

  4	DMY萒RUE赺

  5	YDM萒RUE赺

  6	MYD萒RUE赺

  7	DYM萒RUE赺

  8	YDM萒RUE赺

  9	跳过列

列指定可以是任意次序。如果列指定不是输入数据中的特殊列，用普通设置分解列。该 实例使得第三列被跳过，第一列按文字分解，源数据其余列按普通设置分解。

Array(Array(3, 9), Array(1, 2))

  如果源数据有定宽列，二维数组的第一元素指定列中起始字符位置（整数；字符零为第 一字符)。二维数组的第二元素以1至9数字指定列分解选项（如上所列)。下面实例从定宽 文件分解两列，第一列从行头开始扩展为10个字符。第二列从位置15开始至行尾。为避 免包含位置10至位置15的字符，增加跨列输入项。

Array(Array(0, 1), Array(10, 9), Array(15, 1))


 参阅

OpenText 方法


TextToColumns 方法实例

 该实例将包含空格分隔符号的选定区域分列。

Selection.TextToColumns dataType:=xlDelimited, _

consecutiveDelimiter:=True, space:=True


UpdateLink 方法

实例

用于

Workbook

描述

  更新Microsoft Excel，DEE或OLE链接。

语法

object.UpdateLink(name, type)

元素

UpdateLink方法具有下列对象限制和命名参数：

object

  必选项。工作簿对象。

name

  必选项。指定更新的MicrosoftExcel或DEE/OLE链接名字，当其由LinkSources方法返回时。

type

  可选项，指定链接类型。可为xlExcelLinks或xlOLELinks之一。如果默认则为xiExcelLinks。


UpdateLink 方法实例

 该实例更新活动工作簿中所有链接.

ActiveWorkbook.UpdateLink name:=ActiveWorkbook.LinkSources


程序设计语言摘要


程序设计语言摘要

参阅

A

Abs 函数

Accelerator 属性

Access (Open 语句)

Activate 方法

ActivateMicrosoftApp 方法

ActivateNext 方法

ActivatePrevious 方法

ActiveCell 属性

ActiveChart 属性

ActiveDialog 属性

ActiveMenuBar 属性

ActivePane 属性

ActivePrinter 属性

ActiveSheet 属性

ActiveWindow 属性

ActiveWorkbook 属性

Add 方法

AddChartAutoFormat 方法

AddCustomList 方法

AddFields 方法

AddIn 对象

AddIndent 属性

AddIns 方法

AddIns 对象

AddItem 方法

AddMenu 方法

Address 方法

AddressLocal 方法

AddVertex 方法

AdvancedFilter 方法

AlertBeforeOverwriting 属性

Alias (Declare 语句)

AltStartupPath 属性

And 运算符

Any (Declare 语句)

AppActivate 语句

Append (Open 语句)

Application 对象

Application 属性

ApplyDataLabels 方法

ApplyNames 方法

ApplyOutlineStyles 方法

Arc 对象

Arcs 方法

Arcs 对象

Areas 对象

Area3DGroup 属性

AreaGroups 方法

Areas 方法

Arrange 方法

Array 函数

ArrowHeadLength 属性

ArrowHeadStyle 属性

ArrowHeadWidth 属性

Asc 函数

AskToUpdateLinks 属性

As

Atn 函数

Author 属性

AutoFill 方法

AutoFilter 方法

AutoFilterMode 属性

AutoFit 方法

Autoformat 方法 (Chart 对象)

Autoformat 方法 (Range 对象)

AutomaticStyles 属性

AutoOutline 方法

AutoScaling 属性

AutoSize 属性

AutoText 属性

AutoUpdate 属性

Axes 方法

Axes 对象

Axis 对象

AxisBetweenCategories 属性

AxisGroup 属性

AxisTitle 对象

AxisTitle 属性

B

Background 属性

Backward 属性

Bar3DGroup 属性

BarGroups 方法

Base (Option Base 语句)

BaseField 属性

BaseItem 属性

BCCRecipients 属性

Beep 语句

Binary (Option Compare 语句)

BlackAndWhite 属性

Bold 属性

Border 对象

Border 属性

BorderAround 方法

Borders 方法

Borders 对象

BottomMargin 属性

BottomRightCell 属性

BringToFront 方法

BuiltIn 属性

BuiltInFace 属性

Button 对象

Buttons 方法

Buttons 对象

ByRef

ByVal

C

Calculate 方法

CalculateBeforeSave 属性

Calculation 属性

Call 语句

Caller 属性

CancelButton 属性

CanPlaySounds 属性

CanRecordSounds 属性

Caption 属性

Case (Select Case 语句)

Category 属性

CategoryLocal 属性

CategoryNames 属性

CBool 函数

CCRecipients 属性

CCur 函数

CDate 函数

CDbl 函数

CellDragAndDrop 属性

Cells 方法

CenterFooter 属性

CenterHeader 属性

CenterHorizontally 属性

CenterVertically 属性

CentimetersToPoints 方法

ChangeFileAccess 方法

ChangeLink 方法

ChangeScenario 方法

ChangingCells 属性

Characters 方法

Characters 对象

Chart 对象

Chart 属性

ChartArea 对象

ChartArea 属性

ChartGroup 对象

ChartGroups 方法

ChartGroups 对象

ChartObject 对象

ChartObjects 方法

ChartObjects 对象

Charts 方法

Charts 对象

ChartSize 属性

ChartTitle 对象

ChartTitle 属性

ChartWizard 方法

ChDir 语句

ChDrive 语句

CheckBox 对象

CheckBoxes 方法

CheckBoxes 对象

Checked 属性

CheckSpelling 方法

ChildField 属性

ChildItems 方法

Chr 函数

CInt 函数

CircularReference 属性

Clear 方法

ClearArrows 方法

ClearContents 方法

ClearFormats 方法

ClearNotes 方法

ClearOutline 方法

ClipboardFormats 属性

CLng 函数

Close 方法

Close 语句

Color 属性

ColorButtons 属性

ColorIndex 属性

Colors 属性

Column 属性

Column3DGroup 属性

ColumnDifferences 方法

ColumnFields 方法

ColumnGrand 属性

ColumnGroups 方法

ColumnRange 属性

Columns 方法

ColumnWidth 属性

CommandUnderlines 属性

Comment 属性

Comments 属性

Compare (Option Compare 语句)

Consolidate 方法

Consolidation函数 属性

ConsolidationOptions 属性

ConsolidationSources 属性

Const 语句

ConstrainNumeric 属性

ConvertFormula 方法

Copy 方法

CopyFace 方法

CopyObjectsWithCells 属性

CopyPicture 方法

Corners 对象

Corners 属性

Cos 函数

Count 属性

CreateBackup 属性

CreateNames 方法

CreateObject 函数

CreatePublisher 方法

CreateSummary 方法

Creator 属性

Crosses 属性

CrossesAt 属性

CSng 函数

CStr 函数

CurDir 函数

Currency 数据类型

CurrentArray 属性

CurrentPage 属性

CurrentRegion 属性

CustomListCount 属性

Cut 方法

CutCopyMode 属性

CVar 函数

CVErr 函数

D

DataBodyRange 属性

DataEntryMode 属性

DataFields 方法

DataLabel 对象

DataLabel 属性

DataLabelRange 属性

DataLabels 方法

DataLabels 对象

DataRange 属性

DataSeries 方法

DataType 属性

Date 函数

Date 语句

Date1904 属性

DateSerial 函数

DateValue 函数

Day 函数

DDEAppReturnCode 属性

DDEExecute 方法

DDEInitiate 方法

DDEPoke 方法

DDERequest 方法

DDETerminate 方法

Debug 对象

Declare 语句

DefaultButton 属性

DefaultFilePath 属性

DefBool (Deftype 语句)

DefCur (Deftype 语句)

DefDate (Deftype 语句)

DefDbl (Deftype 语句)

DefInt (Deftype 语句)

DefLng (Deftype 语句)

DefObj (Deftype 语句)

DefSng (Deftype 语句)

DefStr (Deftype 语句)

DefVar (Deftype 语句)

Delete 方法

DeleteChartAutoFormat 方法

DeleteCustomList 方法

DeleteNumberFormat 方法

Delivery 属性

Dependents 属性

DepthPercent 属性

Deselect 方法

Dialog 对象

DialogBox 方法

DialogFrame 对象

DialogFrame 属性

Dialogs 方法

Dialogs 对象

DialogSheet 对象

DialogSheets 方法

DialogSheets 对象

Dim 语句

Dir 函数

DirectDependents 属性

DirectPrecedents 属性

DismissButton 属性

Display3DShading 属性

DisplayAlerts 属性

DisplayAutomaticPageBreaks 属性

DisplayBlanksAs 属性

DisplayClipboardWindow 属性

DisplayDrawingObjects 属性

DisplayEquation 属性

DisplayExcel4Menus 属性

DisplayFormulaBar 属性

DisplayFormulas 属性

DisplayFullScreen 属性

DisplayGridlines 属性

DisplayHeadings 属性

DisplayHorizontalScrollBar 属性

DisplayInfoWindow 属性

DisplayNoteIndicator 属性

DisplayOutline 属性

DisplayRecentFiles 属性

DisplayRightToLeft 属性

DisplayRSquared 属性

DisplayScrollBars 属性

DisplayStatusBar 属性

DisplayVerticalScrollBar 属性

DisplayWorkbookTabs 属性

DisplayZeros 属性

Do...Loop 语句

DoEvents 语句

Double 数据类型

DoubleClick 方法

DoughnutGroups 方法

DoughnutHoleSize 属性

DownBars 对象

DownBars 属性

Draft 属性

Drawing 对象

DrawingObjects 方法

DrawingObjects 对象

Drawings 方法

Drawings 对象

DropDown 对象

DropDownLines 属性

DropDowns 方法

DropDowns 对象

DropLines 对象

DropLines 属性

Duplicate 方法

E

Each (For Each...Next 语句)

Edit 方法

EditBox 对象

EditBoxes 方法

EditBoxes 对象

EditDirectlyInCell 属性

EditionOptions 方法

Elevation 属性

ElseIf (If...Then...Else 语句)

Else

Empty

EnableCancelKey 属性

Enabled 属性

EnableTipWizard 属性

Enclosures 属性

End 方法

End 语句

EndIf (If...Then...Else 语句)

EndStyle 属性

EntireColumn 属性

EntireRow 属性

EOF 函数

Eqv 运算符

Erase 语句

Erl 函数

Err 函数

Err 语句

Error 函数

Error 语句

ErrorBar 方法

ErrorBars 对象

ErrorBars 属性

Error

Evaluate 方法

Excel4IntlMacroSheets 方法

Excel4MacroSheets 方法

ExecuteExcel4Macro 方法

Exit 语句

Exp 函数

Explicit (Option Explicit 语句)

Explosion 属性

Extend 方法

F

False

FileAttr 函数

FileConverters 属性

FileCopy 语句

FileDateTime 函数

FileFormat 属性

FileLen 函数

FillAcrossSheets 方法

FillDown 方法

FillLeft 方法

FillRight 方法

FillUp 方法

FilterMode 属性

Find 方法

FindFile 方法

FindNext 方法

FindPrevious 方法

FirstPageNumber 属性

FirstSliceAngle 属性

FitToPagesTall 属性

FitToPagesWide 属性

Fix 函数

FixedDecimal 属性

FixedDecimalPlaces 属性

Floor 对象

Floor 属性

Focus 属性

Font 对象

Font 属性

FontStyle 属性

FooterMargin 属性

For Each...Next 语句

For...Next 语句

Format 函数

Formula 属性

FormulaArray 属性

FormulaHidden 属性

FormulaLocal 属性

FormulaR1C1 属性

FormulaR1C1Local 属性

Forward 属性

ForwardMailer 方法

FreeFile 函数

FreezePanes 属性

FullName 属性

Function 属性

Function 语句

FunctionWizard 方法

G

GapDepth 属性

GapWidth 属性

Get 语句

GetAttr 函数

GetCustomListContents 方法

GetCustomListNum 方法

GetObject 函数

Get

GetOpenFilename 方法

GetSaveAsFilename 方法

GoalSeek 方法

GoSub...Return 语句

Goto 方法

GoTo 语句

GridlineColor 属性

GridlineColorIndex 属性

Gridlines 对象

Group 方法

GroupBox 对象

GroupBoxes 方法

GroupBoxes 对象

GroupLevel 属性

GroupObject 对象

GroupObjects 方法

GroupObjects 对象

H

HasArray 属性

HasAutoFormat 属性

HasAxis 属性

HasDataLabel 属性

HasDataLabels 属性

HasDropLines 属性

HasErrorBars 属性

HasFormula 属性

HasHiLoLines 属性

HasLegend 属性

HasMailer 属性

HasMajorGridlines 属性

HasMinorGridlines 属性

HasPassword 属性

HasRadarAxisLabels 属性

HasRoutingSlip 属性

HasSeriesLines 属性

HasTitle 属性

HasUpDownBars 属性

HeaderMargin 属性

Height 属性

HeightPercent 属性

Help 方法

HelpButton 属性

Hex 函数

Hidden 属性

HiddenFields 方法

HiddenItems 方法

Hide 方法

HiLoLines 对象

HiLoLines 属性

HorizontalAlignment 属性

Hour 函数

I

Id 属性

If...Then...Else 语句

IgnoreRemoteRequests 属性

IMEStatus 函数

Imp 运算符

Import 方法

InchesToPoints 方法

IncludeAlignment 属性

IncludeBorder 属性

IncludeFont 属性

IncludeNumber 属性

IncludePatterns 属性

IncludeProtection 属性

Index 属性

InnerDetail 属性

In

Input # 语句

Input 函数

InputBox 函数

InputBox 方法

InputType 属性

Insert 方法

InsertFile 方法

Installed 属性

InStr 函数

Int 函数

Integer 数据类型

Interactive 属性

Intercept 属性

InterceptIsAuto 属性

Interior 对象

Interior 属性

International 属性

Intersect 方法

InvertIfNegative 属性

Is 运算符

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsGap 属性

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

Is

Italic 属性

Item 方法

Iteration 属性

J

Justify 方法

K

Keywords 属性

Kill 语句

L

Label 对象

LabelRange 属性

Labels 方法

Labels 对象

LargeButtons 属性

LargeChange 属性

LargeScroll 方法

LBound 函数

LCase 函数

Left 函数

Left 属性

LeftFooter 属性

LeftHeader 属性

LeftMargin 属性

Legend 对象

Legend 属性

LegendEntries 方法

LegendEntries 对象

LegendEntry 对象

LegendKey 对象

LegendKey 属性

Len 函数

Let 语句

Let

Lib (Declare 语句)

LibraryPath 属性

Like 运算符

Line Input # 语句

Line 对象

Line3DGroup 属性

LineGroups 方法

Lines 方法

Lines 对象

LineStyle 属性

LinkCombo 方法

LinkedCell 属性

LinkedObject 属性

LinkInfo 方法

LinkSources 方法

List 属性

ListBox 对象

ListBoxes 方法

ListBoxes 对象

ListCount 属性

ListFillRange 属性

ListIndex 属性

ListNames 方法

Loc 函数

Local (On Error 语句)

LocationInTable 属性

Lock...Unlock 语句

Locked 属性

LockedText 属性

LOF 函数

Log 函数

Long 数据类型

Loop (Do...Loop 语句)

LSet 语句

LTrim 函数

M

MacID 函数

MacroType 属性

MacScript 语句

Mailer 对象

Mailer 属性

MailLogoff 方法

MailLogon 方法

MailSession 属性

MailSystem 属性

MajorGridlines 属性

MajorTickMark 属性

MajorUnit 属性

MajorUnitIsAuto 属性

MarkerBackgroundColor 属性

MarkerBackgroundColorIndex 属性

MarkerForegroundColor 属性

MarkerForegroundColorIndex 属性

MarkerStyle 属性

MathCoprocessorAvailable 属性

Max 属性

MaxChange 属性

MaximumScale 属性

MaximumScaleIsAuto 属性

MaxIterations 属性

MemoryFree 属性

MemoryTotal 属性

MemoryUsed 属性

Menu 对象

MenuBar 对象

MenuBars 方法

MenuBars 对象

MenuItem 对象

MenuItems 方法

MenuItems 对象

Menus 方法

Menus 对象

Merge 方法

Message 属性

Mid 函数

Mid 语句

Min 属性

MinimumScale 属性

MinimumScaleIsAuto 属性

MinorGridlines 属性

MinorTickMark 属性

MinorUnit 属性

MinorUnitIsAuto 属性

Minute 函数

MkDir 语句

Mod 运算符

Module 对象

Modules 方法

Modules 对象

Month 函数

MouseAvailable 属性

Move 方法

MoveAfterReturn 属性

MsgBox 函数

MultiLine 属性

MultiSelect 属性

N

Name 对象

Name 属性

Name 语句

NameIsAuto 属性

NameLocal 属性

Names 方法

Names 对象

NavigateArrow 方法

NewWindow 方法

Next 属性

NextLetter 方法

Next

Not 运算符

NoteText 方法

Now 函数

Null

NumberFormat 属性

NumberFormatLinked 属性

NumberFormatLocal 属性

O

Object 数据类型

Object 属性

Oct 函数

Offset 方法

OLEObject 对象

OLEObjects 方法

OLEObjects 对象

OLEType 属性

On Error 语句

On GoSub 语句

On Goto 语句

OnAction 属性

OnCalculate 属性

OnData 属性

OnDoubleClick 属性

OnEntry 属性

OnKey 方法

On

OnRepeat 方法

OnSheetActivate 属性

OnSheetDeactivate 属性

OnTime 方法

OnUndo 方法

OnWindow 属性

Open 方法

Open 语句

OpenLinks 方法

OpenText 方法

OperatingSystem 属性

Option Base 语句

Option Compare 语句

Option Explicit 语句

Option Private 语句

Optional

OptionButton 对象

OptionButtons 方法

OptionButtons 对象

Option

Or 运算符

Order 属性

OrganizationName 属性

Orientation 属性

Outline 对象

Outline 属性

OutlineFont 属性

OutlineLevel 属性

Output (Open 语句)

Oval 对象

Ovals 方法

Ovals 对象

Overlap 属性

P

PageBreak 属性

PageFields 方法

PageRange 属性

PageSetup 对象

PageSetup 属性

Pane 对象

Panes 方法

Panes 对象

PaperSize 属性

Parent 属性

ParentField 属性

ParentItem 属性

ParentItems 方法

ParentShowDetail 属性

Parse 方法

Paste 方法

PasteFace 方法

PasteSpecial 方法

Path 属性

PathSeparator 属性

Pattern 属性

PatternColor 属性

PatternColorIndex 属性

Period 属性

Perspective 属性

PhoneticAccelerator 属性

Picture 对象

Pictures 方法

Pictures 对象

PictureType 属性

PictureUnit 属性

Pie3DGroup 属性

PieGroups 方法

PivotField 对象

PivotField 属性

PivotFields 方法

PivotFields 对象

PivotItem 对象

PivotItem 属性

PivotItems 方法

PivotItems 对象

PivotTable 对象

PivotTable 属性

PivotTables 方法

PivotTables 对象

PivotTableWizard 方法

Placement 属性

Play 方法

PlotArea 对象

PlotArea 属性

PlotOrder 属性

PlotVisibleOnly 属性

Point 对象

Points 方法

Points 对象

Position 属性

Precedents 属性

PrecisionAsDisplayed 属性

PrefixCharacter 属性

Preserve (ReDim 语句)

Previous 属性

PreviousSelections 属性

Print # 语句

Print 方法

PrintArea 属性

PrintGridlines 属性

PrintHeadings 属性

PrintNotes 属性

PrintObject 属性

PrintOut 方法

PrintPreview 方法

PrintQuality 属性

PrintTitleColumns 属性

PrintTitleRows 属性

Private 语句

Private

PromptForSummaryInfo 属性

Property Get 语句

Property Let 语句

Property Set 语句

Property

Protect 方法

ProtectContents 属性

ProtectDrawingObjects 属性

ProtectScenarios 属性

ProtectStructure 属性

ProtectWindows 属性

Public 语句

Public

Pushed 属性

Put 语句

Q

Quit 方法

R

RadarAxisLabels 属性

RadarGroups 方法

Random (Open 语句)

Randomize 语句

Range 方法

Range 对象

Read (Open 语句)

ReadOnly 属性

ReadOnlyRecommended 属性

Received 属性

Recipients 属性

Record 方法

RecordMacro 方法

RecordRelative 属性

Rectangle 对象

Rectangles 方法

Rectangles 对象

RegisterXLL 方法

ReDim 语句

ReferenceStyle 属性

RefersTo 属性

RefersToLocal 属性

RefersToR1C1 属性

RefersToR1C1Local 属性

RefreshDate 属性

RefreshName 属性

RefreshTable 方法

RegisteredFunctions 属性

Rem 语句

RemoveAllItems 方法

RemoveItem 方法

RemoveSubtotal 方法

Repeat 方法

Replace 方法

Reply 方法

ReplyAll 方法

Reset 方法

Reset 语句

ResetTipWizard 方法

Reshape 方法

Resize 方法

Resume 语句

Return (GoSub...Return 语句)

ReturnWhenDone 属性

ReversePlotOrder 属性

RGB 函数

Right 函数

RightAngleAxes 属性

RightFooter 属性

RightHeader 属性

RightMargin 属性

RmDir 语句

Rnd 函数

Rotation 属性

RoundedCorners 属性

Route 方法

Routed 属性

RoutingSlip 对象

RoutingSlip 属性

Row 属性

RowDifferences 方法

RowFields 方法

RowGrand 属性

RowHeight 属性

RowRange 属性

Rows 方法

RSet 语句

RTrim 函数

Run 方法

RunAutoMacros 方法

S

Save 方法

SaveAs 方法

SaveCopyAs 方法

Saved 属性

SaveData 属性

SaveLinkValues 属性

ScaleType 属性

Scenario 对象

Scenarios 方法

Scenarios 对象

ScreenUpdating 属性

ScrollBar 对象

ScrollBars 方法

ScrollBars 对象

ScrollColumn 属性

ScrollRow 属性

ScrollWorkbookTabs 方法

Second 函数

Seek 函数

Seek 语句

Select Case 语句

Select 方法

Selected 属性

SelectedSheets 方法

Selection 属性

SendDateTime 属性

Sender 属性

SendKeys 方法

SendKeys 语句

SendMail 方法

SendMailer 方法

SendToBack 方法

Series 对象

SeriesCollection 方法

SeriesCollection 对象

SeriesLines 对象

SeriesLines 属性

Set 语句

SetAttr 语句

SetDefaultChart 方法

SetInfoDisplay 方法

SetLinkOnData 方法

Set

Sgn 函数

Shadow 属性

Shared

Sheets 方法

Sheets 对象

SheetsInNewWorkbook 属性

Shell 函数

ShortcutKey 属性

ShortcutMenus 方法

Show 方法

ShowAllData 方法

ShowDataForm 方法

ShowDependents 方法

ShowDetail 属性

ShowErrors 方法

ShowLegendKey 属性

ShowLevels 方法

ShowPages 方法

ShowPrecedents 方法

ShowToolTips 属性

Sin 函数

Single 数据类型

Size 属性

SizeWithWindow 属性

SmallChange 属性

SmallScroll 方法

Smooth 属性

Sort 方法

SortSpecial 方法

SoundNote 对象

SoundNote 属性

SourceData 属性

SourceName 属性

Space 函数

Spc 函数

SpecialCells 方法

Spinner 对象

Spinners 方法

Spinners 对象

Split 属性

SplitColumn 属性

SplitHorizontal 属性

SplitRow 属性

SplitVertical 属性

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数

Sqr 函数

StandardFont 属性

StandardFontSize 属性

StandardHeight 属性

StandardWidth 属性

StartupPath 属性

Static 语句

Status 属性

StatusBar 属性

Step

Stop 语句

Str 函数

StrComp 函数

StrConv 函数

Strikethrough 属性

String 数据类型

String 函数

Style 对象

Style 属性

Styles 方法

Styles 对象

Sub 语句

Subject 属性

SubscribeTo 方法

Subscript 属性

Subtotal 方法

Subtotals 属性

SubType 属性

Summary 属性

SummaryColumn 属性

SummaryRow 属性

Superscript 属性

SurfaceGroup 属性

T

Tab 函数

Table 方法

TableRange1 属性

TableRange2 属性

TabRatio 属性

Tan 函数

Text (Option Compare 语句)

Text 属性

TextBox 对象

TextBoxes 方法

TextBoxes 对象

TextToColumns 方法

Then (If...Then 语句)

ThisWorkbook 属性

TickLabelPosition 属性

TickLabels 对象

TickLabels 属性

TickLabelSpacing 属性

TickMarkSpacing 属性

Time 函数

Time 语句

Timer 函数

TimeSerial 函数

TimeValue 函数

Title 属性

To

Toolbar 对象

ToolbarButton 对象

ToolbarButtons 方法

ToolbarButtons 对象

Toolbars 方法

Toolbars 对象

Top 属性

TopLeftCell 属性

TopMargin 属性

ToRecipients 属性

TotalLevels 属性

TrackStatus 属性

TransitionExpEval 属性

TransitionFormEntry 属性

TransitionMenuKey 属性

TransitionMenuKeyAction 属性

TransitionNavigKeys 属性

Trendline 对象

Trendlines 方法

Trendlines 对象

Trim 语句

True

Type 属性

Type 语句

TypeName 函数

U

UBound 函数

UCase 函数

Underline 属性

Undo 方法

Ungroup 方法

Union 方法

Unlock (Lock...Unlock 语句)

Unprotect 方法

Until (Do...Loop 语句)

UpBars 对象

UpBars 属性

Update 方法

UpdateFromFile 方法

UpdateLink 方法

UpdateRemoteReferences 属性

UsableHeight 属性

UsableWidth 属性

UsedRange 属性

UserName 属性

UseStandardHeight 属性

UseStandardWidth 属性

V

Val 函数

Value 属性

Values 属性

Variant 数据类型

VarType 函数

VaryByCategories 属性

Verb 方法

Version 属性

VerticalAlignment 属性

Vertices 属性

Visible 属性

VisibleFields 方法

VisibleItems 方法

VisibleRange 属性

Volatile 方法

W

Wait 方法

Walls 对象

Walls 属性

WallsAndGridlines2D 属性

Weekday 函数

Weight 属性

While...Wend 语句

Width # 语句

Width 属性

Window 对象

WindowNumber 属性

Windows 方法

Windows 对象

WindowsForPens 属性

WindowState 属性

With 语句

Workbook 对象

Workbooks 方法

Workbooks 对象

Worksheet 对象

Worksheet 属性

Worksheets 方法

Worksheets 对象

WrapText 属性

Write # 语句

WriteReserved 属性

WriteReservedBy 属性

X

Xor 运算符

XValues 属性

XYGroups 方法

Y

Year 函数

Z

Zoom 属性

ZOrder 属性


参阅程序语言
参阅

函数

任务关键字

方法

对象

属性

语句


参阅语句
参阅

函数

任务关键字

方法

对象

程序语言摘要

属性


参阅函数
参阅

任务关键字

方法

对象

程序语言摘要

属性

语句


参阅方法
参阅

函数

任务关键字

对象

程序语言摘要

属性

语句


参阅对象
参阅

函数

任务关键字

方法

程序语言摘要

属性

语句


参阅属性
参阅

函数

任务关键字

方法

对象

程序语言摘要

语句


 对象


 对象

参阅

A

AddIn 对象

AddIns 对象

Application 对象

Arc 对象

Arcs 对象

Areas 对象

Axes 对象

Axis 对象

AxisTitle 对象

B

Border 对象

Borders 对象

Button 对象

Buttons 对象

C

Characters 对象

Chart 对象

ChartArea 对象

ChartGroup 对象

ChartGroups 对象

ChartObject 对象

ChartObjects 对象

Charts 对象

ChartTitle 对象

CheckBox 对象

CheckBoxes 对象

Corners 对象

D

DataLabel 对象

DataLabels 对象

Debug 对象

Dialog 对象

DialogFrame 对象

Dialogs 对象

DialogSheet 对象

DialogSheets 对象

DownBars 对象

Drawing 对象

DrawingObjects 对象

Drawings 对象

DropDown 对象

DropDowns 对象

DropLines 对象

E

EditBox 对象

EditBoxes 对象

ErrorBars 对象

F

Floor 对象

Font 对象

G

Gridlines 对象

GroupBox 对象

GroupBoxes 对象

GroupObject 对象

GroupObjects 对象

H

HiLoLines 对象

I

Interior 对象

J

K

L

Label 对象

Labels 对象

Legend 对象

LegendEntries 对象

LegendEntry 对象

LegendKey 对象

Line 对象

Lines 对象

ListBox 对象

ListBoxes 对象

M

Mailer 对象

Menu 对象

MenuBar 对象

MenuBars 对象

MenuItem 对象

MenuItems 对象

Menus 对象

Module 对象

Modules 对象

N

Name 对象

Names 对象

O

OLEObject 对象

OLEObjects 对象

OptionButton 对象

OptionButtons 对象

Outline 对象

Oval 对象

Ovals 对象

P

PageSetup 对象

Pane 对象

Panes 对象

Picture 对象

Pictures 对象

PivotField 对象

PivotFields 对象

PivotItem 对象

PivotItems 对象

PivotTable 对象

PivotTables 对象

PlotArea 对象

Point 对象

Points 对象

Q

R

Range 对象

Rectangle 对象

Rectangles 对象

RoutingSlip 对象

S

Scenario 对象

Scenarios 对象

ScrollBar 对象

ScrollBars 对象

Series 对象

SeriesCollection 对象

SeriesLines 对象

Sheets 对象

SoundNote 对象

Spinner 对象

Spinners 对象

Style 对象

Styles 对象

T

TextBox 对象

TextBoxes 对象

TickLabels 对象

Toolbar 对象

ToolbarButton 对象

ToolbarButtons 对象

Toolbars 对象

Trendline 对象

Trendlines 对象

U

UpBars 对象

V

W

Walls 对象

Window 对象

Windows 对象

Workbook 对象

Workbooks 对象

Worksheet 对象

Worksheets 对象

X

Y

Z


方法


方法

参阅

A

Activate 方法

ActivateMicrosoftApp 方法

ActivateNext 方法

ActivatePrevious 方法

Add 方法

AddChartAutoFormat 方法

AddCustomList 方法

AddFields 方法

AddIns 方法

AddItem 方法

AddMenu 方法

Address 方法

AddressLocal 方法

AddVertex 方法

AdvancedFilter 方法

ApplyDataLabels 方法

ApplyNames 方法

ApplyOutlineStyles 方法

Arcs 方法

AreaGroups 方法

Areas 方法

Arrange 方法

AutoFill 方法

AutoFilter 方法

AutoFit 方法

Autoformat 方法 (Chart 对象)

Autoformat 方法 (Range 对象)

AutoOutline 方法

Axes 方法

B

BarGroups 方法

BorderAround 方法

Borders 方法

BringToFront 方法

Buttons 方法

C

Calculate 方法

Cells 方法

CentimetersToPoints 方法

ChangeFileAccess 方法

ChangeLink 方法

ChangeScenario 方法

Characters 方法

ChartGroups 方法

ChartObjects 方法

Charts 方法

ChartWizard 方法

CheckBoxes 方法

CheckSpelling 方法

ChildItems 方法

Clear 方法

ClearArrows 方法

ClearContents 方法

ClearFormats 方法

ClearNotes 方法

ClearOutline 方法

Close 方法

ColumnDifferences 方法

ColumnFields 方法

ColumnGroups 方法

Columns 方法

Consolidate 方法

ConvertFormula 方法

Copy 方法

CopyFace 方法

CopyPicture 方法

CreateNames 方法

CreatePublisher 方法

CreateSummary 方法

Cut 方法

D

DataFields 方法

DataLabels 方法

DataSeries 方法

DDEExecute 方法

DDEInitiate 方法

DDEPoke 方法

DDERequest 方法

DDETerminate 方法

Delete 方法

DeleteChartAutoFormat 方法

DeleteCustomList 方法

DeleteNumberFormat 方法

Deselect 方法

DialogBox 方法

Dialogs 方法

DialogSheets 方法

DoubleClick 方法

DoughnutGroups 方法

DrawingObjects 方法

Drawings 方法

DropDowns 方法

Duplicate 方法

E

Edit 方法

EditBoxes 方法

EditionOptions 方法

End 方法

ErrorBar 方法

Evaluate 方法

Excel4IntlMacroSheets 方法

Excel4MacroSheets 方法

ExecuteExcel4Macro 方法

Extend 方法

F

FillAcrossSheets 方法

FillDown 方法

FillLeft 方法

FillRight 方法

FillUp 方法

Find 方法

FindFile 方法

FindNext 方法

FindPrevious 方法

ForwardMailer 方法

FunctionWizard 方法

G

GetCustomListContents 方法

GetCustomListNum 方法

GetOpenFilename 方法

GetSaveAsFilename 方法

GoalSeek 方法

Goto 方法

Group 方法

GroupBoxes 方法

GroupObjects 方法

H

Help 方法

HiddenFields 方法

HiddenItems 方法

Hide 方法

I

Import 方法

InchesToPoints 方法

InputBox 方法

Insert 方法

InsertFile 方法

Intersect 方法

Item 方法

J

Justify 方法

K

L

Labels 方法

LargeScroll 方法

LegendEntries 方法

LineGroups 方法

Lines 方法

LinkCombo 方法

LinkInfo 方法

LinkSources 方法

ListBoxes 方法

ListNames 方法

M

MailLogoff 方法

MailLogon 方法

MenuBars 方法

MenuItems 方法

Menus 方法

Merge 方法

Modules 方法

Move 方法

N

Names 方法

NavigateArrow 方法

NewWindow 方法

NextLetter 方法

NoteText 方法

O

Offset 方法

OLEObjects 方法

OnKey 方法

OnRepeat 方法

OnTime 方法

OnUndo 方法

Open 方法

OpenLinks 方法

OpenText 方法

OptionButtons 方法

Ovals 方法

P

PageFields 方法

Panes 方法

ParentItems 方法

Parse 方法

Paste 方法

PasteFace 方法

PasteSpecial 方法

Pictures 方法

PieGroups 方法

PivotFields 方法

PivotItems 方法

PivotTables 方法

PivotTableWizard 方法

Play 方法

Points 方法

Print 方法

PrintOut 方法

PrintPreview 方法

Protect 方法

Q

Quit 方法

R

RadarGroups 方法

Range 方法

Record 方法

RecordMacro 方法

Rectangles 方法

RefreshTable 方法

RegisterXLL 方法

RemoveAllItems 方法

RemoveItem 方法

RemoveSubtotal 方法

Repeat 方法

Replace 方法

Reply 方法

ReplyAll 方法

Reset 方法

ResetTipWizard 方法

Reshape 方法

Resize 方法

Route 方法

RowDifferences 方法

RowFields 方法

Rows 方法

Run 方法

RunAutoMacros 方法

S

Save 方法

SaveAs 方法

SaveCopyAs 方法

Scenarios 方法

ScrollBars 方法

ScrollBars 方法

ScrollWorkbookTabs 方法

Select 方法

SelectedSheets 方法

SendKeys 方法

SendMail 方法

SendMailer 方法

SendToBack 方法

SeriesCollection 方法

SetDefaultChart 方法

SetInfoDisplay 方法

SetLinkOnData 方法

Sheets 方法

ShortcutMenus 方法

Show 方法

ShowAllData 方法

ShowDataForm 方法

ShowDependents 方法

ShowErrors 方法

ShowLevels 方法

ShowPages 方法

ShowPrecedents 方法

SmallScroll 方法

Sort 方法

SortSpecial 方法

SpecialCells 方法

Spinners 方法

Styles 方法

SubscribeTo 方法

Subtotal 方法

T

Table 方法

TextBoxes 方法

TextToColumns 方法

ToolbarButtons 方法

Toolbars 方法

Trendlines 方法

U

Undo 方法

Ungroup 方法

Union 方法

Unprotect 方法

Update 方法

UpdateFromFile 方法

UpdateLink 方法

V

Verb 方法

VisibleFields 方法

VisibleItems 方法

Volatile 方法

W

Wait 方法

Windows 方法

Workbooks 方法

Worksheets 方法

X

XYGroups 方法

Y

Z


 属性


 属性

参阅

A

Accelerator 属性

ActiveCell 属性

ActiveChart 属性

ActiveDialog 属性

ActiveMenuBar 属性

ActivePane 属性

ActivePrinter 属性

ActiveSheet 属性

ActiveWindow 属性

ActiveWorkbook 属性

AddIndent 属性

AlertBeforeOverwriting 属性

AltStartupPath 属性

Application 属性

Area3DGroup 属性

ArrowHeadLength 属性

ArrowHeadStyle 属性

ArrowHeadWidth 属性

AskToUpdateLinks 属性

Author 属性

AutoFilterMode 属性

AutomaticStyles 属性

AutoScaling 属性

AutoSize 属性

AutoText 属性

AutoUpdate 属性

AxisBetweenCategories 属性

AxisGroup 属性

AxisTitle 属性

B

Background 属性

Backward 属性

Bar3DGroup 属性

BaseField 属性

BaseItem 属性

BCCRecipients 属性

BlackAndWhite 属性

Bold 属性

Border 属性

BottomMargin 属性

BottomRightCell 属性

BuiltIn 属性

BuiltInFace 属性

C

CalculateBeforeSave 属性

Calculation 属性

Caller 属性

CancelButton 属性

CanPlaySounds 属性

CanRecordSounds 属性

Caption 属性

Category 属性

CategoryLocal 属性

CategoryNames 属性

CCRecipients 属性

CellDragAndDrop 属性

CenterFooter 属性

CenterHeader 属性

CenterHorizontally 属性

CenterVertically 属性

ChangingCells 属性

Chart 属性

ChartArea 属性

ChartSize 属性

ChartTitle 属性

Checked 属性

ChildField 属性

CircularReference 属性

ClipboardFormats 属性

Color 属性

ColorButtons 属性

ColorIndex 属性

Colors 属性

Column 属性

Column3DGroup 属性

ColumnGrand 属性

ColumnRange 属性

ColumnWidth 属性

CommandUnderlines 属性

Comment 属性

Comments 属性

ConsolidationFunction 属性

ConsolidationOptions 属性

ConsolidationSources 属性

ConstrainNumeric 属性

CopyObjectsWithCells 属性

Corners 属性

Count 属性

CreateBackup 属性

Creator 属性

Crosses 属性

CrossesAt 属性

CurrentArray 属性

CurrentPage 属性

CurrentRegion 属性

CustomListCount 属性

CutCopyMode 属性

D

DataBodyRange 属性

DataEntryMode 属性

DataLabel 属性

DataLabelRange 属性

DataRange 属性

DataType 属性

Date1904 属性

DDEAppReturnCode 属性

DefaultButton 属性

DefaultFilePath 属性

Delivery 属性

Dependents 属性

DepthPercent 属性

DialogFrame 属性

DirectDependents 属性

DirectPrecedents 属性

DismissButton 属性

Display3DShading 属性

DisplayAlerts 属性

DisplayAutomaticPageBreaks 属性

DisplayBlanksAs 属性

DisplayClipboardWindow 属性

DisplayDrawingObjects 属性

DisplayEquation 属性

DisplayExcel4Menus 属性

DisplayFormulaBar 属性

DisplayFormulas 属性

DisplayFullScreen 属性

DisplayGridlines 属性

DisplayHeadings 属性

DisplayHorizontalScrollBar 属性

DisplayInfoWindow 属性

DisplayNoteIndicator 属性

DisplayOutline 属性

DisplayRecentFiles 属性

DisplayRightToLeft 属性

DisplayRSquared 属性

DisplayScrollBars 属性

DisplayStatusBar 属性

DisplayVerticalScrollBar 属性

DisplayWorkbookTabs 属性

DisplayZeros 属性

DoughnutHoleSize 属性

DownBars 属性

Draft 属性

DropDownLines 属性

DropLines 属性

E

EditDirectlyInCell 属性

Elevation 属性

EnableCancelKey 属性

Enabled 属性

EnableTipWizard 属性

Enclosures 属性

EndStyle 属性

EntireColumn 属性

EntireRow 属性

ErrorBars 属性

Explosion 属性

F

FileConverters 属性

FileFormat 属性

FilterMode 属性

FirstPageNumber 属性

FirstSliceAngle 属性

FitToPagesTall 属性

FitToPagesWide 属性

FixedDecimal 属性

FixedDecimalPlaces 属性

Floor 属性

Focus 属性

Font 属性

FontStyle 属性

FooterMargin 属性

Formula 属性

FormulaArray 属性

FormulaHidden 属性

FormulaLocal 属性

FormulaR1C1 属性

FormulaR1C1Local 属性

Forward 属性

FreezePanes 属性

FullName 属性

Function 属性

G

GapDepth 属性

GapWidth 属性

GridlineColor 属性

GridlineColorIndex 属性

GroupLevel 属性

H

HasArray 属性

HasAutoFormat 属性

HasAxis 属性

HasDataLabel 属性

HasDataLabels 属性

HasDropLines 属性

HasErrorBars 属性

HasFormula 属性

HasHiLoLines 属性

HasLegend 属性

HasMailer 属性

HasMajorGridlines 属性

HasMinorGridlines 属性

HasPassword 属性

HasRadarAxisLabels 属性

HasRoutingSlip 属性

HasSeriesLines 属性

HasTitle 属性

HasUpDownBars 属性

HeaderMargin 属性

Height 属性

HeightPercent 属性

HelpButton 属性

Hidden 属性

HiLoLines 属性

HorizontalAlignment 属性

I

Id 属性

IgnoreRemoteRequests 属性

IncludeAlignment 属性

IncludeBorder 属性

IncludeFont 属性

IncludeNumber 属性

IncludePatterns 属性

IncludeProtection 属性

Index 属性

InnerDetail 属性

InputType 属性

Installed 属性

Interactive 属性

Intercept 属性

InterceptIsAuto 属性

Interior 属性

International 属性

InvertIfNegative 属性

IsGap 属性

Italic 属性

Iteration 属性

J

K

Keywords 属性

L

LabelRange 属性

LargeButtons 属性

LargeChange 属性

Left 属性

LeftFooter 属性

LeftHeader 属性

LeftMargin 属性

Legend 属性

LegendKey 属性

LibraryPath 属性

Line3DGroup 属性

LineStyle 属性

LinkedCell 属性

LinkedObject 属性

List 属性

ListCount 属性

ListFillRange 属性

ListIndex 属性

LocationInTable 属性

Locked 属性

LockedText 属性

M

MacroType 属性

Mailer 属性

MailSession 属性

MailSystem 属性

MajorGridlines 属性

MajorTickMark 属性

MajorUnit 属性

MajorUnitIsAuto 属性

MarkerBackgroundColor 属性

MarkerBackgroundColorIndex 属性

MarkerForegroundColor 属性

MarkerForegroundColorIndex 属性

MarkerStyle 属性

MathCoprocessorAvailable 属性

Max 属性

MaxChange 属性

MaximumScale 属性

MaximumScaleIsAuto 属性

MaxIterations 属性

MemoryFree 属性

MemoryTotal 属性

MemoryUsed 属性

Message 属性

Min 属性

MinimumScale 属性

MinimumScaleIsAuto 属性

MinorGridlines 属性

MinorTickMark 属性

MinorUnit 属性

MinorUnitIsAuto 属性

MouseAvailable 属性

MoveAfterReturn 属性

MultiLine 属性

MultiSelect 属性

N

Name 属性

NameIsAuto 属性

NameLocal 属性

Next 属性

NumberFormat 属性

NumberFormatLinked 属性

NumberFormatLocal 属性

O

Object 属性

OLEType 属性

OnAction 属性

OnCalculate 属性

OnData 属性

OnDoubleClick 属性

OnEntry 属性

OnSheetActivate 属性

OnSheetDeactivate 属性

OnWindow 属性

OperatingSystem 属性

Order 属性

OrganizationName 属性

Orientation 属性

Outline 属性

OutlineFont 属性

OutlineLevel 属性

Overlap 属性

P

PageBreak 属性

PageRange 属性

PageSetup 属性

PaperSize 属性

Parent 属性

ParentField 属性

ParentItem 属性

ParentShowDetail 属性

Path 属性

PathSeparator 属性

Pattern 属性

PatternColor 属性

PatternColorIndex 属性

Period 属性

Perspective 属性

PhoneticAccelerator 属性

PictureType 属性

PictureUnit 属性

Pie3DGroup 属性

PivotField 属性

PivotItem 属性

PivotTable 属性

Placement 属性

PlotArea 属性

PlotOrder 属性

PlotVisibleOnly 属性

Position 属性

Precedents 属性

PrecisionAsDisplayed 属性

PrefixCharacter 属性

Previous 属性

PreviousSelections 属性

PrintArea 属性

PrintGridlines 属性

PrintHeadings 属性

PrintNotes 属性

PrintObject 属性

PrintQuality 属性

PrintTitleColumns 属性

PrintTitleRows 属性

PromptForSummaryInfo 属性

ProtectContents 属性

ProtectDrawingObjects 属性

ProtectScenarios 属性

ProtectStructure 属性

ProtectWindows 属性

Pushed 属性

Q

R

RadarAxisLabels 属性

ReadOnly 属性

ReadOnlyRecommended 属性

Received 属性

Recipients 属性

RecordRelative 属性

ReferenceStyle 属性

RefersTo 属性

RefersToLocal 属性

RefersToR1C1 属性

RefersToR1C1Local 属性

RefreshDate 属性

RefreshName 属性

RegisteredFunctions 属性

ReturnWhenDone 属性

ReversePlotOrder 属性

RightAngleAxes 属性

RightFooter 属性

RightHeader 属性

RightMargin 属性

Rotation 属性

RoundedCorners 属性

Routed 属性

RoutingSlip 属性

Row 属性

RowGrand 属性

RowHeight 属性

RowRange 属性

S

Saved 属性

SaveData 属性

SaveLinkValues 属性

ScaleType 属性

ScreenUpdating 属性

ScrollColumn 属性

ScrollRow 属性

Selected 属性

Selection 属性

SendDateTime 属性

Sender 属性

SeriesLines 属性

Shadow 属性

SheetsInNewWorkbook 属性

ShortcutKey 属性

ShowDetail 属性

ShowLegendKey 属性

ShowToolTips 属性

Size 属性

SizeWithWindow 属性

SmallChange 属性

Smooth 属性

SoundNote 属性

SourceData 属性

SourceName 属性

Split 属性

SplitColumn 属性

SplitHorizontal 属性

SplitRow 属性

SplitVertical 属性

StandardFont 属性

StandardFontSize 属性

StandardHeight 属性

StandardWidth 属性

StartupPath 属性

Status 属性

StatusBar 属性

Strikethrough 属性

Style 属性

Subject 属性

Subscript 属性

Subtotals 属性

SubType 属性

Summary 属性

SummaryColumn 属性

SummaryRow 属性

Superscript 属性

SurfaceGroup 属性

T

TableRange1 属性

TableRange1 属性

TableRange2 属性

TabRatio 属性

Text 属性

ThisWorkbook 属性

TickLabelPosition 属性

TickLabels 属性

TickLabelSpacing 属性

TickMarkSpacing 属性

Title 属性

Top 属性

TopLeftCell 属性

TopMargin 属性

ToRecipients 属性

TotalLevels 属性

TrackStatus 属性

TransitionExpEval 属性

TransitionFormEntry 属性

TransitionMenuKey 属性

TransitionMenuKeyAction 属性

TransitionNavigKeys 属性

Type 属性

U

Underline 属性

UpBars 属性

UpdateRemoteReferences 属性

UsableHeight 属性

UsableWidth 属性

UsedRange 属性

UserName 属性

UseStandardHeight 属性

UseStandardWidth 属性

V

Value 属性

Values 属性

VaryByCategories 属性

Version 属性

VerticalAlignment 属性

Vertices 属性

Visible 属性

VisibleRange 属性

W

Walls 属性

WallsAndGridlines2D 属性

Weight 属性

Width 属性

WindowNumber 属性

WindowsForPens 属性

WindowState 属性

Worksheet 属性

WrapText 属性

WriteReserved 属性

WriteReservedBy 属性

X

XValues 属性

Y

Z

Zoom 属性

ZOrder 属性


函数


函数

参阅

A

Abs 函数

Array 函数

Asc 函数

Atn 函数

B

C

CBool 函数

CCur 函数

CDate 函数

CDbl 函数

Chr 函数

CInt 函数

CLng 函数

Cos 函数

CreateObject 函数

CSng 函数

CStr 函数

CurDir 函数

CVar 函数

CVErr 函数

D

Date 函数

DateSerial 函数

DateValue 函数

Day 函数

Dir 函数

E

EOF 函数

Erl 函数

Err 函数

Error 函数

Exp 函数

F

FileAttr 函数

FileDateTime 函数

FileLen 函数

Fix 函数

Format 函数

FreeFile 函数

G

GetAttr 函数

GetObject 函数

H

Hex 函数

Hour 函数

I

IMEStatus 函数

Input 函数

InputBox 函数

InStr 函数

Int 函数

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

J

K

L

LBound 函数

LCase 函数

Left 函数

Len 函数

Loc 函数

LOF 函数

Log 函数

LTrim 函数

M

MacID 函数

Mid 函数

Minute 函数

Month 函数

MsgBox 函数

N

Now 函数

O

Oct 函数

P

Q

R

RGB 函数

Right 函数

Rnd 函数

RTrim 函数

S

Second 函数

Seek 函数

Sgn 函数

Shell 函数

Sin 函数

Space 函数

Spc 函数

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数

Sqr 函数

Str 函数

StrComp 函数

StrConv 函数

String 函数

T

Tab 函数

Tan 函数

Time 函数

Timer 函数

TimeSerial 函数

TimeValue 函数

TypeName 函数

U

UBound 函数

UCase 函数

V

Val 函数

VarType 函数

W

Weekday 函数

X

Y

Year 函数

Z


 语句


 语句

参阅

A

Access (Open 语句)

Alias (Declare 语句)

Any (Declare 语句)

AppActivate 语句

Append (Open 语句)

B

Base (Option Base 语句)

Beep 语句

Binary (Option Compare 语句)

C

Call 语句

Case (Select Case 语句)

ChDir 语句

ChDrive 语句

Close 语句

Compare (Option Compare 语句)

Const 语句

D

Date 语句

Declare 语句

DefBool (Deftype 语句)

DefCur (Deftype 语句)

DefDate (Deftype 语句)

DefDbl (Deftype 语句)

DefInt (Deftype 语句)

DefLng (Deftype 语句)

DefObj (Deftype 语句)

DefSng (Deftype 语句)

DefStr (Deftype 语句)

DefVar (Deftype 语句)

Dim 语句

Do...Loop 语句

DoEvents 语句

E

Each (For Each...Next 语句)

Else (If...Then...Else 语句)

ElseIf (If...Then...Else 语句)

End 语句

EndIf (If...Then...Else 语句)

Erase 语句

Err 语句

Error 语句

Exit 语句

Explicit (Option Explicit 语句)

F

FileCopy 语句

For Each...Next 语句

For...Next 语句

Function 语句

G

Get 语句

GoSub...Return 语句

GoTo 语句

H

I

If...Then...Else 语句

Input # 语句

J

K

Kill 语句

L

Let 语句

Lib (Declare 语句)

Line Input # 语句

Local (On Error 语句)

Lock...Unlock 语句

Loop (Do...Loop 语句)

LSet 语句

M

MacScript 语句

Mid 语句

MkDir 语句

N

Name 语句

O

On Error 语句

On GoSub 语句

On Goto 语句

Open 语句

Option Base 语句

Option Compare 语句

Option Explicit 语句

Option Private 语句

Output (Open 语句)

P

Preserve (ReDim 语句)

Print # 语句

Private 语句

Property Get 语句

Property Let 语句

Property Set 语句

Public 语句

Put 语句

Q

R

Random (Open 语句)

Randomize 语句

Read (Open 语句)

ReDim 语句

Rem 语句

Reset 语句

Resume 语句

Return (GoSub...Return 语句)

RmDir 语句

RSet 语句

S

Seek 语句

Select Case 语句

SendKeys 语句

Set 语句

SetAttr 语句

Static 语句

Stop 语句

Sub 语句

T

Text (Option Compare 语句)

Then (If...Then 语句)

Time 语句

Trim 语句

Type 语句

U

Unlock (Lock...Unlock 语句

Until (Do...Loop 语句)

User-Defined Data Type (Type 语句)

V

W

While...Wend 语句

Width # 语句

With 语句

Write # 语句

X

Y

Z


CheckBox 对象

属性	 方法

描述

选定框控制工作表或对话框编辑表。

解释

选定框有位置和维数但没有格式特性。选定框的背景和字体是固定的。


CheckBoxes对象

属性	 方法

描述

   CheckBox 对象的集合。


DialogFrame 对象

属性	 方法

描述

对话框架为用户定义的对话提供了后拉手段它没有格式属性，仅有   位置，大小和功能标题。每个对话框编辑表仅有一个对话框架存在，它不能在  任何其它图形对象之前删除或移去。在工作表上不存在对话框架。


DropDown 对象

属性	 方法

描述

下拉列表框，可编辑或不可编辑。可以选定列表中的一个项，在可

编辑版中，用户能在编辑字段键入任意文字。


DropDowns 对象

属性	  方法

描述

 DropDown对象的集合


EditBox 对象

属性	 方法

描述

    编辑框允许文字在对话中输入。

解释

    不象其它控制项，编辑框没有数字值，不能链接到单元格。


EditBoxes 对象

属性	 方法

描述

EditBox 对象的集合。


GroupBox 对象

属性	 方法

描述

    用于标记和分组一套选定项按钮（OptionButton对象）和其它

    控制的静态框架。

解释

 组框没有字体或背景格式，但有加速器键。组框能定位和缩放。 组框控制选项按钮如何选定和清除。 在组框边界内所含的左上角的所有选项按钮都认为是组的一部分。 任何时候在被选定的组内，至多一个选项按钮。


GroupBoxes 对象

属性	 方法

描述

 GroupBox 对象的集合。


Label 对象

属性	方法

描述

    对话框编辑表中静态文字对象。

解释

标记没有字体或背景格式，但有加速键。标记能定位和缩放。在工作表中标记不存 在。


Labels 对象

属性	方法

描述

Label对象的集合。


LegendEntries 对象

属性	方法

描述

   LegendEntry对象的集合。


LegendEntry 对象

属性	方法

描述

在图表图例中所含的文字和数据标示标记。每个图例输入项有两部分，LegendKey对象含有输入项的文字和存取输入项标记部分的方法。Legendkey 对象与每个输入项相关。它压缩了输入项的格式属性。

图例输入项的文本来自系列名字，它不能改变。LegendEntry对象支持字体格式， 也能删除它们。对图例输入项无图案格式支持。不能改变输入项的位置和大小。


LegendKey 对象

属性	方法

描述

在图表图例中包含的文字和数据标示标记。    每个图例输入项有两部分，LegendEntry 对象含有输入项的文本和存取输入项中标示部分的方法。Legendkey对象与每个输入项有 关。它压缩输入项的格式属性。格式化Legendkey引起与输入项有关的整个系列被格式 化。与输入项有关的Legendkey对象通过LegendEntry对象的属性来存取。标示压缩图例标 示的 图案格式和与它相关的系列或趋势线。图例标示不能删除或清除。


ListBox 对象

属性	方法

描述

可滚动的列表项。可由用户选定列表中的一个项。Microsoft Excel不支持用户定义对话或工作表中的多重选定列表框。用户能从单元格区域（指定 ListFillRange特性）或指定每个项（用AddItem或RemoveItem 方法或 List属性）来填充每个项。


ListBoxes 对象

属性	方法

描述

ListBox 对象的集合。


OptionButton 对象

属性	方法

描述

    选定项按钮（同样称为广播按钮）允许用户选定选项列表中的一个。

解释

选项按钮通常放在组框控制项中（GroupBox对象）。选项按钮没有字体， 边框线或图案格 式，但能 定位和缩放。


OptionButtons 对象

属性	方法

描述

OptionButton对象的集合。


Outline 对象

属性	 方法

描述

    文档的分级显示。

    Outline对象含有设置工作表的分级显示。下列属性和方法控制工作表区域分级显示：

ApplyOutlineStyles方法

AutoOutline 方法

ClearOutline 方法

DisplayOutline 属性

Group 方法

OutlineLevel 属性

ShowDetail 属性

Ungroup 方法


ScrollBar 对象

属性	方法

描述

    滚动条。滚动条不支持边框线或图案格式。


ScrollBars 对象

属性	 方法

描述

 ScrollBar 对象的集合。


Spinner 对象

属性	方法

描述

    小型滚动条；常用于编辑框之后，以便用户不必键入数字就能选定数字值。

解释

旋转器非常类似于滚动条（ScrollBar对象）。可是旋转器没有LargeChange属性。

    编辑框没有默认旋转器。如果用户希望编辑框有旋转器，则用户必须创建分离的pinner对象并加入Visual Basic代码亦把旋转器值链接到编辑框上。


Spinners对象

属性	方法

描述

   Spinner 对象的集合。


SQLBind 函数

参阅

描述

当使用SQLRetrieve函数检索时，指定结果放置在何处。该函数专门设计用于和是 SQLClose， �燬QLError， 燬QLExec 燪uery 燬QLGetchema， 牋SQLOpen和SQLRetrieve ODBC函数一起工作，提供一种使用Visual 燘asic创建自定义数据存取应用程序的方法。

该函数包含在XLODBC加载宏中。使用该函数前，必须使用工具菜单中[引用位置] 命令建立对XLODBC的引用。为进一步获取信息，参阅《Visual 燘asic用户手册》 中“在另一工作簿中调用过程”。

语法

SQLBind(connection, column, ref)

元素

SQLBind函数具有下列命名参数xldefNamedArgs:

connection

必选项。数据源唯一的连接ID，由SQLOpen返回，用于定义存储区。

column

可选项。想要装订的结果集的编号。结果集中的列从左向右由1开始编号。 如果省略column，�connection的所有装订被删除，编号为0的列包含结果集 的行号。如果编号为0的列被装订，SQLRetvieve返回装订位置中行号。

ref

可选项。工作表上想装订结果的单一单元格的位置，作为区域对象，如果ref 被省略，装订从列中删除。

返回值

该函数返回一数组，用列号列出当前连接的装订列。如果SQLBind不能装订列 到指定地址中的单元格，它返回#N／A错误值。

如果Connection非法或试图装订无效的单元格，SQLBind返回#VALUE!错误值。

如果ref引用多于一个的单元格，SQLBind返回#REF!错误值。

如果SQLRetrive没有目的参数，SQLB把结果集放在由地址指定的位置。

解释

当使用SQLRetrieve接收结果时，SQLBind通知ODBC控制面板管理器在何 处放置结果，结果放在引用单元格和紧 跟其后的单元格中。如果想 把不同列中的结果放在非连接工作表位置中，使用SQLBind。对结果 集中每列使用SQLBind，只要由Connection指定的连接被打开，装订保持合法。 SQLBind可随时被合法连接调用。调用SQLBind不影响已经检索的结果。


参阅

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数


SQLClose 函数

参阅

描述

关闭对外部数据源的连接。

该函数专门设计用于和SQLBind，SQLError，SQLExecQuery，SQLGetSchema， SQLOpen，SQLRetrieve 和SQLRetrieve ODBC函数一起工作，提供一种使用Visual �Basic创建自定义数据应用程序的方法。该函数包含在XLODBC加载宏中，使 用该函数前，必须使用[工具]菜单中[引用位置]命令建立对XLODBC加载宏的引 用。为进一步获取信息，参阅《Visual 燘asic用户手册》中“在另一工作 簿中调用过程”。

语法

SQLClose(connection)

元素

SQLClose函数具有下列命名参数:

connection

必选项。想要解除连接的数据源唯一的连接ID。

返回值

如果连接成功地关闭，该函数返回0（Zero）且连接ID不再合法。

如果Connection非法，该函数返回#VALUE!错误值。

如果SQLose不能从数据源解除连接，它返回#N/A错误值。


参阅

SQLBind 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数


SQLError 函数

参阅

描述

当另外一个ODBC函数失败后，调用该函数时，返回详细错误信息。如果SQLError 自身失败，它不能返回错误信息。

当ODBC函数失败时，SQLError函数提供有关失败函数的错误信息，该信息与Microsoft Excel错误无关。

该函数专门设计用于SQLBind，SQLClose，SQLExceQuery，SQLGetSchema，SQLOpen，SQLRetrieve和SQLRetrieve To File ODBC函数独立工作，提供一种使用Visual �Basic创建 定自定 义数据存取应用程序的方法。该函数包含在XLODBC 加载宏中。使用该函数前，必须使用[工具]菜单中[引用位置]命令建立对XLODB加 载宏的引用。为进一步获取信息，参阅《Visual Basic用户手册》中“在另一 工作簿中调用过程”。

语法

SQLError()

返回值

如果有错误，SQLError用二维数组返回详细错误信息，其中每行描述一个错误。 每行中含有通过在ODBC中调用SQLError函数获得的三个信息字段。这些字段是：

指明ODBC错误类和子类的字符串。

指明数据源内在错误代码的数值。

描述错误的文字消息。

如果函数调用产生多个错误，SQLError为每个错误创建一行。

如果以前的ODBC函数调用无错误，该函数仅返回#N/A错误值。


参阅

SQLBind 函数

SQLClose 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数


SQLExecQuery 函数

参阅

描述

在带有由SQLOopen建立的连接数据源上执行查询。 SQLQuery仅执行查询。使用SQLRetrive或SQLRetrieveToFile获得结果。该函数 专门设计用于和SQLBind，SQLClose，SQLError，SQLGetSchema，SQLOpen， SQLRetrieve函数一起工作， 提供一种使用Visual �Basic创建自定 义数据存取应用程序的方法。为进一步获取信息，参阅《Visual 燘asic用户手册》中“在另一工作簿中调用过程”。

语法

SQLExecQuery(connection, query)

元素

SQLEQuery函数具有下列命名参数:

connection

必选项。由SQLOpen返回的标识想要查询的数据源的唯一连接ID。

query

必选项。在数据源上被执行的查询。查询必须遵循指定驱动程序的SQL语法规则。

返回值SQLExecQuery返回的值依赖于执行的SQL语句类型:

执行的SQL语句	返回值

SELECT 	结果集中的列号。

UPDATE，INSERT或DELETE 	由语句影响的行号。

任一其它合法SQL语句	0

如果SQLExecQuery不能执行指定数据源的查询，它返回#N/A错误值。

如果Connection非法，SQLExecQuery返回#VAlUE!错误。

解释

在调用SQLExecQuery前，必须使用SQLOpen建立与数据源的连接。由SQLOpen 返回的唯一 连接ID被SQLExecQuery使用发送查询到数据源。 如果使用以前使用的连接ID调用SQLExecQuery，那该连接上的悬而未决的 结果被新结果替换。


参阅

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数


SQLGetSchema 函数

参阅

描述

返回特定连接上关于数据源结构的信息。该函数专门设计用于和SQLBind， SQLCLose，SQLError，SQLExecQuery，SQLOpen，SQLRetrieve和SQLRetrieveToFile ODBC函数一起工作，提供一种使用Visual Basic创建自定义数据存取应用程序的方法。

该函数包含在XLODBC加载宏中，使用该函数前，必须使用[工具]菜单中[引用位置] 命令建立对XLODBC加载宏的引用。为进一步获取信息，参阅《Visual Basic用户手册》中“在另一工作簿中调用过程”主题。

语法

SQLGetSchema(connection, action, qualifier)

元素

SQLGetSchema，函数具有下列命名参数:

connection

必选项。使用SQLOpen连接的数据源的唯一连接ID，为获得想要的信息。

action

必选项，指定需返回的信息类型，如下表所示。

值    	含义

1    	有效数据源清单。

2    	当前连接上数据库清单。

3    	当前连接上数据库清单中拥有者清单。

4    	当前连接上给定拥有者和数据库表清单。

5    	特定表中列的清单和在二维数组中它们的ODBC SQL数据类型。第一字段     包含列名且第二字段是列的ODBC SQL数据类型。

6    	当前用户的用户ID。

7     	当前数据库的名字。

8    	安装期间或通过使用ODBC控制面板管理器定义的数据源的名字。

9    	数据源使用的DBMS的名字，例如ORACLE或ESQL sener。

10   	数据源服务器的名字。

11   	数据源使用的与拥有者相关的术语，例如＂ owner＂，＂Authorization     ID＂或＂Schema＂。

12   	数据源使用的与表相关的术语，例如，＂table＂或＂file＂。

13   	数据源使用的与限制相关的术语，例如＂database＂或＂ directory＂。

14   	数据源使用的与过程相关的术语，例如，＂databaseprocedure＂、 ＂storedprocedure＂或＂procedure＂。

qualifier

   可选项。仅包括action值3，4和5。限制搜索的字符串，如下表所示：

action    	限制

3      	当前数据源中数据库的名字。SQLGetSchema返回数据库中 表拥有者的名字。

4	数据库和拥有者名字。语法由数据库名字后跟拥有者的名字组成 ，两者用句点分隔。例如＂Databame.OwnerName＂。该函数返回 在给定数据库中定位的和由给定拥有者拥有的表格名字的数组。

5      	表的名字。SQLGetSchema返回关于表中列的信息。

返回值

 对SQLGetSchema成功的调用返回的值依赖于请求的信息类型。 如果SQLGetSchema不能找到请求的信息，它返回#N/A错误值。如果connection非法， 该函数返回#VALUE!错误值。

解释

SQLGetSchema与ODBC函数SQLGetInfo和SQLTables一同工作查找请求的信息。


参阅

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数


SQLOpen 函数

参阅

描述

建立对数据源的连接。

该函数专门设计用于和SQLBind、SQLClose、SQLError、SQLExecQuery、

SQLGetSchema、SQLRetreve和SQLRetreveToFile ODBC函数一起工作，提供一种使用Visual Basic创建自定义数据存取应用程序的方法。

该函数包含于XLODBC加载宏中。使用该函数前，必须使用[工具]菜单上[引用位置] 命令建立对XLODBC加载宏的引用，为进一步获取信息，参阅Visual Basic用户指南＂在另一工作簿中调用过程＂主题。

语法

SQLOpen(connectionStr, output, prompt)

元素

SQLOpen函数具有下列命名参数：

connectionStr

必选项。提供驱动程序要求的用于连接数据源信息，必须遵循驱动程序的格式。

connetionStr提供数据源名字和其他信息，诸如用户ID和口令，那是用驱动程序 进行连接所需的。在连接它之前，必须定义用在connetionStr中的数据源名字（DSN）。

output

可选项 。包含完整的连接字符串的单一单元格，作为区域对象。

若要SQLOpen返回完整连接字符串到工作表，则使用output。

prompt

可选项。指定何时驱动程序对话框被显示和何选项有效。使用下表中描述的数字 之一。如果prompt被省略，SQLOpen使用2为默认值。

值     	含义

1     	驱动程序对话框已在显示。

2      	仅当信息由连接字符串提供且数据源指定为不完整连接时，驱动 程序对话框显示，所有对话框选项有效。

3      	除了对话框选项因不需要而变暗且无效外与2同。

4      	驱动程序对话框不显示。如果连接不成功，则SQLOpen返回错误。

返回值

如果成功，SQLOpen返回唯一的连接ID号。使用连接ID号与其它ODBC函数。

如果SQLOpen不能使用提供的信息连接，它返回错误值#N/A。 其他错误信息被Error放在内存中由SQLOpen使用。


参阅

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLRequest 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数


SQLRequest 函数

参阅

描述

连接外部数据源并运行来自工作表的查询，然后用数组返回结果。 该函数专门设计用于SQLBind、SQLClose、SQLError、SQLExecQueny、 SQLGetSchema、SQLRetreve和SQLRetreveToFile ODBC函数一起工作， 提供一种使用Visual Basic创建自定义数据库取存应用程序的方法。

该函数包含在XLODBC加载宏中，在使用该函数前，必须使用[工具] 菜单上[引用位置]命令建立 对XLODBC加载宏的引用。为进一步获取信息，参阅《Visual Basic用户 手册》中＂在另一工作簿中调用过程＂主题。

语法

SQLRequest(connectionStr, query, output, prompt, columnNames)

元素

SQLRequest函数具有下列命名参数：

connectionStr

必选项。提供信息，诸如数据源名字、用户ID和口令，为驱动程序要求的用于连 接数据源 。遵循驱动程序格式。在连接它之前，必须定义用在connetionStr中 使用的数据源名字（DSN）。如果SQLRequest不能实用connectionStr存取数据源， 它返回#N/A错误值。

query

  可选项。要在数据源上执行的SQL语句。如果SQLRequest不能在给定的数据源 上执行query，它返回#N/A错误值。

output

  可选项。想要把完整连接字符串放置的单一单元格，作为区域对象。 若要用SQLRequest返回完整连接字符串到工作表时，使用output。

prompt

  可选项 。指定何时驱动程序对话框被显示和合选项是有效的。使用下表中描述 的数字之一。如果prompt被省略，SQLRequest使用2为默认。

值     	含义

1      	驱动程序对话框总显示。

2      	仅当信息由连接字符串提供且数据源指定是不完整连接时，驱动 程序对话框被显示，所有对话框选项有效。

3	仅当信息由连接字符串提供且数据源指定是不完整连接时，驱动 程序对话框显示。如果不需要，对话框选项变暗且无效。

4      	对话框不显示。如果连接不成功，返回错误。

columnNames

  可选项。如果想要的列名以结果的第一行返回，则为True。 如果不想要列名返回，它必须包含False，如果columnNames被省略，默认值是False。

返回值

如果该函数完成所有的操作，它返回查询结果的数组或被查询影响的行号。 如果SQLRequest不能完成所有操作，它返回一错误值并为SQLError把错误信 息放在内存中。   如果SQLRequest不能使用connectionStr存取数据源，它返回#N/A错误值。


参阅

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRetrieve 函数

SQLRetrieveToFile 函数


SQLRetrieve 函数

参阅

描述

检索来自上一次执行查询的所有或部分结果。 在使用SQLRetrieve之前，必须用SQLOpen建立连接，用SQLExecQuery执行查询 且具有悬而 未决的结果。

该函数专门设计用于和SQLBind、SQLClose、SQLError、SQLExecQueny、 SQLGetSchema、SQLRetreve和SQLRetreveToFile ODBC函数一起工作，提供一种使用Visual Basic创建自定义取存应用程序的方法。 该函数包含在XLODBC加载宏中，在使用该函数前，必须使用[工具]菜单上[引用位置] 命令建立 对XLODBC加载宏的引用。为进一步获取信息，参阅《Visual Basic用户手册》中＂在另一工作簿中调用过程＂主题。

语法

SQLRetrieve(connection, destination, maxColumns, maxRows, columnNames, rowNumbers, namedRange, fetchFirst)

元素

SQLRetreve函数具有下列命名参数：

connection

必选项。由SQLOpen返回的唯一连接ID，且具有由SQLExecQuery产生的悬而 未决的结果。如果connetion非法，SQLExecQuery返回#VALUE!错误值。

destination

可选项。指定结果被放置的区域对象，该函数覆盖单元格中的任何值而不确认。 如果destination引用单一单元格，SQLReetrieve返回在那个单元格和其右下单元格中 的所有 悬而未决的结果。如果destination 被省略，上一次SQLBind 建立的装订被用于返回结果。如果当前连接中无装订存在，SQLReetrieve 返回错误值#REF!。如果特定的结果列未装订且destination被省略，放弃结果。

maxColumns

可选项 。返回到工作表由destination开始的最大列数。 如果maxColumns指定列多于结果中有效列，SQLReetrieve把数据放在有效的列 中且清除其 它列。数据源返回到的次序决定列的位置。 如果maxColumns指定列少于结果中有效列，SQLReetrieve放弃最左边的结 果列直至适合指定的大小。如果maxColumns被省略，所有的结果被返回。

maxRows

可选项。返回到工作表由destination开始的最大行数。 如果maxROws指定行多于结果中有效的行，SQLReetrieve把数据放在有效的 行中并清除其 它行。

如果maxRows指定行少于结果中有效的行，SQLReetrieve把数据放在选定的行 ，但不放弃其它行，额外的行再次使用SQLRetrieve检索，并由fetchFirst设置 为False。如果maxRows被省略，结果中所有行被返回。

columnNames

  可选项 。如果想要列名返回为结果的第一行，则为True。

  如果不想要列名被返回，则为False或省略。

rowNumbers

  可选项。仅当destination包含在函数调用中使用。如果rowNumbers为True，结果集中 第一列包含行号。如果destination为False或省略，行号不被返回。也可通过用SQLBind 装订列号0 检索行号。

namedRange

   可选项 。如果想要结果中每列被声明为工作表上命名的区域，则为True。每 个区域的名字是结果列的名字。命名的区域仅包括用SQLRetrieveFalse返回的行。 默认为False。

fetchFirst

可选项。允许从结果集开始处请求数据。 如果FetchFirst为False，SQLRetrieve可被反复调用返回下一行集，直至所有结果行别 返回。当结果集中无任何行，SQLRequest返回0，如果想要从 结果集开始处检索 结果，设置fetchFirst为True，为检索结果集的其它行，在后续调 用中设 置fetchFirst为False。

返回值

   调用SQLRetrieve前，必须：

1.	使用SQLOpen建立与数据源的连接。

2.	使用SQLOpen返回的连接ID，用SQLExecQuery发送查询。


参阅

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieveToFile 函数


SQLRetrieveToFile 函数

参阅

描述

检索上一次执行查询的所有结果并把它们放在文件中。为使用该函数， 必须使用SQLOpen建立与数据源的连接，用SQLExecQuery执行查询，且有查 询悬而未决的结果。

该函数专门设计用于和SQLClose，SQLError，SQLExecQuery，SQLGetSchema， SQLOpen和SQLRetrieve ODBC函数处独立工作，提供一种使用Visual Basic创建自定义数据存取应用程序的方法。

   该函数包含于XLODBC加载宏中，在使用该函数前，必须实用[工具]菜单上[引用位置] 命令建立 对XLODBC加载宏的引用，为进一步获取信息，参阅《Visual Basic用户手册》中＂在另一工作簿中调用过程＂主题。

语法

SQLRetrieveToFile(connection, destination, columnNames, columnDelimiter)

元素

SQLRetrieveToFile函数具有下列命名参数：

connection

必选项。由SQLOpen返回的唯一连接ID，且具有由SQLExecQuery产生的悬而未决的 结果。如果connetion非法，SQLExecQuery返回#VALUE!错误值。

destination

   必选项。指定要放置结果的文件名和路径的字符串。如果文件存在，其内容被 查询结果 替换。如果文件不存在，SQLRtrieveToFile创建和打开文件，并用结果填充它。

文件中数据的格式与Microsoft Excel.CSV（逗号分隔的值）文件格式协调。 列由columnDelimiter指定的字符分隔，且单独的由回车分隔。

    如果由destination指定的文件不能打开，SQLRetrieveToFile返回#N/A错误值。

columnNames

  可选项 。如果想要的列名返回为数据的第一行，则为True。

  如果不想返回列名，则为False或省略。

columnDelimiter

  可选项。指定用于分隔每行中元素的字符的字符串，例如：使用＂,＂指定 逗号限制或＂;＂指定分号限制。如果省略，则使用columnDelimiter，TAB键。

返回值

    如果成功，则SQLRetrieveToFile返回查询结果，把它们写入文件，然后返回写入 文件的行 数。

    如果SQLRetrieveToFile不能检索结果，它返回#N/A错误值，且不写入文件。如果 在连接上 无悬而未决的结果，SQLRetrieveToFile返回#N/A错误值。

解释

    在调用SQLRetrieveToFile前，必须：

1.	使用SQLOpen建立与数据源的连接。

2.	使用SQLOpen返回的连接ID，用SQLExecQuery发送查询。


 参阅

SQLBind 函数

SQLClose 函数

SQLError 函数

SQLExecQuery 函数

SQLGetSchema 函数

SQLOpen 函数

SQLRequest 函数

SQLRetrieve 函数


Add方法(弧形和直线)
Add方法（弧形和直线）

参阅	实例

用于

Arcs, Lines

描述

创建一个新弧形或直线。

语法

object.Add(x1, y1, x2, y2)

元素

     Add方法具有下列对象限制和命名参数：

object

       必选项。弧形或直线对象。

x1, y1

必选项。指定对象的第一坐标的位置，以点数(1/72英寸)为单位，相对于Ａ1的左上方 或图表的左上角来计算。

x2, y2

 必选项。指定对象的第二坐标的位置，以点数为单位，相对于A1的左上方或图表的 左上角来计算。


参阅

Add方法(图形对象)

Add方法(图形集)

Add方法(下拉集)

Duplicate方法


Add 方法实例

该实例创建一条直线，其箭头指向左上角。注意，点的次序为：箭头指向第二坐标。

With ActiveSheet.Lines.Add(80, 80, 10, 10)

.ArrowHeadStyle = xlOpen

.Border.LineStyle = xlDot

End With


Add方法(图形集)

参阅	 实例

用于

Drawings

描述

使用多边形的前两个顶点创建一个图形，用相对于Al或图表左上角的坐标的。 其它顶点可用AddVertex方法增加到前两个顶点中。

语法

object.Add(x1, y1, x2, y2, closed)

元素

    Add方法具有下列对象限制和命名参数：

object

        必选项。图形对象。

x1, y1

 必选项。指定多边形第一个坐标的位置，以点数(1/72英寸)为单位，相对于单元格Al 左上角或图表的左上角来计算。

x2, y2

必选项。指定多边形第二个坐标的位置，以点数(1/72英寸)为单位，相对于单元格Al 左上方或图表的左上方来计算。

closed

必选项。如果新图形是封闭的，第一个顶点总与最后一个顶点相连，则为True。 如果图形是不封闭的，且最后一个顶点与第一个顶点与不相连，则为False。


参阅

Add方法(弧形和直线)

Add方法(下拉集)

Add方法(图形对象)

Add Vertex方法

Reshape方法

Vertices属性


Add 方法实例

  该实例创建一个不封闭四边形。

With ActiveSheet.Drawings.Add(100, 100, 200, 100, False)

.AddVertex 180, 200

.AddVertex 80, 200

.Border.Weight = xlMedium

End With


Add 方法(下拉集)

参阅	实例

用于

DropDowns

描述

    使用以点数指定的矩形坐标来创建一个新的下拉清单框，每点1/72英寸。

语法

object.Add(left, top, width, height, editable)

元素

    Add方法具有下列对象限制和命名参数:

object

        必选项.下拉对象

left, top, width, height

必选项.指定宽度和高度以及对象左上方的初始坐标.以点数(1/72英寸)为单位， 相对于单元格Al的左上角或图形左上角来计算。

editable

可选项.如果下拉清单框可以被编辑,则为True.如果该参数为False或被 省略,则清单框编辑区的内容只能通过从清单中选定才能被修改.


参阅

Add方法(弧形和直线)

Add方法(图形集)

Add方法(图形对象)

Duplicate方法


Add 方法实例

  该实例创建可编辑的下拉清单框。

With ActiveSheet.DropDowns.Add(10, 10, 120, 18)

.DropDownLines = 10

End With


AddVertex 方法

参阅	实例

用于

Drawing

描述

    增加图形的顶点。

语法

object.AddVertex(left, top)

元素

    AddVertex方法是有下列对象限制和命名参数:

object

       必选项。图形对象。.

left

      必选项.顶点的水平位置值.以点数(1/72英寸)为单位,相对于工作表的左上角计算。

top

       必选项,新顶点的垂直位置值.以点数(1/72英寸)为单位,相对于工作表的左上角计算。


参阅

Add方法(图形集)

Reshape方法


AddVertex 方法实例

  该实例创建一个不封闭的四边形。

With ActiveSheet.Drawings.Add(100, 100, 200, 100, False)

.AddVertex 180, 200

.AddVertex 80, 200

.Border.Weight = xlMedium

End With


CentimetersToPoints 方法

参阅	实例

用于

Application

描述

    将厘米转换为点数(0.035厘米)。

语法

object.CentimetersToPoints(centimeters)

元素

    CentimetersToPoints方法具有下列对象限制和命名参数:

object

         必选项。应用程序对象。

centimeters

        必选项。指定转换为点数的厘米值。


参阅

InchesToPoints方法


CentimetersToPoints 方法实例

   该实例设置左页边距为5厘米.

ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(5)


ChartObjects 方法

参阅	实例

用于

Chart, DialogSheet, Worksheet

描述

返回图表或表上的单一图表（ ChartObject 对象, 语法 1） 或所有内嵌图表集（ ChartObjects 对象, 语法 2）。

语法 1

object.ChartObjects(index)

语法 2

object.ChartObjects

Elements

    ChartObjects 方法具有下列对象限制和命名参数:

object

必选项。该方法施加的对象。 如果指定一个图表对象，它必须是一个图表文件（它不能是内嵌图表）。

index

必选项，对语法 1。图表的名字或编号 （可以用一个数组指定多个）。

解释

该方法不等价于 Charts 方法。该方法返回内嵌图表；Charts 方法返回图表文件。使用Chart 属性返回内嵌图表对象的图表文件。


参阅

Charts方法


ChartObjects 实例

该实例将当前工作表的图1放到Z次序前面。

ActiveSheet.ChartObjects(1).BringToFront


CircularReference 属性

实例

用于

Worksheet

描述

返回表上包含第一循环引用的Range，如果不存在循环引用，则什么也不返回。 进行计算前，必须移走循环引用。只读。

语法

object.CircularReference

元素

object

     必选项.工作表对象。


CircularReference 属性实例

该实例选定包含第一循环引用的区域。

ActiveSheet.CircularReference.Select

ActiveSheet.CircularReference.Select


ColorButtons 属性

参阅	实例

用于

Application

描述

   如果工具条是彩色的，则为True。可读写。

语法

object.ColorButtons

元素

object

    必选项。应用程序对象。


参阅

LargeButtons属性


ColorButtons 属性实例

该实例关闭彩色工具栏的外观。

Application.ColorButtons = False


ColorIndex 属性

参阅	实例

用于

Border, Borders, Font, Interior

描述

 返回或设置边框线、字体或内部的颜色，如下表所示。颜色用当前调色板中索引值指 定，或使用自动填充式样特定常量xlAutomatic。可读写。

对象	颜色索引

边框线	边框线的颜色。

边框线族	所有四边的颜色。如果所有四边的颜色不相同,返回Null。

字体	字体颜色。指定xlAutomatic以使用自动设置颜色。

内部	内部填充颜色。设置该属性为xlNone，则不填充。设该属性 为xlAutomatic，则自动填充颜色(对图形对象).

语法

object.ColorIndex

元素

object

       必选项。该属性施加的对象。

解释

该属性用工作簿中调色板的颜色索引指定一种颜色，可用colors属性    返回当前调色板。


参阅

color属性

colors属性

PatternColor属性


ColorIndex 属性实例

该实例设置矩形1的颜色为调色扣中第10号颜色。

ActiveSheet.Rectangles(1).ColorIndex=10

ActiveSheet.Rectangles(1).Border.ColorIndex = 10


DataLabels 方法

参阅	实例

用于

Series

描述

 返回系列的单一数据标记（DataLabel对象，语法1）或所有数据标记的 集（DataLabels集，语法2)。

语法1

object.DataLabels(index)

语法2

object.DataLabels

元素

   DataLabels 方法具有下列对象限制和命名参数:

object

      必选项。系列对象。

index

      必选项，对语法１。数据标记的编号。

解释

如果系列的数据标记中显示值选项，则返回的集可在一个标记中包含所有点。 对系列中每个独立的点都可以打开或关闭其数据标记。如果面积图上的序列的数据 标记中显示标记功能是打开的，则返回的集只包含单个标记，该标记指示区域序列。


参阅

DataLabel属性


DataLabels 方法实例

该实例设置系列1的数据标记,显示其数值和标示。

With Charts(1).SeriesCollection(1).DataLabels

.ShowLegendKey = True

.Type = xlValue

End With


Explosion 属性

实例

用于

Point, Series

描述

返回或设置饼图或圆环图扇形分割百分比。如果取零，则不分割(扇形的尖与饼图 中心重合)。可读写。

语法

object.Explosion

元素

object

       必选项。点或系列对象。


Explosion 属性实例

该实例设置当前图表上的点5的分割值。

ActiveChart.SeriesCollection(1).Points(5).Explosion=50

ActiveChart.SeriesCollection(1).Points(5).Explosion = 50


GetOpenFilename 方法

参阅	实例

用于

Application

描述

    显示标准的打开文件对话框，并获取用户文件名，而不必真正打开任何文件。

语法

object.GetOpenFilename(fileFilter, filterIndex, title, buttonText)

元素

    GetOpenFilename方法具有下列对象限制和命名参数:

object

        必选项。应用程序对象。

fileFilter

    可选项.指定文件筛选条件的字符串。

    在Microsoft Windows中，该字符串由一文件筛选字符串与MS-DOS

    通配符表达的文件筛选规格说明组成；中间由逗号分隔。每个字符串都在

    文件类型下拉清单框中列出。如下两个文件筛选串�勃参谋疚募�和加载宏：

"Text Files (*.txt),*.txt,Add-In Files (*.xla),*.xla"

    由多个MS-DOS通配符表达的文件筛选串组成一个文件筛选类型。

    它们之间由分号分隔，例如：

"Visual Basic Files (*.bas; *.txt),*.bas;*.txt".

    如果在Windows中省略该参数,则其缺省值为"All Files (*.*),*.*".

在Apple Macintosh中，该串是由逗号分隔的文件类型码，

("TEXT,XLA,XLS4)。空格是有效字符，在逗号前后不能随便添加，

除非它是文件类型码的一部分。该参数如果省略，则默认为所有

文件类型。

filterIndex

可选项。只能用于Microsoft Windows(Apple Macintosh省略)。

指定默认的从1到fileFilter中指定的筛选号的文件筛选条件索引号， 如果省略此参数或大于当前默认号，则用第一个文件筛选。

title

可选项。只用于Microsoft Windows(省略Apple Macinfosh)。指定 对话标题。如果省略此参数，则对话标题为"Open"。

buttonText

可选项。只用于Apple Macintosh(省略Microsoft Windows)。指定 对话框中打开按钮的文字。如果省略此参数，同按钮文字为"Open"。

解释

该方法返回选定的文件名或用户输入的名字。返回的名字可以包括指定路径。 如果用户取消对话框，则为False。此方法可改变当前驱动器和目录。


参阅

GetSaveAsFileName方法

Open方法


GetOpenFilename 方法实例

该实例显示文本文件的打开文件对话框，然后显示用户在消息框选择的文件名.

fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

MsgBox "Open " & fileToOpen


GetSaveAsFilename 方法
GetSaveAsFilename方法.

参阅	实例

用于

Application

描述

    显示标准的[另存为]对话框，并获取用户文件名，而不必真正打开任何文件。

语法

object.GetSaveAsFilename(initialFilename, fileFilter, filterIndex, title, buttonText)

元素

    GetSaveAsFilename方法具有下列对象限制和命名参数：

object

        必选项。应用程序对象。

initialFilename

可选项。指定建议的文件名。如果省略此参数，Microsoft Excel采用活动的工作簿名字。

fileFilter

    可选项。指定文件筛选条件的字符串。

    在Microsoft Windows中，该字符串由一文件筛选字符串与MS-DOS

    通配符表达的文件筛选串组成；中间由逗号分隔。每个字符串都在

    文件类型下拉清单框中列出。如下两个文件筛选串�勃参谋疚募�和加载宏：

"Text Files (*.txt),*.txt,Add-In Files (*.xla),*.xla"

    由多个MS-DOS通配符表达的文件筛选串组成一个文件过滤类型，

    它们之间由分号分隔。例如：:

"Visual Basic Files (*.bas; *.txt),*.bas;*.txt".

    如果在Windows中省略该参数,则其默认值为"All Files (*.*),*.*"。

在Apple Macintosh中，该串是由逗号分隔的文件类型码，

("TEXT,XLA,XLS4)。空格是有效字符，在逗号前后不能随便添加，

除非它是文件类型码的一部分。该参数如果省略，则默认为所有

文件类型。

filterIndex

可选项。只能用于Microsoft Windows(Apple Macintosh省略)。

指定默认的从1到fileFilter中指定的筛选号的文件筛选条件索引号， 如果省略此参数或大于当前默认号，则用第一个文件筛选。

title

 可选项。只用于Microsoft Windows(省略Apple Macinfosh)。指定 对话标题。如果省略此参数，则对话标题为"Save As".

buttonText

可选项。只用于Apple Macintosh(省略Microsoft Windows)。指定

对话框中打开按钮的文字。如果省略此参数，同按钮文字为"Save".

解释

 该方法返回用户选定的文件名或用户输入的名字。返回的名字可以包括指定路径。 如果用户取消对话框，返回False。该方法可改变当前驱动器和目录。


参阅

GetOpenFileName方法

Save方法

SaveAs方法


GetSaveAsFilename 方法实例

该实例显示[另存为]对话框，并将文件筛选器设置为文本文件。

fileSaveName = Application.GetSaveAsFilename( _

fileFilter:="Text Files (*.txt), *.txt")

MsgBox "Save as " & fileSaveName


GridlineColorIndex 属性

参阅	实例

用于

Window

描述

    以当前调色板中的索引返回或设置网格线颜色。可读写。

语法

object.GridlineColorIndex

元素

object

       必选项。窗口对象。

解释

        设置该属性为xlAutomatic，以指定自动颜色。


参阅

Colors属性

DisplayGridlines属性

Gridlinecolor属性


GridlineColorIndex 属性实例

该实例设置当前窗口的网格线颜色。

ActiveWindow.GridlineColorIndex = 10	' use palette color 10


InchesToPoints 方法

参阅	实例

用于

Application

描述

将英寸转换为点数(1/72英寸)。

语法

object.InchesToPoints(inches)

元素

   InchesToPoints 方法具有下列对象限制和命名参数:

object

    必选项。应用程序对象。

inches

      必选项。指定转换点数的英寸值。


参阅

CentimetersToPoints方法


InchesToPoints 方法实例

该实例设置左页边距为2.5英寸。

ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(2.5)


LinkCombo方法

参阅	实例

用于

DrawingObjects

描述

由列表框和编辑框生成组合列表－－编辑框。 列表框和编辑框只能与图形对象集中的两个对象链接。

语法

object.LinkCombo(link)

元素

LinkCombo方法具有下列限定对象和命名参数：

object

必选项。图形对象集。

link

可选项。若省略该参数或取为True，对象被链接以便用户选定一个新的列表框项， 则编辑框文字被列表框中的当前选定区域刷新。若为False，则切断对象之间的链接。

解释

该功能只对对话框编辑表有用，因为编辑框不能用于工作表和图表。要想知道如何用LinkCombo方法，则可用宏记录来记录生成对话框编辑表上的列表－－编辑控制。


参阅

DrawingObjects方法

EditBox对象

LinkedObject属性

ListBox 对象


LinkCombo方法实例

该实例在当前对话框编辑表上链接编辑框１和列表框２。

ActiveDialog.DrawingObjects( _

Array("List Box 1", "Edit Box 2")).LinkCombo


MarkerBackgroundColor属性

参阅	实例

用于

LegendKey, Point, Series

描述

返回或设置标示背景颜色的ＲＧＢ值。只适用于折线图，散点图和雷达图。

可读写。

语法

object.MarkerBackgroundColor

元素

object

必选项。图例标示和系列对象。


参阅

MarkerBackgroundColorindex属性

MarkerforegroundColor属性

MarkerStyle属性


MarkerBackgroundColor 属性实例

该实例设置系列上的第2点标示的背景颜色和前景颜色。

With ActiveChart.SeriesCollection(1).Points(2)

.MarkerBackgroundColor = RGB(0,255,0)

.MarkerForegroundColor = RGB(255,0,0)

End With


MarkerBackgroundColorIndex 属性
MarkerBackgroundColorlndex属性

参阅	实例

用于

LegendKey, Point, Series

描述

用当前调色板的索引号返回或设置标示的背景颜色（索引号为从１到５６， 或当无背景色时取xlNone）。只适用于折线图，散点图和雷达图。

语法

object.MarkerBackgroundColorIndex

元素

object

必选项。图例标示，点和系列对象。


参阅

Colors属性

MarkerBackgroundColor属性

MarkerforegroundColorlndex属性

MarkerStyle属性


MarkerBackgroundColorIndex属性实例

该实例设置系列上的第２点的标示背景颜色和前景颜色（用索引）。

With ActiveChart.SeriesCollection(1).Points(2)

.MarkerBackgroundColorIndex = 1

.MarkerForegroundColorIndex = 2

End With


MarkerForegroundColor 属性

参阅	实例

用于

LegendKey, Point, Series

描述

返回或设置标示的前景颜色，并指定其ＲＧＢ值。仅适用于折线图，散点图和

雷达图。可读写。

语法

object

必选项。图例标示，点或系列对象。


参阅

MarkerBackgroundColor属性

MarkerForegroundColorlndex属性

MarkerStyle属性


MarkerForegroundColor属性实例

该实例设置系列上的第２点标示的背景颜色和前景颜色。

With ActiveChart.SeriesCollection(1).Points(2)

.MarkerBackgroundColor = RGB(0,255,0)

.MarkerForegroundColor = RGB(255,0,0)

End With


MarkerForegroundColorIndex 属性
MarkerForegroundColorlndex属性

参阅	实例

用于

LegendKey, Point, Series

描述

用当前调色板的索引号返回或设置标示的前景颜色（其中索引号为从１到５６， 若无前景颜色为xlNone）。仅适用于折线图，散点图和雷达图。可读写。

语法

object.MarkerForegroundColorIndex

元素

object

必选项。图例标示，点，或系列对象。


参阅

Colors属性

MarkerForegroundColor属性

MarkerBacegroundColorlndex属性

MarkerStyle属性


MarkerForegroundColorIndex属性实例

该实例设置系列上的第２点标示的背景颜色和前景颜色（用索引）。

With ActiveChart.SeriesCollection(1).Points(2)

.MarkerBackgroundColorIndex = 1

.MarkerForegroundColorIndex = 2

End With


OnRepeat方法

参阅	实例

用于

Application

描述

如果在运行设置此属性的过程之后从[编辑]菜单选择[重复]命令， 设置将运行的[重复]菜单项和过程名。

语法

object.OnRepeat(text, procedure)

元素

OnRepeat方法有下列对象限制和命名参数：

object

必选项。应用程序对象。

text

必选项。指定在[编辑]菜单中和[重复]命令一起出现的文本。

procedure

必选项。当从[编辑]菜单选择[重复]命令时所指定的将要运行的过程的名字。

解释

如果过程不用OnRepeat方法，重复命令将重复最近运行的过程。过程最后必须用OnRepeat和OnUndo方法，以防止重复或撤消过程被过程中顺序方式覆盖。


参阅

OnUndo方法

Repeat方法


OnRepeat 方法实例

该实例设置重复过程和撤消过程。

Application.OnRepeat "Repeat VB Procedure", _

"Book1.xls!My_Repeat_Sub"

Application.OnUndo "Undo VB Procedure", _

"Book1.xls!My_Undo_Sub"


OnSheetActivate 属性

参阅	实例

用于

Application, Chart, DialogSheet, Module, Workbook, Worksheet

描述

当用户激活指定表(图表，对话框编辑表，模块表或工作表对象)， 指定工作簿中的任何表(工作簿对象)或任意打开的工作簿中的表时，返回或设置运行宏的名字。可读写。

语法

object.OnSheetActivate

元素

object

必选项。此属性作用的对象。

解释

使 OnSheetActivate 宏无效，设置属性为空字符串，如下例所示。


参阅

OnSheetDeactivate属性

OnWindow属性

RunAutoMacros方法


OnSheetActivate属性实例

该实例设置当前工作簿模块表１中"my_Activate_Sub"宏的OnSheetActivate属性。一旦激活任何工作簿中的表此宏运行。

Application.OnSheetActivate = ActiveWorkbook.Name & _

"!Module1.my_Activate_Sub"

该实例使宏 OnSheetActivate 失效.

Application.OnSheetActivate = ""


OnSheetDeactivate属性

参阅	实例

用于

Application, Chart, DialogSheet, Module, Workbook, Worksheet

描述

当用户激活指定表（图表，对话框编辑表，模块表，或工作表对象）， 指定工作簿（工作簿对象）中的任意的表， 或任何打开的工作簿（应用程序对象）中的任意的表时， 返回或设置运行宏的名字。可读写。

语法

object.OnSheetDeactivate

元素

object

必选项。该属性施加的对象。


参阅

OnSheetDeactivate属性

OnWindow属性

RunAutoMacros方法


OnSheetDeactivate属性实例

该实例设置当前工作簿模块表１中"my_Deactivate_Sub"宏的OnSheetDeactivate属性。 在任何工作簿中，一旦用户关闭一个表，该宏将运行。

Application.OnSheetDeactivate = ActiveWorkbook.Name & _

"!Module1.my_Deactivate_Sub"


OnUndo方法

参阅	实例

用于

Application

描述

设置撤消菜单项和过程名。当用户运行设置该属性的过程之后，如果用户从[编辑]菜单中选择[撤消]命令便会运行该过程。

语法

object.OnUndo(text, procedure)

元素

OnUndo方法。具有如下限定对象和命名参数：

object

必选项。应用程序对象。

text

必选项。指定与[编辑]菜单中[撤消]命令一起出现的文字。

procedure

必选项。指定当用户从[编辑]菜单中选择[撤消]命令时运行的过程名。

解释

若过程不用OnUndo方法，则[撤消]命令无效。过程最后必须用OnRepeat方法和OnUndo方法，可防止重复过程或撤消过程被过程中顺序方式覆盖。


参阅

OnRepeat方法

Repeat方法


OnUndo 方法实例

该实例设置重复过程和撤消过程。

Application.OnRepeat "Repeat VB Procedure", _

"Book1.xls!My_Repeat_Sub"

Application.OnUndo "Undo VB Procedure", _

"Book1.xls!My_Undo_Sub"


OutlineFont 属性
OntlineFont属性

        实例

用于

Font

描述

若字体为空心字体，则为True。可读写。

语法

object.OutlineFont

元素

object

必选项。字体对象（例如，ActiveCell.Font）

解释

该属性在Microsoft Windows无效，但该值仍被保留（它可被设置和返回）。


OutlineFont属性实例

该实例设置当前单元格的字体为空心字体。

ActiveCell.Font.OutlineFont = True


PatternColor属性

参阅	实例

用于

Interior

描述

返回或设置内部图案颜色，以RGB值表示。可读写。

语法

object.PatternColor

元素

object

必选项。内部对象。


参阅

Color属性

Pattern属性

PtternColorIndex属性


PatternColor属性实例

该实例设置矩形１的内部图案颜色。

ActiveSheet.Rectangles(1).Interior.PatternColor = RGB(255,0,0)


PatternColorIndex属性

参阅	实例

用于

Interior

描述

返回或设置内部图案颜色，并作为索引放入当前调色板。可读写。

语法

object.PatternColorIndex

元素

object

必选项。内部对象。

解释

设置该属性为xlAutomatic，以指定单元格的自动图案，或图形对象的自动填充式样。

设置该属性为xlNone，指定为无图案（等价于将Interior.Pattern设置为xlNone）。


参阅

Color属性

Colors属性

Pattern属性

PatternColor属性


PatternColorIndex属性实例

该实例设置矩形１的图案颜色（用索引）。

ActiveSheet.Rectangles(1).Interior.PatternColorIndex = 5


ResetTipWizard方法

参阅	实例

用于

Application

描述

重新设置操作指南内存，保证所有提示都可显示。正常的提示在显示多次之后就不 再显示了，而不打扰用户。

语句

object.ResetTipWizard

元素

object

必选项。应用程序对象。


参阅

EnableTipWizard属性


ResetTipWizard方法实例

该实例重新设置操作指南，并使之有效。

With Application

.ResetTipWizard

.EnableTipWizard = True

End With


ToolbarButtons方法

实例

用于

Toolbar

描述

返回指定工具栏上单个工具栏按钮（ToolbarButton 对象，语法１），或返回指定工具栏上工具栏按钮集（ToolbarButtons 对象，语法２）。

语法１

object.ToolbarButtons(index)

语法２

object.ToolbarButtons

元素

Toolbarbuttons方法具有下列限定对象和命名参数：

object

必选项。工具栏对象。

index

对语法１是必选项。按钮名或按钮号。


ToolbarButtons方法实例

该实例从工具栏１中删除新工作簿按钮。

Application.Toolbars(1).ToolbarButtons(1).Delete


Volatile方法

      实例

用于

Application

描述

指定一个用户定义的函数为易变函数，对于易变函数，每当工作表中在任意 一个单元格中进行计算，则它都必须重新计算。对于非易变函数， 只有当输入变量改变时它才重新计算。若工作表单元格中无用户定义的函数， 则该方法无效。

语法

object.Volatile(volatile)

元素

Volatile方法具有下列限定对象和命名参数：

object

必选项。应用程序对象。

Volatile

可选项。若该参数为True或忽略，则函数为易变函数。若该参数为False， 则函数为非易变函数。


Volatile方法实例

该实例标记用户定义的函数"My_Func"为易变函数。使得每当在工作表(该 工作表使用了此函数)任意单元格中进行计算时，该函数都重新计算。

Function My_Func()

Application.Volatile

'

'	Remainder of the function

'

End Function


ChartObject对象

属性	 方法

描述

一个表上内嵌图表。图表对象如同图表的一个容器。图表对象提供了其大小。


ChartObjects对象

属性	方法

描述

 ChartObject 的集。


AutoFormat 方法

参阅

描述

图表对象Chart Object：将内部自动套用格式或自定义自动套用格式施加于指定图表。

区域对象Range Object：采用预定义格式对单元格区域自动格式化。


参阅

AutoFormat 方法 (Chart 对象)

AutoFormat 方法 (Range 对象)


ActivateMicrosoftApp 方法

参阅	实例

用于

Application

 描述

激活Microsoft应用程序。若该应用程序正在运行，则该方法激活运行的应用程序。若该应用程序还未运行，该方法启动此应用程序。

语法

Object.ActivateMicrosoftApp(index)

元素

ActivateMicrosoftApp方法具有如下对象限制和命名参数:

Object

必选项。应用程序对象。

index

必选 项。指定要被激活的Microsoft应用程序（可为 xlMicrosoft  Word ，xlMicrosoft PowerPoint ，   xlMicrosoft  Mail ，   xlMicrosoftAccess ，xlMicrosoftForpro，xlMicrosoft Project，或xlMicrosoft Schedule Plus之一）

。


参阅

AppActivate 语句

Shell 函数


ActivateMicrosoftApp 方法实例

该实例启动并激活Microsoft Word。

Application.ActivateMicrosoftApp xlMicrosoftWord


ActivateNext 方法

参阅	实例

用于

Window

描述

通过沿Z向将窗口前移而激活下一个窗口，并将指定窗口沿Z向后移。

语法

Object.ActivateNext

元素

Object

必选项。窗口对象。


参阅

ActivatePrevious 方法

Next 属性


ActivateNext 方法实例

该实例激活下一个窗口，并将窗口3沿Z向后移。

Windows(3).ActivateNext


ActivatePrevious 方法

参阅	实例

用于

Window

描述

通过沿Z向将窗口前移而激活前一个窗口，并将指定窗口沿Z向后移。

语法

Object.ActivatePrevious

元素

Object

必选项。窗口对象。


参阅

ActivateNext 方法

Previous 属性


ActivatePrevious 方法实例

该实例激活前一个窗口，并将窗口3沿Z向后移。

Windows(3).ActivatePrevious


AddIndent 属性

参阅	实例

用于

Button, Buttons, DrawingObjects, GroupObject, GroupObjects, Range, Style, TextBox, TextBoxes

描述

若具有分布式文字对齐式样的文字在每行的首尾有多余的空格，则该属性为True。 可读写。

语法

Object.AddIndent

元素

Object

必选项。该属性适用于此对象。

解释

该属性只造用于Microsoft Excel的远东版，只对具有xlDistributed对齐式样的文本有效（若文本的Orientation为xlVertical 并且 VerticalAlignment 是xlDistributed ；   或若文本的   orientation 为   xlhorizontal ， 并且HorizontalAlignment为xlDistributed时增加缩排功能。）


参阅

HorizontalAlignment 属性

Orientation 属性

VerticalAlignment 属性


AddIndent 属性实例

该实例设置当前单元格采用在首尾有多余的分布水平对齐方式。

With ActiveCell

.HorizontalAlignment = xlDistributed

.AddIndent = True

End With


AxisTitle 属性

参阅	实例

用于

Axis

描述

返回指定坐标轴的坐标轴标题Axis Title。只读。

语法

Object.AxisTitle

元素

Object

必选项。坐标轴对象。

解释

设置AxisTitle.Caption给任意字符串，可为空字符串，使坐标轴的HasTitle属性为True。


参阅

ChartTitle 属性

HasTitle 属性

Title 属性


AxisTitle 属性实例

该实例设置分类轴标题文字。

With ActiveChart.Axes(xlCategory).AxisTitle

.Caption = "Category Axis"

.Font.Italic = True

.Font.Size = 17

End With


CategoryNames 属性

参阅	实例

用于

Axis

描述

返回或设置指定坐标轴的所有分类名，它是一个文字数组。一旦设置该属性，用户可将 其传给一个数组或一个区域Range，该区域包括分类名。可读写。

语法

Object.CategoryNames

元素

Object

必选项。坐标轴对象。

解释

分类名是一个坐标轴分组中"特殊"系列的属性。删除或修改一个特殊系列将改变使用此 坐标轴所有系列的分类名。


参阅

Formula 属性

Values 属性

XValues 属性


CategoryNames 属性实例

该实例设置分类名为单元格区域B1：B5的值。

Set ActiveChart.Axes(xlCategory).CategoryNames = _

Worksheets(1).Range("B1:B5")

该实例用一个数组设置单个分类名。

ActiveChart.Axes(xlCategory).CategoryNames = _

Array ("1985", "1986", "1987", "1988", "1989")


ChartTitle 属性

参阅	实例

用于

Chart

描述

返回指定图表的图表标题ChartTitle。只读。

语法

Object.ChartTitle

元素

Object

必须项。图表对象。


参阅

AxisTitle 属性

HasTitle 属性

Title 属性


ChartTitle 属性实例

该实例设置当前图表标题文字。

With ActiveChart

.HasTitle = True

.ChartTitle.Text = "February Sales"

.ChartTitle.Font.Bold = True

.ChartTitle.Font.Size = 18

End With


Deselect 方法

参阅	实例

用于

Chart

描述

取消指定图表的选定区域。

语法

Object.Deselect

元素

Object

必须项。图表对象。


参阅

Select 方法

Selection 属性


Deselect 方法实例

该实例取消图表1的选定区域。

Charts(1).Deselect


Display3DShading 属性

实例

用于

CheckBox, CheckBoxes, DrawingObjects, DropDown, DropDowns, GroupBox, GroupBoxes, ListBox, ListBoxes, OptionButton, OptionButtons, ScrollBar, ScrollBars, Spinner, Spinners

描述

若控制项采用三维视觉效果则为True，该属性只适用于工作表和图表上的控制项。 只读。

语法

Object.Display3DShading

元素

Object

必选项。该属性只适用于此对象。


Display3DShading 属性实例

该实例设置选择框1使用三维阴影效果。

ActiveSheet.CheckBoxes(1).Display3DShading = True


DoughnutHoleSize 属性

实例

用于

ChartGroup

描述

返回或设置圆环图组内径大小。该内径尺寸用图表尺寸的百分比来表达，百分比从10%到90%。可读写。

语法

Object.DoughnutHoleSize

元素

Object

必选项。图表组对象。


DoughnutHoleSize 属性实例

该实例设置圆环图组1的内径。

ActiveChart.DoughnutGroups(1).DoughnutHoleSize = 10


EnableCancelKey 属性

参阅	实例

用于

Application

描述

控制Microsoft Excel如何处理过程运行时的用户中断CTRL+BREAK（或ESC，或COMMAND+PERIOD ）。如下表所示。可读写。

值 	含义

xlDisabled 	不可捕获取消键。

xlInteroupt	中断当前过程，并允许用户调试或结束该过程。

xlErrorHandler	中断被当做错误传送给正在运行的过程，用On Error GoTo语句建立错误处理器可捕获到该错误。该可捕获错误代码为18。

语法

Object.EnableCancelKey

元素

Object

必选项。应用程序对象。

解释

使用该属性时要特别小心。若你采用xlDisabled，则不能中断失控的循环或其他不能自结 束的代码。若你采用xlErrorHandle但错误处理程序用Resume语句返回，则仍无法停止失控 的代码。只要Microsoft Excel回到空载状态并且无代码运行，则Enable Cancelkey 属性重置状态为xlInterrupt。若要想一个过程可以捕获取消或不能取消，那么每当调用该 过程时你必须明确改变EnableCancelkey属性。


参阅

捕获错误


EnableCancelKey 属性实例

该实例显示如何用EnableCancelkay属性设置自定义取消处理程序。

On Error GoTo handleCancel

Application.EnableCancelKey = xlErrorHandler

MsgBox "This may take a long time: press ESC to cancel"

For x = 1 To 1000000	' Do something 1,000,000 times (long!)

' do something here

Next x

handleCancel:

If Err = 18 Then

MsgBox "You cancelled"

End If


EndStyle 属性

实例

用于

ErrorBars

描述

返回或设置误差线的末端式样（xlCap或xlNocap）。可读写。

语法

Object.EndStyle

元素

Object

必选项。误差线对象


EndStyle 属性实例

该实例在系列1上设置误差线的末端式样。

ActiveChart.SeriesCollection(1).ErrorBars.EndStyle = xlCap


MultiSelect 属性

参阅	实例

用于

DrawingObjects, ListBox, ListBoxes

描述

返回或设置列表框（或列表框集）的选定方式。 可为  xlNone ，  xlSimple 或xlExtended之一。可读写。

语法

Object.MultiSelect

元素

Object

必选项。该属性只适用于此对象。

解释

单击（xlNone）一次只允许选定一项。任何单击和按空格键都会取消当前的选定项 并选定单击箭头上的项。

简单多重选定（xlSimple）锁定清单中项目的选定，该项目已由鼠标或空格键选定。该方式对于拾取有多重项目选定的清单非常方便。

扩展多重选定（xlExtended）通常与单个选定作用一样，鼠标在一个项目上单击会取消所有其他项目的选定。当你按住SHIFT键再单击鼠标或按住一个ARROW键时，则按用户引 导从当前项目依次选定项目。当你压住CTRT键再单击鼠标，则一个个单项被累加到选定清单上。该方式适于允许多项选定但不常用的情况。

用户可用Value或ListIndex 属性在单个选定列表框中获取或设置选定项。 用户必须用Selected属性在多重选定列表框中获取或设置选定项。

多重选定列表框不能用LinkedCeel属性与单元格链接。


参阅

ListIndex 属性

Selected 属性

Value 属性


MultiSelect 属性实例

该实例设置列表框1为允许扩展多重选定。

ActiveSheet.ListBoxes(1).MultiSelect = True


NavigateArrow 方法

实例

用于

Range

描述

引导追踪箭头，该箭头指定引用单元格、从属单元格或出错单元格。选定这些引用 单元格、从属单元格或出错单元格并返回新的选定区域对象。若单元格不具有可见 追踪箭头，则使 用该方法时出现错误。

语法

Object.NavigateArrow(towardPrecedent, arrowNumber, linkNumber)

元素

NavigcteArrow方法具有如下对象限制和命名参数

Object

必选项。区域对象。

towardPrecedent

必选项。 指定引导方向（引导指向引用单元格为 True ， 引导指向从属单元格为False）。

arrowNumber

可选项。指定引导箭头号，它与单元格公式中被编号的引用位置相对应。如果省略此参 数，将引导第一个箭头。

linkNumber

可选项。若是外部引用位置箭头，此参数指出紧随在哪个外部引用位置后。 如果省略该参数，则将紧随在第一个外部引用位置后。


NavigateArrow 方法 实例

该实例引导追踪箭头至引用单元格。

Range("A1:A153").NavigateArrow True, 1


OpenText 方法

参阅	实例

用于

Workbooks

描述

用新的具有包含分列的文本文件数据的单个工作表的工作簿装入并分列文本文件。

语法

Object.OpenText(filename, origin, startRow, dataType, textQualifier, consecutiveDelimiter, tab, semicolon, comma, space, other, otherChar, fieldInfo)

元素

OpenText方法具有下列对象限制和命名参数：

Object

必选项。工作簿对象。

filename

必选基。指定要打开并分列的文本文件的文件名。

origin

可选项。指定文本文件的源（xlMacintosh，xlWindows或xlMSDOS之一）。 如果该参数被省略，该方法使用文字引入指南的文件源选项中的当前设置。

startRow

可选项。开始分列文字处的行号。第一行为1。如果省略，假定为1。

dataType

可选项。 指定文件中数据的列格式（ xlDelimted 或 xlFixedwidth ）。 默认为xlDelimited。

textQualifier

可选项。指定文字限制。可以是xlDoubleQuote、xlSingleQuote或xlNone之一。默认为xlDoubleQuote。

consecutiveDelimiter

可选项。如果连续的分隔符被认为是一个分隔符，则为True。默认为False。

tab

可选项。如果dataType是xlDelimited且制表符为分隔符，则为True。默认为False。

semicolon

可选项。如果dataType是xlDelimited且分号符为分隔符，则为True。默认为False。

comma

可选项。如果dataType是xlDelimited且逗号符为分隔符，则为True。默认为False。

space

可选项。如果dataType是xlDelimited且空格符为分隔符，则为True。默认为False。

other

可选项。如果dataType是xlDelimited且被Ohterchar参数指定的字符为分隔符，则为True。 默认为False。

otherChar

可选项。（如果other为True是必选项）。当other为Ture时指定分隔符。 如果多于一个字符被指定，仅字符串的第一个字符被使用，其余字符被忽略。

fieldInfo

可选项。包含数据的单独列的分列信息的数组。解释依赖于dataType的值。当数据被分隔时，该参数是两元素的数组，用两个元素数组指定特定列的转换选项。 第一个元素为列号（one based）， 第二个元素是指定列如何分列的下列数字之一：

1	General

2	Text

3	MDY date

4	DMY date

5	YMD date

6	MYD date

7	DYM date

8	YDM date

9	Skip the column

列指定可以用任何次序。如果输入数据中特定列的列指定不存在，则使用一般设置 分列。下面的实例使第三列被跳过，第一列以文字分列，源数据中的其余列用一般 设置分列：

Array(Array(3, 9), Array(1, 2))

如果源数据具有固定宽度的列，在每个二元素数组的第一个元素指定列中的开始字符 位置（用整数；字符0为第一个字符）。二元素数组的第二个元素用上面列出的1~9中 的一个数指定列的分列选项。

下面的实例跟据固定宽度文件分为两列，第一列从行首开始共10个字符。第二列从位置 15开始到行尾。为避免包括10到15位置之间的字符，增加跳过列的条目。

Array(Array(0, 1), Array(10, 9), Array(15, 1))


参阅

Close 方法

Open 方法

TextToColumns 方法


OpenText 方法实例

该实例用制表符作为分隔符打开文件DATA.TXT。

Workbooks.OpenText filename:="DATA.TXT", _

dataType:=xlDelimited, tab:=True


RegisterXLL 方法

参阅	实例

用于

Application

描述

装入一个XLL代码源 ，并对其中的函数和命令自动注册。

语法

Object.RegisterXLL(filename)

元素

RegisterXLL方法具有如下对象限制和命名参数。

Object

必选项。应用程序对象。

filename

必选项。指定要装入的XLL名。

解释

若该代码源装入成功，则该方法返回True。否则，该方法返回False。


参阅

RegisteredFunctions 属性


RegisterXLL 方法实例

该实例装入一个XLL文件，并对此文件中的函数和命令进行注册。

Application.RegisterXLL "XLMAPI.XLL"


SaveCopyAs 方法

参阅	实例

用于

Workbook

描述

将工作簿存入一个文件为备份副本，但不改变内存中已打开的工作簿。

语法

Object.SaveCopyAs(filename)

元素

SaveCopyAs方法具有如下对象限制和命名参数：

Object

必选项。工作簿对象。

filename

必选 项。指定副本文件名。


参阅

Save 方法

SaveAs 方法


SaveCopyAs 方法实例

该实例保存当前工作簿的副本。

ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"


Selected 属性

参阅	实例

用于

DropDown, DropDowns, ListBox, ListBoxes

描述

返回或设置一个布尔值数组，它指定列表框中的选定状态。数组中的每一项对应着 列表框中相应的输入项。输入项被选定则为True。若未被选定则为False。 用该属性可从多重选定列表框中获得已被选定的项。可读写。

语法

Object.Selected

元素

Object

必选项。该属性只适用于此对象。

解释

对于单个选定列表框。用Value或ListIndex属性来获取或设置选定更加容易。


参阅

ListIndex 属性

Selection 属性

Value 属性


Selected 属性实例

该实例选定列表框中其余的输入项。

Dim items() as Boolean

Set lbox = ActiveSheet.ListBoxes(1)

ReDim items(1 to lbox.ListCount)

For i = 1 to lbox.ListCount

If i Mod 2 = 1 Then

items(i) = True

Else

items(i) = False

End If

Next

lbox.Selected = items


UpdateFromFile 方法

参阅	实例

用于

Workbook

描述

若磁盘中工作簿的版本比它在内存中的当前副本更新，则用保存的磁盘文件版本 更新只读工作簿，若自从装入一个工作簿后，它在磁盘上的副本未被改变， 则该工作薄的内存副本就不在再装入了。

语法

Object.UpdateFromFile

元素

Object

必选项。工作簿对象。

解释

当一个工作簿由用户A按只读文件打开，同时由用户B按可读写文件打开时， 此方法很有用。如果用户B保存该工作簿的新版本，同时用户A仍打开着该工作簿时， 用户A若不关闭并重新打开该工作簿就不会获得更新的工作簿副本。 UpdateFromFile方法用磁盘文件更新工作簿的内存副本。


参阅

ChangeFileAccess 方法


UpdateFromFile 方法实例

该实例更新当前工作簿。

ActiveWorkbook.UpdateFromFile


WindowNumber 属性

参阅

用于

Window

描述

返回窗口编号。例如，一个标题为"BOOK1.XLS：2"的窗口，其窗口编号为2。 大多数窗口其窗口编号为1。只读。

语法

Object.WindowNumber

元素

Object

必选项。窗口对象。

解释

窗口编号不同于窗口索引号。窗口索引号表示该窗口在窗口集中的位置。


参阅

Index 属性


XValues 属性

实例

用于

Series

描述

返回或设置XY散点图中系列的X值数组。XValues属性可设置为工作表上的区域或值数组 ， 但不能是它们的组合。可读写。

语法

Object.XValues

元素

Object

必选项。系列对象。


XValues 属性实例

该实例设置X值为单元格区域B1：B5。

Set ActiveChart.SeriesCollection(1).XValues = Worksheets(1).Range("B1:B5")

该实例用数组为系列中的单个点赋值。

ActiveChart.SeriesCollection(1).XValues = Array(5, 6.3, 8, 6.9, 10)


Areas 对象

属性	方法

描述

它是一个Range中的区域集。每一个区域是一个Range区域。区域对象由Areas方法返回。 每个区域对应于一个不相邻的（多重）选定区域段。


DataLabels 对象

属性	方法

描述

它是一系列上点的所有DataLabel对象的集合。


Mailer 对象

属性	方法

描述

用于工作簿的PowerTalk邮件。该对象只能运用于已安装了PowerTalk扩展系统Apple  Macinfash 机上。


词汇


词汇

A

ANSI 字符集

参数

数组

ASCII 字符集

自动格式化

B

逐位比较

Boolean表达式

中断方式

断点

传地址

传值

C

字符代码

剪贴板

关闭框

集合

注释

比较运算符

编译

常量

控制面板

控制菜单框

D

数据类型

数据类型区域

日期表达式

日期文字

日期分隔符

日期和时间

动态链接库(DLL)

E-F-G

Empty

错误编号

表达式

文件号

H-I-J-K

宿主应用程序

插入点

关键字

L

行标号

行号

续行符

地区

逻辑错误

M

成员

方法

模块表

模块表级

模块表变量

N

命名参数

Null

数字表达式

数字类型

O-P-Q

对象表达式

对象类型

变元

路径

路径名

pi

打印区域

过程

过程级

项目

属性

R

运行

运行错误

S

范围

种子

排序次序

分割条

语句

字符串比较

字符串常量

字符串表达式

字符串文字

字符串类型

语法检查

语法错误

T

时间表达式

标题栏

类型声明符

U

通用日期格式

用户定义类型

V

变量

变量名

VarType

W-X-Y-Z

等待方式

监视表达式


BCCRecipients 属性

参阅	实例

用于

Mailer

描述

返回或设置邮件的BCC副本收件人。可读写。

语法

  object.BCCRecipients

元素

  object

  必选项。邮件对象。

解释

    该属性是一个指定地址字符串数组，可取下列格式之一：

特定个人目录的一个记录。这些名字均为第一层("Fred"或"June")。

一个完整路径。既可以是一个个人目录记录("HD:Excel Folder:My Catalog:Barmey")，也可是一个普通记录("HD:Folder:Martin")。

一个基于当前目录的相对路径。既可是一个个人目录记录("My Catelog:Barney")，也可是一个普通记录("Martin")。

Power Share目录树的一个路径。

"CATALOG_NAME:<node_NAME"，其中<node>是Power Share目录的一个路径。如下一个完整路径为 "AppleTalk:North Building Zone:George's Mac"。


参阅

CCRecipients属性

Enclosures属性

Mailer属性

Received属性

SendDate Time属性

Sender属性

Send Mailer方法

Subject属性

Torecipients属性


BCCRecipients 属性实例

该实例为工作簿1创建邮件对象，然后发送该工作簿。

With Workbooks(1)

.HasMailer = True

With .Mailer

.Subject = "Here is the workbook"

.ToRecipients = Array("Jean")

.CCRecipients = Array("Adam", "Bernard")

.BCCRecipients = Array("Chris")

.Enclosures = Array("TestFile")

End With

.SendMailer

End With


CCRecipients 属性

参阅	实例

用于

Mailer

描述

  返回或设置邮件的CC副本(间接)收件人。可读写。

语法

object.CCRecipients

元素

object

  必选项。邮件对象。

解释

    该属性是一个指定地址字符串数组，可取下列格式之一：

特定个人目录的一个记录。这些名字均为第一层("Fred"或"June")。

一个完全路径。既可以是一个个人目录记录("HD:Excel Folder:My Catalog:Barmey")，也可是一个普通记录("HD:Folder:Martin")。

一个基于当前目录的相对路径。既可是一个个人目录记录("My Catelog:Barney")，也可是一个普通记录("Martin")。

Power Share目录树的一个路径。

"CATALOG_NAME:<node_NAME"，其中<node>是Power Share目录的一个路径。如下一个完全路径为 "AppleTalk:North Building Zone:George's Mac"。


参阅

BCCRecipients属性

Enclosures属性

Mailer属性

Received属性

Send Date Time属性

Sender属性

SendMailer方法

Subject属性

ToRecipients属性


CCRecipients 属性实例

该实例为工作簿1创建邮件，然后发送该工作簿。

With Workbooks(1)

.HasMailer = True

With .Mailer

.Subject = "Here is the workbook"

.ToRecipients = Array("Jean")

.CCRecipients = Array("Adam", "Bernard")

.BCCRecipients = Array("Chris")

.Enclosures = Array("TestFile")

End With

.SendMailer

End With


Enclosures 属性

参阅	实例

用于

Mailer

描述

 返回或设置一个附加在工作簿邮件上的包含文件，它是一个字符串数组， 其中每个字符串代表附加在信封上的文件的路径名。 这里允许基于当前目录的相对路径。可读写。

语法

object.Enclosures

元素

object

  必选项。邮件对象。


参阅

BCCRecipients属性

CCRecipients属性

Mailer属性

Received属性

SendDateTime属性

Sender属性

SendMailer方法

Subject属性

ToRecipients属性


Enclosures 属性实例

该实例为工作簿1创建邮件对象，然后发送该工作簿。

With Workbooks(1)

.HasMailer = True

With .Mailer

.Subject = "Here is the workbook"

.ToRecipients = Array("Jean")

.CCRecipients = Array("Adam", "Bernard")

.BCCRecipients = Array("Chris")

.Enclosures = Array("TestFile")

End With

.SendMailer

End With


Mailer 属性

参阅	实例

用于

Workbook

描述

    返回附加在工作簿上的PowerTalk邮件(Mailer) 。只读。

语法

object.Mailer

元素

object

必选项。工作簿对象。

解释

邮件对象包括用PowerTalk邮递工作簿所必须的属性。邮递一个工作簿， 必须由HasMailer属性打开邮件，然后设置邮件属性，并用SendMailer方法 发送工作簿和邮件。


参阅

BCCRecipients属性

CCRecipients属性

Enclosures属性

HasMailer属性

Received属性

Send Date Time属性

Sender属性

SendMailer方法

Sjbject属性

To Recipient属性


Mailer 属性实例

该实例为工作簿1创建邮件对象，然后发送该工作簿。

With Workbooks(1)

.HasMailer = True

With .Mailer

.Subject = "Here is the workbook"

.ToRecipients = Array("Jean")

.CCRecipients = Array("Adam", "Bernard")

.BCCRecipients = Array("Chris")

.Enclosures = Array("TestFile")

End With

.SendMailer

End With


Received 属性

参阅	实例

用于

Mailer

描述

若工作簿邮件已被接收(由其他用户发送给当前用户)，并且当前用户还未用Reply方法，ReplyAll方法或orwardMailer方法修改邮件时，则为真。PowerTalk要求邮件接收后才能被交送或回复。只读。

语法

object.Received

元素

object

  必选项。邮件对象。


参阅

BCCRecipients属性

CCRecipients属性

Enclosures属性

ForwardMailer属性

Mailer属性

Reply属性

ReplyAll属性

Send Date Time属性

Sender属性

SendMailer方法

Subject属性

To Recipients属性


Received 属性实例

该实例显示Received属性的当前状态。

With ActiveWorkbook

If .HasMailer Then

If .Mailer.Received Then

state = "True"

Else

state = "False"

End If

MsgBox "Received property is " & state

Else

MsgBox "The workbook has no mailer"

End If

End With


SendDateTime 属性

参阅	实例

用于

Mailer

描述

    返回邮件发送的日期和时间。只有邮件发送后，该属性才能有效。只读。

语法

object.SendDateTime

元素

object

  必选项。邮件对象。


参阅

BCCRecipients属性

CCRecipients属性

Enclosures属性

Mailer属性

Received属性

Sender属性

SendMailer方法

Subject属性

ToRecipients属性


SendDateTime 属性实例

该实例显示工作簿发送时，发送者、发送日期和时间。

If ActiveWorkbook.HasMailer Then

MsgBox "This workbook was sent by " & _

ActiveWorkbook.Mailer.Sender & " at " & _

ActiveWorkbook.Mailer.SendDateTime

End If


Sender 属性

参阅	实例

用于

Mailer

描述

   返回工作簿邮件发送者的用户名(以文字)。只读。

语法

object.Sender

元素

object

  必选项。邮件对象。


参阅

BCCRecipients属性

CCRecipients属性

Enclosures属性

Mailer属性

Received属性

SendDateTime属性

SendMailer方法

Subject属性

ToRecipients属性


Sender 属性实例

该实例显示工作簿发送时，发送者、发送日期和时间。

If ActiveWorkbook.HasMailer Then

MsgBox "This workbook was sent by " & _

ActiveWorkbook.Mailer.Sender & " at " & _

ActiveWorkbook.Mailer.SendDateTime

End If


SendMailer 方法

参阅	实例

用于

Workbook

描述

采用PowerTalk邮件发送工作簿。该方法只能用于已安装了PowerTalk扩展系统的AppleMacintosh机上，而且只适用于已粘贴了邮件的工作簿。

语法

object.SendMailer(fileFormat, priority)

元素

object

  必选项。工作簿对象。

fileFormat

  可选项。指定被发送工作簿的文件格式，有效类型清单见FileFormat 属性。

priority

可选项。指定信息的投递优先级(可为xlNormal，xlHigh或xlHow之一，缺省值为xlNormal)。

解释

对于MicrosoftMail邮递系统(MAPI或Apple Macintosh机的MicrosoftMail)采用SendMail方法。将地址信息变为参数。对于AppleMacintogh 机上的PowerTalk邮递系统采用SendMailer方法。邮件对象包括PowerTalk要求的地址信息。


参阅

BCCRecipients属性

CCRecipients属性

Enclosures属性

FileFormat属性

Mailer属性

Received属性

SendDateTime属性

Sender属性

SendMail方法

Subject属性

ToRecipients属性


SendMailer 方法实例

该实例为工作簿1创建邮件对象，然后发送工作簿。

With Workbooks(1)

.HasMailer = True

With .Mailer

.Subject = "Here is the workbook"

.ToRecipients = Array("Jean")

.CCRecipients = Array("Adam", "Bernard")

.BCCRecipients = Array("Chris")

.Enclosures = Array("TestFile")

End With

.SendMailer

End With


ToRecipients 属性

参阅	实例

用于

Mailer

描述

    返回或设置邮件的直接接受者。可读写。

语法

object.ToRecipients

元素

object

  必选项。邮件对象。

解释

    该属性是一个指定地址字符串数组，可取下列格式之一：

特定个人目录的一个记录。这些名字均为第一层("Fred"或"June")。

一个完整路径。既可以是一个个人目录记录("HD:Excel Folder:My Catalog:Barmey")，也可是一个普通记录("HD:Folder:Martin")。

一个基于当前目录的相对路径。既可是一个个人目录记录("My Catelog:Barney")，也可是一个普通记录("Martin")。

Power Share目录树的一个路径。

"CATALOG_NAME:<node_NAME"，其中<node>是Power Share目录的一个路径。如下一个完整路径为 "AppleTalk:North Building Zone:George's Mac"。


参阅

BCCRecipients属性

CCRecipients属性

Enclosures属性

Mailer属性

Received属性

SendDateTime属性

Sender属性

SendMailer方法

Subject属性


ToRecipients 属性实例

该实例为工作簿1创建邮件对象，然后发送该工作簿。

With Workbooks(1)

.HasMailer = True

With .Mailer

.Subject = "Here is the workbook"

.ToRecipients = Array("Jean")

.CCRecipients = Array("Adam", "Bernard")

.BCCRecipients = Array("Chris")

.Enclosures = Array("TestFile")

End With

.SendMailer

End With


在Visual Basic中使用工作表函数

综述	实例

A

Acos

Acosh

And

Asin

Asinh

Atan2

Atanh

AveDev

Average

B

BetaDist

BetaInv

BinomDist

C

Ceiling

ChiDist

ChiInv

ChiTest

Choose

Clean

Combin

Confidence

Correl

Cosh

Count

CountA

CountBlank

CountIf

Covar

CritBinom

D

DAverage

Days360

Db

DCount

DCountA

Ddb

Degrees

DevSq

DGet

DMax

DMin

Dollar

DProduct

DStDev

DStDevP

DSum

DVar

DVarP

E

Even

ExponDist

F

Fact

FDist

Find

FindB

FInv

Fisher

FisherInv

Fixed

Floor

Forecast

Frequency

FTest

Fv

G

GammaDist

GammaInv

GammaLn

GeoMean

Growth

H

HarMean

HLookup

HypGeomDist

I

Index

Intercept

Ipmt

Irr

IsErr

IsError

IsLogical

IsNA

IsNonText

IsNumber

Ispmt

IsText

J

K

Kurt

L

Large

LinEst

Ln

Log

Log10

LogEst

LogInv

LogNormDist

Lookup

M

Match

Max

MDeterm

Median

Min

MInverse

MIrr

MMult

Mode

N

NegBinomDist

NormDist

NormInv

NormSDist

NormSInv

NPer

Npv

O

Odd

Or

P

Pearson

Percentile

PercentRank

Permut

Pi

Pmt

Poisson

Power

Ppmt

Prob

Product

Proper

Pv

Q

Quartile

R

Radians

Rank

Rate

Replace

ReplaceB

Rept

Roman

Round

RoundDown

RoundUp

RSq

S

Search

SearchB

Sinh

Skew

Sln

Slope

Small

Standardize

StDev

StDevP

StEyx

Substitute

Subtotal

Sum

SumIf

SumProduct

SumSq

SumX2MY2

SumX2PY2

SumXMY2

Syd

T

Tanh

TDist

Text

TInv

Transpose

Trend

Trim

TrimMean

TTest

U

USDollar

V

Var

VarP

Vdb

VLookup

W

Weekday

Weibull

X

Y

Z

ZTest


概述

可以编写调用Microsoft Excel工作表函数的Visual Basic过程，

Visual Basic过程有效的工作表函数在应用程序对象中，并且

当Visual Basic中调用工作函数时，应用程序限制是必需的，参见

实例.一些工作表函数，例如Log，具有与Visual Basic函数相同的

名字，如果想要调用Microsoft Excel工作表函数 Log，使用Log。另外，注意

Microsoft Excel工作表函数Log(以10为底或以n为底对数)和

Visual Basic 函数Log(自然对数)返回不同值。


在Visual Basic中使用工作表函数实例

该实例使用工作表函数Pmt计算住宅抵押贷款支付。

注意该实例使用InputBox方法代替InputBox函数。

Static语句导致Visual Basic保留三个变量的值;

下一次用户运行程序时，这些变量被显示为默认值。

Static loanAmt

Static loanInt

Static loanTerm

loanAmt = Application.InputBox _

(Prompt：="Loan amount (100，000 for example)"， _

Default：=loanAmt， Type：=1)

loanInt = Application.InputBox _

(Prompt：="Annual interest rate (8.75 for example)"， _

Default：=loanInt， Type：=1)

loanTerm = Application.InputBox _

(Prompt：="Term in years (30 for example)"， _

Default：=loanTerm， Type：=1)

payment = Application.Pmt(loanInt / 1200， loanTerm * 12， loanAmt)

MsgBox "Monthly payment is " & Format(payment， "Currency")


 这是一个仅在Microsoft Excel远东版中有效的工作表函数。


可捕获错误
可捕获的错误

参阅

当应用程序运行时，可捕获的错误可能发生，其中一些也可在

开发和编译期间发生。使用On Error语句和Err函数可

测试和响应可捕获的错误

也可以在Visual Basic中使用Microsoft Excel单元格错误值。

为进一步获取信息，参见单元格错误值（Cell Error Values）。

代码	消息

3	无GoSub Return

5	非法的过程调用

6	溢出

7	超出内存

9	下标超界

10	重复定义

11	被零除

13	类型不匹配

14	字符串空间溢出

16	字符串表达式太复杂

17	不能执行所需要的操作

18	发生用户中断

20	无错误Resume

28	超出堆栈空间

35	Sub或Function未定义

48	装入DLL时出错

49	错误的DLL调用约定

51	内部错误

52	错误的文件名或编号

53	文件未找到

54	错误的文件方式

55	文件已经打开

57	设备I/O错误

58	文件已存在

59	错误的记录长度

61	磁盘满

62	Input 超过了文件尾

63	错误的记录长度

67	太多的文件

68	设备无效

70	权限不够

71	磁盘未准备好

74	不能用不同驱动器更名

75	路径/文件访问错误

76	路径未找到

91	Object(对象)变量未设置

92	For循环未初始化

93	非法图案字符串

94	Null的非法使用

95	用户定义错误

323	不能加载模块表;非法格式

423	属性或方法未找到

424	必选的对象

430	类不支持OLE自动化

438	对象不支持该属性或方法

440	OLE自动化错误

445	对象不支持这个操作

446	对象不支持命名参数

447	对象不支持当前的地区设置

448	命名参数未找到

449	参数不是可选项

450	错误参数个数

451	对象非集合

452	非法的序号

453	指定的DLL函数未找到

454	没有找到代码资源

455	代码资源锁定错误

1000	类名不具有属性名属性Classname does not have propertyname property

1001	类名不具有方法名方法Classname does not have methodname method

1002	丢失必选参数的参数名

1003	非法参数编号

1004	类名类的方法名方法失败Methodname method of classname class failed

1005	不能设置类名类的属性名属性Unable to set the propertyname property of the classname class

1006	不能获得类名类的属性名属性Unable to get the propertyname property of the classname class


参阅可捕获的错误
参阅

CVErr 函数

Err 函数

Err 语句

Error 语句

Error 函数

Resume 语句


单元格错误值

参阅	实例

可插入单元格错误值到单元格中，或使用CVErr函数可测试单元格的错误

值。单元格错误值具有下表所示赋予它们的常量。

常量	错误号	单元格错误值

xlErrDiv0	2007	#DIV/0!

xlErrNA	2042	#N/A

xlErrName	2029	#NAME?

xlErrNull	2000	#NULL!

xlErrNum	2036	#NUM!

xlErrRef	2023	#REF!

xlErrValue	2015	#VALUE!


参阅

CVErr 函数

错误值概述


单元格错误值实例

该实例在第一工作表上插入七个单元格错误值到单元格区域A1：A7。

myerrorarray = Array(xlErrDiv0， xlErrNA， xlErrName， xlErrNull， _

xlErrNum， xlErrRef， xlErrValue)

For i = 1 To 7

    Worksheets(1).Cells(i， 1).Value = CVErr(myerrorarray(i - 1))

Next i

如果当前单元格包含单元格错误值，该实例显示消息可以使用该实例作为处理单元格错误值的框架。

If IsError(ActiveCell.Value) Then

errval = ActiveCell.Value

Select Case errval

Case CVErr(xlErrDiv0)

MsgBox "#DIV/0! error"

Case CVErr(xlErrNA)

MsgBox "#N/A error"

Case CVErr(xlErrName)

MsgBox "#NAME? error"

Case CVErr(xlErrNull)

MsgBox "#NULL! error"

Case CVErr(xlErrNum)

MsgBox "#NUM! error"

Case CVErr(xlErrRef)

MsgBox "#REF! error"

Case CVErr(xlErrValue)

MsgBox "#VALUE! error"

Case Else

MsgBox "This should never happen!!"

End Select

End If


Visual Basic常量

参阅

下列常量由Visual Basic指定。因此，它们可以在代码中任何地方使用代替实际值。

Dir， GetAttr， 和 SetAttr 常量

MsgBox 常量

StrConv 常量

VarType 常量

Microsoft Excel包含方法和属性使用的内部常量，这些常量

由字母xl开头，并且由方法或属性说明它们施加的对象。

可使用[对象浏览]浏览内部常量清单，从[视窗]菜单，选择[对象浏览]命令，选定Microsoft Excel库，然后选定常量对象，在方法/属性框中滚动清单查看完整的常量清单。


参阅Visual Basic常量
参阅

Dir 函数

GetAttr 函数

MsgBox 函数

SetAttr 语句

StrConv 函数

VarType 函数


理解Micrsoft Excel中Visual Basic对象
理解Miccrosoft Excel中Visual Basic对象

    对象是Microsoft Excel或任何应用程序的构造块，用Visual Basic代码

    控制。使用对象完成Microsoft Excel中任务与日常生活中使用的对象

    非常相似。例如，卡车是运输物品的对象，工作表是计算和

    显示信息的对象。

    下面是Microsoft Excel中使用的一些典型对象：

对象	描述

区域	输入公式以便求值的单元格或单元格区域。

工作表	工作簿中计算和显示信息的表。

工作簿	存储为单一文件的一组表。

菜单	执行操作的命令清单

名字	引用单元格、单元格区域，值或公式的易于记忆的标识符。

式样	包括字体、颜色、边框线等单元格的格式组合    象日常生活中的对象一样，Microsoft Excel中的对象具有构件部分(对象本身)、定义特征和其他可以做的事情。

  对象的属性

属性是定义对象特征(诸如尺寸，颜色和屏幕位置)的对象的命名属性或行为 (诸如是有效还是可见)。为改变对象。改变其属性值。

设置属性值

设置属性值是控制MicrosoftExcel对象的一种方法，为设置 属性值，对象名后跟句点，属性名，等号和新属性值。例如 通过设置宽度和高度属性调整窗口大小。

Sub ResizeWindow()

NewSize = InputBox ("What square size would you like?")

ActiveWindow.Width = NewSize

ActiveWindow.Height = NewSize

End Sub

    一些属性不能被设置，属性的帮助主题指明属性可被设置

    (可读写)或不可设置(只读)

返回属性值

可以通过返回属性值取回对象的信息，下列语句把Note属性

的值放在变量中，然后在对话框中显示变量的内容。Note是区域

对象的属性。

MyMessage = Range("A1").Note

MsgBox MyMessage

用对象方法进行操作

方法是发送给对象的命令——对象知道如何执行操作。

下列语句使用区域对象的Select方法选定单元格A1。

(选定是区域对象知道如何去做的操作。)

Range("A1").Select

作为其它对象容器的对象

Microsoft Excel由许多对象组成——工作簿、工作表、图表等，其中一些可以容纳其他对象。对象(可包含另一个简单对象，因为其层次在另一对象上或"大"。工作簿包含工作表;工作表包含行和列;行和列包含独立的单元格区域。

应用程序对象

  最高级对象是应用程序对象。它包含构成应用程序的所有其它  对象。当设置应用程序对象属性或进行方法时，结果影响整个Microsoft Excel一段时间，例如，下列语句使用Quit方法退出Microsoft Excel。

Application.Quit

在容器中的对象间引导正如用句点标识对象的属性或方法一样，也可以用它从一个容器

对象引导到容器中另一对象。例如，下列语句标识应用程序对象中的工作簿对象，并关闭所有打开的工作簿。

Application.Workbooks.Close

  对象集

  对象集是对象含有另一对象的另一实例，集是具有相同类型的包含多个对象的特定对象。在前例中，工作簿是一个集，因为它包含独立的工作簿对象。集永远是复数的(WorkSheets，Axes等)。Visual Basic提供易于用集进行操作的语句。例如，ForEach…Next语句循环遍历集中每个对 象，下面语句当循环执行时，在对话框中显示每个工作簿名字。

Sub GetAllNames ()

For Each BookName In Application.Workbooks

MsgBox BookName.FullName

Next

End Sub

用容器或集中指定对象进行工作经常需要用集中指定对象工作，而非整个集。用集进行工作与用数组工作类似，可通过将文字或数字用括号括起标识其中一项，在下列语句中，Applcation.Workbooks(1)标识第一个打开的工作簿，并用Close方法关闭该工作簿。

Application.Workbooks(1).Close

  下面语句使用名字(文字字符串)标识指定对象。

Application.Workbooks("Book4").Close

关于容器和集的进一步信息可经过多个容器对象进行引导。例如，工作簿包含工作表，下面语句从工作簿"Book6"删除第一个工作表。

Application.Workbooks("Book6").Worksheets(1).Delete

工作表包含行。下面语句从工作簿"Book6"中"Sheet2"上删除第二行。

Application.Workbooks("Book6").Worksheets("Sheet2").Rows(2).Delete

行包含单元。下面语句在第一行第一个单元格中输入公式。

Application.Workbooks("Book6").Worksheets("Sheet2").Rows(1).Cells(1).Formula = "Hi!"

创建短代码

  前例可以更短。如果在Microsoft Excel中编写代码，总可以省略关键字Application，因为它是默认应用程序。另外， Visual Basic提供一些返回对象的属性和方法，因此可使用它们快速标识所需对象， 如下节解释。

返回对象的属性

  属性值通常是数字、文字、True或False等，但有时为对象，无论何时 返回的属性值是对象本身，处理属性与处理任一对象方法相同。例如， ActiveWorkbook是标识当前工作簿的应用程序对象的只读属性(它是对 象本身)。下面语句使用Close方法关闭ActiveWorkbook属性返回的任何工作簿。

ActiveWorkbook.Close

  几个属性返回对象，包括ActiveCell，ActiveWindow，ActiveSheet 和Selection。该特性使代码急剧缩短并易读，比较下面实例与上一节结 尾处实例的长度

ActiveCell.Formula = "Hi!"

返回对象的方法

  方法通常是对象可执行的操作，但一些对象具有返回另一对象 的特定方法(通常为对象集。无论方法何时返回对象，处理方法 与处理对象相同。事实上，在先前看到的关于集的实例中，Workbooks， WorkSheets，Rows和Cells关键字实际上是返回对象的方法。

Application.Workbooks("Book6").Worksheets("Sheet2").Rows(1). _

Cells(1).Formula = "Hi!"

可能想知道工作表集和返回工作表集的WorkSheets方法间， 或工作簿集和返回工作簿集的Workbooks方法间的差异等。  在类似的实例中，方法和其返回的对象间的差别已完全不重要了， Visual Basic处理这些细节。例如，如果键入下列代码，Visual Basic知道Count属性需要预先准备好的对象集，它也知道工作表集包含在 工作簿对象中。

  该语句使用ActiveWorkbook属性和WorkSheets方法(皆返回

  对象)和Count属性(返回数字)并显示当前工作簿中工作表

  的编号。

MsgBox ActiveWorkbook.Worksheets.Count

    无论何时对特殊对象返回属性或方法操作，处理它们就如同处理其他对象一样。

    为进一步获取信息，参见《Visual Basic用户手册》中第五章"在Visual Basic中使用对象�"。


QueryGetData 函数

参阅

描述

  建立新查询

  该函数包含在XLQuery加载宏中，在使用该函数前，必须用工具菜单上的 引用命令建立对XLQuery加载宏的引用。为进一步获取信息，参阅《Visual

  Basic用户手册》中"调用其他工作簿中的过程"一节。

语法

QueryGetData(connectionString， queryText， keepQueryDef， fieldNames， rowNumbers， destination， execute)

元素

  QueryGetData具有下列命名参数：

connectionString

  必选项。含有数据库连接信息的字符串，诸如数据源名字，用户ID和口令，对外部数据源必须进行SQL连接。例如，

 "DSN=Myserver; Server=server1; UID=dbayer; PWD=buyer1; Database=nwind"。

queryText

必选项。含有在数据源上运行的SQL语言查询的字符串

keepQueryDef

    可选项。如果为True或省略，保护查询定义，如果为False，查询定义丢失，且来自查询的数据不再是数据区域。

fieldNames

    可选项。如果为True或省略，放置来自Microsoft查询的字段名字至数据 区域的第一行。如果为False，字段名字被放弃。

rowNumbers

可选项。如果为True，放置来自Microsoft查询的字段名字至 数据区域的第一列，如果为False或省略，行号被放弃。

destination

可选项。返回数据的目的地，如区域对象。如果目的地在数据 区域中，那么数据区域被改变以反应新SQL查询。默认目的地是 当前 活动单元或选定区域。

execute

可选项。如果为True或省略，查询立即运行：如果为False，查询文字增 加到缓冲区并直到与执行参数一起调用的后续QueryGetData函数设置为True 后，查询才运行。当该情况发生时，Microsoft查询在缓中区中运行所有查询文字。


参阅

QueryGetDataDialog 函数

QueryRefresh 函数


QueryGetDataDialog 函数

参阅

描述

    建立新查询。等价于从数据菜单选择获取外部数据命令。

  该函数包含在XLQuery加载宏中，使用该函数前，必须使用

  工具菜单上的引用命令建立对XLQuery加载宏的引用。

  为进一步获取信息，参见Visual Basic用户指南中"在另一工作簿中

  调用过程"主题。

语法

QueryGetDataDialog(connectionString， queryText， keepQueryDef， fieldNames， rowNumbers， destination， execute)

Elements

QueryGetDateDialog函数具有下列命名参数：

connectionString

必选项。包有数据库连接信息的字符串，诸如数据源名字，用户ID和口令，对外部数据源必须行SQL连接。

  例如，， "DSN=Myserver; Server=server1; UID=dbayer; PWD=buyer1; Database=nwind"。

queryText

  必选项。包含在数据源上运行的SQL语言查询的字符串。

keepQueryDef

可选项。如果为True或省略，保护查询定义；如果为False，查询定义丢失且查询的 数据不再是数据区域。

fieldNames

可选项。如果为True或省略，放置来自Microsoft查询的字段名字至数据区 域的第一行中。如果为False，字段名字被放弃。

rowNumbers

可选项。如果为True，放置来自Microsoft查询的字段名字至数据区域的第一 列，如果为False或省略，行号被放弃。

destination

  可选项。返回数据的目的地，如区域对象。如果目的地在数据区域中，那 么数据区域被改变以反应新SQL查询。默认目的地是当前单元格或选定区域。

execute

  可选项。如果为True或省略，查询立即运行，如果为False。查询文字增加 到缓冲区并直到与执行参数一起调用的后续QueryGetData函数设置为True后才运行。 当该情况发生时，Microsoft查询在缓冲区中运行所有查询文字。


参阅

QueryGetData 函数

QueryRefresh 函数


QueryRefresh 函数

参阅

描述

  更新由Microsoft查询工具返回的数据区域中的数据。该函数包含在XLQuery加载 宏中，使用该函数前，必须使用[工具]菜单的[引用]命令建立对XLQuery加载宏的引 用。为进一步获取信息。参见《Visual Basic用户手册》中调用在其他工作簿中过 程"一节。

语法

QueryRefresh(ref)

元素

  QueryRefresh函数具有下列命名参数：

ref

  可选项。数据区域内的单一单元格，如区域对象，如果ref

  不在数据区域内，那么该函数返回#REF! 错误值。


参阅

QueryGetData 函数

QueryGetDataDialog 函数


AddressLocal 方法

参阅	实例

用于

Range

描述

返回区域地址，使用用户语言中的字符串。

语法

object.AddressLocal(rowAbsolute, columnAbsolute, referenceStyle, external, relativeTo)

元素

AddvessLocal方法有下列限制对象和命名参数。

object

必选项。返回该区域的地址。

rowAbsolute

可选项。如果为True或省略，用绝对地址返回地址的行部分。

columnAbsolute

可选项。如果为True或省略，用绝对地址返回地址的列部分。

referenceStyle

可选项。如果为X1A1或省略，该方法返回A1式样地址，如果X1R1C1，该方法返回 R1C1式样地址。

external

可选项。如果为True，该方法返回一外部引用，如果为False，该方法返回局部引用。

relativeTo

可选项。如果rowAbsolute和columnAbsolute为False，且referenceStyle为X1R1C1，必须 包括相对地址的起点，此参数为定义起点的区域对象类型。

解释

如果地址包含多个单元格， rowAbsolute 和 columnAbsolute 用于所有行和列。


参阅

Addvess方法

offset方法


AddressLocal 方法实例

假定下实例用美国英语版Microsoft Excel创建，然后在德国版中运行。该实例显示注释中显示的文字。

Set mc = Worksheets("Sheet1").Cells(1, 1)

MsgBox mc.AddressLocal()                         ' $A$1

MsgBox mc.AddressLocal(rowAbsolute:=False)       ' $A1

MsgBox mc.AddressLocal(referenceStyle:=xlR1C1)   ' Z1S1

MsgBox mc.AddressLocal(referenceStyle:=xlR1C1, _

rowAbsolute:=False,     _

columnAbsolute:=False,  _

relativeTo:=Worksheets(1).Cells(3, 3))       ' Z(-2)S(-2)


CategoryLocal 属性

参阅	实例

用于

Name

描述

如果名字引用自定义函数或命令，该属性用字符串形式返回或设置用户语言中该 名字的分类。可读写。

语法

object.CategoryLocal

元素

object

必选项。名字对象。


参阅

Category属性

MacroType属性


CategoryLocal 属性例子

该实例显示用户语言中名字分类。

With ActiveWorkbook.Names(1)

If .MacroType <> xlNone Then

MsgBox "The category for this name is " & .CategoryLocal

Else

MsgBox "This name does not refer to" _ &

" a custom function or command."

End If

End With


DisplayScrollBars 属性

参阅	实例

用于

Application

描述

如果滚动条对所有工作簿为可见的，则为True。可读写。

语法

object.DisplayScrollBars

元素

object

必选的。应用程序对象


参阅

DisplayHorizontalScrollBar属性

DisplayVerticalScrollBar属性


DisplayScrollBars 属性实例

该实例关闭所有工作簿的滚动条。

Application.DisplayScrollBars = False


FormulaLocal 属性

参阅	实例

用于

Range, Series

描述

返回或设置对象的公式，使用用户语言中A1式样地址。可读写。

语法

object.FormulaLocal

元素

object

必选项。区域或系列对象。

解释

如果单元格包含常量，此属性返回常量。如果单元格为空，返回一空字符串。如果单 元格包含一公式，它使用字符串返回公式，与编辑栏中显示的格式相同（包括等号）

如果设置一个单元格的值或公式为日期，Microsoft Excel检查单元格是否已经用日期或时间数字格式格式化了。如果没有，它改变数字格式为 默认的短日期格式如果区域为一维或二维区域，可设置格式为Visual Basic同维数组，设置多 单元格区域公式用公式填充区域中所有单元格。


参阅

Formula属性

FormulaArray属性

FormulaR1C1属性

FormulaR1C1Local属性


FormulaLocal 属性实例

该实例根据单元格A10在活动单元格中设置公式。

ActiveCell.FormulaLocal = Range("A10").FormulaLocal


FormulaR1C1 属性

参阅	实例

用于

Range, Series

描述

为对象返回或设置公式，在宏语言中用R1C1式样表示法。

语法

object.FormulaR1C1

元素

object

必选项。区域或系列对象。

解释

如果单元格包含常量，此属性返回常量。如果单元格为空，返回一空字符串。如果 单元格包含公式，返回公式为字符串，与编辑栏中显示的格式相同（包括等号）。

如果设置一个单元格的值或公式为萒RUE冢琈icrosoft Excel检查单元格是否已经用一 个日期或时间数字格式格式化了。如果没有，改变数字格式为默认短日期数字格式。 如果区域为一维或二维区域，可设置公式为Visual Basic同维数组。类似的， 可把公式放入Visual Basic数组。设置多单元格区域的公式用公式填充区域内 所有的单元格。


参阅

Formula属性

FormulaArray属性

FormulaLocal属性

FormulaR1C1Local属性


FormulaR1C1 属性实例

该实例根据单元格A10在活动单元格内设置公式。

ActiveCell.FormulaR1C1 = Cells(10, 1).FormulaR1C1


FormulaR1C1Local 属性

参阅	实例

用于

Range, Series

描述

为对象返回或设置公式，在用户语言中用R1C1式样标志。

语法

object.FormulaR1C1Local

元素

object

必选项。区域或系列对象

解释

如果单元格包含常量，此属性返回常量。如果单元格为空，返回一空字符串。如果 单元格包含公式，返回公式为字符串，与公式栏中显示的格式相同（包括等号）

如果设置单元格值或公式为日期，Microsoft Excel检查单元格是否已用一个日期或时间 数字格式格式化了。如果没有，它改变数字格式为默认短日期数字格式如果区域为一 维或二维区域，可设置公式为Visual Basic同维数组。似类的，可把公式放入Visual Basic数组。设置多单元格区域的公式用公式填充区域内的所有单元格。


参阅

Formula属性

FormulaArray属性

FormulaLcal属性

FormulaR1C1属性


FormulaR1C1Local 属性实例

该实例根据单元格A10在活动单元格内设置公式。

ActiveCell.FormulaR1C1Local = Range("A10").FormulaR1C1Local


HasDataLabels 属性

参阅	实例

用于

Series

描述

如果系列有数据标记，则为True。可读写。

语法

object.HasDataLabels

元素

object

必选项。系列对象。


参阅

ApplyDataLabels属性

HasDataLabel属性

DataLabel属性


HasDataLabels 属性实例

该实例为系列3打开数据标记。

With ActiveChart.SeriesCollection(3)

.HasDataLabels = True

.ApplyDataLabels type:=xlValue

End With


PhoneticAccelerator 属性

参阅	实例

用于

Button, Buttons, CheckBox, CheckBoxes, DrawingObjects, GroupBox, GroupBoxes, Label, Labels, OptionButton, OptionButtons

描述

返回或设置语音键盘加速键字符给控制（此属性只用于远东Microsoft Excel）。 语音快速器只有在系统加速方式切换到语音字符时才使用（与罗马字符相反， 它使用Accelearator属性）。可读写。

语法

object.PhoneticAccelerator

元素

object

必选项。该属性施加的对象。


参阅

Accelerator属性


PhoneticAccelerator 属性实例

该实例设置加速器和语音加速器为按钮4。

With DialogSheets(1).Buttons(4)

.Accelerator = "E"

.PhoneticAccelerator = "l"

End With


RefersToLocal 属性

参阅	实例

用于

Name

描述

返回或设置包含公式的字符串，该公式的名字被定义为用下列形式表示的引用： A1表示法、用户语言及以等号开头。可读写。

语法

object.RefersToLocal

元素

object

必选项。应用程序对象。


参阅

RefersTo属性

RefersToR1C1属性

ReferToR1C1Local属性


RefersToLocal 属性实例

该实例在当前工作簿中建立所有名字的清单，在用户语言中，用A1式样表示法显示其 公式。

i = 1

For Each nm In ActiveWorkbook.Names

Cells(i,1).Value = nm.NameLocal

Cells(i,2).Value = nm.RefersToLocal

i = i + 1

Next


RefersToR1C1 属性

参阅	实例

用于

Name

描述

返回或设置包含公式的字符串，该公式的名字被定义为用下列形式表示的引用：R1C1-表示法、宏编写器语言及以等号开头。可读写。

语法

object.RefersToR1C1

元素

object

必选项。应用程序对象。


参阅

RefersTo属性

RefersToLocal属性

RefersToR1C1Local属性


RefersToR1C1 属性实例

该实例在当前工作簿中创建所有名字的清单，在宏语言中以R1C1式样表示法显示其公 式。

i = 1

For Each nm In ActiveWorkbook.Names

Cells(i,1).Value = nm.Name

Cells(i,2).Value = nm.RefersToR1C1

i = i + 1

Next


RefersToR1C1Local 属性

参阅	实例

用于

Name

描述

返回或设置包含公式的字符串，该公式的名字被定义为用下列形式表示的引用：R1C1-式样表示 法、用户语言及以等号开头。可读写。

语法

object.RefersToR1C1Local

元素

object

必选项。应用程序对象。


参阅

RefersTo属性

RefersToLocal属性

RefersToR1C1属性


RefersToR1C1Local 属性实例

该实例在当前工作簿中创建所有名字的清单。在用户语言中用R1C1式样

表示法显示其公式。

i = 1

For Each nm In ActiveWorkbook.Names

Cells(i,1).Value = nm.NameLocal

Cells(i,2).Value = nm.RefersToR1C1Local

i = i + 1

Next


SortSpecial 方法

实例

用于

Range

描述

语法1：如果区域仅包含一单元格，用远东排序方法排序区域，或排序当前区域。

语法2：用选东排序方法排序数据透视表；参见参数列表以获得更多信息。

语法1

object.SortSpecial(key1, sortMethod, order1, key2, type, order2, key3, order3, header, orderCustom, matchCase, orientation)

语法2

object.SortSpecial(key1, sortMethod, order1, type, orderCustom, orientation)

元素

Sort方法具有下列限制对象和命名参数：

object

必选项。区域对象。

key1

必选项（当排序数据透视表时为可选项）。主要排序字段，为文字（数据透视字段 或区域名字）或区域对象（举例，"Dept"或Cells（1,1））。

sortMethod

可选项。指定如何排序（语音排序为xlSyllabary或代码页排序为xlCodePase）

默认值为xlSyllabary。

order1

可选项。如果为xlAscending或省略，key1以升序排列，如果为xlDesconding，

key1按降序排列。

key2

可选项。次要个排序字段，为文字（数据透视字段或区域名字）或区域对象。如果省 略，无次要排序字段，排序数据透视表时不用。

type

可选项。仅在排序数据透视表时用。限定排序对象。xlSovtVales或xlSortlabels

order2

可选项。对key2的排序次序（xlAscending或xlDescending）；如果省略，假定为xlAscending ，当排序数据透视表时不用。

key3

可选项。第三排序字段，为文字（区域名）或区域对象。如果省略，则无第三排序字 段。当排序数据透时表时不用。

order3

可选项，key3的排序次序（xlAscending或xlDescending）；如果省略，假定为xlAscending。 当排序数据透视表时不用。

header

可选项，如果为xlYes，第一行包含页眉（不排序），如果为xlNo或省略，无页眉存在 （所有区域排序）。如果为xlGuess，Microsoft Excel猜测是否有页眉，如果有在什么地方。当排序数据透视表时不用。

orderCustom

可选项。基于1的整数偏移在自定义排序次序列中。如果省略，使用1（一般）。

matchCase

可选项。如果为True，排序区别大小写，如果为False，不区别大小写。当排序 数据透视表时不用。

orientation

可选项。如果为xlToPToBottom或省略，排序从上到下（按行排序）进行。 如果为xlLeftToRight，排序从左到右（按列排序）进行。


SortSpecial 方法实例

该实例排序区域A1：G37，A1用作主要排序关键字和C1用作次要关键字。按行用升序代 码页次序排序，无页眉。

Range("A1", "G37").SortSpecial sortMethod:=xlCodePage, _

key1:="A1", key2:="C1"


SourceData 属性

实例

用于

PivotTable

描述

对数据透视表返回数据源。如下表所示。

数据源	返回值
Microsoft Excel数据清单或数据库	单元格地址为文字
外部数据源	一数组，每行由当查询字符串被分成20行字符段时带有其余元素的SQL连接字符 串构成 。
多重合并计算区域	二维数组，每行由地址和相关的分页字段项构成。
另一个数据透视表	上述三种信息之一。
语法

object.SourceData

元素

object

必选项。数据透视表对象。


SourceData 属性实例

该实例设置变量datasource为当前数据透视表的数据源。

dataSource = ActiveCell.PivotTable.SourceData


Paste 方法

对象	描述

Chart 	将剪贴板上图表数据粘贴至指定图表。

Pictures	将剪贴板上图片粘贴至图表或表上。新图片位置由当 前选定区域确定。

Point or Series	将剪贴板上的图片作为标示粘贴至指定点或系列 。该方法可用于柱形图，条形图，折线图或雷达图，且设 置 MarberStyle为xlPicture。

SeriesCollection	将剪贴板上数据粘贴至指定系列集。

DialogSheet or Worksheet	将剪贴板的内容粘贴至表上。


Paste 方法(图表对象)

参阅	实例

用于

Chart

描述

将剪贴板上图表数据粘贴至指定图表上。

语法

object.Paste(type)

元素

object

必选项。图表对象

type

可选项。如果剪贴板上有另一个图表，指定要粘贴的图表信息（可为xlFormats，xlFormulas 或xlAll之一），默认为xlAll。如果剪贴板上除图表外还有数据存在，则该参数不能使用。

解释

该方法改变当前选定区域。


参阅

Copy 方法

Cut 方法

Paste 方法 (对话框编辑表或工作表对象)


Paste 方法(图表对象)实例

该实例将单元格区域B1:B5内数据粘贴至图表1上。

Range("B1:B5").Copy

Charts(1).Paste


Paste 方法(图片对象)

参阅	实例

用于

Pictures

描述

将剪贴板上图片粘贴至表或图表上。新图片位置由当前选定区域确定。

语法

object.Paste(link)

元素

object

必选项。图片对象

link

可选项。如果为True，则在粘贴的图片与源数据之间建立链接。默认为False。


参阅

Copy 方法

Cut 方法


Paste 方法(图片对象)实例

该实例将剪贴板上的图片粘贴至活动工作表的单元格A1上。

Range("A1").Select

ActiveSheet.Pictures.Paste


Paste 方法 (点对象)
Paste 方法(点或系列对象)

参阅	实例

用于

Point, Series

描述

将剪贴板上图片作为标示粘贴至指定的点或系列。该方法可用于柱形图，条形图，折线 图或雷达图，其设置MarkerStyle为 xlpicture。

语法

object.Paste

元素

object

必选项。点或系列对象。


参阅

Copy 方法

Cut 方法

MarkerStyle 属性


Paste 方法(点成充列对象)实例

该实例复制图片到剪贴板上，然后将其粘贴至图表１上的第一系列中。

Worksheets(1).Activate

ActiveSheet.Pictures(1).Copy

Charts(1).Activate

ActiveChart.SeriesCollection(1).Paste


Paste 方法 (序列集对象)
Paste 方法(系列集对象)

参阅	实例

用于

SeriesCollection

描述

将剪贴板上数据粘贴至指定的系列集。

语法

object.Paste(rowcol, seriesLabels, categoryLabels, replace, newSeries)

元素

object

必选项。系列集对象。

rowcol

可选项。指定特定数据系列相应的值是在行中(xlRows)还是在列中(xlColumns)。默认为 xlColumns。

seriesLabels

可选项。如果为True，Microsoft �Excel使用每行第一列(或每列第一行)单元格内容作为该行（或列）中的数据系列名字。 如果为False（或省略），Microsoft Excel使用每行第一列（或每列第一行）单元格内容作为 数据系列的第一数据点。

categoryLabels

可选项。如果为True，Microsoft �Excel使用选定的第一行（或列）内容作为图表的分类。如果为False（或省略），Micrsoft Excel使用第一行（或列）内容作为图表中第一数据系列。

replace

可选项。如果为True， Microsoft Excel应用复制的单元格区域信息替换现存的分类。 如果为False， Microsoft �Excel应用新的分类，且不置换旧的分类。

newSeries

可选项。指定粘贴的数据是作为新系列（True）还是作为现有系列的新的点（False）。默认为True。


参阅

Add 方法 (系列集对象)

ChartWizard 方法

Copy 方法

Cut 方法

Extend 方法


Paste 方法(系列集对象对象)实例

该实例从单元格区域C1:C5复制数据到剪贴板上，然后将该数据作为新的系列粘贴至图表3上。

Range("C1:C5").Copy

Charts(3).SeriesCollection.Paste


Paste 方法(对话框编辑表或工作表对象)

参阅	实例

用于

DialogSheet, Worksheet

描述

将剪贴板的内容粘贴至表上。

语法

object.Paste(destination, link)

元素

object

必选项。对话框编辑表或工作表对象。

destination

可选项。指定放置剪贴板内容的区域。如果省略，使用当前选定区域， 只有当剪贴板内容可粘贴至区域上时，该参数方可指定，不能与图形表对象一起使用。 如果该参数已指定，则 link参数不能使用。

link

可选项。如果为True，则为粘贴的数据源建立链接。如果该参数已指定，则destination参数不能使用。

解释

如果不指定destination参数，则必须在使用该方法前选定目的区域。该方法可修改依赖剪 贴板内容的表选定区域。例如，粘贴保留选定的图形表对象。


参阅

Copy 方法

Cut 方法

Paste 方法 (图表对象)

PasteSpecial 方法


Paste 方法(工作表对象)实例

该实例复制单元格区域C1:C5数据至单元格区域D1:D5。

Range("C1:C5").Copy

ActiveSheet.Paste destination:=Range("D1:D5")


PasteSpecial 方法

Range：	将剪贴板上的区域粘贴至指定区域。

DialogSheet or Worksheet： 	用指定格式将剪贴板上的内容粘贴至表上。用该方法粘贴其余应用程序的数据 或以指定格式粘贴。


PasteSpecial 方法(区域对象)

参阅	实例

用于

Range

描述

将剪贴板的区域粘贴至指定区域。

语法

object.PasteSpecial(paste, operation, skipBlanks, transpose)

元素

Paste Special方法具有下列对象限制和命名参数：

object

必选项。区域对象。

paste

可选项。指定粘贴的区域部分（可为xlAll，xlFormulas，xlValues，xlFormats或xlNotes之一）。如 果省略，默认为xlAll。

operation

可选项。指定粘贴运算（可为xlNone，xlAdd，xlSubtract，xlMultiply或xlDivde之一）。如果省略 ，默认为xlNone。

skipBlanks

可选项。如果为True，剪贴板上区域中空白单元格不粘贴到目的地。如果省略，默认为 False。

transpose

可选项。如果为True，当区域粘贴时行和列均转置。如果省略，缺False。


参阅

Cut 方法

Copy 方法

Paste 方法

PasteSpecial 方法 (工作表对象)


PasteSpecial 方法(区域对象)实例

该实例用现有内容与单元格区域C1:C5之和复制替换单元格区域D1:D5中的数据。

Range("C1:C5").Copy

Range("D1:D5").PasteSpecial operation:=Add


PasteSpecial 方法(对话框编辑表或工作表对象)

参阅	实例

用于

DialogSheet, Worksheet

描述

用指定格式将剪贴板的内容粘贴至表上。用该方法粘贴其余应用程序数据或以指定格式 粘贴。

语法

object.PasteSpecial(format, link, displayAsIcon, iconFileName, iconIndex, iconLabel)

元素

object

必选项。对话框编辑表或工作表对象。

format

必选项。指定剪贴板粘贴数据的格式（文字形式）。

link

可选项。如果为True，则为粘贴的数据源建立链接。如果该源数据不适合链接或源应用 程序不支持链接，该参数省略。默认值为False。

displayAsIcon

可选项。如果为True，粘贴的数据以图标显示。默认值为False。

iconFileName

可选项。当displayAslcon为True时，包含所用图标的文件名字

iconIndex

可选项。图标文件中图标的索引号。

iconLabel

可选项。图标的文字标记。

解释

使用该方法前必须选定目的区域。该方法可以修改依赖剪贴板内容的表选定区域。 例如，粘贴保留选定的图形表对象。


参阅

Cut 方法

Copy 方法

Paste 方法

PasteSpecial 方法 (区域对象)


PasteSpecial 方法实例

该实例将剪贴板上的Microsoft Word文档对象粘贴至单元格D1上。

Range("D1").Select

ActiveSheet.PasteSpecial format:="Word Document Object"

该实例粘贴Microsoft Word文档对象并以图标显示。

Range("F5").Select

ActiveSheet.PasteSpecial format:="Word Document Object", _

displayAsIcon:=True, iconFileName:="MOREICONS.DLL", _

iconIndex:=9, iconLabel:="Form Letter"


使用Visual Basic

  入门

      创建过程、记录宏和编辑代码。

  运行Visual Basic

      启动，停止和继续执行。

  调试

      增加监视表达式，设置断点和追踪执行。

   优化

     分类程序设计，维护代码和把数据写到文件。


入门
使用Visual Basic

  入门

      创建用户定义的函数

      创建过程

      创建对象变量

      在代码中输入声明

      输入和编辑代码

      引入文本文件到代码中

      记录宏

      代码中替换文字

      执行宏

      在代码中搜索文字

      分割模块表

      语法检查打开和关闭

      OLE自动化

      使用帮助中的实例代码

      应用程序交叉运行

  运行Visual Basic

      启动、停止和继续执行。

  调试

      增加监视表达式、设置断点和追踪执行。

  优化

     分类程序设计、维护代码和把数据写到文件中。


运行Visual Basic
使用Visual Basic

  入门

      创建过程、记录宏和编辑代码。

  运行Visual Basic

       继续执行

       结束执行

       重新启动执行

       启动执行

       停止执行

  调试

       增加监视表达式,设置断点和追踪执行。

  优化

     分类程序设计，维护代码和把数据写到文件中。


调试
使用Visual Basic

 入门

      创建过程、记录宏和编辑代码。

  运行Visual Basic

      启动、停止和继续执行。

 调试

      增加监视表达式

      调试选择清单

      删除监视表达式

      编辑监视表达式

      命名冲突错误

      模块表范围

      过程范围

      项目范围

      解决命名冲突

      范围级

      设置和清除断点

      追踪执行

      使用即时监视

      使用即时分割区域

优化

分类程序设计、维护代码和把数据写到文件中。


优化
使用Visual Basic

  入门

      创建过程、记录宏和编辑代码。

 运行Visual Basic

      启动、停止和继续执行。

 调试

      增加监视表达式、设置断点和追踪执行。

 优化

      创建数组

      创建递归过程

      使For…Next循环更快

      有效地传递参数

      从函数返回字符串

      用数据类型节省空间

      有效地使用数据类型

      把数据写到文件中

      编写可维护的程序


参考信息

杂类

      字符集

      数据类型摘要

      文档约定

      词汇表

      关键字

      运算符摘要

      可捕获的错误

界面元素

       代码窗口

       调试窗口

       即时窗口

       Visual Basic模块表

       监视窗口


字符集 (0-127)

 0	 32	[空格] 	 64	@	 96	`

 1	 33	!	 65	A	 97	a

 2	 34	"	 66	B	 98	b

 3	 35	#	 67	C	 99	c

 4	 36	$	 68	D	 100	d

 5	 37	%	 69	E	 101	e

 6	 38	&	 70	F	 102	f

 7	 39	'	 71	G	 103	g

 8	* *	 40	(	 72	H	 104	h

 9	* *	 41	)	 73	I	 105	i

 10	* *	 42	*	 74	J	 106	j

 11	 43	+	 75	K	 107	k

 12	 44	,	 76	L	 108	l

 13	* *	 45	-	 77	M	 109	m

 14	 46	.	 78	N	 110	n

 15	 47	/	 79	O	 111	o

 16	 48	0	 80	P	 112	p

 17	 49	1	 81	Q	 113	q

 18	 50	2	 82	R	 114	r

 19	 51	3	 83	S	 115	s

 20	 52	4	 84	T	 116	t

 21	 53	5	 85	U	 117	u

 22	 54	6	 86	V	 118	v

 23	 55	7	 87	W	 119	w

 24	 56	8	 88	X	 120	x

 25	 57	9	 89	Y	 121	y

 26	 58	:	 90	Z	 122	z

 27	 59	;	 91	[	 123	{

 28	 60	<	 92	\	 124	|

 29	 61	=	 93	]	 125	}

 30	 62	>	 94	^	 126	~

 31	 63	?	 95	_	 127

**值8，9，10和13分别被转换为退格，制表，换行和回车符。

   他们没有图形表示。但根据应用程序。有可能影响文字的视觉显示。

这些字符不被Microsoft Windows所支持。


被限制的关键字

参阅

下列关键字被限制：

Abs	And	Any	As

B*	BF*	Boolean	ByRef

ByVal	Call	Case	CBool

CCur	CDate	CDbl	CDecl

CInt	Circle*	CLng	Close

Const	Command*	CSng	CStr

CurDir	Currency	CVar	CVDate

CVErr	Date	Debug	Declare

DefBool	DefCur	DefDate	DefDbl

DefInt	DefLng	DefObj	DefSng

DefStr	DefVar	Dim	Dir

Do	Double	Each	Else

ElseIf	Empty	End	EndIf

Environ*	Eqv	Erase	Error

Exit	F*	False	Fix

For	Format	FreeFile	Function

Get	Global*	Go	GoSub

GoTo	If	Imp	In

Input	InputB	Instr	InstrB

Int	Integer	Is	LBound

Len	LenB	Let	Like

Line*	Load*	LoadPicture*	Local*

Lock	Long	Loop	LSet

Me*	Mid	MidB	Mod

Name	New*	Next	Not

Nothing	Null	Object	On

Open	Option	Optional	Or

ParamArray	Point*	Preserve	Print

Private	Property	PSet*	Public

Put	QBColor*	ReDim	Rem

Resume	Return	RSet	Scale*

SavePicture*	Seek	Select	Set

Sgn	Shared	Single	Spc

Static	Stop	StrComp	String

Sub	Tab	Then	To

True	Type	TypeOf*	UBound

Unload*	Unlock	Until	Variant

Wend	While	Width	With

Write	Xor

* 被限制的关键字用于以后该语言的扩展或保持与现行 Visual Basic版本的兼容性。


参阅被限制的关键字
参阅

关键字


关键字

参阅

    一个关键字被认为是程序语言的一部分的一个单词或符号; 例如，一个语句，函数名或运算符。

   在Visual Basic中，有两类关键字：

类型	描述

被限制的	不能被用于命名过程的关键字。

未被限制的	不被限制使用的关键字。许多不被限制的关键字为不被编译 器认识的  系统或应用程序提供的函数方法，属性和语句名。这样可以允许用 相同的名字定义自己的过程。例如，如果创建一个FileCopy过程并且 从应用程序中调用它，那么FileCopy版本被采用，而不使用系统提供 的FileCopy语句。


参阅关键字
参阅

被限制的关键字


CreateObject 函数

参阅

描述

创建一个自动OLE对象。

语法

CreateObject(class)

元素

该 class 命名参数 named argument 用 "appname.objecttype" 语法而且具有下列组成部分：

组成部分	描述

appname	应用程序提供给该对象的名字。

objecttype	要创建的的对象类型和分类。

解释

附注  如果一个支持自动OLE的应用程序显示一个对象库，最好使用在库内为对象 创建的已 定义的函数而不使用 CreateObject。

每个支持自动OLE的应用程序至少提供一种对象类型。例如，一个字处理应用 程序可能提供一个应用程序对象，一个文档对象和一个工具栏对象。 用这种函数创建一个自动OLE对象并且将该对象指定给一个对象变量，要做到这一 点，使用Set语句将CreateObject返回的对象指定给该对象变量。例如：

Set WordBasicObject = CreateObject("Word.Basic")

当这个代码被执行时，如果它还没有运行(在这个例子中为Microsoft Word)，而且 指定类型的对象被创建，则创建该对象的应用程序被启动。一旦该对象被创建， 可用用户自定义的对象变量以代码方式引用，上例中，用对象变量存取属性和新 对象的方法，WordBasicObject。例如：

WordBasicObject.Insert "Hello, world."

WordBasicObject.FilePrint

WordBasicObject.FileSaveAs "C:\DOCS\TEST.DOC"


参阅CreateObject 函数
参阅

GetObject 函数

自动OLE

Set 语句

通过应用程序工作


GetObject 函数

参阅

描述

从一个文件中检索一个自动OLE对象。

语法

GetObject([pathname][,class])

元素

GetObject 函数有下列命名参数named-argument 和组成部分：

组成部分	描述

pathname	要索引的包含该对象的文件的全路径和名字。如果 pathname 被省略，则 class 是必需的。

class	代表该对象分类的一个字符串。

class 参数使用语法： "appname.objecttype" 而且具有这些组成部分：

组成部分	描述

appname	提供给该对象的应用程序名。

objecttype	要创建的对象的类型或分类。

解释

附注： 如果一个支持自动OLE的应用程序显示一个对象库，最好使用库内 为对象存取而定义的函数而非用GetObject定义的函数。

使用GetObject函数从一个文件中存取自动OLE对象并且将该对象指定给一个 对象变量。为了做到这一点，使用Set语句将GetObject返回的对象指定给一个 对象变量。例如：

Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")

当此代码被执行时，与指定文件名有关的应用程序被启动而且在指 定文件中的对象被激活。 如果pathname是一个零长度字符串("")，GetObject返回一个指定类型的新对象实例， 如果pathname参数被全部省略，GetObject返回一个指定类型的当前活动对象。如 果没有一个指定类型的对象存在，出现一个错误。

上述例子显示如何激活整个文件。然而，一些应用程序允许激活一个文件的一部 分。为了做到这一点，在文件名后面加一个惊叹号(!)，该文件名后接一个字符串， 它标识出用户希望激活的文件部分，欲知如何创建这个字符串，查阅创建该对象 的应用程序文档。

    例如，在一个绘图应用程序中，存储在一个文件中的图形可能含有多层，用户可 以使用下列代码激活在SCHEMA.CAD图形中的一个层：

Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")

如果不指定该对象的分类，则OLE、DLL决定要激活的应用程序并 激活基于用户提供的文件名的对象。然而一些文件可以支持不止一类对象。

    例如，绘图能支持三种不同类型的对象：应用程序对象，图形 对象和工具栏对象。所有这些均为同一文件一部分，为了指定希望 激活文件中的哪一个对象，使用任选的Class参数。例如：

Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW"， "FIGMENT.DRAWING")

在上述例子中,FIGMENT是绘图应用程序名而DRAWING是它所支持的对象类型之一。 一旦对象被激活，可以使用用户定义的对象变量用代码引用它。在上述 实例中，使用对象变量MyObject存取该新对象的属性和方法。例如：

MyObject.Line 9， 90

MyObject.InsertText 9, 100, "Hello, world."

MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"


参阅GetObject函数
参阅

CreateObject 函数

自动OLE

Set 语句

通过应用程序工作


MacScript 语句

参阅

描述

执行一个AppleScript手写体，在使用System7.0或其后的Macintosh机上有效。

语法

MacScript script

元素

script 命名参数named argument 是一个指定了AppleScript手写体名的字符串表达式string expression 。

解释

该行手写体通过嵌入回车符创建 (Chr(13))。


参阅MacScript 语句
参阅

MacID 函数


VarType 常量(变体变量类型标证)

参阅

常量	值	描述
vbEmpty	0	未初始化
vbNull	1	含有无效数据。
vbInteger	2	整数。
vbLong	3	长整数。
vbSingle	4	单精度浮点数。
vbDouble	5	双精度浮点数。
vbCurrency	6	货币。
vbDate	7	日期。
vbString	8	字符串。
vbObject	9	自动OLE对象。
vbError	10	错误。
vbBoolean	11	布尔。
vbVariant	12	变体(仅用于变体数组)。
vbDataObject	13	非自动OLE对象。
vbArray	8192	数组。


参阅VarType函数
参阅

VarType 函数

Visual Basic 常量


MsgBox 常量

参阅

MsgBox 参数

常量	值	描述
vbOKOnly	0	[确认] 按钮。
vbOKCancel	1	[确认] 和[取消]按钮。
vbAbortRetryIgnore	2	[放弃]，[重试]和[忽略]按钮。
vbYesNoCancel	3	[是]，[否]和[取消]按钮。
vbYesNo	4	[是]和[否]按钮。
vbRetryCancel	5	[重试]和[取消]按钮。
vbCritical	16	临界消息。
vbQuestion	32	警告查询。
vbExclamation	48	警告消息。
vbInformation	64	信息消息。
vbApplicationModal	0	应用程序模式消息框。
vbDefaultButton1	0	第一个按钮默认。
vbDefaultButton2	256	第二个按钮默认。
vbDefaultButton3	512	第三个按钮默认。
vbSystemModal	4096	系统模式消息框。
MsgBox 返回值

常量	值	描述
vbOK	1	按下[确定]按钮。
vbCancel	2	按下[取消]按钮。
vbAbort	3	按下[放弃]按钮。
vbRetry	4	按下[重试]按钮。
vbIgnore	5	按下[忽略]按钮。
vbYes	6	按下[是]按钮。
vbNo	7	按下[否]按钮。


参阅MsgBox常量
参阅

MsgBox 函数

Visual Basic 常量


Dir，GetAttr和SetAttr 常量
Dir, GetAttr和SetAttr 常量

参阅

常量	值	描述
vbNormal	0	正常的。
vbReadOnly	1	只读。
vbHidden	2	隐藏。
vbSystem	4	在Macintosh机上系统 [image] 无效。
vbVolume	8	在Macintosh机上卷标 [image] 无效。
vbDirectory	16	目录或文件夹。
vbArchive	32	在Macintosh机自上次备份后 [image] 文件改动无效。


参阅Dir, GetAttr, SetAttr 常量
参阅

Dir 函数

GetAttr 函数

SetAttr 语句

Visual Basic 常量


StrConv 常量

参阅

常量	值	描述
vbUpperCase	1	大写字符串。
vbLowerCase	2	小写字符串。
vbProperCase	3	大写字符串中每一个单词的第一个字母。
vbWide	4	将字符串中的窄字符(单字节)转换成宽字符(双字节)。
vbNarrow	8	将字符串中的宽字符(双字节)转换成窄字符(单字节)。
vbKatakana	16*	将字符串中的窄Hiragana字符转换成宽Katakana字符。
vbHiragana	32*	将字符串中的宽Katakana字符转换成窄Katakana字符。
*仅适用于日本地区。


参阅StrConv 常量
参阅

StrConv 函数

Visual Basic 常量


IMEStatus 函数

描述

返回Microsoft Windows的当前输入方法编辑器(IME)方式，此函数仅在远东版本中有效。

语法

IMEStatus

返回值

值	描述

0	不安装IME

0	关闭IME

1	打开IME


StrConv 函数

描述

返回一个被转换的字符串;仅在Far East版本上有效。

语法

StrConv(string,conversion)

元素

StrConv 函数语法含有下列命名参数named-argument 组成部分：

组成部分	描述

string	将被转换的字符串表达式string expression 。

conversion	值的总和，用以指定要执行的转换类型。

conversion 命名参数含有下列常量和值：

常量	值	描述

vbUpperCase	1	大写字符串。

vbLowerCase	2	小写字符串。

vbProperCase	3	大写字符串中每一个单词的第一个字母。

vbWide	4	将字符串中的窄字符(单字节)转换成宽字符(双字节)。

vbNarrow	8	将字符串中的宽字符(双字节)转换成窄字符(单字节)。

vbKatakana	16*	将字符串中的宽Hiragana字符转换成宽Katakana字符。

vbHiragana	32*	将字符串中的宽Katakana字符转换成宽Hiragana字符。

*仅适用于日本地区。

附注  这些常量被Visual Basic指定。这些名字可以在代码中的任何地方使用以代替实际值。


文档约定

Visual Basic 使用下列印刷符号约定。

约定	描述

Sub, If, ChDir, Print, True, Debug	粗体首字母大写的词表示专门语言关键字。

setup	被指定要键入的词用粗体显示。

object, varname, arglist	斜体，小写字母为用户提供的信息指明预留位置。

pathname, filenumber	粗体、斜体、小写字母为参数指明预留位 置，在此处用于可以使用位置或命名参数named-argument 语法。

[expressionlist]	在语法中，方括号内的项为可选项。

{While | Until}	在语法中，大括号和重直条表明在两项或 更多项中强制选择。用户必须在这些项中 选择一项，除非所有的项均包含在方括号中，例如：

[{This | OrThat}]

VBA.INI, ESC, ENTER	字母都大写的单词表示文件名，键和键列序。

ALT+F1, CTRL+R	键名之间的+号表示键的组合。例如ALT+F1 即按F1键时压住ALT键。

MyString = "Hello, world!"	这种字体用于代码，变量和错误信息文字。

' This is a comment.	撇号指示代码注释。

MyVar = "This is an " _	空格+下划线继续一代码行。

& "example" _

& _"of how to continue code"


常量 (对象浏览)

参阅

常量模块表与Dir,GetAttr,MsgBox,VarType函数和SetAttr语句一起使用以显示预先 定义的常数。


参阅常量模块表 (对象浏览)
参阅

Dir 函数

GetAttr 函数

MsgBox 函数

SetAttr 语句

VarType 函数

Visual Basic 常量


Conversion 过程(对象浏览)

参阅

Conversion模块表显示用于执行转换运算的过程。为了得到特定过程的帮助信息：

1.	在方法/属性列表框内选定该过程。

2.	选择[?]按钮。


参阅Conversion 模块 表(对象浏览)
参阅

转换关键字摘要


DateTime 过程(对象浏览)

参阅

DateTime 模块表显示用于执行日期和时间运算的过程。为了得到特定过程的帮助信息：

1.	在方法/属性列表框内选定该过程。

2.	选择[?]按钮。


参阅DateTime模块表(对象浏览)
参阅

日期和时间关键字摘要


FileSystem 过程(对象浏览)

参阅

FileSystem 模块表显示用于运行文件，目录或文件夹及系统运算的过程。为了得到一个特定过 程的帮助信息：

1.	在方法/属性列表框内选定该过程。

2.	选择[?]按钮。


参阅FileSystem 模块表(对象浏览)
参阅

目录和文件关键字摘要


Information 过程(对象浏览)

Information 模块表显示用于返回，测试或验证信息的过程。为了得到一个特定过程的帮助信息：

1.	在方法/属性列表框内选定该过程。

2.	选择[?]按钮。


Interaction 过程(对象浏览)

Interaction 模块表显示用于与对象，应用程序和系统进行相互作用的过程。为了得到一个特定 过程的帮助信息：

1.	在方法/属性列表框内选定该过程。

2.	选择[?]按钮。


算术过程(对象浏览)
Math 过程(对象浏览)

参阅

Math 模块表显示用于运行数学运算的过程。为了得到一个特定的过程的帮助信息：

1.	在方法/属性列表框内选定该过程。

2.	选择[?]按钮。


参阅算术模块表(对象浏览)
参阅

数学关键字摘要


文字过程(对象浏览)

参阅

Text 模块表显示用于运行字符串运算的过程。为了得到一个特定的过程的帮助信息：

1.	在方法/属性列表框内选定该过程。

2.	选择[?]按钮。


参阅Text模块表(对象浏览)
参阅

字符串处理关键字摘要


Conversion 函数

Asc 函数

CBool 函数

CCur 函数

CDate 函数

CDbl 函数

CInt 函数

CLng 函数

CSng 函数

CStr 函数

CVar 函数

CVErr 函数

Format 函数

Str 函数

Val 函数


Asc 函数

参阅	实例

描述

返回字符串中第一个字母的字符代码。

语法

Asc(string)

元素

命名参数string为任意有效的字符串表达式string expression。如果string不包含字符，则会出现运行期run-time错误。


Asc 参阅
参阅

字符集

Chr 函数

Conversion 函数


CBool 函数

参阅	实例

描述

将表达式转换为布尔值。

语法

CBool（expression）

元素

表达式参数为任意有效的数字表达式numeric expression。

解释

若表达式为0，则返回False；否则，返回Ture。如果表达式不能转换为数字值，则会发生运行期run-time错误。


CBool 参阅
参阅

Conversion 函数

数据类型摘要


CCur 函数
CCur 函数。

参阅	实例

描述

将表达式转换为货币值。

语法

CCur(expression)

元素

expression参数可为任何有效的数字numeric或字符串string expression表达式。

解释

通常，可用数据类型转换函数为代码提供文档以显示一些由特殊数据类型， 而不是默认数据类型表达的操作结果。例如，通常在单精度， 双精度或整型算术存在情况下，用CCur强制进行货币算术运算。

可用CCur函数代替Val以提供从任何其他数据类型到货币的国际通用转换。例如，不同 的十进制分隔符由计算机locale设置识别，与不同的千位分隔符和不同的货币符号一样。如果expression超出了Currency数据类型允许范围，则会发生错误。


CCur 参阅
参阅

Conversion 函数

数据类型摘要


CDate 函数

参阅	实例

描述

将表达式转换为日期。

语法

CDate(date)

元素

date参数为任意有效的日期表达式date expression。

解释

用IsDate函数确定日期是否可转换为日期或时间。CDate 识别日期和时间文字和落在在日期允许范围内的数。将数值转换为日期时， 所有数字整数部分转换为日期。数的所有小数部分转换为从午夜开始的时间， 从中午开始。CDate识别计算机的通用设置的日期格式。 如果提供了一个不是可识别的日期设置格式，正确的日、月、年顺序不确定。 另外，如果包含星期中某天字符串，则长的日期格式不识别。

附注  CVDdate函数和以前的Visul Basic版本兼容。然而，因现有一内部Date格式，对CVDdate没有更多需求。 CVDdate函数语法同CDate函数一样。不同的是其返回一子类型为日期替代 实际Date类型的Variant。表达式转换为Date，然后把它赋给一个Variant可获 得相同效果。此技术和所有内部类型转换为其相同variant子类型是一致的。


CDate 参阅
参阅

Conversion 函数

数据类型摘要

IsDate 函数


CDbl 函数

参阅	实例

描述

将表达式转换为双精度值。

语法

CDbl(expression)

元素

expression参数为任意有效的数字numeric和字符串表达式string expression。

解释

通常，可用数据类型转换函数为代码提供文档以显示一些由特殊数据类型而不是默 认数据类型表达的操作结果。例如，通常在货币或整型算术存在情况下用CDbl或CSng强制使用双或单精度。

可用CDbl函数代替Val以提供从任何其他数据类型到双精度的国际通用转换。 例如，不同的十进制分隔符和千位分隔符由系统设置locale来识别。


CDbl 参阅
参阅

Conversion 函数

数据类型摘要


CInt 函数

参阅	实例

描述

将表达式转化为整型值。

语法

CInt(expression)

元素

expression参数为任意有效的数字numeric或字符串表达式string expression。

解释

通常，可用数据类型转换函数为代码提供文档认显示一些由特殊数据类型而不是默认 数据类型表达的操作的结果。例如，通常在货币，单精度或双精度算术存在情况下用CInt或CLng强制作用整型算术运算。可用Clng函数代替Val以提供从任何其他数据类型到整 型的通用转换。例如， 不同的十进制分隔符由系统设置locale识别，与不同千位分隔符一样。如表达式在Integer数 据类型允许范围之外，则产生错误。

附注 Clut与Fix和Int函数不同，它们是截尾的而不是将小数部分进位。 当小数部分恰好为0.5时，CInt函数将其进位为最近的偶数，如0.5为0，1.5为2。


CInt 参阅
参阅

Conversion 函数

数据类型摘要

Fix 函数

Int 函数


CLng 函数

参阅	实例

描述

将表达式转换为长整型值。

语法

CLng(expression)

元素

expression参数为任意有效的数字numeric或字符串表达式string expression。

解释

通常，可用数据类型转换函数为代码提供文档以显示一些由特殊数据类型而不是默认 的数据类型表达的操作结果。例如，通常在货币、单精度、双精度算术存在情况下用CInt或CLng强制使用整型算术运算。长整型可用CLng函数代替Val以提供从任何其它数据类型到长整 型的通用转换。例如，不同的十进制分隔符以系统设置locale来识别，如同千位分隔符一样。如果表达式在允许的Long数据类型范围之外，则产生错误。

附注  Clng是截尾的，而与不是将小数部分进位的Fix和Int函数不同，当小数部分恰 为0.5时，CLng函数总是进位于最近偶数，例如，0.5进位为0，1.5进位为2。


CLng 参阅
参阅

Conversion 函数

数据类型摘要

Fix 函数

Int 函数


CSng 函数

参阅	实例

描述

将表达式转换为单精度值。

语法

CSng(expression)

元素

expression参数为任意有效的数字numeric或字符串表达式string expression。

解释

通常，可用数据类型转换函数为代码提供文档以显示一些由特殊数据类型而不是默认 数据类型表达的操作结果。例如，通常在货币或整型算术存在情况下用CDb1或CSng强制使用双精度或单精度算术运算。

可用CSng函数代替Val以提供提供由任何其他数据类型到单精度类型的通用转换。例如，不同的十进制分隔符以系统设置locale来识别，和千位分隔符一样。 如果表达式在Single数据类型允许范围之外，则产生错误。


CSng 参阅
参阅

Conversion 函数

数据类型摘要


CStr 函数

参阅	实例

描述

将表达式转换为字符串。

语法

CStr(expression)

元素

expression参数为任意有效的数字numeric或字符串表达式string expression。

解释

通常，可用数据类型转换函数为代码提供文档以显示一些由特殊数据类型而不是默认 的数据类型表达的某些操作结果。例如，用CStr强制结果用字符串来表达。可用CStr函数代替Str以提供从任何其他数据类型到字符串类型的国际通用转换。例如，不同的十进制分隔以系统设置locale来识别。表达式中数据决定返回何值，参见下表。

expression为	CStr 返回

Boolean 	�篢rue或False的字符串（合适的位置转换）。

Date	包含系统短日期格式的日期字符串。

Null	运行期错误。

Empty	 零长度的字符串（''''）。

Error	包含单词Error的字符串（合适的地域转换），后跟错误号。

其它数字	包含数的字符串。


CStr 参阅
参阅

Conversion 函数

数据类型摘要

Str 函数


CVar 函数

参阅	实例

描述

将表达式转换为变体。

语法

CVar(expression)

元素

expression参数为任意有效的数字numeric或字符串表达式string expression。

解释

通常，可用数据转换函数为代码提供文档以显示一些由特殊数据类型而不是默认 数据类型表达的某些操作结果。例如，用CVar强制结果用变体类型来表达。


CVar 参阅
参阅

Conversion 函数

数据类型摘要


CVErr 函数

参阅	实例

描述

返回子类型Error的变体。它包含由用户指定的错误号码。

语法

CVErr(errornumber)

元素

errornumber参数为任意有效的错误号码error number。

解释

用CVerr函数在用户建立的过程中产生用户定义的错误。 例如，如果创建一个接受几个参数并且正常返回一字符串的函数， 可以给输入参数赋值以确保其值在允许范围之内。若不在允许范围， 函数将很可能不返回期望值。此过程中CVErr 允许你返回一错误号码告诉你将采取的什么样的措施。

注意，不允许错误的隐含转换。例如，不可直接把 CVErr 返回值赋给一个非变体变量。然而，用户可以用CInt，CDb1等等将CVErr的返回值做一个显式的转换，并且将值赋给一个具有合适的数据类型的变量。


CVErr 参阅
参阅

Conversion 函数

数据类型摘要

IsError 函数


Val 函数

参阅	实例

描述

返回字符串中的数字。

语法

Val(string)

元素

string命名参数为任意有效的字符串表达式string expression。

解释

Val函数在其不能作为数字部分识别的第一个字符处停止读字符串。不能识别经常认为是数字的一部分符号和逗号，如美元符和逗号。然而，函数识别基数前缀&O（八进制）和&H （十六进制）。空白、定位和（Linefeeds）由参数中去掉。下例返回值1615198：

Val("    1615 198th Street N.E.")

下面代码中，Val返回十进制数-1，以十六进制显示：

Val("&HFFFF")

附注�数� Val函数只把把句号（.）作为十进制分隔符。当可能使用不同的十进制分隔符时 （例如在国际通用应用程序中），可用CDb1使字符串转换为数。


Val 参阅
参阅

CDbl 函数

Str 函数


 Asc 函数实例

该实例用ASC函数返回字符串中第一个字母的字符代码。

MyNumber = Asc("A")	' Returns 65.

MyNumber = Asc("a")	' Returns 97.

MyNumber = Asc("Apple")	' Returns 65.


 CBool 函数实例

该实例用CBool函数将表达式转换为布尔值，如果表达式为非零值，CBool返回True； 否则，返回False。

A = 5 : B = 5	' Define variables.

Check = CBool(A = B)	' Check contains True.

A = 0	' Define variable.

Check = CBool(A)	' Check contains False.


 CDate 函数实例

该实例用CData函数将字符串转换为日期。一般情况下，如下例所示，将日期／时间代码硬化为字符串是不好的程序设计经验，应该用日期文字替代。

MyDate = "February 12, 1969"	' Define date.

MyShortDate = CDate(MyDate)	' Convert to Date data type.

MyTime = "4:35:47 PM"	' Define time.

MyShortTime = CDate(MyTime)	' Convert to Date data type.


 CVErr 函数实例

该实例用CVErr函数返回一错误Variant。如果变量传递给它不是一数字，用户自定义函数 CalculateDonble返回一个错误。CVErr对于从用户自定义过程中返回用户自定义错误是很 有用的。用ISError函数可检测数值是否错误。

' Define CalculateDouble Function procedure.

Function CalculateDouble(Number)

If IsNumeric(Number) Then

CalculateDouble = Number * 2	' Return result.

Else

CalculateDouble = CVErr(2001)	' Return a user-defined error

End If	' number.

End Function


 CCur 函数实例

该实例用CCur函数将表达式转换为货币值。

MyDouble = 543.214588	' MyDouble is a Double.

MyCurr = CCur(MyDouble * 2)	' Convert result (1086.4292) to

' Currency.


 CDbl 函数实例

该实例用CDb1函数将表达式转换为双精度值。

MyCurr = CCur(234.456784)	' MyCurr is a Currency.

MyDouble = CDbl(MyCurr * 8.2 * 0.01)	' Convert result to Double.


 CInt 函数实例

该实例用Clnt函数将数值转换为整数值。

MyDouble = 2345.5678	' MyDouble is a Double.

MyInt = CInt(MyDouble)	' MyInt contains 2346.


 CLng 函数实例

该实例用CLng函数将数值转换为长整型值。

MyVal1 = 25427.45 : MyVal2 = 25427.55	' MyVal1, MyVal2 are Doubles.

MyLong1 = CLng(MyVal1)	' MyLong1 contains 25427.

MyLong2 = CLng(MyVal2)	' MyLong2 contains 25428.


 CSng 函数实例

该实例用CSng函数将数值转换为单精度值。

' MyDouble1, MyDouble2 are Doubles.

MyDouble1 = 75.3421115 : MyDouble2 = 75.3421555

MySingle1 = CSng(MyDouble1)	' MySingle1 contains 75.34211.

MySingle2 = CSng(MyDouble2)	' MySingle2 contains 75.34216.


 CStr 函数实例

该实例用CStr函数将数字值转化为字符串。

MyDouble = 437.324	' MyDouble is a Double.

MyString = CStr(MyDouble)	' MyString contains "437.324".


 CVar 函数实例

该实例用CVar函数将表达式转换为变体。

MyInt = 4534	' MyInt is an Integer.

MyVar = CVar(MyInt & "000")	' MyVar contains 4534000.


 Val 函数实例

该实例用Val函数返回包含在字符串中的数字。

MyValue = Val("2457")	' Returns 2457.

MyValue = Val(" 2 45 7")	' Returns 2457.

MyValue = Val("24 and 57")	' Returns 24.


Call 语句

参阅	实例

描述

转入对Sub过程、Function过程、动态链接库(DLL)过程或Macintosh 代码源过程的控制。

语法

[Call] name [argumentlist]

元素

Call 语句语法具有以下几部分：

部分	描述

Call	任选的关键字；如果指定，则Argumentlist应在括号内， 例如：Call MyProc(0)

name 	调用过程的名字。

argumentlist 	以逗号分隔的传入过程的变量，数组成表达式。Argumentlist 构成可以包括关键字ByVal或ByRef，用以描述参数如何被调 用的过程处理。然而，只有在调用DLL过程或Macintosh代码 源时，Byval和ByRef方可与Call一同使用。

解释

调用过程时不要求必须使用Call关键字。但是，如果使用Call关键字调用有参 数要求的过程时，argumentlist必须括在括号中。 如果省略 Call 关键字， 则同样应省略argumentlist两边的括号。如果使用Call语法调用内部或用户定义的函数，函数的返回值将丢失。使用带有空括号的数组名字会将整个数组传 入过程。


Call 参阅
参阅

Declare 语句


DoEvents 语句

实例

描述

放弃执行，以使操作系统能够处理其它事件。

语法

DoEvents

解释

DoEvent 将控制传递给操作系统， 当操作系统按顺序完成事件处理时，或者当Microsoft Windows的所有Sendkeys键均发送完时，控制才返回。如果代码的处理时间太长，间隔使用DoEvent 将控制交给操作系统， 以使象键盘输入和鼠标单击这样的事件处理不被拖延。

警告 确信在第一个DoEvent调用返回之前用DoEvent放弃控制的过程，不再从代码其它部分执行。其可产生意想不到的结果。另外，在放弃控制时， 如果其它应用程序有可能以意想不到的方法影响过程时，不要使用DoEvent。


Do...Loop 语句

参阅	实例

描述

当条件为True或直到条件变为True时，重复语句块。

语法1

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop

语法2

Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until}condition]

元素

Do...Loop语句语法含有如下部分：

部分 	描述

Condition 	表达式Expression，值为True或False。

statements	 一个或多个语句，当或直到条件为True时重复。

解释

Exit Do只能用于Do...Loop控制结构中，来提供一个退出Do...Loop的选择方法。任 意多个 Exit Do语句可置于Do...Loop中的任何位置。Exit Do经常与判定条件一起使用，（例如，If...Then）。Exit Do语句会将控制转给紧跟在Loop 语句后的语句。当与嵌套的Do...Loop语句一起使用时，Exit Do转入对上一层次循环控制。


Do...Loop 参阅
参阅

Exit 语句

For...Next 语句

While...Wend 语句


End 语句

参阅	实例

描述

结束一个过程或块。

语法

End

End Function

End If

End Property

End Select

End Sub

End Type

End With

元素

End语句语法具有下列几种形式：

语句 	描述

End	终止过程执行。不可单独使用但可置于过程中任何位置，用以 关闭以Open语句开始的文件或清除变量。

End Function	用于结束Function语句

End If	用于结束If...Then...Else语句块。

End Property	用于结束Property Let，Property Get或Property Set过程。

End Select	用于结束Select Case语句。

End Sub	用于结束Sub语句。

End Type	用于结束用户定义的类型限定（Type语句）。

End With	用于结束With语句。

解释

附注 在执行中，End语句在所有模块表中重新设置模块表级变量和静态局部变量 。如果需要保存这些变量的值，用Stop代替End。保存变量后则可继续执行 。


End 参阅
参阅

Exit 语句

Function 语句

If...Then...Else 语句

Property Get 语句

Property Let 语句

Property Set 语句

Select Case 语句

Stop 语句

Sub 语句

Type 语句

With 语句


Exit 语句

参阅	实例

描述

退出Do...Loop、For...Next、Function、Sub或Preperty代码块。

语法

Exit Do

Exit For

Exit Function

Exit Property

Exit Sub

元素

Exit语句语法具有以下几种形式：

语句	 描述

Exit Do	提供一种退出Do...Loop语句的方法。只可用于Do...Loop语 句内。Exit Do将控制是转到Loop语句后面的语句。当用于嵌套的Do...Loop语句 时，Exit Do将控制转到上一层次循环。

Exit For	提供退出For循环的方法。只可为用于For...Next或For Each...Next循环。Exit For将控制转到Next语句后面的语句。当用于嵌套的For循环 内时， Exit for将控制转到上一层次循环。

Exit Function	立即从Exit Function处退出Function过程。执行调用Function语句的后面 语句。

Exit Property	立即从Exit Property处退出Property过程。执行调用Property 过程语句的后面语句。

Exit Sub	立即从Exit Sub处退出Sub过程。执行调用Sub语句的后面语句。

解释

不要将Exit语句与End语句混淆。Exit不定义结构结束。


Exit 参阅
参阅

Do...Loop 语句

End 语句

For...Next 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Stop 语句

Sub 语句


For Each...Next 语句

参阅	实例

描述

为数组或集中每个元素重复一组语句。

语法

For Each element In group
[statements]
[Exit For]
[statements]
Next [element]

元素

For Each...Next语句语法具有以下几部分：

部分	 描述

element	 用于数组或集元素迭代的变量。对于集，element只可以是Variant变量、全object变量或指定的OLE自动化对象变量。对于数组，element只可是Variant变量。

group	 对象集collection或数组的名字（用户定义类型的数组除外）。

statements	 用于集中每项的一个或多个执行语句。

注意  当For Each...Next用于数组时，只可读含于数组元素内的以控制变量element表明的数值。不能用给element赋值的方法设置该数值。

解释

如果group中至少有一个元素就可进入For Each块。当进入循环后，循环中的所有语句用于执行group中的第一元素。如果group中有多个元素，则循环中的语句为每个元素执行一遍。当group中所有元素均执行完后， 退出循环，继续执行Next 语句后面的语句。

Exit For仅用于For Each...Next或For...Next控制结构中，提供一个可选择的退出方法。任意多个Exit For语句可置于循环中任意位置。Exit For 经常与条件判定一起使用（例如，If...Then），可立即将控制转到Next后面的 语句。可以 将一个 For Each...Next循环置于另一个之内，以实现嵌套的For Each...Next循环，但是每个循环的element必须是唯一的。

附注  如果在Next语句中省略element，执行情况不变。如果Next语句在相应的For语句之 前出现，则产生错误。

不能用用户定义类型的数组使用For Each...Next语句。因为Variant不能包含用户定义类型。


For Each...Next 参阅
参阅

Do...Loop 语句

Exit 语句

For...Next 语句

While...Wend 语句


For...Next 语句

参阅	实例

描述

按指定次数重复的一组语句。

语法

For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]

元素

For...Next语句具有以下几部分：

部分 	描述

Counter 	用于循环计数器的数值变量，该变量不能是数组元素或用户定义类型 的元素。

start	 	Counter初始值。

End 	Counter终止值。

step 	循环中Counter的每次变化量。如果没有指定，step缺省为1。

statement 	For和Next之间的单个或多个语句，该语句按指定的次数执行。

解释

step参数既可为正也可为负。step参数值决定循环处理。如下所示：

数值 	循环执行条件

正或零 	counter<=End

负	counter>=End

当循环开始且循环内所有语句均已执行时，counter增加一个step。 在此处或者循环中的语句重新执行（取决于使循环重新执行的测试结果）； 或者退出循环，继续执行Next语句 后面的语句。

指示  在循环内改变Counter值，会增加阅读和调试难度。

Exit For仅用于For Each...Next或For...Next控制结构中， 提供一个可选择的退出方法。任意多个Exit For语句可置于循环中的任意位置。Exit For经常与条件判定一起使用（例如，If...Then），并立即将控制转到Next后面的语句。

可以将一个For...Next循环置于另一个之内，以实现嵌套For...Next循环。给每 个循环一个唯一的变量名，类似于counter。下面的结构是正确的：

For I = 1 To 10

For J = 1 To 10

For K = 1 To 10

. . .

Next K

Next J

Next I

附注  如果在Next语句中省略counter，执行情况不变。如果Next语句在其相应的For语句之 前出现，则产生错误。


For...Next 参阅
参阅

Do...Loop 语句

Exit 语句

For Each...Next 语句

While...Wend 语句


GoSub...Return 语句

参阅	实例

描述

分支到子程序且从过程中的子程序返回。

语法

GoSub line
. . .
line
. . .
Return

元素

line参数可以是任意行标号line label或行号line number。

解释

可在过程中任何位置使用GoSub和Return，但是Gosub及其相应Return应在同一过程中。一个子程序可包含多个Return语句， 但遇到的第一个Return语句使得分支的执行流程立即返回到最近执行的Gosub语句后 面的语句。

附注  不能用GoSub...Return进入或退出Sub过程。

提示  创建可调用的分离的过程，可以提供多个使用Gosub...reurn的结构选择。


GoSub...Return 参阅
参阅

End 语句

GoTo 语句

On...GoSub 语句

On...GoTo 语句

Sub 语句


GoTo 语句

参阅	实例

描述

在过程中无条件地分支到指定的行。

语法

GoTo line

元素

line参数可以是任何行标号line label或行号line number。

解释

Goto仅可分支到过程中出现的行。

附注  过多的GoTo语句会给阅读和调试带来困难。尽可能使用结构控制语句（Do...Loop， For...Next，If...Then...Else，Select Case）。


GoTo 参阅
参阅

Do...Loop 语句

For...Next 语句

GoSub...Return 语句

If...Then...Else 语句

Select Case 语句


If...Then...Else 语句

参阅	实例

描述

有条件地执行 一组语句，取决于表达式的数值。

语法1

If condition Then statements [Else elsestatements ]

语法2

If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements]] . . .
[Else
[elsestatements]]
End If

元素

语法1具有以下几部分：

部分 	描述

condition 	数字Numeric或字符串表达式string expression，用以判定True或False。

Statemeats 	单个或多个以冒号分隔的语句，当条件为True时执行。

elsestatements 	单个或多个以冒号分隔的语句，当条件为False时执行。

语法2具有以下几部分：

部分 	描述

condition 	表达式，可为True或False。

Statements 	单个或多个语句，当条件为True时执行。

condition-n 	数字或字符串表达式，用以判断True或False。

elseifstatements 	单个或多个语句，当相关的condition-n为True时执行。

elsestatements	单个或多个语句，当前面的condition-n表达式不为True时执行。

解释

可用单一行形式（语法1）进行快速、简单测试。而块形式（语法2 ）可提供比单一行形式更多的结构和灵活性，通常易于读取、维护和调试。

附注  利用语法1作为If...Then决定的结果可以执行多个语句， 但是这些语句必须位于一行并以冒号分隔，如下列语句所示：

If A > 10 Then A = A + 1 : B = B + A : C = C + B

当执行If块时（语法2），应测试condition。如果condition为True，执行Then 后面的语句。如果condition为False，依次判断每个Elself条件。当发现True条 件时，立即执行相关的Then语句后面的语句。如果所有Elself条件均不为 True （或没有Elself分句），则执行Else后面的语句。执行完Then或Else后面的语 句以后，继续执行End If后面的语句。

Else和Elself分句均是任选的，在If块中，可根据需要使用多个Elself分句，但Else分句后不可有ElseIf分句。If块语句可以嵌套，即含于另一个之内。

检查Then关键字后面的内容，以确定语句是否是If块。如果非注释内容出现在同行的Then之后，该语句按单行If语句处理。

If块语句应是行中的第一语句，语句的Else、Elself和Endlf 部分前面只可以有一个行号或行标号。If块必须用End If语句结束。

提示  当判断一个可有多种动作的表达式时，较多使用Select case。


If...Then...Else 参阅
参阅

Select Case 语句


On...GoSub, On...GoTo 语句

参阅	实例

描述

分支到多个指定行之一，取决于表达式的值。

语法

On expression GoSub destinationlist

On expression GoTo destinationlist

元素

On...GoSub和On...GoTo语句语法具有下列组成部分：

组成部分 	描述

expression	任一数字表达式 numeric expression ，用以判断0--255之间的整数。如果不是整数，在判断前该数被舍入。

destinationlist	列出以逗号分隔的行号line numbers或行标号line labels。

解释

表达式的值决定分支至destinationlist中的那一行。如果表达式的值小于1或大 于列表中 的项目数， 将产生如下结果之一：

如果表达式为 	则为

等于零	控制转到On...GoSub或On...GoTo后面的语句。

大于列表中的项目数	 控制转到On...Gosub或On...Goto后面的语句。

负 	出现错误。

大于255 	出现错误。

在同一列表中可以混合引用行号和行标记，用于On...GoSub或On...GoTo后面的语句。

行号或行标号的数值，实际上没有限制。但在同一行中使用多个标号或编号 ，则必须使用续行符line-continuation character，继续进行逻辑行至下一个物理行。

提示  Select Case可提供更结构化且更灵活的方法执行多个分支。


On...GoSub 参阅
参阅

GoSub...Return 语句

GoTo 语句

Select Case 语句


Select Case 语句

参阅	实例

描述

执行多组语句中的一组，取决于表达式的值。

语法

Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else
[elsestatements]]
End Select

元素

Select Case语句语法具有下列组成部分：

组成部分	描述

testexpression 	任一数字表达式numeric expression或字符串表达式string expression。

expressionlist-n 	逗号分隔的列表，具有一个或多个下列形式：expression， expression To  expression， Is  comparisonoperator expression。关键字To指定一个数值区域。如果使用关键 字To， To之前应是较小的值。将关键字Is与比较运算符comparison operators（Is和like除外）一起使用，指定一个数值区域。如 果关键字is没有提供， 则其自动插入。

statements-n 	如果testexpression与expressionlist-n中任一部分匹配则 执行一个或多个 语句。

elsestatements	 如果testexpression不与任一case子句匹配则执行一个或多个语句。

解释

如果testexpression和任一与Case子句相关的expressionlist表达式相匹配则执 行该Case子句后面的语句直至下一个Case子句，对于最后的子句， 执行至 End Select。控制转入End Select后面的语句。如果testexpression与多个Case 子句中的expressionlist表达式相匹配，只执行第一个相匹配的case子句后面的语句。

当testexpression不与任一case子句中的expressionlist相匹配时，使用Case Else 子句指明要执行的语句。 如果没有Case Else语句并且在Case子句中没有表达式与testexpression匹配，则继续执行End Select后面的语句。

尽管没有要求，但最好在Select Case块中设置Case  Else 语句， 以处理意外的testexpression值。

在每个Case子句中，可以使用多个表达式或区域。例如，下列行是合法的：

Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber

附注  Is比较运算符与用于Select Case语句中的关键字不同。

也可以为字符串指定区域或多个表达式。在下面的实例中，Case将匹配一些 字符串：按精确地等于字符串everything、按字母顺序排列于nufs和soup之间 的字符串、Testitem的当前值。

Case "everything", "nuts" To "soup", TestItem

Select Case语句可以嵌套。每个Select Case语句必须有相匹配的End Select语句。


Select Case 参阅
参阅

If...Then...Else 语句

On...GoTo 语句

On...GoSub 语句

Option Compare 语句


Shell 函数

参阅	实例

描述

运行可执行的程序。

语法

Shell(pathname[,windowstyle])

元素

Shell函数语法具有以下命名参数named-argument：

部分	 描述

pathname 	执行的程序名字和需要的参数或命令行开关。 可以包含目录或文件夹及驱动器， 也可以是与可执行程序相关的文档名字。 在 Micintosh上， 可以使用MacID函数指定应用程序的签署替代其名字。下面的 实例在Microsoft word中使用这种特征：

Shell MacID("MSWD")

windowstyle	 与运行程序窗口的式样相一致的编号，在Microsoft  windows 中，如果windowstyle省略，程序以具有焦点的最小方式被启动，在macintosh（system7.0或其后版本）上，windowsytle仅决 定应用程序运行时，是否有焦点。

windowstyle命名参数具有以下数值。

数值 	窗口式样

1，5，9 	正常的，有焦点。

2 	最小的，有焦点。

3	最大的，有焦点。

4，8 	正常的，无焦点。

6，7 	最小的，无焦点。

解释

如果在microsoft windows中，将MacID函数与Shelll一起使用，则产生错误。

如果Shell函数成功地执行了命名文件，其返回启动程序的任务标识号（ID） 。 任务标识号是标识运行程序的唯一数字。如果Shell函数不能启动命名的程序 ， 则产生错误。

附注   Shell函数不能同时运行其它程序。这意味着在应用程序中， Shell函数后面的语句未执行之前，不能依靠以Shell启动的程序来结束执行。


Shell 参阅
参阅

AppActivate 语句

MacID 函数


Stop 语句

参阅	实例

描述

暂停执行

语法

Stop

解释

可以将Stop语句置于过程中任何位置用以暂停执行。使用Stop语句类似于在代码中设置断点breakpoint。

Stop语句暂停执行，但与End不同，它不关闭文件或清除变量。


Stop 参阅
参阅

End 语句


While...Wend 语句

参阅	实例

描述

如果所给的条件为True，执行一个序列语句。

语法

While condition
[statements]
Wend

元素

While...Wend语句语法具有以下几部分：

部分	 描述

condition	 数字表达式Numeric expression或字符串表达式string expression，用以判定True或False。

statements	 当条件为True时，一个或多个执行语句。

解释

如果condition为True，执行statements中所有语句，直至Wend语句出现， 然后控制返回到While语句并重新检查condition。如果condition仍为True， 重复执行过程。

如果不为True，则执行Wend语句后面的语句。

While...Wend循环可嵌套任意层次，每个Wend与最近的While相匹配。

警告  未执行While语句时，不要分支到While...Wend循环体中。 如此做法会产生运行错误或其它不易查找的问题。

提示  Do...Loop语句可提供更结构化和较灵活的方法执行循环。


While...Wend 参阅
参阅

Do...Loop 语句

With 语句


With 语句

参阅	实例

描述

在单个对象或用户定义类型user-defined type上执行一个序列语句。

语法

With object
[statements]
End With

元素

With语句语法具有以下几部分：

部分 	描述

object 	对象或用户定义类型的名字。

statements 	作用于object上的一个或多个执行语句。

解释

With语句允许在指定对象上执行一个序列语句，而不用重新限定对象名字。 例如，如果在一个对象上改变几个不同属性，则将属性赋值语句放入With 控制结构中较为方便。因为它只使用一次object而不是在每个属性赋值中都用object。下列的实例说明使用With语句将数值赋于同一对象上的几个属性。

With MyLabel

.Height = 2000

.Width = 2000

.Caption = "This is MyLabel"

End With

可以将一个With循环置于另一个内，实现嵌套的With语句，每个object必须是 唯一的。


With 语句 参阅
参阅

Do...Loop 语句

While...Wend 语句


 Call 语句实例

该实例说明如何用Call语句来传递控制到Sub过程、内部函数和动态链接库（DLL） 过程和Mintosh代码源过程。

' Call a Sub procedure.

Call PrintToDebugWindow("Hello World")

' The above statement causes control to be passed to the following

' Sub procedure.

Sub PrintToDebugWindow(AnyString)

Debug.Print AnyString	' Print to Debug window.

End Sub

' Call an intrinsic function. The return value of the function is

' discarded.

Call Shell(AppName, 1)	' AppName contains the path of the

' executable.

' Call a Microsoft Windows DLL procedure.

Declare Sub MessageBeep Lib "User" (ByVal N As Integer)

Sub CallMyDll()

Call MessageBeep(0)	' Call Windows DLL procedure.

MessageBeep 0	' Call again without Call keyword.

End Sub

' Call a Macintosh Code Resource.

Declare Sub MessageAlert Lib "MyHd:MyAlert" Alias "MyAlert" (ByVal N _

As Integer)

Sub CallMyCodeResource()

Call MessageAlert(0)	' Call Macintosh code resource.

MessageAlert 0	' Call again without Call keyword.

End Sub


 DoEvents 语句实例

该实例用DOEvents语句使循环每执行1000次就将执行让与操作系统。

For I = 1 To 150000	' Start loop.

If I Mod 1000 = 0 Then 	' If loop has repeated 1000 times.

DoEvents	' Yield to operating system.

End If

Next I	' Increment loop counter.


 Do...Loop 语句实例

该实例显示如何使用DO…Loop语句。内层DO…Loop语句循环10次，设置flag值为 False，并且用Exit Do语句提前退出循环。外层循环检查flag值后立即退出循环。

Check = True : Counter = 0	' Initialize variables.

Do	' Outer Loop.

Do While Counter < 20	' Inner Loop.

Counter = Counter + 1	' Increment Counter.

If Counter = 10 Then	' If condition is true.

Check = False	' Set value of flag to False.

Exit Do	' Exit inner loop.

End If

Loop

Loop Until Check = False	' Exit outer loop immediately.


 End 语句实例

该实例用End语句结束代码执行、Select Case块和Sub过程。

Sub EndStatementDemo()

For Number = 1 To 2	' Loop 2 times.

Select Case Number	' Evaluate Number.

Case 1	' If Number equals 1.

Debug.Print Number 	' Print value to Debug window.

Case Else	' If Number does not equal 1.

End	' Terminate procedure execution.

End Select	' End of Select Case Statement.

Next Number

End Sub	' End of Sub procedure.


 Exit 语句实例

该实例用Exit语句从For…Next循环、DO…Loop循环和Sub过程中退出。

Sub ExitStatementDemo()

Do	' Set up infinite loop.

For I = 1 To 1000	' Loop 1000 times.

MyNum = Int(Rnd * 1000)	' Generate random numbers.

Select Case MyNum	' Evaluate random number.

Case 7: Exit For	' If 7, exit For...Next.

Case 29: Exit Do	' If 29, exit Do...Loop.

Case 54: Exit Sub	' If 54, exit Sub procedure.

End Select

Next I

Loop

End Sub


 For Each...Next 语句实例

该实例用For Each…Next语句对集中所有的元素的Text属性查找字符串“Hello”。 例中，Myobject为与文字有关对象且为集Mycollection中的一个元素。两个都为仅用于 说明目的的属性名字。

Found = False	' Initialize variable.

For Each MyObject In MyCollection	' Iterate through each element.

If MyObject.Text = "Hello" Then	' If Text equals "Hello".

Found = True	' Set Found to True.

Exit For	' Exit loop.

End If

Next


 For...Next 语句实例

该实例用For…Next语产生包含0到9数码的10个例子的字符串，每个字符串由单个 空格与其他字符串区分开。外部循环用一个循环计数变量，该变量每循环一次减1。

For Words = 10 To 1 Step -1 	' Set up 10 repetitions.

For Chars = 0 To 9	' Set up 10 repetitions.

MyString = MyString & Chars	' Append number to string.

Next Chars

MyString = MyString & " "	' Append a space.

Next Words


 GoSub...Return 语句实例

该实例用Gosub语句在Sub过程中调用子程序。Return语句使紧跟在Gosub语句后面 的语句 恢复执行。Exit Sub语句用来防止控制偶然进入子程序。

Sub GosubDemo()

Num = 10	' Initialize variable.

GoSub MyRoutine	' Branch to subroutine.

Debug.Print Num	' Print value upon return.

Exit Sub	' Exit Sub procedure.

MyRoutine:	' Start of subroutine.

Num = Num \ 2	' Halve the value.

Return	' Return from subroutine.

End Sub


 GoTo 语句实例

该实例用GoTo语句分支到过程中的行标号。

Sub GotoStatementDemo()

Number = 1 	' Initialize variable.

' Evaluate Number and branch to appropriate label.

If Number = 1 Then GoTo Line1 Else GoTo Line2

Line1:

MyString = "Number equals 1"

GoTo LastLine	' Go to LastLine.

Line2:

' The following statement never gets executed.

MyString = "Number equals 2"

LastLine:

Debug.Print MyString	' Print 1 in Debug window.

End Sub


 If...Then...Else 语句实例

该实例显示如何使用If…Then…Else语句。

Number = 53	' Initialize variable.

If Number < 10 Then

Digits = 1

ElseIf Number < 100 Then

' Condition evaluates to True so the next statement is executed.

Digits = 2

Else

Digits = 3

End If

' Assign a value using the single line form of syntax.

If Digits = 1 Then MyString = "One" Else MyString = "More than one"


 On...GoSub, On...GoTo 语句实例

该实例用On…Gosub和On…GoTo语句分别分支到子程序和行标号。

Sub OnGosubGotoDemo()

Number = 2	' Initialize variable.

' Branch to Sub2.

On Number GoSub Sub1, Sub2	' Execution resumes here after

' On...GoSub.

On Number GoTo Line1, Line2	' Branch to Line2.

' Execution does not resume here after On...GoTo.

Exit Sub

Sub1:

MyString = "In Sub1" : Return

Sub2:

MyString = "In Sub2" : Return

Line1:

MyString = "In Line1"

Line2:

MyString = "In Line2"

End Sub


 Select Case 语句实例

该实例用Select Case语句计算变量的值。第二个Case子句包含被计算的变量值，故 仅运行与之相关的语句。

Number = 8	' Initialize variable.

Select Case Number	' Evaluate Number.

Case 1 To 5	' Number between 1 and 5.

MyString = "Between 1 and 5"

Case 6, 7, 8, 9, 10	' Number between 6 and 10.

' This is the only Case clause that evaluates to True.

MyString = "Between 6 and 10"

Case Else	' Other values.

MyString = "Not between 1 and 10"

End Select


 Shell 函数实例

该实例用shell函数运行由用户指定的应用程序。在Macintosh中，用MacID函数保证 即使应用程序文件名改变了，程序也能运行。Shell函数在Macintosh系统7.0之前不 能使用。

' In Microsoft Windows.

' Specifying 1 as the second argument runs the application normally and

' gives it the focus.

RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)	' Run Calculator.

' On the Macintosh.

' Both statements launch Microsoft Excel.

RetVal = Shell("Microsoft Excel")	' Specify file name.

RetVal = Shell(MacID("XCEL"))	' Specify signature.


 Stop 语句实例

该实例用Stop语句停止For…Next 循环中每次循环的执行。

For I = 1 To 10	' Start For...Next loop.

Debug.Print I	' Print I to Debug window.

Stop	' Stop each time through.

Next I


 While...Wend 语句实例

该实例用While…wend语句增加计数变量。在循环中，当条件值为True时，运行此语句。

Counter = 0	' Initialize variable.

While Counter < 20	' Test value of Counter.

Counter = Counter + 1	' Increment Counter.

Wend

Debug.Print Counter	' Prints 20 in Debug window.


 With 语句实例

该实例用With语句执行单个对象中的系列语句。对象Myobject及其属性为仅用于说 明目的的属性名字。

With MyObject

' Same as MyObject.Height = 100

.Height = 100

.Caption = "Hello World"

With .Font

' Same as MyObject.Font.Color = Red.

.Color = Red

.Bold = True

End With

End With


Date 函数

参阅	实例

描述

返回当前系统日期。

语法

Date

解释

用Date语句设置系统日期。


参阅Date 函数
参阅

CDate 函数

Date 语句

Format 函数

Now 函数

Returning Strings From 函数

Time 函数

Time 语句


Date 语句

参阅	实例

描述

设置当前系统日期。

语法

Date = date

元素

对于MS-DOS计算机，date参数必须从1980年1月1日到2099年12月31日， 否则出现错误。对于Macintosh，date参数必须从1904年1月1日到2040 年12月31日。对于其他系统，date限为100年1月1日到9999年12月31日。

解释

　　附注：如果使用MS-DOS 3.3以前的版本，在计算机上利用Date语句设置日期，该设置一直有效 ，除非重新设置或关闭计算机。许多计算机装有电池供电的CMOS RAM，当计算机关闭时用以保存日期和时间信息。然而，如在使用MS-DOS早期版本的计算机上设置永久日期，必须利用安装磁盘或采用类似方法。 请参阅用户系统文档。


参阅Date 语句
参阅

Date 函数

Time 函数

Time 语句


DateSerial 函数

参阅	实例

描述

为指定的年、月、日返回日期date。

语法

DateSerial(year,month,day)

元素

DateSerial函数语法具有如下命名参数：

参数 	描述

year 	100~9999之间数字，或是数字表达式numeric expression。

month 	1~12之间数字，或是数字表达式。

day 	1~31之间数字，或是数字表达式。

解释

指定一个日期，如1991年12月31日，每个DateSerial参数的数字范围必须在一 般可接受的范围内。即用1~31表示日，1~12表示月。但也可用数字表达式为 每个参数指定相对日期， 表达式表示某日期前（后）的年、月、日数字。

下面实例利用数字表达式代替绝对日期数字。此处DateSerial函数返回的日期是1990年 的10年前，8月的2个月前，1日的前一天。换言之，该日期为1980年5月31日。

DateSerial(1990 - 10, 8 - 2, 1 - 1)

对于year参数，数值在0~99之间，其表示1900~2999年。对于其余的year参数。 使用完整的四位数字表示（例如，1800）。

　　当日期用三个参数指定时，不论是直接方式还是表达式方式，如果超出日期的可接受范围，都将产生错误。


参阅DateSerial 函数
参阅

Date 函数

Date 语句

DateValue 函数

Day 函数

Month 函数

Now 函数

TimeSerial 函数

TimeValue 函数

Weekday 函数

Year 函数


DateValue 函数

参阅	实例

描述

返回一个日期date。

语法

DateValue(date)

元素

　　date命名参数通常是一个字符串表达式string expression，其表示的日期是100年1月1日 到9999年12月31日。然而，date也可以是表达式，表示在范围内的日期、时间或日期 时间。

解释

  　如果date参数包含时间信息，date value不返回它。但是，如果date包含非法的时间 信息（如"89:98"），则出现错误。

　　如果date只是包含以合法日期分隔符dateseparators分隔的数字字符串，DateValue 按照系统指定的短日期格式，识别年、月、日的次序，DateValue也识别包含月名的、 以长整型或缩写形式表示的确定日期。 例如， 除识别 12/30/1991 和  12/30/91 外，DateValue也识别december 30,1991和Dec 30,1991。

　　如果日期中的年份省略，DateValue使用计算机系统日期的当前年份。


参阅DateValue 函数
参阅

CDate 函数

Date 函数

Date 语句

DateSerial 函数

Day 函数

Month 函数

Now 函数

TimeSerial 函数

TimeValue 函数

Weekday 函数

Year 函数


Day 函数

参阅	实例

描述

返回1~31之间的整数，用以表示一个月中的日。

语法

Day(date)

元素

date命名参数限于数字或字符串，或是可表示日期的任意组合。如果date包含非法数据 ，则返回Null。


参阅Day 函数
参阅

Date 函数

Date 语句

Hour 函数

Minute 函数

Month 函数

Now 函数

Second 函数

Weekday 函数

Year 函数


Hour 函数

参阅	实例

描述

返回0~23之间的整数，用以表示一天中的小时。

语法

Hour(time)

元素

　　time命名参数限于数字或字符串，或是可表示时间的任意组合。如果time包含非 法数据，则返回Null。


参阅Hour 函数
参阅

Day 函数

Minute 函数

Now 函数

Second 函数

Time 函数

Time 语句


Minute 函数

参阅	实例

描述

　　返回0~59之间的整数，用以表示一小时内的分钟。

语法

Minute(time)

元素

　　time命名参数限于数字或字符串，或是可表示时间的任意组合。如果time包含非 法数据，则返回Null。


参阅Minute 函数
参阅

Day 函数

Hour 函数

Now 函数

Second 函数

Time 函数

Time 语句


Month 函数

参阅	实例

描述

　　返回1~12之间的整数，用以表示一年中的月份。

语法

Month(date)

元素

　　date命名参数限于数字或字符串，或是可表示日期的任意组合。如果date包含非 法数据，则返回Null。


参阅Month 函数
参阅

Date 函数

Date 语句

Day 函数

Now 函数

Weekday 函数

Year 函数


Now 函数

参阅	实例

描述

　　依照计算机系统设置的日期和时间，返回当前日期和时间。

语法

Now

解释

　　附注：当直接显示时，Now函数的返回值以字符串显示， 其格式为系统设置的短日期和时间。


参阅Now 函数
参阅

Date 函数

Date 语句

Day 函数

Hour 函数

Minute 函数

Month 函数

Second 函数

Time 函数

Time 语句

Weekday 函数

Year 函数


Second 函数

参阅	实例

描述

　　返回0-59之间的整数，用以表示一分钟内的秒。

语法

Second(time)

元素

　　time命名参数限于数字或字符串，或是可表示时间的任意组合。如果time包含非 数据，则返回 Null 。


参阅Second 函数
参阅

Day 函数

Hour 函数

Minute 函数

Now 函数

Time 函数

Time 语句


Time 函数

参阅	实例

描述

　　返回当前系统时间。

语法

Time

解释

　　用Time语句设置系统时间。


参阅Time 函数
参阅

Date 函数

Date 语句

Returning Strings From 函数

Time 语句

Timer 函数


Time 语句

参阅	实例

描述

　　设置系统时间

语法

Time = time

元素

　　time参数限于可表示时间的表达式。如果time包含非法数据，则返回 Null 。

解释

　　如果time是字符串，time使用系统设置的时间分隔符将其转换成时间。如果转换 结果为非法时间，则出现错误。

附注：如果使用MS-DOS 3.3以前的版本，在计算机上用Time语句设置时间， 该设置一直有效，除非重新设置或关闭计算机。许多计算机装有电池供电的CMOS RAM，在计算机关闭时，它用来保存日期和时间信息。若使用MS-DOS早期版本在 计算机上设置永久时间，必须利用安装磁盘或采用类似方法。请参阅用户的系统文档。


参阅Time 语句
参阅

Date 函数

Date 语句

Time 函数


Timer 函数

参阅	实例

描述

返回午夜后历经的秒数。

语法

Timer

解释

Timer函数的返回值自动地与Randomize语句一起产生Rnd函数的种子seed。


参阅Timer 函数
参阅

Randomize 语句

Rnd 函数

Time 函数


TimeSerial 函数

参阅	实例

描述

返回包含特定时分秒的时间time。

语法

TimeSerial(hour,minute,second)

元素

timeserial函数语法具有如下命名参数：

参数 	描述

hour	0（12:00 A.M.）~23（11:00 P.M.）之间的数字或数字表达式numeric expression。

minute	 0~59之间的数字或数字表达式。

second	 0~59之间的数字或数字表达式。

解释

指定一个时间，如11:59:59，每个Timeserial参数的数字范围必须在一般可接受的范围内。 即用0-23表示小时，0-59表示分和秒。但也可用数字表达式为每个参数指定相对时间，表达式表示某时分秒前 （后）的时间。下面实例利用数字表达式代替绝对时间，此处TimeSerial函数返回的时间是15分种前、12点的6小时前， 或表示为5:45:00 A.M.

TimeSerial(12 - 6, 0 - 15, 0)

  当时间用三个参数指定时，不论是直接的时间方式还是表达式方式，如果超出时间的可接受范围，都将产生错误。


参阅TimeSerial 函数
参阅

DateSerial 函数

DateValue 函数

Hour 函数

Minute 函数

Now 函数

Second 函数

TimeValue 函数


TimeValue 函数

参阅	实例

描述

返回一个时间time。

语法

TimeValue(time)

元素

time命名参数通常是一个字符串表达式string expression，其表示的时间是0:00:00（12:00:00 A.M.）至23:59:59（11:59:59 P.M.）。然而，time也可以是表达式， 表示在范围内的时间。如果time包含非法数据，则返回 Null 。

解释

  可用12时制或24时制输入合法时间。例如，"2:24 P.M."和"14:24" 均为合法时间参数。

如果time参数包含日期信息，timevalue不返回它。但是，如果time 包含非法数据信息，则出现错误。


参阅TimeValue 函数
参阅

DateSerial 函数

DateValue 函数

Hour 函数

Minute 函数

Now 函数

Second 函数

TimeSerial 函数


Weekday 函数

参阅	实例

描述

返回一个整数，用以表示一周内的日子。

语法

Weekday(date)

元素

date命名参数限于数字或字符串，或是可表示日期date的任意组合。如果date包含非法数据 ，则返回  Null 。

返回值。

数值 	描述

1	Sunday

2	Monday

3	Tuesday

4	Wednesday

5	Thursday

6	Friday

7	Saturday


参阅Weekday 函数
参阅

Date 函数

Date 语句

Day 函数

Month 函数

Now 函数

Year 函数


Year 函数

参阅	实例

描述

返回一个整数，用以表示年。

语法

Year(date)

元素

date命名参数限于数字或字符串，或是可表示日期的任意组合。如果date包含非法数据 ，则返回 Null 。


参阅Year 函数
参阅

Date 函数

Date 语句

Day 函数

Month 函数

Now 函数

Weekday 函数


Boolean 数据类型

参阅

Boolean变量按16位数（2字节）存储，且仅能为True或False。Boolean变量显示为True或False （当使用 Print 时）或 #TRUE#或#FALSE# （当用Write# 时）。将关键字(keywords) True或False指定给Boolean变量。

将其它数字类型转换为Boolean值时，0为False，其它值为True。将Boolean值转换为 其它数据类型时，False转换为0，True转换为-1。


Boolean 数据类型参阅
参阅

CBool 函数

数据类型摘要

Deftype 语句

Integer 数据类型


Currency 数据类型

参阅

currency变量按整型格式以64位（8字节）存储，放大10000倍为一小数点左边15位， 右边4位的定点数。其取值范围为9223372036854775808到922337203685477.5807范围。 currency的类型声明符(type-declaration character)为@（字符代码64）。currency数据类型 (data type)对货币的计算和精确定点计算非常有用。


Currency 数据类型参阅
参阅

CCur 函数

数据类型摘要

Deftype 语句

Long 数据类型


数据类型摘要

参阅

下表列出该语言提供的数据类型(data types)，其中包括存储空间和取值范围。

数据类型	存储大小	范围
Boolean	2 bytes	True 或 False。
Integer	2 bytes	-32,768 到 32,767。
Long
(长整型)	4 bytes	-2,147,483,648 到 2,147,483,647。
Single
(单精度浮点数)	4 bytes	对负数从-3.402823E38 到 -1.401298E-45 ；对正数1.401298E-45 到 3.402823E38。
Double
(双精度浮点数)	8 bytes	-1.79769313486232E308 到
对负数从-4.94065645841247E-324；对正数从4.94065645841247E-324 到 1.79769313486232E308。
Currency
(缩放整型)	8 bytes	-922,337,203,685,477.5808 到 922,337,203,685,477.5807.
Date	8 bytes	100 年1月 1日到 9999年12月31日。
Object	4 bytes	任意对象引用。
String	每字符1 byte	0到大约20亿（对Microsoft Windows版本3.1或更早的大约为65,535）
Variant	16 bytes + 1 byte 对任意字符	为任意数值可达到双精度取值范围或任意 字符串。
用户定义 (使用类型)	元素必需的 数字类型	每个元素的取值范围与其对应的数据类型 取值范围一致。


数据类型参阅
参阅

Boolean 数据类型

Currency 数据类型

Date 数据类型

Deftype 语句

Double 数据类型

Integer 数据类型

Long 数据类型

Object 数据类型

Single 数据类型

String 数据类型

Type 语句

用户定义数据类型

Variant 数据类型


Date 数据类型

参阅

Date变量按64位（8字节）存储，取指范围从100年1月1日到9999年12月31日，时间从0：00：00到23：59：59。任何可识别的文字日期值都可赋给Date变量。 文字日期必须包含在数字符号字母（#）中，例如，#January1，1993#或#1Jan 93#。Date变量按计算机可识别的短日期格式显示日期。时间显示按计算机可识别的时间格式（12或24小时）显示。当其它数据类型转换为Date时，小数点左边的数代表日期信 息，右边的代表时间。 午夜为0，日中为0.5。负的数字代表1899年12月30日以前。当Date变量转化为其它数据类型 时，仅作为数字值。


Date 数据类型参阅
参阅

CDate 函数

数据类型摘要

Deftype 语句

Double 数据类型

Variant 数据类型


Double 数据类型

参阅

Double （双精浮点）变量按  64 位（  8 字节）数存储。取指范围为负值从-1.7976931348623E308到-4.94065645841247E-324，正值从4.940656484124E-324到1.79769313486232E308。Double 类型声明符type-declaration character 为# （字符代码35）。


Double 数据类型参阅
参阅

CDbl 函数

数据类型摘要

Deftype 语句

Single 数据类型


Integer 数据类型

参阅

整型变量按16位（2字节）数存储。取指范围为从-事32768到32767。Integer 的 类型声明符type-declaration character为%（字符代码37）。可用Integer值代表计数值。

包含一个有限唯一整体数集，每一个在其应用的上下文中有特殊含义。对于从 已知选择数中选定计数值提供了方便的方法。例如：当用户从列表中选择一种 颜色时，可设0=black，1=white等等。对每一计数值用Const 语句定义常量是一种好的编程方法。


Integer 数据类型参阅
参阅

CInt 函数

数据类型摘要

Deftype 语句

Long 数据类型

Variant 数据类型


Long 数据类型

参阅

Long（长整型）变量按32位（4字节）数存储。取指范围为从-2147483648到2147483647。Long的类型声明符type-declaration character为&（字符代码38）


Long 数据类型参阅
参阅

CLng 函数

数据类型摘要

Deftype 语句

Integer 数据类型


Object 数据类型

参阅

object变量按32位（4字节）地址存储，它涉及应用程序中的对象。若一个变量被声明为 一个对象，则它随后可指定给（用Set语句）由应用程序产生的任何对象。


Object 数据类型参阅
参阅

数据类型摘要

Deftype 语句

IsObject 函数

Variant 数据类型


Single 数据类型

参阅

single（单精度浮点数）变量按32 位（ 4 字节）数存储， 。取指范围为负数从 - 3.402823E38到-1.401298E-45，正数从1.401298E-45到3.402823E38。single 的 类型声明符type-declaration character为!（字符代码33）。


Single 数据类型参阅
参阅

CSng 函数

数据类型摘要

Deftype 语句

Double 数据类型

Variant 数据类型


String数据类型
String 数据类型；

参阅

两种字符串；

变长字符串，可包含大约20 亿（ 2^31 ）字符（对 Microsoft Windows3.1版本或更早的版本为大约为64K（2^16））。

定长字符串，包含声明数目的字符，小于64K。

string 类型声明符type-declaration character为$（字符代码36）。 string的字符代码取值范围从0到255。前128字符（0-127 ）集对应于标准美国键盘的字母和符号，这128个字符与ASCII字符集定义的一致。其余的128字符（128-255）代表特殊字符，如国际字母、加重符、货币符号和分数。


String 数据类型参阅
参阅

CStr 函数

数据类型摘要

Deftype 语句

String 函数

Variant 数据类型


User-Defined数据类型
用户定义数据类型

参阅

它是用Type语句定义的任何数据类型data type。用户定义数据类型可包括一个或多个任意数据类型、数组或已定义的用户定义类型 的元素。 例如：

Type MyType

MyName As String	' String variable stores a name.

MyBirthDate As Date	' Date variable stores a birthdate.

MySex as Integer	' Integer variable stores sex (0 for

End Type	' female, 1 for male.


用户定义数据类型参阅
参阅

数据类型摘要

Type 语句


Variant 数据类型

参阅

variant 数据类型data type若没明确说明为其他类型（用诸如Dim，Private， Public ， 或Static语句），则可为任何数据类型。variant数据类型没有类型声明符type-declaration character。

变体是一种特殊的数据类型。它可以是任何数据或特殊值，如Empty，Error和Null。 用VarType 或TypeName函数可以确定如何处理变体中的数据。数据取指范围为负值从-1.797693134862315E308到-4.94066E-324和正值从4.94066E-324到1.797693134862315E308的任何整数或实数。通常地，数字变体数据在变体中 保持其原有数据类型。例如，如果把整数赋给变体，则变体就按整数处理。然而， 如果一个算术运算在变体上完成，该变体包括整数、长整数或一个单精度，并且计 算结果超出了原有数据类型的正常范围，在变体中将计算结果增加到有更大取值范 围的数据类型。整型成为长整型，长整型和单精度型成为双精度类型。当包含货币 型和双精度型的变体变量超出其各自范围时，产生错误。

可用变体数据类型代替任何数据类型以使数据处理更灵活。如果变体变 量内容为数字，他们可能为代表数字的字符串或实际值，可根据上下文决定。 例如，

Dim MyVar As Variant

MyVar = 98052

上例所示，MyVar包含一数字表达式 [image] 实际值为98052。如果变体变量包含数值数据或可变为数值的字符串， 则可进行算术运算。如用加号把MyVar加到另一包含数字的变体变量或加到数字 数据类型变量上， 结果为代数和。 参见加号和连接运算符部分以获得如何使用变体数据的全部信息。

Empty值意味着一未初始化（赋与初始值）的变体变量。包含Empty的变体在数字 上下文和 字符串上下文中零长度字符串（" "）为0。不要把Empty和Null混用。Null意为变体变量故意包含非法数据。

变体中，Error为一个特殊值，它指示在过程中发生的错误条件。然而，不象其他错误， 一般的应用程序级的错误处理不发生。允许程序员或应用程序本身，采用基于错误 值的替补值。用CVErr函数将实数转换为错误值来创建错误值。


Variant 数据类型参阅
参阅

CVar 函数

CVErr 函数

数据类型摘要

Deftype 语句

Dim 语句

Private 语句

Public 语句

Static 语句

TypeName 函数

VarType 函数


 Date 函数实例

该实例用Date函数返回当前系统日期。

MyDate = Date	' MyDate contains current system date.


 Date 语句实例

该实例用Date语句设置计算机系统日期。

' In the development environment, the date literal will display in short

' format using the locale settings of your code.

MyDate = #February 12, 1985#	' Assign a date.

Date = MyDate	' Change system date.


 DateSerial 函数实例

该实例用Date Serial函数对指定年、月、日返回日期。

' MyDate contains the date for February 12, 1969.

MyDate = DateSerial(1969, 2, 12)	' Return a date.


 DateValue 函数实例

�Value函数把一字符串转化为日期，如下例所示，把日期／时间代码硬化成字符串是不好的程序设计经验。用日期文字替代。

MyDate = DateValue("February 12, 1969")	' Return a date.


 Day 函数实例

该实例用Day函数从一指定的日期中得到日值。

' In the development environment, the date literal will display in short

' format using the locale settings of your code.

MyDate = #February 12, 1969#	' Assign a date.

MyDay = Day(MyDate)	' MyDay contains 12.


 Hour 函数实例

该实例用Hour函数从一指定时间得到小时值。

' In the development environment, the time (date literal) will display

' in short format using the locale settings of your code.

MyTime = #4:35:17 PM#	' Assign a time.

MyHour = Hour(MyTime)	' MyHour contains 16.


 Minute 函数实例

该实例用Minute函数从一指定时间得到分钟值。

' In the development environment, the time (date literal) will display

' in short format using the locale settings of your code.

MyTime = #4:35:17 PM#	' Assign a time.

MyMinute = Minute(MyTime)	' MyMinute contains 35.


 Month 函数实例

该实例用Moth函数从指定日期得到月份值。

' In the development environment, the date literal will display in short

' format using the locale settings of your code.

MyDate = #February 12, 1969#	' Assign a date.

MyMonth = Month(MyDate)	' MyMonth contains 2.


 Now 函数实例

该实例用Now函数返回当前系统日期和时间。

Today = Now	' Get current system date and time.


 Second 函数实例

该实例用Second函数从指定日间得到秒值。

' In the development environment, the time (date literal) will display

' in short format using the locale settings of your code.

MyTime = #4:35:17 PM#	' Assign a time.

MySecond = Second(MyTime)	' MySecond contains 17.


 Time 函数实例

该实例用Time函数返回当前系统时间。

MyTime = Time	' Return current system time.


 Time 语句实例

该实例用Time语句设置计算机系统时间为用户定义时间。

MyTime = #4:35:17 PM#	' Assign a time.

Time = MyTime	' Set system time to MyTime.


 Timer 函数实例

该实例用Timer函数记录打印输出到调试窗口的秒数。

Start = Timer	' Set start time.

For I = 1 to 50	' Loop 50 times.

Debug.Print I	' Print to Debug window.

Next I

Finish = Timer	' Set end time.

TotalTime = Finish - Start	' Calculate total time.


 TimeSerial 函数实例

该实例用Time Serial函数对指定小时分钟和秒返回一个时间。

' MyTime contains the time for 4:35:17 PM

MyTime = TimeSerial(16, 35, 17)	' Return time.


 TimeValue 函数实例

该实例用TimeValue函数把一字符串转换为时间。如下例所示，把日期／时间代码硬化成 字符串是不好的程序设计经验。用日期文字替代。

MyTime = TimeValue("4:35:17 PM")	' Return time.


 Weekday 函数实例

该实例用Weekday函数从指定日期返回天数值。

MyDate = #February 12, 1969#	' Assign a date.

MyWeekDay = Weekday(MyDate)	' MyWeekDay contains 4 since it

' was a Wednesday.


 Year 函数实例

该实例用Year函数从一指定日期返回年数值。

' In the development environment, the date literal will display in short

' format using the locale settings of your code.

MyDate = #February 12, 1969#	' Assign a date.

MyYear = Year(MyDate)	' MyYear contains 1969.


Array 函数

参阅	实例

描述

返回包含一个数组的Variant。

语法

Array(arglist)

元素

arglist由包含在Variant中赋予数组元素的，用逗号分隔的任意数值列表构成。 如果没有指定参数，则创建一个零长度数组。

解释

虽然包含一个数组的Variant在概念上不同于元素为Variant类型的数组，但数组元素读写的方式是相同的。用于引用数组的任何元素的表示法由变量名后 跟括号组成，括号内包含一个要调用元素的索引号。在下面实例中，第一个 语句将变量A创建为一个Variant，第二个语句给变量A指定一个数组。 最后一个语句说明如何将包含在第二个数组元素内的值赋给另一个变量。

Dim A As Variant

A = Array(10,20,30)

B = A(2)

使用Array函数创建的数组的下界使用由Option Bsse语句指定的下界确定。


参阅Array 函数
参阅

Deftype 语句

Dim 语句

Let 语句

Option Base 语句


Const 语句

参阅	实例

描述

声明常量constants，用于代替文字值。

语法

[Public | Private] Const constname [As type] = expression

元素

Const语句语法具有列组成部分：

组成部分 	描述

public	用在模块表级(module level)中以声明在所有模块内对于所有过程均合法的常量。 在过程中不允许。

private	用在模块表级中声明仅在已经进行声明了的模块内合法的常量。 在过程中不允许。

constname	常量名。遵循标准变量( variable)命名约定。

type 	常量的数据类型(Data type)，可以是Boolean， Integer， Long， Currency， Single， Double， Date， String， 或Variant。每个要被声明的常量使用一个单独的AS类型从句。

expression 	文字、其它常量或包含除Is之外的算术或逻辑运算符的任何组合。

解释

如果没有明确指定使用Public还是Private。常量被默认为Private。 通过用逗号将两个常量赋值隔开，几个常量声明可以组合在同一行上。 如果常量声明用该方式组合，若要使用Private或Public关键字，则其施加于所有常量。 不能在赋值给常量的表达式中使用字符串连接、变量、用户定义的或内部函 数（诸如Chr）。

指南  特殊字符左方括号（[），问号（?），数字符号（#）和星号（*）只需将 其括在方括号内即可直接与它们相匹配。右方括号（]）不能在组内使用与自身匹 配，但它可以用于组外为单独字符。常量可以使程序自说明和易于修改。当程序 运行时常量不能被无意中改变，这不同于变量。

如果没有明确声明常量类型（使用AS 类型）。常量被给定为最适应于提供的表达式的数据类型。

在Sub，Fanction或Property过程中被声明的常量对该过程是局部的。在一个过程之外 被声明的常量。被定义为在整个模块表中有效。可以在使用表达式的 任何地方使用常量。


参阅Const 语句
参阅

Deftype 语句

Let 语句


Declare 语句

参阅	实例

描述

用在模块表级(module level)，在动态链接库(dynamic-link library)（DLL）或Macintosh代码资源内声明引用外部过程。

语法1

[Public | Private ] Declare Sub name [CDecl] Lib "libname" [Alias "aliasname" ][([arglist])]

语法2

[Public | Private ] Declare Functionname [CDecl] Lib "libname" [Alias "aliasname" ] [([arglist])][As type]

元素

Declare语句语法具有下列组成部分：

组成部分 	描述

public	用于声明在所有模块中对所有其它过程均合法的过程。

private 	用于声明仅在已经声明的模块表内合法的过程。

Sub	指明该过程不返回值。

Function	指明过程返回可被用在表达式中的值。

name 	任何合法过程(procedure)名。

CDecl	仅对Macintosh。指明该过程使用C语言参数次序，命名约 定及调用约定。

Lib	指明DLL或包含被声明过程的代码源。LIB从句对所有声明 都是必须的 。

libname	包含声明过程的DLL或代码源名。

Alias	指明被调用的过程在DLL中有另外一个名字或在 Macintosh代码源中。当外部过程名与关键字(keyword)相同时它非常有用。当DLL过程与Public 变量或常量(constant)或任何其它在 同一范围内的过程同名时也可以使用Aliss。如果DLL过程名内 的任何字符在名字中不允许，Alias也非常有用。

aliasname	在DLL或代码资源内的过程名。在Microsoft Windows中，如果第一个字符不是#，则aliasnable为DLL中过程的入口点名。如果#是第一个字符，则所有后面的字符必须指明过程的入口点的编 号。在Macintosh 上，指定代码源类型的语法如下：

"[resourcetype]$[resourcename]"

resonrcetgpe	为任何合法4个字符的常量。如果省略，则默认 rosourcetype为CODE.resourcename为代码源内的过程名。如果 resourcename 被省略， 则假定其与name相同。

arglist	当被调用时，代表被传送到该过程的参数的变量清单。

type	Function过程返回的值的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（仅为变量长度）。Object，Variant，用户定义类型或对象 类型。

arglist 参数有下列语法和组成部分：

[Optional][ByVal | ByRef][ParamArray] varname[( )][As type]

组成部分 	描述

Optional	指明该参数不是必选项。如果使用它，则arglist 内的所有后续参数也必须是可选项而且是用Optional（关键字）声明的。所有Optional参数必须是Variant。如果使用ParamArray ， 则Optional不能用于任何参数。

ByVal 	指明参数按值by value传递。

ByRef 	指明参数按地址by reference传递。

ParamArray	在arglist内仅用作最后一个参数，用于指明最后一个参数是 variant元素的Optional数组。ParamArray关键字允许用户提供参 数的任意编号。不能与ByVal，ByReF或Optional一起使用。

type	被传递给过程的数据类型参数，可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（仅为变长度）。Object， Variant，用户定义类型或对象类型。

varname 	变量名，代表被传递给过程的参数；遵循标准变量(variable)命 名约定。

解释

对于Function过程，过程的数据类型决定它返回的数据类型。用户可以使用AS从句后跟arglist指定函数的返回类型。在arglist中用户可以使用AS从句指定传 递到该过程的任何参数的数据类型。除了指定任何标准数据类型外，还可以 在arglist内指定As Any以禁止类型检查并且允许任何数据类型传递到过程。

空括号指明Sub或Function过程不含参数并且这些参数必须被检查以确保不被 传送。在下面实例中，First不含任何参数。如果在调用First中使用参数，则会出现错误。

Declare Sub First Lib "MyLib" ()

如果包含一个参数列表，则每次该过程调用时，都要检查编号和参数类型。 在下面实例中，First需要一个长整型参数。

Declare Sub First Lib "MyLib" (X As Long)

附注  不能在Declare语句的参数列表中含有固定长度的字符串，因为只有变 长度字符串被传送到过程。固定长度字符串可以作为过程参数出现，但在被 传递之前被转换为变长度字符串。


参阅Declare 语句
参阅

Call 语句


Deftype 语句

参阅	实例

描述

用在模块表级内，设置用指定字符开始的默认变量数据类型(data type)和Function过程。

语法

DefBool letterrange[,letterrange] . . .

DefInt letterrange[,letterrange] . . .

DefLng letterrange[,letterrange] . . .

DefCur letterrange[,letterrange] . . .

DefSng letterrange[,letterrange] . . .

DefDbl letterrange[,letterrange] . . .

DefDate letterrange[,letterrange] . . .

DefStr letterrange[,letterrange] . . .

DefObj letterrange[,letterrange] . . .

DefVar letterrange[,letterrange] . . .

元素

参数letcerrange有下列语法：

letter1[-letter2]

参数letter1和letter2指定设置默认数据类型的名字范围。每个参数代表变量或 函数过程名的第一个字母，可以是字母表中的任何字母。在letterrange 内字母的大小写并不重要。

解释

语句名决定数据类型：

语句	数据类型

DefBool	Boolean

DefInt	Integer

DefLng	Long

DefCur	Currency

DefSng	Single

DefDbl	Double

DefDate	Date

DefStr	String

DefObj	Object

DefVar	Variant

例如，在下列程序段中，Message是一个字符串变量：

DefStr A-Q

. . .

Message = "Out of stack space."

Deftype语句仅影响被使用的模块表。例如，在一个模块内的Define语句仅影响变量和在那个模块中被声明的Function过程的默认数据类型。在另一个模块中变量的默认数据类型则不受影响。如果没有用Deftype语句明确声明， 则所有变量和所有Function过程的默认数据类型为Variant。

当指定字母范围时， 它通常定义字符集(character set)前128个字符中由字母起始的变量数据类型。 然而如果指定字母范围为A-Z，则设置默认为所有变量指定的数据类型，包括任何由字符集扩展部分（128-255）内的国别字符起始的数据类型。一旦指定了A-Z范围，就不能用Deftype语句重新定义变量的任何子范围。实际上，一旦指定了范围，同时若另一个Deftype语句包含了已定义的字母，则会出现错误。 但可以使用带AStype从句的Dim语句指定不论是定义了还是未定义任何变量的数据类型。例如，可以使用在模块表级内的下列代码将一个变量定义为双精 度浮点数，即使默认数据类型为整型：

DefInt A-Z

Dim TaxRate As Double

Deftype语句不影响用户定义类型的元素，因为它们必须被明确声明。


参阅Deftype 语句
参阅

字符集

Let 语句


Dim 语句

参阅	实例

描述

声明变量并分配存储空间。

语法

Dim varname[([subscripts])][As type][,varname[([subscripts])][As type]] . . .

元素

Dim语句语法具有下列组成部分：

组成部分 	描述

varname 	变量名，遵循标准变量(variable)命名约定。

subscripts 	数组array变量的维数；最多可以声明60维。

Subscript参数使用下列语法：

[lower To] upper [,[lower To] upper] . . .

type 	变量的数据类型：可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（对于变长度字符串）。String*length（不会固定长度字符 串），Object，Variant，用户定义类型，或对象类型(object type)，每一个声明的变量使用一个单独的AS类型从句。

解释

在模块表级(module level)上用Dim语句声明的变量对于模块表内的所有过程均有效。在过程级(procedure level)上的变量仅在过程中有效。

在模块表和过程级内使用Dim语句声明变量的数据类型或变量的数据类型。例如，下面的语句将一个变量声明为整型。

Dim NumberOfEmployees As Integer

如果不指定数据类型或对象类型，并且在模块内没有Deftype语句， 该变量被默认为Variant。

    当变量被初始化时，数字变量被初始化为0。变长度字符串被初始化为 零长度字符串，固定长度字符串被填满0。Variant变量被初始化为空(Empty)。 每个用户定义类型变量的元素被看作一个单独的变量被初始化。引用对象 的变量 在使用之前必须用 Set语句为其分配一个已存在的对象。  声明的对象变量具有一个特定值Nothing，直到它被赋予对象。 它指明没有引用任何特定的对象实例。也可以用带空括号Dim语句声明动态数组。 在声明了一个动态数组后，在过程中使用ReDim语句来定义数组维数及数组内的元素。 如果试图重新声明一个数组变量的维数，而且大小在Private，Public或Dim 语句中被明确指定时，则会出现错误。

指南   当在一个过程中使用Dim语句时，普遍可以接受的编程经验为 将Dim语句放在该过程的开头。


参阅Dim 语句
参阅

Array 函数

Option Base 语句

Private 语句

Public 语句

ReDim 语句

Set 语句

Static 语句

Type 语句


Erase 语句

参阅	实例

描述

重新初始化固定大小的数组(arrays)元素，重新分配动态数组存贮空间。

语法

Erase arraylist

元素

arglist参数为要删除的一个或多个用逗号分隔的数组变量。

解释

很重要的一点是要知道一个数组是固定大小的（普通的）还是动态的。因为 Erase的性能根据数组类型不同而不同。对于固定大小的数组，没有内存被恢复。 Erses设置固定数组元素如下：

数组类型	固定数组元素删除结果

固定数字数组 	将每个元素设置为0

固定字符串数组（变长度） 	将每个元素设置为零长度（" "）。

固定字符串数组（固定长度）	将每个元素设置为0。

固定Variant数组 	将每个元素设置为空(Empty)。

用户定义类型数组 	将每个元素看作单独变量进行设置。

对象数组	将每个元素设置为特殊值Nothing。

Erase释放动态数组使用的内存。在用户程序再次引用动态数组之前，必须用 ReDim语句重新声明数组变量的维数。


参阅Erase 语句
参阅

Array 函数

Dim 语句

Private 语句

Public 语句

ReDim 语句

Static 语句


Function语句

参阅	实例

描述

声明构成Function过程体的名字、参数和代码。

语法

[Public | Private][Static] Functionname [(arglist)][As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function

元素

Function语句语法具有下列组成部分：

组成部分 	描述

Public 	指明Function过程对于在所有模块表内的所有其它过程都是 可读写的。 如果用在私有模块表内（包含Option Private语句的模块表）则该过程在项目(project)外无效。

private 	指明Function过程仅对于声明模块内的其它过程是可读写的。

static 	指明Function过程的局部变量在调用之间是保留的。Static 属性不影响在Function之外被声明的变量，即使它们用于该过程中。

name 	Function名；遵循标准变量(variable)命名约定。

arglist	变量表，当其被调用时代表被传递到Function过程的参数。 多个变量用逗号分隔。

type 	由Function过程返回值的数据类型：Boolean， Integer， Long， Currency， Single， Double， Date， String（固定长度的除外），Object ，Variant 或任何用户定义类型。任何类型的数组都不能被返回，但包含一个数组的Variant可以。

statements	要在Function过程体内执行的任何语句组。

expression 	返回Function的值。

arglist参数有下列语法和组成部分：

组成部分 	描述

Optional 	指明参数不是必选项。如果使用该参数，则arglist内的所 有后续参数必须是可选项并且用Optional关键字声明。所有的Optional参数必须是Variant。如果使用了ParamArray则Optional不能用于任何参数。

ByVal 	指明参数通过传值(by value)传递。

ByRef 	指明参数通过传地址(by reference)传递。

ParamArray 	仅用作arglist内的最后一个参数，用于指明最后一个参数是 Variant元 素的Optional 数组。ParamArray关键字允许提供参数的任意编号。 不可与ByVal，ByRef或Optional一起使用。

Varname 	代表参数的变量名；遵循标准变量(variable)命名约定。

type 	被传递到过程的参数的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String （仅为变长度）Object，Variant，用户定义类型或对象类型。

解释

如果没有使用Public或Private明确指定，函数过程被默认为Public。如果 不使用Static，则局部变量的值在调用之间不被保留。所有可执行代码必 须在过程(procedures)内。 用户不能在另一Function，Sub或Property 过程中定义一个Function过程。Exit 函数关键字导致从Function过程中立即退出，程序从调用Function过程的语句 后面的语句继续执行。任意数量的Function语句可以出现在一个Function过程 中的任何地方。

象Sub过程一样，Function过程是一个单独的过程，它可以带参数，运行一系 列语句，改变参数的值。然而与Sub过程不同的是，当希望使用被函数返回的值时，与任何内部函数如Sqr，Cos或Chr使用方法相同，Function过程可以用在表达式的右边。

调用使用Function名的Function过程，后跟列在圆括号内的参数。如果函数不 含参数，但还必须包括括号，参见如何调用Function过程的Call语句 获取特定信息。

附注  Function过程可以是递归过程，即可以自身调用以执行给定的任务。 然而，递归可能导致堆找溢出。Static关键字通常不与递归函数过程一 起使用。

为了从函数返回值，将该值赋给函数名。任何数量的赋值可以出现在过程中 的任何地方。如果没有值分配给name，该过程返回一个默认值；数字函数 返回0， 字符串函数返回零长度字符串（" "）， Variant 函数返回空(Empty)。 如果没有对象地址被分配给Function内的name（用Set），则返回对象地址 的函数返回Nothing。

下面实例显示如何为名为 BinarySearch 的函数赋返回值。在这种情况下，False被赋给该名字以指明一些值未找到。

FunctionBinarySearch(. . .) As Boolean

. . .

' Value not found. Return a value of False.

If lower > upper Then

BinarySearch = False

Exit Function

End If

. . .

End Function

用在Function过程中的变量分为两类：在过程中被显式声明的及未显式声明 的。在过程中被显式声明的变量（用Dim或等价的）对于该过程总是局部的， 其它被使用的但没有在过程中显式声明的变量也是局部的，除非它们在过 程之外有一些更高级显式声明。

注意  过程可以使用在过程中没有显式声明的变量，但是如果在模块表级已 经定义的任何东西具有相同的名字则会出现名字冲突。如果过程调 用一个未声明的变量，而该变量与另一个过程，常量或变量同名， 则假定过程正在引用模块表级名。显式声明变量以避免这种冲突。 可以用Option Explicit语句强迫显式声明变量。

注意

算术表达式可以被重新安排以提高内部效率。当函数改变算术表达式内部变 量值时，应避免在同一表达式中使用Function过程。


参阅Function 语句
参阅

Call 语句

Dim 语句

Option Explicit 语句

Property Get 语句

Property Let 语句

Property Set 语句

Set 语句

Static 语句

Sub 语句


LBound 函数

参阅	实例

描述

返回数组(array)的指定维数的最小有效下标。

语法

LBound(arrayname[,dimension])

元素

LBound语句 语法具有下列组成部分：

组成部分 	描述

arragname	数组变量名：遵循标准变量variable命名约定。

dimersion 	指明其维的下界被返回的整数。第一维用1，第二维用2， 依次类推。如果dimension被省略，则假定为1。

解释

LBound函数与VBonnd函数一起使用确定数组的大小。使用VBownd函数查找数组维数的上界。

LBound为具有下列维数的数组返回列在下表中的值：

Dim A(1 To 100, 0 To 3, -3 To 4)

语句 	返回值

LBound(A, 1)	1

LBound(A, 2)	0

LBound(A, 3)	-3

任何维数的默认下界为0或1，取决于OptionBase语句的设置。 在Dim，Bivate，Pnblic，ReDim或Static语句内使用To从句设置维数的数组可以以任何整型数值作为下界。


参阅LBound 函数
参阅

Dim 语句

Private 语句

Public 语句

Option Base 语句

ReDim 语句

Static 语句

UBound 函数


Let 语句

参阅	实例

描述

将表达式的值赋给变量或属性。

语法

[Let] varname = expression

元素

比语句语法具有下列组成部分：

组成部分 	描述

varnasme 	变量或属性名；遵循标准变量(variable)命名约定。

expression 	赋给变量的值。

解释

为了简化Basic代码，可选项Let关键常常被省略。仅当数值表达式为与变量兼容的数据类型(data type)时它才能被赋给一个变量。不能将字符串表达式赋给数字变量，也不能 将数字表达式赋给字符串变量。如果这样做了，那么在编译时将会出错。

Variant 变量可被赋给字符串或数字表达式。 然而反过来并不总是正确。 任何除Null之外的Variant可被赋给字符串变量。但只有其值能被翻译成数 的Variant才能被赋给数字变量。用IsNameric函数确定Variant能否被转换为数。

注意  将数字数据类型表达式赋给一个不同数字数据类型的变量将强迫表达式值变为结果变量的数据类型。

仅当两个变量为相同的用户定义类型时，Let语句可用于将一个记录变量赋给 另一个。使用Lset语句以赋值不同用户定义类型的记录变量。用Set语句赋对 象地址给变量。


Let 语句 参阅
参阅

Const 语句

Data Type 摘要

IsNumeric 函数

LSet 语句

Set 语句

Variant 数据类型


Option Base 语句

参阅	实例

描述

在模块表级(module level)中为数组(array)下标声明默认下界。

语法

Option Base {0 | 1}

解释

如果使用Option Base语句，则它必须出现在模块表内任何声明变量或定义常量的语句之前。 既然默认基数为0，那么Option Base语句是从不需要的。然而，如果使用了它，对象在模块表中仅出现一次 并且必须加在包含维数的数组声明之前。Option Base语句对用户定义类型中的数组没有影响，因为其下界总为0。

指南  在Dim，Private，Public，ReDim和Static 语句内To从句提供了一个更加灵活的方法控制数组下标的范围，然而，如果没有使用To从句明确设置下界，可以使用Option Base语句将默认下界为1。

Option Base语句仅影响语句所在的模块表中的数组的下界。


参阅Option Base 语句
参阅

Dim 语句

LBound 函数

Option Compare 语句

Option Explicit 语句

Option Private 语句

Private 语句

Public 语句

ReDim 语句

Static 语句


Option Compare 语句

参阅	实例

描述

当字符串数据被比较时用在模块表级(module level)内用以声明要使用的默认比较方式。

语法

Option Compare {Binary | Text}

解释

如果使用Option Compare语句，它必须出现在模块表内任何声明变量或定义常量的语句之前。

Option Compare语句为模块表指定字符串比较方法（二进制或文字），如果模块表不包含Option Compare语句，则默认文字比较方法为二进制的。

Option Compare Binary导致字符串比较基于由内部字符二进制表示导出的排序次序(sort order)。在Microsoft Windows中，排列次序决定于代码页。在Macintosh机上，排序次序决定于字符集。在下面实例中显示典型的二进制排列次序。

A < B < E < Z < a < b < e  < z < � < � < � < � < � < 鴂

Option CompareText导致基于系统的地区(locale)决定的与大小写无关的文本排序 次序进行字符串比较。当用Option Compare Text语句排序时，所用字母与上相同，产生下列文字排序次序。

(A=a) < ( �=�) < (B=b) < (E=e) < (�=�) < (Z=z) < (�=�)


参阅Option Compare 语句
参阅

字符集

Comparison Operators

InStr 函数

Option Base 语句

Option Explicit 语句

Option Private 语句

StrComp 函数


Option Explicit 语句

参阅	实例

描述

在模块表级(module level)中以强迫显式声明模块表内的所有变量。

语法

Option Explicit

解释

如果要使用Option Explicit语句，它必须出现在模块表中任何声明变量或定义常量语句之前。 如果不使用Option Explicit语句，所有未被声明的变量均为Variant，除非默认类型用Deftype语句 另外指定。

当使用Option Explicit语句时，必须用Dim，Private，Public，Redim或Static语句显式声明所 有变量。如果用户试图使用未声明变量名，则在编译时出错。

指南  使用Sption Explicit 以避免不正确地键入目前已有的变量名或避变量范围不清楚的代码中的危险混淆。


参阅Option Explicit 语句
参阅

Const 语句

Deftype 语句

Dim 语句

Function语句

Option Base 语句

Option Compare 语句

Option Private 语句

Private 语句

Public 语句

ReDim 语句

Static 语句

Sub 语句


Option Private 语句

参阅	实例

描述

在模块表级(module level)中指明整个模块为Private。

语法

Option Private Module

解释

如果要使用Option Private语句，它必须出现在模块表内任何声明变量或定义常量语句之前。

使用Option Private语句声明为Private的模块表的公共部分（变量，对象， 在模块表级内被声明）的用户定义类型，在包含该模块的项目(project)内仍 合法。 它们对于其它应用程序或项目无效。


参阅Option Private 语句
参阅

Option Base 语句

Option Compare 语句

Option Explicit 语句

Private 语句


Private 语句

参阅	实例

描述

在模块表级(module level)中以声明私有变量，分配存储空间。

语法

Private varname[([subscripts])][As type][,varname[([subscripts])][As type]] . . .

元素

Private语句语法具有下列组成部分：

组成部分 	描述

varname 	变量名；遵循标准变量(variable)命名约定。

subscripts	数组变量array的维数；可以声明到至多60维。Subscript参数 使用下述语法。

[lower To] upper [,[lower To] upper] . . .

type 	变量数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（对于变长度字符串）。String*length（不是固定长度字符

串），Object，Variant，用户定义类型，或对象类型(object type)，每一个声明的变量使用一个单独的AS类型从句。string （用于变长度字符串），string*lengen（用于固定长度字符串） ， Object，Variant，用户定义类型或对象类型。每个被定义的变 量使用单独的As类型从句。

解释

Private变量仅对在其内声明的模块表有效。使用Private语句声明变量的数据类型或对象类型。例如，下面的语句将变量声明为整型。

Private NumberOfEmployees As Integer

如果未指定数据类型或对象类型，而且在模块表内没有Deftype语句，则变量 被默认为Variant。

当变量被初始化后，数字变量被初始化为0。变长度字符串被初始化为零长度字符串，固定长度字符串被填满0。Variant变量被初始化为空。每个用户定义类型变量被看作一个单独的变量被初始化。引用对象的变量在其被使用之前 必须用set语句为其分配已有的对象。声明的对象变量有一个特定值Nothing，直到它被分配一个对象。它指明没有引用任何特定的对象。也可以使用带 空括号Dim语句声明动态数组。在声明了一个动态数组后，在过程中使用ReDim语句来定义维数及数组内的元素。如果试图重新声明一个数组变量的维数，而且大小在Drivate，Public或Dim 语句中被明确指定时，则会出现错误。


参阅Private 语句
参阅

Array 函数

Const 语句

Dim 语句

Function语句

Option Base 语句

Option Private 语句

Property Get 语句

Property Let 语句

Property Set 语句

Public 语句

ReDim 语句

Static 语句

Sub 语句

Type 语句


Property Get 语句

参阅	实例

描述

声明构成ProTerty Get语句过程体的名字、参数和代码。

语法

[Public | Private][Static] Property Get name [(arglist)][As type]
[statements]
[name = expression]
[Exit Property]
[statements]
[name = expression]
End Property

元素

Property Get语句语法具有下列组成部分：

组成部分 	描述

public 	指明Property Get过程在所有模块表中所有其它过程内都是可读写的。如果用在私有模块表内（包含OptionPrivate语句的模块表），则该过程在 项目(project)外无效。

Private 	指明Property Get过程仅在声明的模块表内对其它过程是可读写的。

Static 	指明该Property Get过程的局部变量在调用之间被保留。Static 属性不影响在Property Get之外声明的变量，即使它们用于该过程中。

name 	Property Get名；遵循标准变量(variable)命名约定。

arglist	变量表，当其被调用时代表被传送到Property Get过程的参数。多个变量用逗号分隔。

type 	被Property Get过程返回的值的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（固定长度的除外），Object ，Variant

或任何用户定义类型。任何类型的数组都不能被返回，但包含一个数组的 Variant可以。

statement 	要在Property Get过程体内被执行的任何语句组。

expression 	返回Property Get的值。

arglist参数有下列语法和组成部分：

[Optional][ByVal | ByRef] varname[( )][As type]

组成部分 	描述

optional 	指明参数不是必选项。如果使用该参数，则arglist内的 所有后续参数必须是可选项并且用Optional关键字声明。所有 的Optional参数必须是Variant。如果使用了ParamArray，则Optional不能用于任何参数。

ByVal 	指明参数通过传值(by value)传递。

ByRef 	指明参数通过传地址(by reference)传递。

Varname 	代表参数的变量名；遵循标准变量(variable)命名约定。

type 	被传送到过程的参数的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String （仅为变长度），Object，Variant，用户定义类型或对象类型。

解释

如果没有使用Public或Paivate明确指定，Property过程被默认为Public。 如果不使用Static，则局部变量的值在调用之间不被保留。

所有可执行代码必须在过程(procedures)内。用户不能在另一Function，Sub或Property过程中定义一个Property Get过程。

   Exit Property关键字导致从Property Get过程中立即退出，程序从调用Property Get过程的语句后面的语句继续执行。任何数量的Exit Property语句可以出现在Property Get过程中的任何地方。

象Sub和Property Let过程一样，Property Get过程是一个单独的过程， 它可以带参数，运行一系列语句，改变参数的值。然而与Sub和Property Let 过程不同的是，当希望返回属性的值时，与使用Function或属性名方法相同，Property Get过程可以用在表达式的右边。


参阅Property Get 语句
参阅

Function语句

Property Let 语句

Property Set 语句

Sub 语句


Property Let 语句

参阅	实例

描述

声明构成Poperty let语句过程体的名字、参数和代码。该语句将值赋给属性。

语法

[Public | Private][Static] Property Let name [(arglist)]
[statements]
[Exit Property]
[statements]
End Property

元素

Property Let语句语法具有下列组成部分：

组成部分	描述

public 	指明该Property Let过程在所有模块表中对所有其它过程都是可读写的。如果 用在私有模块表中（包含OptionPrivate语句的模块表），则该 过程在项目(project)外无效。

private 	指明Peoperty Let过程仅在被声明的模块表内对其它过程是可读写的。

Static 	指明Peoperty Let过程的局部变量在调用之间被保留。Static 属性不影响在Peoperty Let之外被声明的变量，即使它们用于该过程中。

name 	Peoperty Let名；遵循标准变量(variable)命名约定。除名字可能在相同模块中与Property Get或Property Set过程相同外。

arglist	变量表，当其被调用时代表被传送到Peoperty Let过程的参数。多个变量用逗号分隔。最后的参数为赋予表达 式右边属性的值。

statement 	要在Peoperty Let过程体内被执行的任何语句组。

arglist参数有下列语法和组成部分：

组成部分 	描述

ByVal 	指明参数通过传值(by value)传递。

ByRef 	指明参数通过传地址(by reference)传递。

varname	代表参数的变量名；遵循标准变量(variable)命名约定。

type 	被传递到过程的参数的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String （仅为变长度），Object，Variant，用户定义类型或对象类型。

附注  每一个Property  Let 语句必须为它所定义的过程定义至少一个参数。 当Property Let语句定义的过程被引入时，那个参数（如果多于一个则为最后一个参数）将包含赋给该属性的实际值。

解释

如果没有使用Public或Paivate明确指定，Peoperty Let过程被默认为Public。如果不使用Static，则局部变量的值在调用之间不被 保留。所有可执行代码必须在过程procedures内。用户不能在另一Function，Sub或Property 过程中定义一个Peoperty Let过程。Exit Property关键字导致从Peoperty Let过程中立即退出，程序从调用Peoperty Let过程的语句后面的语句继续执行。任何数量的Peoperty  Let语句号可以出现在Peoperty Let过程中的任何地方。

象Function和Property Get过程一样，Peoperty Let过程是一个单独的过程，它可以带参数，运行一系列语句，改变参数的值 。然而与Function和Property Get过程不同的是，两者均返回一个值，Peoperty Let过程仅能用在属性赋值表达式或Let 语句的左边。


参阅Property Let 语句
参阅

Function语句

Let 语句

Property Get 语句

Property Set 语句

Sub 语句


Property Set 语句

参阅	实例

描述

声明构成Property Set过程体的名字、参数和代码。该语句为对象设置地址。

语法

[Public | Private][Static] Property Set name [(arglist)]

[statements]
[Exit Property]
[statements]
End Property

元素

Property Set语句语法具有下列组成部分：

组成部分	描述

public 	指明该Property Set过程在所有模块表内对所有其它过程都是可读写的。 如果用在私有模块表内（包含（Option Private语句的模块表），则该过程在项目(project)外无效。

Private 	指明该Peoperty Set过程仅在被声明的模块内对其它过程是可读写的。

Static 	指明该Peoperty Set过程的局部变量在调用之间被保留。Static 属性不影响在Peoperty Set之外被声明的变量，即使它们用于过程中。

name 	Peoperty Set过程名；遵循标准变量(variable)命名约定。 除名字可能在相同模块中与Property Get或Property Set过程相同外。

arglist	变量表，当其被调用时代表被传送到Peoperty Set过程的参数。多个变量用逗号分隔。最后的参数为赋予表 达式右边属性的值。

statements	要在Peoperty Set过程的结构内被执行的任何语句组。

arglist参数有下列语法和组成部分：

[ByVal | ByRef] varname[( )][As type]

组成部分 	描述

Byval 	指明参数通过传值(by value)传递。

ByRef 	指明参数通过传地址(by reference)传递。

Varname 	代表参数的变量名；遵循标准变量(variable)命名约定。

type 	被传送到过程的参数的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String （仅为变长度），Object，Variant，用户定义类型或对象类型。

附注  每一个Property Set 语句必须为它所定义的过程定义至少一个参数。 当Property Set语句定义的过程引入时， 那个参数 （如果多于一个， 则为最后一个参数）将包含赋给该属性的实际值。

解释

如果没有使用Public或Private明确指定，Property过程被默认为Public。如果不使用Static，则局部变量的值在调用之间不被保留。 所有可执行代码必须在过程procedures内。用户不能在另一Function，Sub或Property 过程中定义一个Peoperty Set过程。Exit Property关键字导致从Peoperty Set过程中立即退出，程序从调用Peoperty Set过程的语句以后的语句继续执行。任何数量的Exit Peoperty语句可以出现在Peoperty Set过程中的任何地方。象Function和Property Get过程一样，Peoperty Set过程是一个单独的过程，它可以带参数，运行一系列语句，改变参数的值。然而与Function和Property Get过程不同的是，两者均返回一个值，Peoperty Set过程仅能用在对象地址赋值(Set语句) 的左侧。


参阅PropertySet 语句
参阅

Function语句

Property Get 语句

Property Let 语句

Sub 语句


Public 语句

参阅	实例

描述

在模块表级module level中声明公共变量，分配存储空间。

语法

Public varname[([subscripts])][As type][,varname[([subscripts])][As type]] . . .

元素

Private语句语法具有下列组成部分：

组成部分 	描述

varname 	变量名；遵循标准变量variable命名约定；

subscripts	数组变量array的维数；可以声明到至多60维。 Subscript参数使用下列语法。

[lower To] upper [,[lower To] upper] . . .

type 	变量数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（对变长度字符串），String*Length（对固定长度字符串），Object，Variant，用户定义类型或对象类型(object type)。 每个被定义的变量使用单独的As类型从句。

解释

用Public语句声明的变量在所有模块表中对所有应用程序内的所有过程均有效。除非Option Private Module 有效。在这种情况下，变量仅在其驻留的项目(project )内为Public。

使用Public 语句声明变量的数据类型或对象类型。例如，下列语句声明变量为整型量：

Public NumberOfEmployees As Integer

如果未指定数据类型或对象类型，而且在模块内没有Deftype语句，则变量 被默认为Variant。

当变量被初始化后，数字变量被初始化为0。变长度字符串被初始化为零长度字符串，固定长度字符串被填满0。Variant变量被初始化为Empty。每个 用户定义类型变量被看作一个单独的变量被初始化。引用对象的变量在其 被使用之前必须用set语句为其分配已存在的对象。声明的对象变量有一个 特定值Nothing，直到它被分配一个对象。它指明没有引用任何特定的对象。 也可以使用带空括号Public语句声明动态数组。 在声明了一个动态数组后，在过程中使用ReDim语句来定义维数及数组内的元素。 如果试图重新声明一个数组变量的维数，而且大小在Drivate，Public或Dim 语句中被明确指定时，则会出现错误。


参阅Public 语句
参阅

Array 函数

Const 语句

Dim 语句

Option Base 语句

Option Private 语句

Private 语句

ReDim 语句

Static 语句

Type 语句


ReDim 语句

参阅	实例

描述

在过程级(procedure level)内声明动态数组(array)变量，分配或重新分配存储空间。

语法

ReDim [Preserve] varname(subscripts) [As type][,varname(subscripts) [As type]] . . .

元素

Public语句语法具有下列组成部分：

组成部分 	描述

Preserve 	当改变最后的维数大小时，在已有的数组内保存数据。

varname  	变量名，遵循标准变量(variable)命名约定。

subscripts 	数组(array)变量。的维数；最多可声明到60维。 Subscript参数使用下列语法：

[lower To] upper [,[lower To] upper] . . .

type 	变量的数据类型：可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（对于变长度字符串），String*Length（对固定长度字符

串），Object，Variant，用户定义类型，或对象类型(object type)， 每个声明的变量使用一个单独的AS类型从句。对于包含数组的Variant，type描述数组的每个元素的类型，但是不能将Variant改变 为一些其它类型。

解释

ReDim语句通常用于调整或重新调整已用带空圆括号Private，Public或Dim 语句（没有维数下标）正式声明的动态数组的大小。

可以重复使用ReDim语句改变数组的维数及元素编号。然而，除非数组包含Variant，不能声明数据类型的数组然后再用ReDim将该数组变为另一个数据类型。

如果该数组包含在Variant内，可以用As类型从句改变元素的类型。如果使用Preserve关键字，可以重新调整最后数组维数的大小，且根本不能改变维数。 例如，如果数组仅有一维，可以重新调整其维数，因为它是最后一个，也是 唯一的维。然而，如果数组含有两维或多维，则可能改变最后一维的大小并 且仍然保留数组的内容，下面实例显示如何增加动态数组的最后一维的大小 而不删除包含在数组内的任何已有数据。

ReDim X(10, 10, 10)

. . .

ReDim Preserve X(10, 10, 15)

注意  如果创建的数组小于它所需的，在被除去元素内的数据将丢失。

当变量被初始化后，数字变量被初始化为0。变长度字符串被初始化为零长度字符串，固定长度字符串被填满0。Variant变量被初始化为Empty。每个用 户定义类型变量被看作一个单独的变量被初始化。引用对象的变量在其被使 用之前必须用set语句为其分配已有的对象。声明的对象变量有一个特定值Nothing，直到它被分配一个对象。它指明没有引用任何特定的对象。

附注  为了重新调整包含在Variant内数组的大小，在试图重新 调整其数组大小之前，必须显式声明Variant变量。


参阅ReDim 语句
参阅

Array 函数

Dim 语句

Private 语句

Public 语句

Option Base 语句

Static 语句


Rem 语句

实例

描述

用在程序中包含解释。

语法1

Rem comment

语法2

' comment

元素

comrnet参数为用户希望包含的任何注释文字。在Rem语句关键字之后，comment前 必须有一个空格。

解释

如果使用行号(line numbers)或行标号(line labels)，可以从GoTo或GoSub语句内分支到包含Rem 语句的行。 从Rem语句后面的第一个可执行语句继续执行。

如语法2所示，可以使用单引号或撇号（'）代替Rem关键字。如果在同一行中Rem关键字后跟其它语句，必须用冒号将它与语句分隔开。然而，当使用 单引号时，在其语句后不需要冒号。


Set 语句

参阅	实例

描述

将对象地址赋给变量或属性。

语法

Set objectvar = {objectexpression | Nothing}

元素

Set语句语法具有下列组成部分：

组成	描述

objectvar 	变量或属性名；遵循标准变量(variable)命名约定。

objectexpression 	包含对象名，另一个同一对象类型的被声明变量， 	或如回同一对象类型(object type)的对象的函数或方法的 	表达式。

nothing Objectvar	与任何指定对象的不连续组合。把Objectver分配给 	Nbvthing将放与以前被调用对象有关的所有资源（当没有其	它变量调用它时）。

解释

为了有效，objectvar必须与被赋给的对象具有一致的对象类型。Dim 、Private、

Public、ReDim和Static语句仅声明调用对象的变量。在用Set语句为一个特定

对象赋值之前没有实际对象被调用。

一般地，当使用Set为调用变量的对象赋值时，不为那个变量创建对象 的副本，而为该对象创建地址。不象一个对象变量可以调用同一对象。 因为这些变量为该对象的地址（而不是该对象的副本）。任何改变将反映 在调用它的所有变量内。


参阅Rem 语句
参阅

Dim 语句

Let 语句

Private 语句

Public 语句

ReDim 语句

Static 语句


Static 语句

参阅	实例

描述

用在过程级内声明变量，分配存储空间，只要代码在运行。用Static语句声明 的变量保留它们的值。

语法

Static varname[([subscripts])][As type][,varname[([subscripts])][As type]] . . .

元素

Static语句语法具有下列组成部分：

部分	描述

varname 	变量名，遵循标准变量(variable)命名约定。

subscripts 	数组(array)变量的维数；最多可声明到60维。 Subscript参数使用下列语法：

[lower To] upper [,[lower To] upper] . . .

type 	变量的数据类型：可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（对于变长度字符串）。String * length（不会固定长度字符串），Object，Variant，用户定义类型，或对象类型(object type)， 每个定义的变量使用一个单独的AS类型从句。

解释

一旦模块表代码在运行，用static语句声明的变量保留它们的值，直到该模块 被重新设置或重新启动。在非静态过程中使用Static语句显式声明Static变量。

在过程中使用Static语句声明Static变量的数据类型。例如，下列语句声明整型数的固定大小数组：

Static EmployeeNumber(200) As Integer

如果不指定数据类型或对象类型，并且在模块表内没有Deftype语句，该变量 被默认为variant。

附注：Static语句和Static关键字对变量的寿命有不同的影响。如果用Static关 键字（如在staticsub caslwit sales ( )）声明一个过程，则该过程中所有局部变量的存储空间被再次分配，变量的值在代码运行的整个时间内被保存。对于非静态过程，变量的存储空间每当该过程被调用时被分配一次，当该过程退出时释放存储空间。Static语句用于在非静态过程中声明变量，只要程序运行时保存它们的值。

    当变量被初始化后，数字变量被初始化为0。变长度字符串被初始化为零长度

字符串，固定长度字符串被填满0。Variant变量被初始化为空。每个用户定义类型变量被看作一个单独的变量被初始化。引用对象的变量在其被使用之前 必须用set语句为其分配一个存在的对象。直到它被分配一个对象之前，被声 明的对象变量具有一个特定值Nothing。它指明没有引用任何特定的对象实例 。

指南   当在过程中使用Static语句时，普遍可以接受的编程经验为将Static语句 放在带Dim语句的过程的开头。


参阅Static 语句
参阅

Array 函数

Dim 语句

Function语句

Option Base 语句

Private 语句

Public 语句

ReDim 语句

Sub 语句


Sub 语句

参阅	实例

描述

声明构成Sub过程体的名字、参数和代码。

Syntax

[Private | Public][Static] Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]
End Sub

Elements

Sub 语句 语法具有这些组成部分：

组成部分	描述

Public 	指明Sub过程对于在所有模块表内的所有其它过程都是 可读写的。如果用在专用模块表内使用（包含Option Private语句的模块表），则该过程在项目(project)外无效。

Private 	指明Sub过程仅对声明的模块内的其它过程是可读写的。

Static 	指明Sub过程的局部变量在调用之间被保存。Static 属性不影响在Sub之外被声明的变量，即使它们用于该过程。

name 	Sub名；按照标准变量variable命名约定。

arglist	变量表，当其被调用时代表被传送到Sub过程的参数。 多个变量用逗号分隔。

statements	在Sub过程体内被执行的任何语句组。

arglist 参数具有下列语法和组成部分：

[[Optional][ByVal | ByRef][ParamArray] varname[( )] As type]

组成部分 	描述

optional 	指明参数不是必选项。如果使用该参数，则arglist内的 所有后续参数必须是可选项并且用Optional关键字声明。所有的Optional参数必须是Variant。如果使用了ParamArray，则Optional不能用于任何参数。

Byval 	指明参数通过传值(by value)传递。

ByRef 	指明参数通过传地址(by reference)传递。

ParamArray 	在arglist内仅用作最后一个参数，用于指明最后一个参数 是Variant元素 的Optional 数组。 ParamArray 关键字允许用户提供参数的任意编号。不能与Byval，ByRef或Optional一起使用。

Varname 	代表参数的变量名；遵循标准变量(variable)命名约定。

type 	被传送到过程的参数的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String（仅对变长度），Object，Variant，用户定义类型或对象类型。

解释

如果没有使用Public或Paivate明确指定，Sub过程被默认为Public。如果不使用Static，则 局部变量的值在调用之间不被保留。所有可执行代码必须在过程(procedures)中。用 户不能在另一Sub Function或Private 过程中定义一个Sub过程。

Exit Sub关键字导致从Sub过程立即退出，程序从调用Sub过程的语句以后的语句继续执行。任何数量Exit Sub语句可以出现在一个Sub过程中的任何地方。

象Function过程一样，Sub过程是一个单独的过程，它可以带参数，运行一系 列语句改变参数的值。然而与Function过程返回值不同的是，Sub 过程不能用在表达式中。

使用参数名后跟参数列表调用Sub过程。参见如何调用Sub过程的Call语句的特定信息。

注意    Sub过程可以是递归过程，即可以自身调用以执行给定的任务。然而，递归 可能导致堆找溢出。Static关键字通常不与递归Sub过程一起使用。

用在Sub过程中的变量分为两类：在过程中被显示声明的及未显示声明的。在过程中被显式声明的变量 （用Dim或等价的）对于该过程总是局部的， 其它被使用的但没有在过程中显式声明的变量也是局部的，除非它们在过程 之外的一些更高级内显式声明。

注意  过程可以使用在过程中没有显式声明的变量，但是如果在模块表级(module level)已经定义的任何东西具有相同的名字则会发生名字冲突。如果过程调用一个未 声明的变量，而该变量与另一个过程常量或变量同名，则假定过程正在调用那个 模块表级名，显式声明变量以避免该冲突。可以使用Option Explicit语句强迫显式声明变量。

附注  不能使用GoSub、GoTo或Return进入或退出Sub过程。


参阅Sub 语句
参阅

Call 语句

Dim 语句

Function语句

Option Explicit 语句

Property Get 语句

Property Let 语句

Property Set 语句

Static 语句


Type 语句

参阅	实例

描述

在模块表级(module level)上以定义包含一个或多个元素的用户定义数据类型(data type)。

语法

[Private | Public] Type varname
  elementname [([subscripts])] As type
[ elementname [([subscripts])] As type]
. . .
End Type

元素

Type语句语法具有下列组成部分

组成部分 	描述

public 	用于声明对于所有项目(projects)在所有模块中的所有过 程均合法的用户 定义类型。

private 	用于声明仅在做了声明的模块表内合法的用户定义类型。

varname	用户定义类型名。遵循标准变量(variable)命名约定。

elementname	用户定义的元素名。除了可以使用保留字外，元素名也 遵循标准变量命名约定。

subscript 	数组元素的维数。当声明大小可以改变的数组时仅用圆括号。

type	元素的数据类型；可以是Boolean， Integer， Long， Currency， Single， Double， Date， String， String * length（对固定长度字符串），Object， Variant，另一用户定义类型或对象类型。

解释

Type语句仅能用在模块表级内，一旦用Type语句声明了一个用户定义类型， 可以在声明范围之内的任何地方声明这种类型的变量。  Dim， Private， Public， ReDim或 Static声明用户定义类型的变量。

行号(Line numbers)和行标号(line labels)在Type...End Type块内不允许用户定义类型常量与数据记录一起使用，数据记录常识是由 数据类型的相关元素的编号所组成。

下面例子显示在用户定义类型内使用固定大小的数组。

Type StateData

CityCode (1 To 100) As Integer ' Declare a static array.

County As String * 30

End Type

Dim Washington(1 To 100) As StateData

在上例中， statedata 包含 Citycode 静态数组， 而记录 Washington 具有与Statedata相同的结构。当在用户定义类型内声明固定大小的数组时， 它的维数必须用数字文字或常量而不是变量声明。

Option Base语句的设置决定了用户定义类型内数组的下界。


参阅Type 语句
参阅

数据类型摘要

Dim 语句

Private 语句

Public 语句

ReDim 语句

Static 语句


UBound 函数

参阅	实例

描述

返回数组(array)指定维数的最大有效下标。

语法

UBound(arrayname[,dimension])

元素

VBound函数语法具有下列组成部分：

组成部分 	描述

arragname 	数组变量名，遵循标准变量(variable)命名约定。

dimension	指明其维的上界被返回的整个数。第一维用1，第二维用2 ，依次类推。如果dimension被省略，则假定为1。

解释

VBound函数与LBownd函数一起使用以确定数组的大小。用LBound函数以查找数组 维数的上界。

VBound函数返回带具有这些维数的数组的列在下表中的值：

Dim A(1 To 100, 0 To 3, -3 To 4)

语句 	返回值

UBound(A, 1)	100

UBound(A, 2)	3

UBound(A, 3)	4


参阅UBound 函数
参阅

Dim 语句

Public 语句

LBound 函数

Option Base 语句

ReDim 语句

Static 语句


ANSI字符集＜定义＞
ANSI 字符集

美国国家标准协会（ANSI）8位字符集，用于Microsoft Windows，它允许用户使用键盘表示多达256个字符（0-255），前128个字符（0-127）与标准美国键盘上的字母和符号相对应。后128个字符（128-255）代表特殊字符，例如国际字母表内的字母、重音、货币符号和分数。


参数＜定义＞
参数

被传送给一个过程的常量，变量或表达式。


数组＜定义＞
数组

一组具有相同内部数据类型的按顺序排列的元素。数组的每一个元素有一个可识别它的 唯一的索引号，改变数组的一个元素不会影响其它元素。


ASCII字符集＜定义＞
ASCII 字符集

用于信息交换的7位字符集的美国标准代码（ASCII）被广泛用于代表标准美国键盘上 的字母和符号，ASCII字符集与ANSI字符集中的前128个字符（0-127）相同。


自动格式化＜定义＞
自动格式化

这是一种特性。当用户输入代码时，它通过大写关键字的第一个字母、调整间距、增加 标点符号及设置前景或背景颜色来自动格式化代码。


逐位比较＜定义＞
逐位比较

逐位比较两个数字表达式的相同位。


布尔表达式＜定义＞
Boolean 表达式

一个运算结果为True或False的表达式。


中断方式＜定义＞
中断方式

在开发环境中程序运行的临时中断。在中断方式中，用户可以检查、调试、重新设置、 单步执行或继续程序的执行。中断方式可用下列方式进入：

设置断点。

在程序执行时按CTRL+BREAK组合键。

程序执行时遇到一个Stop语句或未捕获运行错误。

当监视表达式为真时加一个中断。当监视值改变并且运算结果为真时执行停止。

当改变监视表达式时加一个中断。当监视值改变时执行停止。


断点＜定义＞
断点

被选定的程序行，在此处执行自动停止。断点不用用户代码保存。


传地址＜定义＞
按地址

向一个过程传送一个参数的方法。该方法允许该过程使用实际变量，其结果是变量的实 际值可被接受传送参数的过程所改变。


传值＜定义＞
按值

向一个过程传送参数的方法。该方法允许该过程使用变量的副本，其结果是，该变量的 实际值不能被接受传送参数的过程所改变。


剪贴板 〈定义〉
剪贴板

用于传递文字、图形和代码的临时存储区。


字符代码 〈定义〉
字符代码

在一个集（例如ANSI字符集）中代表一个特殊字符特定的数。


关闭框 〈定义〉
关闭框

在Maciontosh机上，窗口中左上角的小框为关闭框。单击它以关闭该窗口。


集合 〈定义〉
集合

一组对象。不论何时集合内出现变化时，集合内的对象位置可以变化。因此集合内的任 何特定对象的位置是无法预料的，这种无法预料性不同于数组。


注释 〈定义〉
注释

由编程者所加的附加于代码的文字。该文字解释该代码如何工作。每个注释行由一个撇 号（'）或关键字Rem加一个空格开始。


比较运算符〈定义〉
比较运算符

用于表示两个或更多个值或表达式之间关系的字符或符号：

符号	描述

＜	小于

＜＝	小于或等于

＞	大于

＞＝	大于或等于

＜＞	不等于

＝	等于

其他比较运算符有Is和Like。然而要注意，Is和Like在Select Case语句中不能被用作比较运算符。


编译 〈定义〉
编译

源代码被编译成可执行代码的时刻。


常量 〈定义〉
常量

在程序的整个执行过程中保持常量值的命名项。与变量相反，其值在执行时可以改变。 每个应用程序都可以预先定义它自己的一组常量。附加常量可以用Const语句定义。两种类型的常量可以用在用户代码的任何地方代替实际值。一个常量可以是一个字符或数字 串，另一个常量，或除Is之外的数学或逻辑运算符的任何组合。例如：

Const A = "MyString"


控制面板〈定义〉
控制面板

用于控制用户系统配置的程序。使用控制面板实用程序调整硬件和软件选项，例如桌面 颜色、打印机选择、日期和数字格式、字体、国别设置（例如语言和度量系统）。


控制菜单框 〈定义〉
控制菜单框

在Microsoft Windows中，在窗口左上角的用于打开控制菜单的框。

对于应用程序，该菜单显示一些命令，它允许用户恢复、移动、调整大小、最小化、最 大化或关 闭当前应用程序。另外，用户也可以运行或切换至其它基于Microsoft Windows的应用程序。

对于应用程序内的窗口，该菜单显示用于缩放、移动、分隔或关闭该活动窗口的命令。


数据类型 〈定义〉
数据类型

变量的特性，它决定了变量可以拥有何种类型的数据。数据类型包括布尔型、整型、长 整型、货币型、单精度、双精度、日期型、字符串型、对象型、变体（默认值）、用户 定义类型及专用对象类型。

用户定义类型用Type语句来定义的。用户定义的数组及其它数据类型用Dim语句来创建 。任何类型的数组都可置于用户定义类型中。


数据类型范围 〈定义〉
数据类型范围

每种数据类型均具有一个特定的允许值范围：

数据类型	范围

Boolesn	 True或False。

Integer	 -32,768到32,767。

Long 	-2,147,483,648到2,147,483,647。

Single 	对于负值，从-3.402823E28到-1.401298E-45；对于正值，从1.401298E-45到3.402823E38。

Double	对于负值，从-1.7976313486232E308到-4.94065645841247E-324；对于正值，从4.9406565841247E-324到1.79769313486232E308。

Currency	-922,337,203,685,477.5808 到922,337,203,655,477.5807。

Date	 100年1月1日到9999年12月31日。

Object	 任何对象引用。

String 	 字符串长度从0到大约20亿（对于Microsoft Windows 3.1版或更早的版本约为65,535）

Variant	 任何数值，最大达到Double范围或任何字符文字。

用户定义的类型元素	每个元素的范围同它的数据类型范围。


日期表达式 〈定义〉
日期表达式

可被翻译成日期的任何表达式。它包括日期文字、象日期的数，看起来像日期的字符 串，以及从函数返回的日期的任意组合。日期表达式限于数字或字符串的任意组合，它 能够表示从100年1月1日到9999年12月31日的日期。

日期被当作实数部分贮存，小数左边的值表示日期；小数右边的值表示时间。负数表示1899年12月30日以前的日期


日期文字〈定义〉
日期文字

在数字符号（#）中间的具有有效格式的任意顺序的字符串，有效格式包括根据不同的地区 ，设置为用户代码指定的日期格式或通用日期格式。

例如，#21／31／92是日期文字，它表示１９９２年１２月３１日。这是为用户应用程序 设置的地区为English-U.S.的时间。使用日期文字以最大可能越过各国

语言。


日期分隔符 〈定义〉
日期分隔符

当日期值被格式化后用于将年、月、日隔开的符号，该符号决定于系统设置或Format函 数。


日期和时间 〈定义〉
日期和时间

日期和时间在内部当作一个实数的不同部分被存储。

小数的左边值表示从100年1月1日到9999年12月31日之间的所有日期，负 值表示1899年12月30前的日期。

小数的右边值表示从0:00:00到23:59:59之间的所有时间，中午用.5表示


声明 〈定义〉
声明

声明指定与数据和过程标识符有关的类型。用于常量和变量的声明语句为Const、Dim、Public、ReDim、Static。如果没有被变量声明语句明确声明的变量将被隐含声明，除非Option Explicit语句出现在模块表级上，Type…End Type语句用于声明用户定义型变量的结构，Sub、Function、Property和Declare（及参数属性Public和Private）用于声明过程。

声明可以用As语句指定类型，或在一些情况下，为名字附加一个类型声明符。未指定 类型 的变量将被指定为当前默认类型（默认类型为Variant）。声明允许Visual Basic为变量和函数返回值分配适当容量的内存，它们还允许检查以确信传给过程的参数 是希望的类型和数据。


动态链接库 (DLL) 〈定义〉
动态链接库（DLL）

在运行时链接和装入应用程序的例程库，DLL由其它编程语言（如C, MASM或Fortran）创建。


空 〈定义〉
Empty

表示变量未被初始化的一个值，即没有指定初值。Empty变量等于0（在数字文字中）、 零长度（在字符串文字中）或VarType 0。


错误编号〈定义〉
错误编号

从0到65,535的所有数，表示一个特定的错误信息。


表达式 〈定义〉
表达式

关键字、运算符、变量和常量的组合。它产生一个字符串、数字或对象。一个表达式可 以进行 计算，处理字符或测试数据。


文件号〈定义〉
文件号

用在Open语句中打开一个文件。不能被其它应用程序使用的文件，其编号从 1到255；可以被其它应用程序使用的文件，其编号从256到511。


主应用程序 〈定义〉
宿主应用程序

支持Visual Basic、Applications 燛dition

使用的任何应用程序。例如，Microsoft Excel、Microsoft Project等等。


插入点〈定义〉
插入点

当用户键入时文字被插入的地方。通常由一个文字光标或选定区域指定。


关键字 〈定义〉
关键字

能够被识别为程序设计语言的一部分的字或符号。例如，一个语句、函数名或运算符。 有两类关键字：

类型	描述

Restricted	不能被用于命名过程的关键字

Unrestricted	不被限制地使用的关键字。许多不被限制的关键字为程序或应用程序 提供的函数、方法、属性及编译器不识别的语句名，它允许用户用相 同的名字定义用户自己的过程，例如，如果用户创建一个FileCopy过程 并且从应用程序内调用它，则使用FielCopy的用户版本，而不是系统提 供的FileCopy语句


行标号 〈定义〉
行标号

行标记用于指定代码的一行。它可以是字符的任何组合，以一个字母开始以一个冒号结 束。每个行标记在其被使用的模块表内必须是唯一的。行标记与大小写无关，并且可 以在任意列开始，只要它们是该行上的第一个非空白符。


行号 〈定义〉
行号

行号用于指定代码的一行。该号可以是数字的任意组合，在被使用的模块表 内是唯一的。只要行号是第一个非空白符，它可以从任意列开始。

注意	大于65,529的行号被当作行标号，并且不能被Erl函数返回。


续行符 〈定义〉
续行符

一个空格后跟一个下划线（_）的组合。用在开发环境中将代码的一个逻辑行延伸至两个或更多的物理行。注意，续行符不能用在字符串表达式中延伸代码的一行。


地区 〈定义〉
地区

与给定的语言和国家相对应的一套信息。一个地区描述预先定义了的程序术语语言及特 定的地区设置为十进制和列表分隔符、日期格式、字符种类次序，在两种上下文中， 地区信息是很重要的：

代码地区影响关键字的语言及什么小数分隔符是恰当的。通过在[工具]菜单中 选择[选项]来设置代码地区。

系统地区影响地区知道的函数性工作方式。例如，当用户显示数字或将字符串转换为日期时就要用到系统地区。用户可以使用操作系统提供的控制面板工具设置系统地 区。 在绝大多数普通情况下，系统地区和代码地区是一致的。


逻辑错误〈定义〉
逻辑错误

引起代码产生错误的结果或暂停执行的程序错误。例如，错误可以由不正确的变量名、 错误的变量类型、死循环、逻辑比较中的缺陷或数组问题引起。


成员 〈定义〉
成员

集合、对象或用户定义类型的组成元素。


方法 〈定义〉
方法

应用于一个特定对象的过程。


模块表 〈定义〉
模块表

声明和过程的集合。


模块表级 〈定义〉
模块表级

模块表的声明区域。任何过程之外的代码都被看作模块表级代码。必须首先列出 声明，后跟过程。例如：

Dim X as Integer	' This is a module-level declaration.

Const RO = "ReadOnly"	' This is a module-level declaration.

Type MyType	' This is a module-level declaration.

MyString As String

MyAge As Integer

End Type

Sub MySub()	' This statement declares a sub procedure block.

Dim A	' This statement starts the procedure block.

A = "My variable"	' Procedure-level code.

Debug.Print A	' Procedure-level code.

End Sub	' This statement ends a sub procedure block.


模块表变量 〈定义〉
模块表变量

在Function、Sub或Property过程代码之外被声明的变量。模块表变量必须在模块表中在 任何过程之前被声明。


命名参数〈定义〉
命名参数

具有已预先定义了名字的参数。与语法要求必须按次序为参数赋值不同，用户可以使用 命名参数以任何次序赋值给所需要的参数（如果它们是可选项）。例如，假定一 个方法接收三个参数：

DoSomeThing namedarg1， namedarg2， namedarg3

为了向命名参数赋值，用户可以使用下列语句：

DoSomeThing namedarg3:=4,namedarg2:=5

注意，参数不必处于它们通常的位置次序。


Null 〈定义〉
Null

表示一个变量没有有效数据的值。Null是下列情况的结果：

将变量显式赋值为Null。

包含Null的表达式之间的任何运算。


数值表达式 〈定义〉
数字表达式

可被赋值为数的任何表达式。表达式的元素可以是关键字、变量、常量

和运算符的任意组合，其最终结果为一个数。


数值类型 〈定义〉
数字类型

任何内部数字数据类型

（Boolean，Integer，Long，Currency，Single，Double或Date）或任何变体数字

子类型（Empty，Integer，Long，Single，Double，Currency，Date，Error或

Boolean）


对象表达式〈定义〉
对象表达式

指定一个特定对象的表达式。该表达式可以包括任何该对象的容器。 例如，若用户的应用程序含有一个包含Docoment对象的Application对象， 而Document对象又包含一个Text对象，则下列对象表达式均有效。

Application.Document.Text

Application.Text

Document.Text

Text


对象类型 〈定义〉
对象类型

通过自动OLE由应用程序陈述的对象类型。例如，应用程序、文件、取值范围和表。 建议查阅应 用程序的文档（Microsoft 牋燛xcel， 牋牋Microsoft Project， Microsoft Word等等）以找到已有对象的完整列表。


变元〈定义〉
变元

变量名，由它指明一个过程中的过程参数。该变量接收被传送进过程内的参数，它 的使用范围在过程的End语句处结束。


路径 〈定义〉
路径

指定一个目录或文件夹位置的字符串表达式。可以包含驱动器标识符。例如，在Microsoft Windows中：

C:\MAIN\SUBDIR\MYSUBDIR

在Macintosh机上

MY HARDDRIVE:MY FOLDER OF STUFF


路径名〈定义〉
路径名

指定在一个特定目录或文件夹内的文件的字符串表达式。若没有特别声明， 则路径名可以包含一个驱动器标识符，例如，在Microsoft Windows中：

C:\MAIN\SUBDIR\MYSUBDIR\MYFILE.TXT

在Macintosh机上：

MY HARDDRIVE:MY FOLDER OF STUFF:MY FILE


pi 〈定义〉
pi

Pi为一个数学常量，大约等于 3.1415926535897932。


打印区域 〈定义〉
打印区域

打印区域每隔14列开始，每列的宽度是所有字符宽度的平均值，字符宽度用所选字体的 点的大小表示


过程 〈定义〉
过程

一个被命名的代码语句序列，当作一个单元执行。例如，Function、Property和Sub均为过程类 型。


过程级 〈定义〉
过程级

置于Function，Property或Sub过程内的语句。通常声明被首先列出，后跟赋值或其它可 执行代码。例如：

Sub MySub()

Dim A	' This statement is a declaration.

A = "My variable"	' This statement is an assignment.

Debug.Print A	' This statement is executable.

End Sub

附注  与之相对照，模块表级驻留在任何Sub...End Sub块之外。


项目〈定义〉
项目

模块表的集合。


属性 〈定义〉
属性

一个对象的命名特性。属性定义对象的特点（如大小、颜色、屏幕位置，或对象行为 （例如，它是否可用）。


被调用项目〈定义〉
引用项目

用户正工作于其中的项目被称为当前项目。用户可以在当前项目与其它项目进行链接。 这么做时，被链接的项目称为直接被调用项目。而当前项目称为直接调用项目。如何 链接项目决定于宿主应用程序。例如，在Excel中可以从[工具]菜单的调用对话中选择项 目以调用它。在一个直接调用项目内的Public 符号对于直接调用项目是可见的。但反过来不行（在一个直接调用项目内的Public 符号为一个直接被调用项目是不可见的）。

被当前项目的直接被调用项目之一调用的项目称为间接被调用项目。除了必须有自己 的项目名的限制之外，Public符号对于当前项目是不可读写的。只要不导致死循环， 项目之间的直接或间接调用的任意组合都是有效的。例如，如果Project A调用Project B，那么Poject A和Project B都可以调用Project C，但Project B和Project C都不能调用Project A，因为那样将导致循环调用。


运行 〈定义〉
运行

代码运行。在运行中，可以按用户的希望与代码相互作用。


运行错误 〈定义〉
运行错误

代码运行出现的错误。当一个语句试图进行一次非法运算时将导致一个运行错误。


范围 〈定义〉
范围

定义一个变量、过程或对象的可读写性及使用期限。例如，一个被声明为Public的变量对于在所有应用程序中的所有模块表的所有过程均有效（除非Option Private Module正起作用）。


种子 〈定义〉
种子

用于产生伪随机数的一个初始值。例如，Randomize语句通过Rnd函数产生一个种子数， 由此产生独一无二的伪随机数序列。


排序次序〈定义〉
排序次序

用于对数据进行排序的排序原则：例如，字母、数字、递增、递减等等。


分割条〈定义〉
分割条

将一个窗口分为两个独立区域的窄条。在模块表中，分隔条将代码窗格分为两个单独 的代码分割区域，在调试窗口中，分隔条在即时分割区域或监视分割区域与代码分割 区域之间划为窗口。


语句〈定义〉
语句

用于描述一种作用、声明或定义的语法上完整的单元。通常一条语句占用一行。可以用 冒号（：）将多个语句放在一行上，也可以用一空格加下划线（_）序列将一个逻辑行续到第二个物理行。


字符串比较 〈定义〉
字符串比较

两个字符序列的比较。比较可以是二进制或文字。若用英语，二进制比较与大小写无关 。而文字比较与大小写有关。


字符串常量〈定义〉
字符串常量

用Const关键字定义的任何常量，它是一个连续字符的序列，被转换成字符本身而不是数值。例如：

Const A="MyString"


字符串表达式 〈定义〉
字符串表达式

被赋值为一个连续字符序列的任何表达式。表达式的元素可以包括函数，该函数返回一 个字符串、字符串文字、字符串常量、字符串变量、字符串Variant，或能返回字符串Variant（VarType 8）的函数。


字符串文字 〈定义〉
字符串文字

被引号括起来的包含一个连续字符序列的任何表达式。它被逐字解释为引号内的字符。 例如 ：

"MyString"


字符串类型 〈定义〉
字符串类型

一种数据类型，它的数据包含一个相邻字符序列，它代表实际字符本身而不是一个数值 。字符串可以包括字母、数字、空格及标点符号。


语法检查 〈定义〉
语法检查

一种特性，检查用户代码用于校正语法。如果语法检查被打开，用户输入的代码含有语 法错误时将显示一条消息。


语法错误 〈定义〉
语法错误

当系统不理解刚被输入的代码行时出现的错误信息。

附注  每个关键字的语法规则在与帮助主题相关的语法区内定义，为了从开发环境内得 到某一关键字的帮助信息，选择该关键字然后按F1。


时间表达式 〈定义〉
时间表达式

可被翻译成一个时间的任何表达式。它包含时间文字、象时间的数、象时间的字符串的 任意组合及从函数返回的时间。

时间被存储为实数的一部分，小数右边的值表示时间。中午（12:00 P.M. ）表示为.5。


标题栏 〈定义〉
标题栏

窗口顶部的区域，用于显示窗口的主题或名字。


类型声明符 〈定义〉
类型声明符

附加于变量名的字符，用于指明变量的数据类型。若用默认值，除非一个相应的Deftype语 句出现在模块表中，否则变量为Variant类型。

字符	数据类型

none	 Boolean

%	 Integer

&	 Long

! 	 Single

#	 Double

none 	 Date

@	 Currency

$	 String

none	 Object

none	 Variant


通用日期格式〈定义〉
通用日期格式

通用日期格式为#yyyy－mm－dd hh:mm:ss#，然而，日期元素（#yyyy－mm－dd#）和时间元素（#hh:mm:ss#）可被分别表示。


用户定义类型 〈定义〉
用户定义类型

用Type语句定义的任何数据类型。用户定义类型可以包含任何数据类型的一个或更多个 元素。用户定义的数组和其它数据类型用Dim语句创建，任何类型的数组可被包含在用 户定义类型之内。


变量 〈定义〉
变量

一个命名的存储区，在程序执行中它是可被改变的一种数据类型。每个变量有一个独 一无二的名字以在它的范围级内可被识别，变量名必须以一个字母开始，不能包含嵌入 句号或类型声明符，而且在相同的范围必须是唯一的。


变量名 〈定义〉
变量名

变量名：

必须以字母开始。

不能包含嵌入句号或类型声明符。

在相同的范围内必须是唯一的。

长度必须不超过255个字符。


VarType 〈定义〉
VarType

VarType函数返回一个值，它提供变量内的数据类型的信息。

返回值	等价常数	变量描述

0	vbEmpty	未初始化

1	vbNull	含非有效数据

2	vbInteger	整型

3	vbLong	长整型

4	vbSingle	单精度浮点数

5	vbDouble	双精度浮点数

6	vbCurrency	货币型

7	vbDate	日期

8	vbString	字符串

9	vbObject	自动OLE对象

10	vbError	错误

11	vbBoolean	布尔型

12	vbVariant	变量（仅用于变量数组）

13	vbDataObject	非自动OLE对象

8192	vbArray	数组

附注  与任何其它常量结合的vbArray表示那种变量类型的数组。


等待方式 〈定义〉
等待方式

程序没有在运行，变量尚未重新设置之时。在等待方式中，用户可以检验、调试或重新 设置执行。


监视表达式 〈定义〉
监视表达式

用户定义的表达式，允许用户监视一个变量或表达式的状态。例如，如果a和b是两个变 量，下列表达式为有效的监视表达式：

a

a*b

3*a = b-2

监视表达式出现在调试窗口的监视分割区域中，当输入中断方式后自动更新。监视分割 区域 显示一个给定上下文内表达式的。监视表达式不能用用户代码保存。


 Array 函数实例

该实例用Array函数返回一包含数组的Variant。

MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")

' Return values assume lower bound equals 1 (using Option Base).

MyDay = MyWeek(2)	' Returns "Tue".

MyDay = MyWeek(4)	' Returns "Thu".


 Const 语句实例

该实例用Const语句声明常量用于取代文字值。

' Constants are Private by default.

Const MyVar = 459

' Declare Public constant.

Public Const MyString = "HELP"

' Declare Private Integer constant.

Private Const MyInt As Integer = 5

' Declare multiple constants on same line.

Const MyStr = "Hello", MyDouble As Double = 3.4567


 Declare 语句实例

该实例显示Declare语句如何在模块表级使用以声明在动态链接库(DLL)或Macintosh 码源中引用外部过程。

' In Microsoft Windows.

Declare Sub MessageBeep Lib "User" (ByVal N As Integer)

' On the Macintosh.

Declare Sub MessageAlert Lib "MyHd:MyAlert" Alias "MyAlert" (ByVal N _

As Integer)


Deftype 语句实例

该实例显示Deftype语句的各种应用以设置其名字从指定字符开始的变量和函数过程的

默认数据类型。只能使用Dim语句的明确赋值覆盖默认数据类型。Deftype语句只能用 于模块表级。

' Variable names beginning with A through K default to Integer.

DefInt A-K

' Variable names beginning with L through Z default to String.

DefStr L-Z

CalcVar = 4	' Initialize Integer.

StringVar = "Hello there"	' Initialize String.

AnyVar = "Hello" 	' Causes "Type mismatch" error.

Dim Calc As Double	' Explicitly set the type to Double.

Calc = 2.3455	' Assign a Double.

' Deftype statements also apply to function procedures.

CalcNum = ATestFunction(4)	' Call user-defined function.

' ATestFunction function procedure definition.

Function ATestFunction(INumber)

ATestFunction = INumber * 2	' Return value is an integer.

End Function


 Dim 语句实例

该实例显示Dim语句声明变量的各种应用。Dim语句仅用于声明数组，默认数组下标为0 且可在模块表级用Option Base语句覆盖。

' AnyValue and MyValue are declared as Variant by default with values

' set to Empty.

Dim AnyValue, MyValue

'  Explicitly declare a variable of type Integer.

Dim Number As Integer

' Multiple declarations on a single line. AnotherVar is of type Variant

' since its type is omitted.

Dim AnotherVar, Choice As Boolean, BirthDate As Date

' DayArray is an array of Variants with 51 elements indexed,

' starting at 0 thru 50, assuming Option Base is set to 0 (default) for

' the current module.

Dim DayArray(50)

' Matrix is a two-dimensional array of integers.

Dim Matrix(3,4) As Integer

' MyMatrix is a three-dimensional array of doubles with explicit

' bounds.

Dim MyMatrix(1 To 5,  4 To 9,  3 To 5) As Double

' BirthDay is an array of dates with indexes from 1 to 10.

Dim BirthDay(1 To 10) As Date

' MyArray is a dynamic array.

Dim MyArray()


 Erase 语句实例

该实例用Erase语句重新初始化固定大小的数组元素和分配动态数组存储空间。

' Declare array variables.

Dim NumArray(10) As Integer	' Integer array.

Dim StrVarArray(10) As String	' Variable-string array.

Dim StrFixArray(10) As String * 10	' Fixed-string array.

Dim VarArray(10) As Variant	' Variant array.

Dim DynamicArray() As Integer	' Dynamic array.

ReDim DynamicArray(10)	' Allocate storage space.

Erase NumArray	' Each element set to 0.

Erase StrVarArray	' Each element set to "".

Erase StrFixArray	' Each element set to 0.

Erase VarArray	' Each element set to Empty.

Erase DynamicArray	' Free memory used by array.


 Function 语句实例

该实例用Function语句声明构成Function过程体的名字、参数和代码。

' The following user-defined function returns the square root of the

' argument passed to it.

Function CalculateSquareRoot(NumberArg As Double) As Double

If NumberArg < 0 Then	' Evaluate argument.

Exit Function	' Exit to calling procedure.

Else

CalculateSquareRoot = Sqr(NumberArg)	' Return square root.

EndIf

End Function

' Using the ParamArray keyword enables a function to accept a variable

' number of arguments. In the following definition, FirstArg is passed

' by value.

Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())

' If the function is invoked as...

ReturnValue = CalcSum(4,3,2,1)

' Local variables get the following values: FirstArg=4, OtherArgs(1)=3,

' OtherArgs(2) = 2 and so on, assuming default lower bound for

' arrays = 1.

' If a function's arguments are defined as...

Function MyFunc(MyStr As String, Optional MyArg1, Optional MyArg2)

' It can be invoked in the following ways.

RetVal = MyFunc("Hello", 2, "World")	' All 3 arguments supplied.

RetVal = MyFunc("Test", , 5)	' Second argument omitted.

RetVal = MyFunc("Test")	' First argument only.


 LBound 函数实例

该实例使用LBound函数确定指定数组维数最小可用下标。用Option Base语句覆盖默认基本数组下标值0。

Dim MyArray(1 To 10, 5 To 15, 10 To 20) 	' Declare array variables.

Dim AnyArray(10)

Lower = LBound(MyArray, 1) 	' Returns 1.

Lower = LBound(MyArray, 3)	' Returns 10.

Lower = LBound(AnyArray)	' Returns 0 or 1, depending on

' setting of Option Base.


 Let 语句实例

该实例用带和不带Let语句的语句赋表达式的值给变量。

' The following variable assignments use the Let statement.

Let MyStr = "Hello World"

Let MyInt = 5

' The following are the same assignments without the Let statement.

MyStr = "Hello World"

MyInt = 5


 Option Base 语句实例

该实例用Option Base语句覆盖基本数组下标值0。LBound函数对指定一数组的维数返回最小可用下标。Option Base语句只在模块表级使用。

' Set default array subscripts to 1.

Option Base 1

Dim MyArray(20), TwoDArray(3,4)	' Declare array variables.

Dim ZeroArray(0 To 5)	' Override default base subscript.

' Use LBound function to test lower bounds of arrays.

Lower = LBound(MyArray)	' Returns 1.

Lower = LBound(TwoDArray, 2)	' Returns 1.

Lower = LBound(ZeroArray)	' Returns 0.


 Option Compare 语句实例

该实例用Option Compare语句设置默认字符串比较方式。Option Compare语句仅用于模块表级。

' Set the string comparison method to Binary.

Option Compare Binary 	' i.e. "AAA" less than "aaa"

' Set the string comparison method to Text.

Option Compare Text	' i.e. "AAA" equal to "aaa".


 Option Explicit 语句实例

该实例用Option Explicit语句使用户明确声明所有的变量。在编译时试图使用未声明的变量将出错。Option Explicit语句仅用于模块表级。

Option Explicit	' Force explicit variable declaration.

Dim MyVar	' Declare variable.

MyInt = 10	' Undeclared variable generates error.

MyVar = 10	' Will not generate error.


 Option Private 语句实例

Option Private语句在模块表级上使用以指明整个模块表为私有的。

Option Private Module	' Indicate that module is private.


 Private 语句实例

Private语句在模块表级应用声明变量为私有的；即它们仅用于声明其的模块表。

Private Number As Integer	' Private integer variable.

Private NameArray(1 To 5) As String	' Private array variable.

Private MyVar, YourVar, ThisVar As Integer	' Multiple declarations.


 Property Get 语句实例

Get语句定义获取标识图形包中笔的当前颜色的属性值的属性过程，用字符串方式。

Dim CurrentColor As Integer

Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3

' Returns the current color of the pen as a string

Property Get PenColor() As String

Select Case CurrentColor

Case RED

PenColor = "Red"

Case GREEN

PenColor = "Green"

Case BLUE

PenColor = "Blue"

End Select

End Property

' The following line gets the color of the pen

' calling the Property Get procedure.

ColorName = PenColor()


 Property Let 语句实例

该实例使用Property Let语句定义赋值给标识图形包笔的颜色的属性的过程。

Dim CurrentColor As Integer

Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3

' Sets the pen color property for a Drawing package.

' The module level variable 'CurrentColor' is set to

' a numeric value that identifies the color used for drawing.

Property Let PenColor(ColorName as String)

Select Case ColorName	' Check color name string.

Case "Red"

CurrentColor = RED	' Assign value for Red.

Case "Green"

CurrentColor = GREEN	' Assign value for Green.

Case "Blue"

CurrentColor = BLUE	' Assign value for Blue.

Case Else

CurrentColor = BLACK	' Assign default value.

End Select

End Property

' The following line sets the PenColor property for a drawing package

' by calling the Property Let procedure.

PenColor() = "Red"


 Property Set 语句实例

该实例使用Property Set语句声明设置对象引用的属性过程。

' The Pen property may be set to different Pen implementations.

Property Set Pen(P As Object)

Set CurrentPen = P	' Assign Pen to object.

End Property


 Public 语句实例

Public语句用在模块表级声明变量为公有的；即，它们用于所有应用程序中的所有模 块表中的所有过程，除非Option Private Module有效。

Public Number As Integer	' Public integer variable.

Public NameArray(1 To 5) As String	' Public array variable.

Public MyVar, YourVar, ThisVar As Integer	' Multiple declarations.


 ReDim 语句实例

该实例使用ReDim语句声明动态数组变量，然后分配和重分配存储空间。

Dim MyArray() As Integer	' Declare dynamic array.

ReDim MyArray(5)	' Allocate 5 elements.

For I = 1 To 5	' Loop 5 times.

MyArray(I) = I	' Initialize array.

Next I

' The next statement resizes the array and erases the elements.

ReDim MyArray(10)	' Resize to 10 elements.

For I = 1 To 10	' Loop 10 times.

MyArray(I) = I	' Initialize array.

Next I

' The next statement resizes the array but does not erase elements.

ReDim Preserve MyArray(15)	' Resize to 15 elements.


 Rem 语句实例

该实例说明Rem语句各种形式，用来在程序中包含解释。

Rem This is the first form of the syntax.

' This is the second form of the syntax.

MyStr1 = "Hello" : Rem Comment after a statement separated by a colon.

MyStr2 = "Goodbye" 	' This is also a comment.


 Set 语句实例

该实例使用Set语句给变量指定对象引用。

Set MyObject = YourObject	' Assign object reference.

' MyObject and YourObject refer to the same object.

YourObject.Text = "Hello World"	' Initialize property.

MyStr = MyObject.Text	' Returns "Hello World".

' Discontinue association. MyObject no longer refers to YourObject.

Set MyObject = Nothing


 Static 语句实例

该实例用Static语句保留变量值，只要模块表代码在运行。

' Function definition.

Function KeepTotal(Number)

' Only the variable Accumulate preserves its value between calls.

Static Accumulate

Accumulate = Accumulate + Number

KeepTotal = Accumulate

End Function

' Static function definition.

Static Function MyFunction(Arg1, Arg2, Arg3)

' All local variables preserve value between function calls.

Accumulate = Arg1 + Arg2 + Arg3

Half = Accumulate / 2

MyFunction = Half

End Function


 Sub 语句实例

该实例使用Sub语句声明构成Sub过程体的名字、参数和代码。

' Sub procedure definition.

Sub SubComputeArea(Length, Width)	' Sub with two arguments.

Dim Area As Double	' Declare local variable.

If Length = 0 Or Width = 0 Then	' If either argument = 0.

Exit Sub	' Exit Sub immediately.

End If

Area = Length * Width	' Calculate area of rectangle.

Debug.Print Area	' Print Area to Debug window.

End Sub


 Type 语句实例

该实例使用Type语句定义用户定义的数据类型。Type语句仅用于模块表级。

Type EmployeeRecord	' Create user-defined type.

ID As Integer	' Define elements of type.

Name As String * 20

Address As String * 30

Phone As Long

HireDate As Date

End Type

Dim MyRecord As EmployeeRecord	' Declare variable.

MyRecord.ID = 12003	' Assign a value to an element.


 UBound 函数实例

该实例使用UBound函数确定数组指定维数的最大可用下标。

Dim MyArray(1 To 10, 5 To 15, 10 To 20)	' Declare array variables.

Dim AnyArray(10)

Upper = UBound(MyArray, 1)	' Returns 10.

Upper = UBound(MyArray, 3)	' Returns 20.

Upper = UBound(AnyArray)	' Returns 10.


检测到二义的名字

参阅

标识符与另一个标识符冲突或需要限定。在一个相同范围内多于一个对象可能有相同名 字的元素，必须限定包括对象名和句点在内的元素名。例如：

object.property

在过程中（虽然重新使用使程序更难维护和调试），但还是可能重新使用模块表 级标识符和项目(project)级标识符（模块表名和引用项目名）。可是，如果用户要在 相同过程中引用两项，则必须限定有更宽范围的项。例如，如果在MyModule 模块表级module level声明MYID，然后在该模块表中用相同名字声明过程级变量，则必须恰当地限定 对模块表级变量的引用。

Dim MyID As String

Sub MySub

MyModule.MyID = "This is module-level variable"

Dim MyID As String

MyID = "This is the procedure-level variable"

Debug.Print MyID

Debug.Print MyModule.MyID

End Sub

在模块表级声明的标识符可能与过程名冲突。例如，如果在模块表级声明了变量 MyID，然后用相同名字又定义了一个过程，则会出现该错误：

Public MyID

Sub MyID

. . .

End Sub

在这种情况下，用户需要改变其中的一个名，因为用共同模块表名的修改将不会 解决多义性问题。注意，过程名默认为Public，而变量名是Private，除非指定为Public。


参阅检测到二义的名字
参阅

Public 语句

Private 语句


AppleScript 错误

参阅

在手写体处理期间出现的错误。错误可能与目标应用程序或AppleScript有关。


参阅AppleScript 错误
参阅

MacScript 语句


可能没有命名ParamArray中的参数

参阅

ParamArray的参数必须是可定位的，为了仅提供ParamArray的某些元素，用户能用逗 号作为代表用户要忽略的元素的保留区。例如，在下列调用中，如果ParamArray参数 从Arg2以后开始，要传的值仅是ParamArray中的第一、第三、第六个值。

MySub Arg1, Arg2, 7,, 44,,,3

同样注意到ParamArray总是表示参数列表中的最后几项。


参阅可能没有命名ParamArray中的参数
参阅

ParamArray


参数不是可选项（错误449）

参阅

参数个数和类型必须与所预期的匹配。例如Left函数需要两个参数，第一个表示要对 其进行操作的字符串，第二个表示从串的左边要返回的字符数。因为两个参数都不 是可选项 ，所以两者必须都提供。

对于用户定义的过程，如果在过程声明中，声明一个参数是Optional，则调用仅能忽 略那个参数。


参阅参数不是可选项
参阅

Left 函数

Optional


Property Let或Property Set需要参数
Property Let或Property Set需要的参数

参阅

Property Let和Property Set过程的目的是把一个新值给属性。必须通过最后的参数传递这个值。定义这样的 过程时，用户必须包括接收这种参数的实参。


参阅Property Let或Property Set需要参数
参阅

Property Let 语句

Property Set 语句


数组已经定义维数

参阅

可能由下列原因引起：

用户试图用ReDim语句改变静态数组的维数， [image] 仅能重新定义动态数组维数。

数组维数设置后，出现Option Base语句。

为了定义动态数组，请用带空括号的Dim、Public、Private或Static语句。例如：

Dim MyArray()

在过程中，用户能用带元素个数的变量的ReDim语句定义动态数组：

ReDim MyArray(n)


参阅数组已经定义维数
参阅

Dim 语句

Option Base 语句

Private 语句

Public 语句

ReDim 语句

Static 语句


数组参数必须是ByRef

参阅

数组的单个元素可由ByVal（传值by value）传递，而整个数组必须由ByRef（传地址by reference）。注意，ByRef是默认的。


参阅数组参数必须是ByRef
参阅

ByRef

ByVal


错误的DLL调用约定（错误49）

用户程序正在调用动态连接库（DLL）中的例程，它或者传错了类型或参数个数， 或者没有使用Pascal调用约定。确保传给DLL例程的参数准确地与例程所期望的参数 相匹 配。如果DLL期望传值参数，则确保在例程声明中对这些参数指定是ByVal。


错误的文件方式（错误54）

参阅

可能由下列原因引起：

Put或Get语句正在指定顺序文件。注意，Put和Get仅能引用Random存取方式打开的文件。

用Print #语句而不是用Output或Append语句指定存取方式打开的文件。

用Input #语句而不是Input语句指定存取方式的文件。

试图对只读文件进行写操作。


参阅错误的文件方式
参阅

Get 语句

Input # 语句

Open 语句

Print # 语句

Put 语句


错误的文件名或编号（错误52）

参阅

语句用文件编号或文件名引用文件，即：

非法的名字或号码。

在Open语句中没有指定。

在Open语句中指定了，但又关闭了。

文件编号超出了范围（1-511）。

在Microsoft Windows中，使用下列约定命名文件和目录：

文件或目录名可有两部分：一个名字和一个可选的扩展

名。两部分用句点分开，例如：

MYFILE.NEW

名字能含有多达8个字符，扩展名能含有多达3个字符。

名字必须由字母或数字开头。它能含有除下列字符外的任

何大小写字符（文件名不区分大小写）：

   字符   	描述

 .	句号。

"	引号。

'	单引号（省略号）。

+	 加号。

/	 斜杠。

\	 反斜杠。

[ ]	 方括号。

:	 冒号。

;	 分号。

|	 竖条。

=	 等号。

,	 逗号。

名字不能含任何空格。下列名字是保留字，不能用于文件或目录：

CON，AUX，COM1，COM2，COM3，COM4，LPT1，LPT2，LPT3，PRN和NUL。例如， 如果用户在Open语句中试图命名文件为PRN，隐含的打印机将简单地成为Print#， 语句的目的地，并且Write#指向在Open语句中指定的文件号。

下面是合法的Microsoft Windows文件名实例：

LETTER.DOC

MEMO.TXT

BUDGET.92

12345678.901

2NDTRY.RPT

在Macintosh上除（：）外，文件名可有任何字符且可能含有空格，在任何文件名中不允 许含有空字符（Chr（0））。


参阅错误的文件名或编号
参阅

Open 语句

Chr 函数


错误的记录长度（错误59）
错误的记录长度（错误63）

参阅

Get或Put语句中记录变量长度不能与相应的Open语句中指定的长度匹配。因为Put到随机 存取文件时总是要加上两字节描述符给变长度字符串，所以变长度字符串必须至少比Open语句的Len从句指定的记录长度短两字节。

Variant数据类型同样需要两字节描述符。含有变长串的变体型需要4字节描述符。因而， 对于Variant中的变长度字符串，其串的长度必须至少比Len从句指定的记录长度短4字 节。


参阅错误的记录长度
参阅

Get 语句

Put 语句

Open 语句

Variant 数据类型


错误的记录编号（错误63）
错误的记录号（错误63）

参阅

在Get或Put语句中的记录号小于或等于零。


参阅错误的记录编号
参阅

Get 语句

Put 语句


已经达到搜索范围的开始端;要继续从结束端开始吗？
已经达到搜索范围的开始端；要继续从结束端开始吗？

向上搜索已经达到指定范围的开始端。用户能选择继续从搜索范围结束端开始， 或取消并改变搜索范围。


IF块没有End If

参阅

If语句没有用相应的End If语句。对于嵌套If…End �If语句，确保在外层If…End If结构内有If…End If结构正确地匹配。


参阅IF块没有End If
参阅

If...Then...Else 语句


在这个行不允许断点
在该行不允许断点

参阅

某些行不能接收断点。例如，用户不能放断点在注释、行标号（除非该行同样含有 可执行代码）、隐藏模块表中的行或即时窗口中的行。在声明行（Const，Dim，Static，Type等等）不允许断点。


参阅在这个行不允许断点
参阅

Select Case 语句


ByRef参数类型不匹配

参阅

当一个过程期望通过传值（ByRef，默认）传递参数时，传递的参数必须有期望的精确 到数据类型。例如，如果期望Long而试图传递Integer变量，则出现这个错误。如果要强 制 发生，既使引起信息丢失，用户能用自己的括号对来传递参数。例如，为传递Variant 参数MyVar给期望整数参数的过程，则应该写如下调用：

Dim MyVar

MyVar = 3.1415

Call SomeSub((MyVar))

Sub SomeSub (MyNum As Integer)

MyNum = MyNum + MyNum

End Sub

在自己的括号中放参数迫使它作为表达式计算。在这种计算期间，舍入（不截尾） 数的小数部分，使它符合期望的参数类型。计算的结果放在一个临时位置， 由过程接收对临时位置的引用。因此，原始的MyVar保持自己的值。


参阅ByRef参数类型不匹配
参阅

ByRef

ByVal

Variant 数据类型


不能把固定长度字符串或用户定义类型的数组赋给Variant

参阅

Variant变量不能接收定义为固定长度字符串或用户定义类型的变量组成的数组的赋值。


参阅非内部数组赋给Variant
参阅

Variant 数据类型

VarType 函数


不能赋给数组

赋值必须是对指定的数组元素，不是简单地对数组名。例如，如果MyArray是整型数组，表达式MyArray＝5是非法的，但下列表达式是合法的：

MyArray(UBound(MyArray)) = 5


不能改变数组元素的数据类型

参阅

用户能用ReDim改变数组中的元素个数，但它的数据类型必须保持与原来创建数组的 语句中一样（除非数组含在Variant中）。


参阅ReDim不能改变数组类型
参阅

ReDim 语句


不能显示隐藏过程

用户试图显示一个过程，但不能显示该过程，因为它的模块表是隐藏的。 要显示该过程的话必须使模块表成为非隐藏的。 如果用户正在显示隐藏过程中生成错误的行，再次运行该代码去显示那个错误 （在非隐藏模块表后）。


不能编辑模块表

该模块表标记为受保护的。试图编辑之前要将该模块表解除保护。


不能找到项目或库

不能找到引用项目，或不能找到与该项目的语言对应的引用对象库。 除非解决了所有遗漏的引用，否则不能运行代码。

在[引用位置]对话框中用“MISSING：”加在未解决的引用前。选择[遗漏引用]去显示 遗漏项目或库的路径和语言。

遵循下列步骤解决一个或多个引用：

为解决引用：

1.	从[工具]菜单选择[引用位置]。

2.	选择[遗漏引用]。

3.	选择[浏览]以打开[浏览]对话。

4.       使用[浏览]对话找出遗漏引用。

5.	单击[确定]按钮。

6.	重复上述步骤，直至所有遗漏引用被解决。

一旦用户浏览遗漏项，“MISSING：”前缀被移去，指出链接被重新建立。 如果引用项目的文件名被改变，加一个新引用，旧的引用必须移去。

为了移去不再需要的引用，在不需要的引用边上简单地清除选择框。注意，对Visual Basic对象库(VBAXX.OLB)和宿主应用程序(host-application)对象库的引用不能移去。

应用程序可以支持它们的对象库的不同语言版本。为发现需要哪种语言版本， 单击引用，检查在对话框底部指出的语言。

对每种平台对象库存在有不同版本。因此，当项目跨平台移植时（例如，从 Macintosh到Windows），引用库的正确语言版本（对于那个平台）必须在用户主 应用程序文档指定的位置是可用的。

对象库文件名通常构造如下：

Windows:	应用	用程序代码＋语言代码+［版本］.OLB

例如：

VBAFR.OLB应该是法语Visual Basic对象库。

XLFR50.OLB应该是法语EXcel 5．0对象库。

Macintosh:	应用程序名语言代码[Version] OLB。例如：

如果用户不能在自己的系统上查找到遗漏的项目，与引用项目的作者联系。 如果遗漏的库是Microsoft应用程序对象库，能如下所示去获得它。

VBAFR.OLB应该是法语Visual Basic对象库。

MS Excel FR 50 OLB应该是法语Excel 5．0对象库。

如果用户存取Microsoft电子技术支持服务，引用这个帮助文件的 技术支持部分。在电子服务下， 用户能查找到怎样使用合适的服务选择项的指导。

如果用户不能存取Microsoft

电子技术支持服务，从Microsoft函索应用程序附注，Microsoft对象库是可用的。 怎样与用户本地Microsoft产品支持组织联系的信息同样在这个帮助文件技术支持部 分可用。


Get或Put不能含有对象引用的用户定义类型
不能使用含有对象引用的用户定义类型Get或Put

参阅

用户试图对含有对象引用的用户定义的类型用Get或Put语句。从记录变量移去 对象引用，或试一试使用Input#， Line Input#，Print#或Write#。


参阅Get或Put不能含有对象引用的用户定义类型
参阅

Get 语句

Input # 语句

Line Input # 语句

Print 语句

Put 语句

Write # 语句


不能装入模块表，非法格式（错误323）

试图装入的模块表不是文本模块表。Visual Basic的一些版本允许以二进制和文本格式存代码。如果可能， 在上一次存该文件的应用程序中重装入文件并以文本方式存它。


不能执行所需要的操作（错误17）

所需要的操作不能执行，因为它将会使项目的当前状态成为非法的。例如， 如用户使用[工具]菜单的[引用位置]对话在程序处理中断方式时加一个引用到新项目 或对象库， 则会出现该错误。


不能记录到运行模块表

执行模块表代码时不能记录宏。为停止执行，从[运行]菜单选择[结束]命令或按 CTRL+BREAK组合键。


不能用不同的驱动器更名(错误 74)

参阅

不能用Name语句更名有新驱动器目的地的文件.用FileCopy把文件写到另一个驱动器， 然后用Kill语句删除旧文件。


参阅不能用不同的驱动器更名
参阅

FileCopy 语句

Kill 语句

Name 语句


Case Else超出了Select Case范围

参阅

Case Else只能出现在Select Case和End Select语句相配的中间。


参阅Case Else超出了Select Case范围
参阅

Select Case 语句


Case没有Select Case

参阅

Case语句没有与相应的Select Case语句同时使用。在Select Case…Case结构中检查其它控制结构并验证它们是正确地匹配。例如，在Select Case…Case结构中If没有匹配的End �If将产生这个错误。


参阅Case没有Select Case
参阅

If...Then...Else 语句

Select Case 语句


模块表间循环相关
模块表间循环依赖

参阅

在一个模块表中用户定义的类型或常量引用第二个模块表中用户定义的类型或常量， 反过来，第二模块表又引用第一个模块表中的另一个用户定义的类型或常量。不允 许模块表， 常量和用户定义的类型间的循环引用。


参阅自身定义使用用户定义类型
参阅

Const 语句

Type 语句

Visual Basic Constants


类不支持OLE自动化（错误430）

参阅

Getobject或Createobject函数调用指定的对象被发现，但没有揭示可编程接口。因此， 不能编写代码去控制这个对象的行为。检查创建这个对象的应用程序文档， 对用该对象的类在使用OLE自动化方面有何限制。


参阅类不支持OLE自动化（错误430）
参阅

OLE Automation

GetObject 函数

CreateObject 函数


代码执行已被中断

已经遇到了CTRL+BREAK（Microsoft Windows）或COMMANG+PERIOD（Macintosh）组合键，选择[调试]进入中断方式， 继续重新开始，或[结束]以结束执行。


代码资源锁定错误（错误455）

在代码资源中对过程做了调用。查找到了代码源，但试图对资源锁定时出现了错误。 检查由HLock返回的错误（例如：“对空处理非法”或“对自由块非法”）。

这个错误仅在Macintosh中出现。


没有找到代码资源（错误454）

在代码资源中对过程进行调用，但没有找到代码资源。该错误仅在Macintosh中出现。


隐藏模块表中编译错误：＜模块表名＞

在指定模块表的代码中有编译错误，但不能显示，因为项目受到保护。对项目解除 保护， 然后再次运行该代码去显示错误。


需要常量表达式

参阅

常量必须初始化。不能用变量，用户定义类型的实例，对象，或函数调用的返回值初始 化常量。能用文字，上一次声明的常量或通过运算符（IS逻辑运算符除外）  连接的文字和常量初始化常量。如果声明数组时用变量指定元素个数（除非用ReDim 声明数组）， 则会出现这个错误。


参阅需要常量表达式
参阅

Is 操作符

Redim 语句


当前模块表不支持Print方法

参阅

仅Debug.print在这个模块表是合法的。


参阅当前模块表不支持Print方法
参阅

Debug Object

Print Method


不允许项目循环引用

试图加一个引用到已经是项目部分的项目中。例如，如果MyProj引用Your Proj，则YourProj（或引用YourProj的项目）不能引用MyProj。


Deftype 语句必须提前声明
Deftype 语句必须在声明之前

参阅

Reflnt.DefDbl.Delcur等等语句仅能出现在模块表级(module level) ， 并且必须在所有其它变量之前声明。


参阅Deftype 语句必须提前声明
参阅

Deftype 语句


目的标号太远，Loop，Select Case，或IF块太大
目的地标号太远；Loop，Select Case，或If块太大

参阅

可能的原因：

分支语句（GoTo，GoSub）的目的地标号从源分支算起超过了23767 字节。

较大的循环结构从开始到结尾占用了多于23K内存。

大的If块结构，含有Then或Else从句， 从开始到结尾占用了多于32K内存。

过程从开始到结尾可达64K，但因为分支能在过程中向上或向后出现，因此， 在两个方向限制分支为82767字节。


参阅目的标号太远，Loop，Select Case，或IF块太大
参阅

Goto 语句

GoSub 语句

If...Then...Else 语句


设备I／O错误（错误57）

当用户程序正在用打印机或磁盘驱动器这类设备时出现的输入／输出错误。


设备无效（错误68）

试图存取一个未联机或不存在的设备。


磁盘满（错误61）

参阅

可能的原因：

在磁盘上没有足够空间完成Print#，write#，或Close操作。

在磁盘上没有足够空间去创建所需文件。 将一些文件移动到另一个磁盘或删除一些文件。


参阅磁盘满
参阅

Close 语句

Print # 语句

Write # 语句


磁盘未准备好（错误71）

在指定的驱动器上没有磁盘或驱动器门未关。把磁盘插入驱动器，关好门， 重试那个操作。


被零除（错误11）

表达式作为除数的值是零。检查表达式中变量的拼写。拼写错误的变量名隐含着创造了 初始化为零的数值变量。检查上一个表达式中对变量的运算，特别是作为参数从其它 过程传递到过程的那些变量。


Do没有Loop

参阅

Do语句没有与终结Loop语句同时使用。检查Do…Loop结构中其它控制结构是否正确地匹 配。例如，在Do…Loop结构内If块没有匹配End If可能产生这种错误。


参阅Do没有Loop
参阅

Do...Loop 语句

If...Then...Else 语句


在当前范围内重复声明

参阅

指定的名字在这一范围级内已经被使用。例如，两个变量如果在不同过程中定义可以有 相同的名字，但在相同过程中却不能。典型原因是：

新的变量或过程与存在的变量或过程有相同名字。例如：

Sub MySub()

Dim A As Integer

Dim A As Variant

. . .	' Other declarations or procedure code here

End Sub

Const语句使用了与存在的变量或过程相同的名字。

多次声明固定数组。

检查当前的过程、模块表或项目，并移去任何重复的声明。从[编辑]菜单选择[查找] 去定位重复名字。当指定名字去搜索时，忽略类型声明字符(type-declaration character)，如果存在一个， 因为名字相同而类型声明字符不同时会发生冲突。

注意：模块表级变量能与过程中声明的变量有相同名字，但是在过程中要引用模块 表级变量时，必须用模块表名限定它。模块表名和引用项目名在过程内同样可以重用， 同样能限定它。


参阅在当前范围内重复声明
参阅

Const 语句

Dim 语句

Erase 语句

ReDim 语句


重复定义（错误10）

这个错误通常在生成代码时出现。例如：

Error 10

如果试图用ReDim改变固定大小数组的元素个数时同样可能出现这个错误。例如， 在下列代码中，由过程Next One中Some Arr接收固定数组FixedArr，然后试图改变Some Arr的大小：

Sub FirstOne

Static FixedArr(25) As Integer	' Create a fixed-size array &

NextOne FixedArr()	' pass it to another sub.

End Sub

Sub NextOne(SomeArr() As Integer)

ReDim SomeArr(35)	' Duplicate definition occurs here.

. . .

End Sub


重复Deftype语句

Deftype语句的部分或全部字母范围已经包括在另一个Deftype语句中。


重复Option语句

参阅

在这个模块表中已经定义了多个OptionBase、Option Compare、Option  Explicit或Option Private语句。在该模块表中移去重复部分。


参阅重复Option语句
参阅

Option Base 语句

Option Compare 语句

Option Explicit 语句

Option Private 语句


编辑不能撤消－－继续吗？

在完成这个编辑后，不能选择[撤消]命令恢复当前状态。编辑可能太大不能存。用较小的增量去试着执行编辑。


Else没有If

参阅

Else 语句没有相应的If 语句。检查 If...End If 结构中其它控制结构， 确认它们正确地匹配同样检查块If是否正确地格式化。


参阅Else没有If
参阅

If...Then...Else 语句

Do...Loop 语句


空监视表达式

在[增加监视]对话中不支持监视表达式(watch expression)。


End If没有If块
End If没有If

参阅

End if语句没有相应的IF语句。检查if...End if结构中其它控制结构并核实它们正确地匹配同样检查块IF是否正确地格式化。


参阅End If没有If块
参阅

If...Then...Else 语句

Do...Loop 语句


已达到搜索范围的尾端;要从头开始继续吗？
已达到搜索范围的尾端；要从头开始继续吗？

向下搜索时已达指定范围尾端。可选择从搜索范围的开始继续搜索，或取消和改变搜索 范围。


End Select没有Select Case

参阅

End Selent语句没有与相应的Select Case 语句同时使用。 这通常是由于多余的End  Select 在Select case块之下， 或当把Selent  case 块从一个过程复制到另一个过程时， 留在Select 语句之后。检查每个End Select语句，确保它结束了select case结构。


参阅End Select没有Select Case
参阅

Select Case 语句


End With没有With

参阅

End with语句没有与相应的with语句同时使用，在with...end with结构中检查其它控制结构并验证它们是否正确地匹配。例如，在with...end with结构中IF没有匹配End IF能引起这个错误。


参阅End With没有With
参阅

If...Then...Else 语句

With 语句


存取系统注册错误

系统注册数据库出了毛病。再次运行宿主应用程序(host application)安装程序。


装入DLL时出错（错误48）

参阅

不能装入指定的动态链接库（DLL）。这通常是因为在Declare语句中用Lib 从句指定的文件不是合法的DLL。

文件不是DLL可执行的.

文件不是Microsoft windows DLL。

文件是旧的Microsoft windows DLL。它不能同Microsoft  windows

保护方式兼容。

DLL引用了不存在的另一个DLL。

DLL或引用的DLL之一不在用户路径指定的目录中。


参阅装入DLL时出错
参阅

Declare 语句


Exit Do不在Do...Loop中
Exit Do不在Do…Loop中

Exit Do语句在Do…Loop语句外使用。确保合法Do语句在Exit Do之前。


Exit For不在For...Next中
Exit For不在For…Next中

参阅

Exit for语句在For...Next语句外使用。确保合法的For语句在Exit For之前。


参阅Exit For不在For...Next中
参阅

Exit 语句

For...Next 语句


在Sub或Property中不允许Exit函数

参阅

对这种类型的过程使用合适的Exit结构。


参阅在Sub或Property中不允许Exit函数
参阅

Exit 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


在Function或Sub中不允许Exit属性

参阅

对这种类型的过程使用合适的Exit结构。


参阅在Function或Sub中不允许Exit属性
参阅

Exit 语句

Function 语句

Sub 语句


在Function或Property中不允许Exit Sub

参阅

对这种类型的过程使用合适的Exit结构。


参阅在Function或Property中不允许Exit Sub
参阅

Exit 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句


期望数组
期望要数组

指定的语法适合于数组，但在这个范围没有用这个名字数组。


期望End Function
期望End函数

参阅

这种类型过程使用合适的End语句。


参阅期望End Function
参阅

End 语句

Function 语句


期望End属性

参阅

对这种类型过程期望合适的End语句。


参阅期望End属性
参阅

End 语句

Property Get 语句

Property Let 语句

Property Set 语句


期望End Sub

参阅

对这种类型的过程使用合适的End语句。


参阅期望End Sub
参阅

End 语句

Sub 语句


期望End With

参阅

对这种类型的过程使用合适的End语句。


参阅期望End With
参阅

End 语句

With 语句


期望函数或变量

参阅

语句的语法指定一个变量或函数调用，但名字并不是称为变量或函数的那个。检查名字 的拼写。同样，确保具有那个名字的任何变量或函数在要引用的程序的那一部分是可见 的。例如，如果函数定义为Private或变量未定义为Public，则它仅在自己的模块表内可见。


参阅期望函数或变量
参阅

Function 语句

Private 语句

Property Get 语句


期待过程，不是模块表

参阅

在当前范围中没有该名字的过程，但存在那个名字的模块表。检查过程名的拼写。 确保要调用的过程对另一模块表来讲不是一私有的。


参阅期待过程，不是模块表
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


期望过程，不是项目或库

参阅

在当前范围内，没有那个名字的过程，但存在那个名字的项目。检查过程名的拼写， 确保要调用的过程名对另一过程不是私有的。


参阅期望过程，不是项目或库
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


期望过程，不是用户定义类型

参阅

在当前范围没有那个名字的过程，但存在那个名字的用户定义的变量。检查过程名的拼 写，确保要调用的过程对另一个过程不是私有的。


参阅期望过程，不是用户定义类型
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


期待过程，不是变量

参阅

在当前范围没有那个名字的过程，但存在那个名字的变量。误拼合法过程名同样可能引 起这种错误，因为作为隐含定义的变量构造错了。检查过程名的拼写， 确保要调用的过程对另一模块表不是私有的。


参阅期待过程，不是变量
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


期待Sub或Function

参阅

语句的语法指明Sub或Function过程调用， 但指定的名字不是这部分程序中的那个Sub或function.注意，如果该过程定义为Private， 它仅能在它的模块表中被调用。


参阅期待Sub或Function
参阅

Call 语句

Function 语句

Private 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


期待用户定义的类型，不是项目

参阅

在当前范围中没有那个名字的用户定义类型，但存在那个名字的项目。检查用户定义类 型名字的拼写，确保用户定义类型对另一模块表不是私有的。


参阅期待用户定义的类型，不是项目
参阅

Type 语句

用户定义数据类型


期待变量或过程，不是模块表

参阅

在当前范围没有那个名字的变量或过程，但存在那个名字的模块表。检查变量或过程的 拼写，确保要引用的名字对另一模块表不是私有的。模块表名可以是一个限定符，但不 能独立使用。


参阅期待变量或过程，不是模块表
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


期待变量或过程，不是项目

参阅

在当前范围没有那个名字的变量或过程，但存在那个名字的项目。检查变量或过程名的 拼写，确保要引用的名字对另一模块表不是私有的。项目名可以是限定符，但不能独立 使用。


参阅期待变量或过程，不是项目
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


期待：＜各种格式＞

没找到期待的语法部分。错误通常位于选定项的左边，但亦不总是明显的。例如， 用了或没用Call关键字引入Sub过程。可是，如果用Call关键字，必须用括号括住参数 列表。

下列错误出现在所描述的环境中：

期望：语句结尾｛bmc emdash.bmp｝例如，

如果函数调用指定参数必须用括号。类似的，当用Call关键字时， 在Sub过程调用参数列表周围必须加上括号。

X = Workbook.Add F:= 5	' Error due to no parentheses

Call MySub 5	' Error due to no parentheses.

期望：例如，函数调用不能支持本身，它必须用在表达式中。类似的， 用多于一个参数调用Sub过程，必须用括号括住参数表，必须用Call关键字。

Workbook.Add (X:=5, Y:=7)	' Function call without expression.

YourSub(5, 7)	' Sub invocation without Call.

期望：表达式｛bmc emdash.bmp｝例如，当从Object Brower粘贴代码时，可能忘记指定了命名参数的值。

Workbook.Add (X:= )	' Error because no value assigned

' named argument.

期望：变量 [image] 例如，限定关键字不能用作变量名。在下例中，Input＃语句期望变量作为 第二个参数。由于Type是限定关键字，不能用作变量名。

Input # 1, Type	' Type keyword illegally used as

' variable name.


未定义外部名

在方括号内指定的标识符对宿主应用程序(host application)没有意义。


文件已经存在（错误58）

参阅

在运行时，当指定的新文件名同已经存在的文件名一致时，出现这个错误。（例如， 在Name语句中指定的名字）。当用[另存为]命令保存当前已装入的项目时，项目名已 经存在， 也会发生这个错误。


参阅文件已经存在
参阅

Name 语句


文件已经打开（错误55）

参阅

可能原因为：

对已打开的文件执行了顺序输出方式Open语句。

语句（如Kill，SetAtlr，或Name）引用了一个打开的文件。


参阅文件已经打开
参阅

Kill 语句

Name 语句

Open 语句

SetAttr 语句


文件格式不再支持

并非所有文件格式在所有环境都是可读的。例如，早期的Visual Basic模块表可能在装入后期的Visual Basic版本中之前必须转换成文本格式。


文件未找到（错误53）

参阅

运行时可能的原因为：

语句（例如，Kill，Name，dpen）引用了不存在的文件。

试图调用运态链接库（DLL）中的过程，但没找到Declare语句的Lib

从句中指定的库文件名。

在开发环境中，如果试图打开或装入不存在的文本文件，会出现这个错误。


参阅文件未找到
参阅

Declare 语句

Kill 语句

Name 语句

Open 语句


固定的或静态的数据不能大于64K

可能的原因为：

试图分配大于64K的模块表级数据。注意，虽然对模块表级数据的大小限制 是64K， 但模块表级变量长度串和数组能超过这个限制。

试图在模块表中分配大于64K的静态过程级数据。在模块表中所有过程的静态 数据限 制在总数为64K（不是每个过程64K）。 注意，静态变长度字符串和数组能超过这个限制。

用户定义类型的大小不能超过64K（而且是其元素指定的大小之和。）

在过程中声明的固定长度字符串的大小不能超过65464，虽然变长串能超过这 个限制。


For控制变量已经在使用
For控制变量已在使用

参阅

嵌套For...Next循环时，在每个循环中必使用不同的控制变量。如果外循环用For conirt=1 To 25，则内循环不能用count作为它们的控制变量。检查嵌套的重复循环。


参阅For控制变量已经在使用
参阅

For Each...Next 语句

For...Next 语句


For Each控制变量必须是Variant或Object

参阅

对于集合，Variant和Object数据类型作为For Each语句的控制变量或元素部分是合法类型。对于数组，For Each语句的控制变量或元素部分必须是Variant类型变量。


参阅For Each元素必须是Variant或Object
参阅

For Each...Next 语句

Object 数据类型

Variant 数据类型


数组中的For Each元素必须是Variant
数组中的For Each控制变量必须是Variant

参阅

对于数组，For Each语句的控制变量或元素部分必须是Variant类型变量。


参阅数组中的For Each元素必须是Variant
参阅

For Each...Next 语句

Variant 数据类型


For Each不能在用户定义类型的数组上使用
For Each可能不能在用户定义类型的数组上使用

参阅

For Each结构仅对集合和固有类型数组（包括对象数组）是合法的。


参阅For Each不能在用户定义类型的数组上使用
参阅

For Each...Next 语句


For Each只能在集合对象或数组上迭代
For Each仅能在集合对象或数组上迭代

参阅

For Each结构只能同集合和数组一样用。检查要迭代的项的拼写，确保它是集合或数组。


参阅For Each可能只能在集合对象或数组上迭代
参阅

For Each...Next 语句


For循环未初始化（错误92）

参阅

已经进入了For...Next循环的中间。建议不要把标号放在For...Next循环中。


参阅For循环未初始化
参阅

For...Next 语句

For Each...Next 语句


For without Next
For 没有 Next

参阅

 For 语句没用相应的Next 语句。检查外层For...Next结构内不正确的For...Next结构。


参阅For without Next
参阅

For...Next 语句

For Each...Next 语句


超前引用了用户定义的类型

参阅

可能原因为：

虽然用户定义的类型通常能在其它用户定义的类型中嵌套， 但不能本身嵌套用户定义的类型。 能间接出现，即如果在另一个类型中嵌套了一个类型，而另一个类型中已经声明了。 检查每个嵌套类型的定义以消除重复。

用户可能在用户定义类型定义出现之前已经用用户定义类型声明了一个变量。 在下例中，变量othervar在它的类型（othertype）已知之前声明了。

Type MyVar

OtherVar As OtherType

End Type

Type OtherType

WholeVar As Integer

RealVar As Double

End Type


参阅超前引用了用户定义的类型
参阅

Type 语句

用户定义数据类型


在赋值左边的函数调用必须返回Variant或Object

参阅

函数调用能出现在赋值左边，但仅当函数的返回值是对象或Variant时使用。 如果返回是对象或含有对象的Variant，赋值是对象的默认属性。如果返回的Variant 不是对象，赋值不受影响。


参阅在赋值左边的函数调用必须返回Variant或Object
参阅

Function 语句

Object 数据类型

Variant 数据类型


标识符太长

标识符不能比255个字符长。


光标下的标识符不是过程名

用户试图显示一个过程，但在插入点(insertion point)的标识符不是过程名。检查标识符的拼法。


不正确的DLL版本

Visual Basic动态链接库（DLL）不能与这个宿主应用程序(host application)所期望的版本匹配。程序正在试图调用DLL中的例程，但库的版本与Visual Basic或宿主应用程序不一致。


不正确的OLE版本

OLE动态链接库（DLL）的版本不能与宿主应用程序(host application)所期望的相匹配。在Microsoft Windows中，应用程序搜索DLL，首先在当前目录，然后沿设置的路径，再至WINDOWS\SYSTEM目录。如果在主应用程序期望的DLL之前遇到了旧的OLEDLL则这种错误产生。 为使用两种DLL版本，必须在调用相应的应用程序目录中放置合适的版本。在Macintosh 中，OLE文件一般在扩展文件表中找到，因此这种错误不太可能出现。


Input超过了文件尾（错误62）

参阅

Input或Line Input#语句正在从文件中读数据，而该文件中所有数据已经完，或正从空文件读数据。为避免这种错误，用Eof函数（就在Input#语句之前）去检测文件尾。


参阅Input超过了文件尾
参阅

EOF 函数

Input # 语句

Line Input # 语句


无足够的内存保存撤消信息

在执行这个编辑后不能选择[撤消]命令去恢复当前状态。编辑可能太大无法保存。 用小的增量，试着执行编辑。


内部错误（错误51）

参阅

在Visual Basic 中出现了内部故障。   除非用Error 语句生成这个调用，   否则同Microsoft产品支持服务联系，报告这种信息出现的条件。


参阅内部错误
参阅

Error 语句


非法的存取方式

参阅

    在Open语句中，为指定的文件类型指定了一个非法的存取方式。

可能的原因是：

用户试图为Input打开一个文件，但指定了一个非法存取方式。用户打开一个文件用于输入时能忽略掉存取方式指定，但如果用户指定了它，存取方式必须是Read。 对用于Input而打开的文件，Write和ReadWrite是非法存取方式。

用户试图为Append打开一个文件，但指定了一个非法存取方式。用户打开一个文件用于追加时能忽略存取方式指定，但如果用户指定了它，存取方式必须是Write。 对用于Append而打开的文件，Read和ReadWrite是非法存取方式。

用户试图为Output打开一个文件，但指定了一个非法存取方式。 用户打开一个文件用于输出时能忽略存取方式指定，但如果用户指定了它， 存取方式必须是Write。对于用于Output而打开的文件，Read和ReadWrite是非法存取方式。


参阅非法的存取方式
参阅

Open 语句


非法的过程调用（错误5）

参阅

    参数可能超出了允许值的范围。例如Sin函数仅能接收一定范围内的值。接收小于2147483648的正参数，而2147483648则产生这个错误。

    如果在当前平台上试图对一个非法的过程做了调用，则可能出现这个错误。例如， 有些过程可能仅对Macintosh是合法的，或仅对Microsoft Windows等等。


参阅非法的过程调用
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sin 函数

Sub 语句


Sub或Function中非法的属性

参阅

例如，在过程定义体中不允许Public和Private属性。


参阅Sub或Function中非法的属性
参阅

Function 语句

Private 语句

Public 语句

Sub 语句


非法字符

在当前内容中该字符不能用。例如，方括号或连字符不能用作变量名的字符。


非法的数据格式

从文件中读入的数据不是所期望的格式。例如，对象库文件或项目文件有毛病或有不能 理解的格式。用户可能试图装一个.EXE文件进入模块表。

用户可能已经用引用和浏览对话与工具菜单加一个引用到一个文件， 而该文件是非法的对象库，或它含有主应用程序不支持的格式的Basic项目。例如， Excel不能理解．BAS或.FRM文件，或含有Basic代码的MicrosoftProject文件。


非法的数据类型用于常量

常量不能是数组、对象或具有用户定义的类型。


在即时分割区域中非法
在即时窗口中非法

参阅

并非所有语句在即时窗口中被允许。

可能的原因为：

在即时窗口中不允许声明语句，如Const，Declare，Deftype，Dim， Function， Option Base，Option Explicit，Option Compare�働rivate Public，不允许属性过程声明语句（包括Property Let，Property Set，Property Get），ReDim，Static，Sub和Type。

在即时窗口中不允许某些控制流语句，如Sub，Function，Property，GoSub，GoTo，Return，Resume等等。

在即时窗口中分隔的物理行间做了无逻辑连接，因此多条物理行格式化为语句，如If块语句，不能合适地执行。可是，在单条物理行上能键入这种块，用冒号（：）使每个语句与下一个分开。相反，通过在即时窗口中使用线连续字符， 下划线（＿）跟一个空格，用户能跨物理行扩展单个语句。

用户试图在即时窗口中执行一些使用户程序当前状态非法的代码，需要用户重新初始化该程序。


参阅在即时分割区域中非法
参阅

Const 语句

Declare 语句

Deftype 语句

Dim 语句

Function 语句

GoSub...Return 语句

GoTo 语句

If...Then...Else 语句

Option Base 语句

Option Compare 语句

Option Explicit 语句

Option Private 语句

Private 语句

Property Get 语句

Property Let 语句

Property Set 语句

Public 语句

ReDim 语句

Resume 语句

Static 语句

Sub 语句

Type  语句


在过程中非法
在过程内非法

参阅

语句不能出现在Sub或Function过程中。在过程中不允许语句Declare，Deftype，Private，Public，Option Base，Option Compare Option Explicit，Option Private和Type。


参阅在过程中非法
参阅

Const 语句

Declare 语句

Deftype 语句

Function 语句

Option Base 语句

Option Compare 语句

Option Explicit 语句

Option Private 语句

Private 语句

Public 语句

Sub 语句

Type  语句


非法的长度用于固定长度字符串

固定长度字符串限制在最大为65529个字符内。变长度字符串能超过该限制。


非法的Next控制变量引用

参阅

Next从句指定了控制变量名，但匹配的For从句用了一个不同的控制变量。如果 用户嵌套了For循环，从最内层循环开始，确保每个Next从句正确匹配其For从句。


参阅非法的Next控制变量引用
参阅

For...Next 语句

For Each...Next 语句


非法的或未限定的引用

参阅

用句点开始的标识符仅在With块中是合法的。


参阅非法的或未限定的引用
参阅

With 语句


非法的序号（错误452）

用户对动态链接库（DLL）的调用指出用编号替代过程名，即用＃num语法。可是，试图把表达式num转换成序号时失败，或指定num没指定DLL中的任何函数。检查一下确保表 达式表示合法序号，或用名字调用过程。


在过程外非法

参阅

语句必须出现在Sub或Function，或属性过程中（Property Get，Property Let，Property Set）。可执行语句，Static和ReDim仅能用在Sub或Function过程中。在模块表级(module level)，用户仅能用注释和声明语句，如Const，Declare，Deftype，Dim，Option Base，Option Compare，Option Explicit，Option Private，Private，Public和Type。Sub，Function和Property语句出现在它们的过程体外， 但在过程声明内。


参阅在过程外非法
参阅

Const 语句

Declare 语句

Deftype 语句

Dim 语句

Function 语句

Option Base 语句

Option Compare 语句

Option Explicit 语句

Option Private 语句

Private 语句

Property Get 语句

Property Let 语句

Property Set 语句

Public 语句

ReDim 语句

Static 语句

Sub 语句

Type  语句


非法的ParamArray用法

参阅

ParamArray关键字仅能适用于过程声明中的最后参数。对于相同参数它不能与ByVal，ByRef或Optional组合。


参阅非法的ParamArray用法
参阅

ByVal

ByRef

Optional

ParamArray


非法的模式串（错误93）
非法的图案字符串（错误93）

参阅

搜索的Like运算中指定的模式字符串是非法的。非法字符列表表达式的普通实例是[a －b，这里右方括号遗漏了。


参阅非法的模式串
参阅

Like 操作符


非法的过程名

用户试图定义一个过程，但用于过程的名字是非法的，因为宿主应用程序已用那个标 识符作为它用。例如，如果宿主应用程序(host application)是Microsoft Excel，用户不能用名字R1C1定义过程，因为该标识符已经由Microsoft Excel使用。


非法的限定符

限定符必须标识项目、模块表、对象或用户定义类型的变量。


非法的ReDim

参阅

如果用户没有指定变量类型，变量接收默认类型Variant。如果变量隐式声明为Variant， 用户试图用ReDim把它改变为数组，则会出现这个错误。如果用户试图ReDim一个类型库成员的主对象，或在运行时仅能由Visual Basic识别的主对象，则同样会出现该错误。


参阅非法的ReDim
参阅

ReDim 语句

Variant 数据类型


非法的类型声明字符

参阅

用户不能把类型声明字符(type-declaration character)追加到用As从句在Private，Public，或Static语句中声明的变量上。类似地， 用户不能把类型声明字符追加到不一致的文字上。例如，由于&是Long整型的类型 声明字符，把它追加到不同类型的文字会引起这个错误：

10.253&


参阅非法的类型声明字符
参阅

Dim 语句

Private 语句

Public 语句

Static 语句


Null的非法用法（错误94）

参阅

用户试图获得其值是Null的Variant变量的值或表达式的值。Null是一个Variant子类型， 用来指出数据项含有非法数据。例如：

MyVar = Null

For Count = 1 To MyVar

. . .

Next Count


参阅Null的非法用法
参阅

Variant 数据类型


对象的非法用法

参阅

用户试图用不能进行的方法使用一个对象。例如，用户试图中断一个赋Nothing给它的 对象引用，但忽略了关键字Set：

MyObject = Nothing

忽略Set关键字是Let的隐式用法，它导致试图执行赋值，而不是引用赋值。Nothing不 能用于赋值。假设Myobject是一 个对象，用户必须用Set语句把它设置为Nothing：

Set MyObject = Nothing

在表达式中试图使用Nothing同样会产生这个错误：

Debug.Print 5 + Nothing


参阅对象的非法用法
参阅

Set 语句


非法的监视表达式

指定的监视表达式(watch expression)不是一个合法表达式(expression)。监视表达式可能语法上不正确。

注意：监视表达式的语法与项目的位置相对应，在那里监视表达式被定义。


未定义标号

参阅

引用了行标号(line label)或行号(line number)（例如，在GoTo语句中），但它在引用范围内未出现。


参阅未定义标号
参阅

GoTo 语句


已经改变了语言／国家设置

用户为Visual Basic环境改变默认语言／国家设置。


行太长

Visual Basic代码的物理行能包含多达1023个字符。用户能用续行字符（空格后跟一个下划线 字符）联接物理行来创建更长的逻辑行。多达10个物理行能用续行字符联接形成单个 逻辑行。因此，逻辑行潜在地讲能含多达10230个字符。除此之外，用户必须把行分成单个语句或把某些表达式赋给中间变量。


Loop没有Do

参阅

Do循环必须用Do语句开始。用户可能在另一个循环中嵌套了未终止的循环块。检查并验证使用正确的Do…Loop语法。


参阅Loop没有Do
参阅

Do...Loop 语句


仅在字符串和用户定义的类型中允许Lset

参阅

Lset用于固定长度字符串中或变长度字符串中靠左对齐字符串。Lset同样能用来把用户定义类型变量的元素赋给不同的，但兼容的用户定义类型的元素。


参阅仅在字符串和用户定义的类型中允许Lset
参阅

LSet 语句

用户定义数据类型


不允许Lset

参阅

用户不能在包含字符串对象和变体的用户定义类型的变量上使用LSet。


参阅不允许Lset
参阅

LSet 语句

RSet 语句


Err， Erl 函数

参阅	实例

描述

返回错误状态。

语法

Err

Erl

解释

错误出现后，Err函数返回一个编号，它就是标识错误的运行run-time 错误编号。Erl函数返回一个编号，它是错误所发生的行号line number ，或者该行前紧靠它的行编号行。

因为Err和ErL都返回仅在错误发生后有意义的值，它们通常用在错误处理例程中，以判定错误并纠正。在错误处理例程中在任何形式的Resume或On Error语句之后，或Exit 燬ub或Exit 牋Function语句后，Err和Erl重新设置为0。

警告  如果用户用on Error GoTo建立错误处理程序；而错误处理程序又调用另一个过程，Err和ErL的值将重新设 置为0。为了确保其值不变，在调用另一个过程或执行Resume， On Error， Exit Sub， Exit 燜unction，或Exit Property之前，把Err或ErL的值赋给一个变量。

用户能直接用Err语句设置Err函数返回的值。用户能用Error语句为Err和ErL间接地设置值。

ErL函数仅返回一个行号，不是行标号line label，它位于产生错误的那一行或那一行 之前。大于65529的行号作为行标号来处理，且不能由ErL返回。如果用户的过程没有行号，或在错误发生点之前没有行号，ErL返回0。


Erl， Err 函数参阅
参阅

Err语句

Error函数

Error语句

On Error语句

Resume语句

可跟踪错误


Err语句

参阅	实例

描述

设置Err为指定值。

语法

Err = errornumber

元素

errornumber参数是任何有效的错误编号error number或0，后者意味着没有运行错误发生。

解释

Err用于记录运行期是否有错误发生并标识出错误。用Err语句把Err设置为非零，它是过程间传递错误信息的统一编号。例如，用户可以用未赋值运行期错误编号作为指定 应用程 序的错误编号。要判定正在使用哪个错误编号，用 Error函数，Error语句，或两者均用。 为避免同已有的错误编号冲突， 通过在65535处定义用户第一个错误来创建用户定义的错误，然后从此往下处理。 用户同样能用任何形式的Resume或On燛rror语句，或在错误处理程序中执行Exit Sub， Exit Function或Exit Property语句把Err设置为0。另外， Error语句能把Err设置成类似于任何运行期错误的任 何值。


Err 语句参阅
参阅

ErL函数

Err函数

Error函数

Error语句


Error函数

参阅	实例

描述

返回与给定错误编号相对应的错误信息。

语法

Error[(errornumber)]

元素

errornumber参数能是任何有效错误编号error number。如果没有定义errornumber，则 错误出现。如果忽略，返回对应于最近运行run-time的错误的信息。如果没有运行期错误出现，Error则返回零长度字符串（“”）。

解释

用Err函数返回最近运行错误的错误编号。


Error 函数参阅
参阅

ErL函数

Err函数

Error语句

从函数返回串

可跟踪错误


Error语句

参阅	实例

描述

模拟错误的出现。

语法

Error errornumber

元素

errornumber可以是任何有效错误编号error number。

解释

如果定义errornumber，Error语句模拟那个错误的出现；即，它设置Err的值 为errornumber。 为定义用户自己的错误编号，使用 大于任何标准错误编号的编号。为避免同已有的错误 编号冲突，通过在65535处定义用户第一个错误来创建 用户定义的错误，然后从此往下。当无处理例程可使用 时，执行了Error语句，则显示错误信息并停止执行。如果Error语句 指定没有使用的错误编号，则显示错误信 息。


Error 语句参阅
参阅

ErL函数

Err函数

Error函数

On Error语句

Resume语句

可跟踪错误


On Error语句

参阅	实例

描述

使一个错误处理例程能够工作，并指定过程中例程的位置，同样能用来使一个 错误例程 不能工作。

语法

On Error GoTo line

On Error Resume Next

On Error GoTo 0

元素

On Error语句语法有下列形式的任何一种：

语句	描述
On Error GoTo line	使错误处理例程从line开始工作，line是行标号line label 或行号line number。此后，如果运行错误出现， 控制分支到line。指定的line必须与On Error语句在 相同过程中。如果不是，则编译compile-time出错。
On Error Resume Next	当运行期错误出现时，指定控制转移到紧跟在错误出 现的语句，换句话说，执行继续进 行。
On Error GoTo 0	犜诘鼻肮�程中，使任何已经能工作的错误处理程序 变为不能工作的。
解释

如果用户不使用On 燛rror语句，出现的任何运行run-time错误都是致命的，生成错误信息，则执行就停止。如果错误处理程序是活动 的而错误出现，（在错误和Resume， Exit Sub，Exit Function或Exit 燩roperty语句出现），则当前过程的错误处理程序不能处理那个错误。如果调用的过程有激活的错误处理程序，控制返回到调用过程，激活它的错误处理程序去处理那个 错误。 如果调用的过程的错误处理程序同样是活动的，通过前面的调用过程把控制传回， 直至 发现了未活动的错误处理程序。如果没有未活动的错误处理程序发现，错误在其 实际发 生的那一点是致命的。每次错误处理程序把控制传回到调用过程时，那个过程就变 成了  当前过程。一旦任何过程中错误处理程序处理了一个错误，则在当前过程中在 Resume指 定的点执行重新开始。

注意错误处理例程并不是Sub或Function过程，它是由行标号或行号代码标记的块。 错误 处理例程依赖于Err中的值去判定错误的原因。错误处理例程将在任何其它错误能 发生之前或调用引起该错误过程之前测试或保存这个值。在Err中的值仅反映最近的 错误。用户能用Error函数返回与Err返回的任何给定的运行期错误编号相关的错误信 息。

On Error Resume 燦ext使紧跟在引起运行期错误后的语句继续执行，或紧跟在最近调用含有错误 处理例程过程后的语句继续执行。这里继续执行而不管运行时期错误。然后用 户能用过程以行来建立错误处理例程，而不是在过程中把控制转移到另一个位置。On Error GoTo 0在当前过程中使错误处理不能进行。即使过程中含有行号。也不指定0行为错误处 理代 码起点。没有On Error GoTo 0语句，当退出过程时，自动地使错误处理程序不能工作。

为了避免没有错误出现时而运行错误处理代码，只要合适的话，立即在错误处理例 程前放Exit Sub， Exit Function或Exit 燩roperty语句，如下例所示：

Sub InitializeMatrix(Var1, Var2, Var3, Var4)

On Error GoTo ErrorHandler

. . .

Exit Sub

ErrorHandler:

. . .

Resume Next

End Sub

这里，错误处理代码紧跟Exit Sub语句并且在End Sub语句前把它与正常 过程流分开了。这是唯一可能的解决方案，错误处理代码能放在过程中的任何地方。


On Error 语句参阅
参阅

ErL函数

Err函数

Error函数

Resume语句

可跟踪错误


Resume 语句

参阅	实例

描述

错误处理例程完成后重新开始执行。

语法

Resume [0]

Resume Next

Resume line

元素

resume语句语法有下列形式的任何一种：

语句	描述

Resume [0]	如果错误出现的过程与错误处理程序所在过程相同， 从引起那个错误的地方重新开始执 行。如果错误 出现在另一过程，从最后调用包含错误处理例程过 程的语句重新开始执行 。
Resume Next	如果错误出现的过程与错误处理程序所在过程相同， 从引起那个错误的语句后的那个 语句重新开始执 行。如果错误出现在另一过程中，则在含有错误 处理处理例程的最后调用过程的语句之 后的语句重新开始执行。
Resume line	从line处开始运行，其为行标号line label或行号line number。参数line必须与错误处理程序在同一过程中。
解释

如果用户在错误处理例程外的任何其它地方用Resume语句，则出现错误。当错误处 理例 程是活动的，且在遇到Resume语句前遇到了过程结尾(End sub， End Function，或End �Property语句），则出现错误，因为无意中发生一个逻辑错误。可是如果错误处理程序是激活的并遇到了Exit Sub， Exit Function或Exit 燩roperty语句，则无错误出现，因为它被认为是执行的故意重定向。


Resume语句参阅
参阅

On Error语句

可跟踪错误


增加表项的最大数目

监视分割区域中可容纳的增加项的总数。


成员未定义

参阅

集合，对象和用户定义类型都不包含引用成员。 用户可能有拼错的对象或成员名或说明的集合索引超出范围，检查Count特性确定集合成员是否存在。检查Type…End Type语句或对象文件确定成员并正确拼写对象和成员名。


参阅成员未定义
参阅

Type 语句


遗漏结束括号

一个开括号必须与一个闭括号相匹配。


模块表未发现

要求的模块表在指定的项目中不存在。例如：当MyModule出现在MyProject项目中时MyModule.SomeVar＝５将产生这个错误。

MyModule.SomeVar = 5


必须是该行的第一个语句

参阅

Sub,Function和Property语句必须总是它们所在行的第一个语句。另外End if,Else（仅用于if结构块）和Elseif仅用于一行的第一个语句。


参阅必须是该行的第一个语句
参阅

Function 语句

If...Then...Else 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


同已有的模块表、项目或对象库的名字冲突

在这个项目中，已经有一个模块表、项目或对象库的名字与这个引用同名， 所以不能加入重复引用。在工具菜单引用对话中的名字是不保留路径的， 所以不同目录中的文件如果不是有不同的文件名是不能区分的。注意， 文件的扩展名不是名字考虑的部分，因此，不同的扩展名不能用于区分不同的文件。 增加文件时，修改不能被增加的文件的名字。

这个错误也可能发生在企图增加一个项目或对象引用， 而这个对象或项目的名字（无扩展名）与当前项目中的模块表之一同名。 在这种情况下，用户可修改模块表名或修改不能增加的文件的名字。


命名参数已经指定
命名参数已经说明

当用户使用一个命名参数时，在一个参数表中只能使用一次。 例如：如果过程MySub要求命名参数Arg1和Arg2，那么，下面两个调用都会产 生这个错误：

Call MySub(1, Arg1:=3)

Call MySub(Arg1:=3, Arg1:=5)


不允许命名的参数
不允许命名参数

参阅

用户在不允许使用命名参数的地方使用它.例如:看下面的句子：

在这里MyVa2是一个Propety Let或Property Set过程：

MyVar1 = MyVar2(myNamedArg := 1)	'Invalid with Property Let or

'Property Set procedures.

在这里MyVa2是一个数组：

MyVar1 = MyVar2(myNamedArg := 1)	'Invalid with arrays.

在这里MyVa2是一个对象：

MyVar1 = MyVar2(myNamedArg := 1)	'Invalid with objects.

在这里MyVa2是一个外部名：

MyVar1 = [MyVar2](myNamedArg := 1)	'Invalid with external names.

在这里MyVa2是一个对象的数据成员：

MyVar1 = [MyVar2](myNamedArg := 1)	'Invalid with data members.


参阅Let或Set属性的第一参数不能被命名
参阅

Property Let 语句

Property Set 语句


命名的参数未发现（错误448）
命名的变元未找到（错误448）

用户说明了一个命名变元，而过程未定义用那个名字去接收一个变元。检 查变无名的拼写。


Next没有For

参阅

Next语句没有相应的For语句。在For…Next结构内检查其它控制结构，调整控制 结构使它们正确匹配。例如：在For…Next结构内if没有End if相匹配将产生该错误。


参阅Next 没有 For
参阅

For Each...Next 语句

For...Next 语句

If...Then...Else 语句


无文字被选定

用户必须选择一些文字完成这个操作。选定文字时，把光标定位在要选文字的起始 位置，然后按下SHIFT键并按下箭头或单击该键到要选文字行的末端。文字选定完成。


无监视表达式被选定
无观察表达式选择

当用户选择即时监视时，必须有一个选定的表达式。在选择即时监视之前， 在代码分割区域中有一个突显的监视表达式。


对象不支持当前的地区设置（错误４４７）

用户企图访问的对象不支持为当前项目做的地区设置。例如：假如用户的当前项目具有Candian French设置，那么用户试图访问的对象必须支持这种地点设置。 检查对象支持的地区设置。

注意，在动态连接库（DLL）中，对象可依赖自然语言。例如：OLEINLS.DLL。因此，用户可以需要一个更新的支持当前项目地区的版本。


对象不支持命名的参数（错误４４６）

当在该对象执行方法时，才能定位地说明参数。 有关参数位置和类型的进一步信息参阅对象的文档。


对象不支持这个操作（错误４４５）

该对象不支持这个方法或特性。 对象的进一步信息参阅对象的文档并检查特性和方法的拼写。


对象库未注册

企图装载Visual Basic对象库（VBAXX.OLB）或主应用对象库。 无论如何，在系统注册中没有发现这些对象库的正确版本。 确定该问题，从用户的窗口目录中删除VBA.INI文件，重新启动应用程序。


对象非集合（错误４５１）

用户已经说明了一个独占集合的运算或属性，而对象不是一个集合。 检查对象或属性名的拼写 或验证对象为一个集合。


ByVal接收的对象不能把ByRef传递到另一个过程

参阅

对象是ByVal（通过值）传递到一个过程的，用户试图通过引用（ByRef，默认） 传递到另一个过程。例如：

NextOne MyObject

End Sub

Sub NextOne(ThisObject As Object)	' Note that default is ByRef.

. . .

End Sub

如果一个对象是ByVal传递到一个过程的， 那么当它传递到另一个过程时也必须是ByVal的。如果用户正在传送对象的过程说明了一个ByRef对象参数，用户可以在调用时通过指出ByVal而忽略。例如：

Sub FirstOne(ByVal MyObject As Object)

NextOne ByVal MyObject	' Override potential conflict.

End Sub


参阅ByVal接收的对象不能把ByRef传递到另一个过程
参阅

ByRef

ByVal


要求对象（错误４２４）
必选的对象（错误４２４）

用户已经引用了一个对象属性或方法，但未提供正确的对象描述。


Object（对象）变量无设置（错误９１）
Object（对象）变量未设置（错误９１）

参阅

用户企图使用一个还没有引用正确对象的obgect 变量，     或对象已经被设置为Nothing。说明或重新说明对该object变量的引用。 例如：在下面的代码中如果遗漏了set语句，将会出现错误：

Dim MyObject As Object	' Creates object variable.

Set MyObject = Sheets(1)	' Creates valid object reference.

MyCount = MyObject.Count	' Assigns Count value to MyCount.


参阅Object（对象）变量无设置
参阅

Set 语句


OLE自动化错误（错误４４０）

当执行一个方法或访问一个Object（对象）变量时产生错误。 创建对象的应用程序报告这个错误。


对象不支持这个属性或方法（错误４３８）

本OLE自动化对象不存在该方法或属性。 对象的更多信息参阅对象的文档并检查属性和方法的拼写。


只有注释可以出现在EndSub，End Function或End Property之后
只有注释可出现在End Sub，EndFunction或End 牐衦operty之后

参阅

可执行代码不允许在过程之外。任何非说明行超出过程的范围必须以注释界符 （一个撇号）开始。说明语句必须出现在第一个过程说明之前。执行代码时忽略注释。


参阅只有注释可以出现在EndSub，End Function或End Property之后
参阅

End 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


运算变量必须是Variant
任选的参数必须是Variant

参阅

只有Variant类型变量是可任选的。改变任选的参数为Variant类型。


参阅运算变量必须是Variant
参阅

Variant 数据类型


超出内存（错误７）

要求的内存大于有效内存或遇到一个６４K级的边界。为防止这个错误，尝试如下办法：

关闭内存中任何不必要的应用程序，文档或源文件。

如果用户有非常大的模块表或过程，考虑将它们截成一个个小的。 这样不节省内存，但可防止遇到６４K段界。

如果用户在一台８０３８６或８０４８６计算机上以标准模式运行Microsoft Windows，试着以增强模式运行。

如果用户以增强模式运行Microsoft Windows，释放一些磁盘空间，或至少保证有些空间是可用的。

删除终止并驻留程序(TSR)。

删除不必要的设备驱动程序。

减少全局变量的数目。


超出内存;可删除一些监视
超出内存，可删除一些监视

当系统运行超出内存时，可删除监视表达式让出足够的可用内存， 这时允许从终止状态恢复运行。为继续工作，从内存中移去不必需的元素， 这些元素包括可 能被装载的不必要的应用程序，项目和模块表。


超出资源

一定类型的资源被固定地用于许多操作。用户代码可能已经到达了一个资源的界限。 试着保存，关闭和重新装载用户代码。如果用户仍然收到这个错误信息， 就减少代码中引用对象的数目。


超出栈空间（错误２８）
超出堆栈空间（错误２８）

参阅

可能导致错误的情况:

太多的活动Function或sub调用。 通常递归过程不能嵌套太深并且应正确地结束。

局部变量要求比可用的更多的局部变量空间。试着在模块表级说明一些变量来替代局部变量。 用户也可以在静态过程中说明变量， 静态过程通过在Property, Sub或Function关键字前加上Static进行说明，或者用户使用Static 语句在过程内说明静态变量。

定长字符串比可变长字符串占用更多的栈空间。 试着将一些定长字符串重新定义成可变长字符串。

过多嵌套的 DoEvents 语句。

用调用对话查看哪个过程是活动的（在栈上）。显示调用对话， 在调试窗口的过程框中选定向右按键。


参阅超出栈空间
参阅

DoEvents 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Static 语句

Sub 语句


超出串空间（错误１４）
字符串空间溢出（错误１４）

用户的系统可能已经运行超出了内存，这样字符串的分配就受到限止。同样， 为计算表达式要求创建临时字符串也可能引起这个错误。例如， 如下代码将导致一个超出字符串空间的错误：

MyString = "Hello"

For Count = 1 To 100

MyString = MyString & MyString

Next Count

Visual Basic允许用户分配一个字符串的最大长度是６５，５３５字符，无论如何， 执行语句在运行时，主应用程序需要使用一些栈空间作为额外开销。 额外开销的多少根据主应用程序的不同而不同，但不能超过５０个字节。 如果用户需要定位一个主应用程序能支持的最大长度的字符串， 缩小字符串长度到５０个字节，然后逐渐增加字符串的长度直到这个错误再次产生。 错误立即产生时的值表示应用程序的最大字符串长度。

Dim MyString As String * 65485	' Start with (65535-50).

' On successive runs, increment

' length until "Out of string space"

Sub MySub	' error occurs.

MyString = "string"	' Error occurs here when the

End Sub	' maximum length is exceeded.


溢出（错误６）

可能引起错误的情况：

赋值，计算或数据类型转换的结果太大，这个结果超出了那个类型的变量 允许表示的范围 [image] 对一个属性的赋值超出了该属性能接受的最大值。


ParamArry（参数数组）必须描述成Variant（变体型）数组

参阅

用户可以在一个ParamArray（参数数组）中提供任意多个参数，但是这个过程必须用作为Variant（变休型）数组的ParamArray（参数数组）定义。当进行调用时，调用提供的每一个参数都变成Variant（变体型）数组的一个相应的元素。例如：

Sub MySub(ParamArray VarArg())

. . .

End Sub

Call MySub ("First arg", 2, 3.54)


参阅ParamArray （参数数组）必须描述成数组
参阅

Function 语句

ParamArray

Sub 语句

Variant 数据类型


路径未发现（错误７６）
路径未找到（错误７６）

参阅

文件或磁盘访问操作（例如，Open, MkDir, ChDir或RmDir)期间，操作系统找不到指定的路径。该错误也发生在调试环境下，那时用户企图用不正确的路径打开一个项目或插入一个文本文件。确定路径被正确地键入。


参阅路径未发现
参阅

ChDir 语句

MkDir 语句

Open 语句

RmDir 语句


路径／文件访问错误（错误７５）

参阅

在文件或磁盘访问操作期间（例如，Open, MkDir, ChDir,或RmDir)， 操作系统不能在路径和文件名之间建立关联。文件名可以包括全保留路径或相对路径。

全保留路径从驱动器名开始（如果路径是在另一个驱动器上）， 并列出从根开始到文件的详细路径。非全保留路径是相对于当前驱动器和目录的路径。

当用户企图保存一个文件来替代一个已经存在的只读文件时，也会产生这个错误。


参阅路径／文件访问错误
参阅

ChDir 语句

MkDir 语句

Open 语句

RmDir 语句


允许拒绝（错误７０）
权限不够（错误７０）

参阅

企图写一个写保护的磁盘或存取一个锁定的文件。例如，若对一个写保护文件执行Open For Output语句，将发生这个错误。


参阅允许拒绝
参阅

Open 语句


过程类型不匹配
类型不匹配

参阅

在要求Function（函数）过程的地方使用Property（属性）过程，反之亦然。


参阅过程类型不匹配
参阅

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句


项目未找到

用户指定了一个找不到的项目名


属性或方法未发现（错误４２３）
属性或方法未找到（错误４２３）

引用了Object.method或Object.property，但是method（方法）或property（属性）未定义或 者用户拼错了Object（对象）的名字。查看为对象定义的属性和方法。

从[视窗]菜单选择[对象浏览]命令，选定相应的库和对象显示可用的属性和方法。


保留名不允许在模块表范围内

模块级允许唯一的描述。


限定词必须是集合

感叹号（！）左边的名字不是集合名字，确定名字是正确拼写的。


区域有非值

用户说明的数组边界不正确。例如，下面的区域是不正确的：

Dim MyArray(10 to -5)

Dim MyArray(0 to 0)

用户说明的数组边界不正确。例如，下面的区域是不正确的：

Dim MyArray(-5 to 10)


无错误Resume （错误２０）

参阅

遇到了Resume语句，而它或者是外部的错误处理代码，或者遇到它时无错误处理例程激活。


参阅无错误Resume
参阅

On Error 语句

Resume 语句


无GoSub Return（错误３）

参阅

Return语句没有相应的GoSub语句。不象For…Next, While …Wend 还有Sub …End

参阅Sub是编译时匹配，GoSub和Return是运行时匹配。


参阅无GoSub Return
参阅

For...Next 语句

GoSub...Return 语句

Sub 语句

While...Wend 语句


RSet 只允许用于字符
RSet只允许用于字符串

参阅

Rset用来在固定长度或可变长字符串内正确靠右对齐。不象Lset, Rset不能用来把用户定义类型变量的元素赋值给不同的元素，但与用户定义类型相容。


参阅RSet 只允许用于字符
参阅

LSet 语句

RSet 语句


运行错误＜号码＞:
运行错误＜号码＞：

该错误是用户定义的。


搜索的字符串太长或太复杂

给定的搜索字符串太长或通配符说明的组合不能被充分理解。


搜索字符串必须指定
必须指明要搜索的字符串

无比较字符串搜索操作不能完成。用户必须指定要搜寻的字符串。


搜索文字未发现

在搜索范围的开始点和结束点之间没有匹配的文字。如果想继续搜索可以放宽搜索范 围。当使用模式匹配表达式时如果用户没有给出左括号也会发生这个错误。


Seek失败：不能从磁盘上读／写

参阅

Seek语句是直接在磁盘上执行的。如果磁盘或文件是写保护的，只读的或锁定的或 已经变得无效（例如：若可移动磁盘被物理地改变），Seek语句就不能成功。检查 文件的存取状态和磁盘本身的物理状态。这个错误可能偶然发生在读项目文件或输 入程序库期间，在这种情况下文件已经被破坏。


参阅Seek失败：不能从磁盘上读／写
参阅

Seek 语句


Select Case无End Select

参阅

使用了Select语句但没有相应的End Select语句。检查在外层Select…End Select结构内是否存在不正确的Select…End select结构。如果有嵌套的Select Case 语句，则每一个都必须匹配一个End Select。


参阅Select Case无End Select
参阅

End 语句

Select Case 语句


选定的监视表达式不正确

用户选择即时监视，但选定的表达式不是正确表达式。例如， 用户不能察看注释或Sub过程调用。 监视表达式也必须具有语法代码与相应的项目地区，该项目定义被监视的表达 式。


不允许对ByVal变体型参数或ByVal对象参数用Set赋值
不允许对ByVal变体型参数或ByVal对象变元用Set赋值

参阅

用户不能对参数或已被说明成ByVal的参数。


参阅不允许对ByVal变体型参数或ByVal对象参数用Set赋值
参阅

ByVal

Set 语句

Variant 数据类型


要求SHARE.EXE

当启动Visual Basic时必须运行SHARE.EXE。确认这个问题，关闭用户的应用程序， 启动SHARE.EXE，然后重新运行用户应用程序。为了将来避免这个问题，在用户的AUTOEXEC.BAT文件中放置SHARE.EXE的启动条目，这样当用户打开机器时就会自动运行该程序。


指定的DLL函数未发现（错误４５３）
指定的DLL函数未找到（错误４５３）

在用户库中引用了动态链接库（DLL），但在DLL中未发现指定的DLL函数。 在函数描述中可能说明了不正确的序列。 也可能DLL有正确的名字但不是含有指定的函数的版本。


指定的库或项目已经引用
指明的库或项目已经引用

用户从[浏览]对话选定的类型库或项目已经排列在引用对话中。 [引用]对话显示引用库和项目。


Type块内的语句非法

参阅

只有注释和As类型从句可以在Type…End Type内部。


参阅Type块内的语句非法
参阅

Type 语句


Type块外的语句非法

参阅

用户试图在Type…End Type外面或Dirn, Redim, Static, Public, Private之外说明一个变量。例如：下面的代码中第一个MyVar的说明产生该错误， 而第二个MyVar说明是正确的。

MyVar As Double

Type AType

MyVar As Double

End Type

当遇到End Type 而没有相应的Type语句时也会导致这个错误。


参阅Type块外的语句非法
参阅

Type 语句


语句太复杂

参阅

Visral Basic由于语句的复杂性不能分列或用户在一个语句或函数内有太多的函数调用。 试着把那个语句截断成几个较小的语句或用逻辑运算和If…Then语句替代复杂的条 件从句。提前进行函数调用并把结果赋值给指定的变量，然后把变量用于导致复杂 性错误的语句。


参阅语句太复杂
参阅

If...Then...Else 语句


在Select Case与第一个Case之间的语句或标号非法

参阅

Select Case语句后必须紧跟着它的第一个Case语句，除注释外Select Case与第一个Case子句间不能有任何其它语句。


参阅在select Case与第一个Case之间的语句或标号非法
参阅

Select CaseobstmSelectCase


字符串表达式太复杂（错误１６）

表达式太复杂。未赋给变量的字符串（象那些由函数返回的字符串） 在表达式计算期间分配到临时的地方。有大量的这种字符串可引起该错误。 试着把这些字符串赋值给变量并在表达式中用变量作替代。


Sub或Function未定义（错误３５）

参阅

一个未定义的Sub, Function或Property过程被调用。

可能导致该错误的情况：

用户拼错了过程名。

用户试图从另一个项目调用一个过程，而没有把那个项目明确地

加入到工具菜单的［引用位置]对话中，象下面做的那样：

1.从[工具]菜单选中[引用位置]命令。

2 找到含有想调用的过程的项目名。 如果在对话框中没出现这个项目名，  使用[浏览]搜索它。

3.检查项目名左边的选择框

4.	单击[确定]。

说明的过程对调用过程是不可见的。在一个模块表中说明为Private的过程不 能从该模块表外的过程调用。如果Option Private Module有效，则该模块内的过程对其他项目是不可用的。从[编辑]菜单中选中 [查找]定位该过程。

用户说明了一个动态链接库(DLL)例程，但该例程不在指定的程序库中。


参阅Sub或Function未定义
参阅

Function 语句

Option Private 语句

Private 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


下标超出范围（错误９）
下标超界（错误９）

用户引用了一个不存在的数组元素或集合成员。下标可能比合理的下标范围大或小， 或者数组不具有应用程序在此处指定的维数。


语法错误

参阅

Visral Basic不能确定做什么动作。

可能导致该错误的情况：

关键字或参数被拼错。

标点符号错误。

过程未定义。

用户在同一过程描述中试图对Optional 和 ParamArray都加以指定。


参阅语法错误
参阅

Sub 语句


参数太多

用户在一个过程中说明了多于６０个参数。


打开的代码分割区域太多

监视这个模块表的窗口的最大数目已经被超过。


维数太多

数组可以具有不大于６０的维数。可用的内存空间也可限制维数。


太多的DLL应用程序客户

用于Visual Basic的动态链接库（DLL）同时只能被５０个主应用程序访问。减少打开访问Visual Basic的应用程序的数量。


太多的文件（６７）
太多的文件（错误６７）

可能导致错误的情况：

对同时打开磁盘文件的数目有一个限制。对于Microsoft Windows，这个限制是用户CONFIG.SYS文件中设置的函数Files＝ 。增加限制的文件数并重新启动。

操作系统对根目录下的文件数有一个限制（通常５１２）。如果用户程序打 开、关闭、保存文件都在根目录，就改变用户程序以便使用子目录。

在Macintosh上，标准限制是４０个文件。利用实用程序修改 自举块的MaxFiles参数可以改变这个限制。


太多的续行符

多于１０个的连续行用行继续符连接起来。物理地加长其中的某些行（减少必须的续行 符的数量），或打断语句的结构分成多个语句。


类型声明符与声明的数据类型不匹配

如果一个被声明的变量具有特定的类型，只有与之匹配的类型说明符可以使用。其类 型不能通过添加一个类型说明符改变为另外的类型。


类型声明符不允许

参阅

使用As从句的变量声明中不能使用类型说明符，而应用Dim, Static, Public 等等替代。Boalean, Date, Object和Variant类型具有无联系的类型声明符。


参阅类型声明符不允许
参阅

数据类型摘要

Dim 语句

Public 语句

Static 语句

Variant 数据类型


要求类型声明符

最初用类型说明符声明的变量被引用时无类型声明符。例如：

MyStr$ = "Implicit declaration"

MyStr = "Trying to refer to MyStr$ but calling it MyStr"

注意如果变量声明包含一个类型声明符，在后面的引用中该字符是任选的。例如：

Dim MyStr$

MyStr = "Because it was explicitly declared, the $ is optional"

最后，注意如果MyStr是用一个As从句明确声明的，类型说明符就不能使用在声明或随后的引用中：

Dim MyStr As String

MyStr$ = "This causes a Duplicate definition error!"


类型不匹配（错误１３）

可能导致错误的情况：

变量或属性不具有正确的类型。例如，一个要求整型值的变量不能 接收字符串值。

对象被传送到一个期望单属性或值的过程。

模块表或项目名被用于需要表达式的地方，例如：

Debug.ZPrint MyModule

用户企图用具有错误子类型（10，vbError）的变体型值去混合传统的 Basic错误处理。例如：

Error CVErr(n)

CVErr值不能转换成Date或数值类型（Integer， Long等等）；例如

MyVar = CInt(CVErr(9))

运行时，这个错误典型地表明Variant被用于一个具有不正确子类型的表达式，或那个Variant包含了一个数组出现在Print语句中。


类型不匹配;希望是数组或用户定义类型
类型不匹配：希望是数组或用户定义类型

参阅

如果一个参数被说明成数组或用户定义类型（记录变量），对整个数组或用户定义 类型的引用必须作为参数提供，而不是单个的元素或简单变量、文字或常量。


参阅类型错误匹配：希望是数组或用户定义类型
参阅

Type 语句


不能从磁盘读

从磁盘读时有一个一般的问题。磁盘可能没有适当的格式化。如果磁盘是可移动的， 检查驱动器门。如果是软盘，确定正确的面朝上插入。


不能向磁盘写

写磁盘的一般问题。磁盘可能没有恰当地格式化。如果磁盘是可移动的，检查驱动器的 门。如果是软盘，确定无写保护并且正确的面向上插入。


搜索串中括号不匹配

一个开括号必须与一个闭括号相匹配。


不识别的项目语言

为被装载的项目指定的代码地区不是应用程序目前支持的。如果项目创建在支持某种代 码地区的系统上，然后该项目移到了不识别这种代码地区的系统上，就会产生这个错 误。例如：当前机器上的OLEINL.DLL就可能是一个不识别这种代码地区的老版本。 也要检查确定正确的对象库是可用的。


对象库功能不支持

试图对Visual Basic不支持的对象库数据类型或函数进行访问。正确使用对象库时应连接对象库创建 者的更多信息和在对象库中使用的工具。


发生用户中断（错误１８）

CTRL＋BREAK或其他中断键被按下。


用户定义错误（错误９５）

参阅

应用程序执行了Errorn语句，该语句引起一个可捕获的用户定义错误。 如果Error语句指定了一个不能用于Visual Basic的错误代码， 则Error 函数返回信息(用户定义错误)。


参阅用户定义错误
参阅

Error 语句

Error 函数


用户定义类型不能由ByVal传递

参阅

用户定义类型只能传地址。移去ByVal关键字。如果用户想保持现有的变化将其 传递回调用者，Dim一个该类型的临时变量并将临时变量传递给过程。这个错误 直到进行调用时才报告。


参阅用户定义类型不能由ByVal传递
参阅

ByVal

Dim 语句

Type 语句


用户定义的类型未定义

参阅

用未定义的数据类型声明变量或参数。在模块表中使用Type语句定义新的数据类型。


参阅用户定义的类型未定义
参阅

Type 语句


不允许用户定义的类型无成员

参阅

用户不能创建一个含有无成员元素的用户定义类型。检查Type…End Type语句有无无意义的注释界符。


参阅不允许记录无数据字段
参阅

Type 语句


变量未定义

参阅

用户使用了要求明确变量声明的Option Explicit语句，并且使用了没有说明的变量。 因为有未定义变量，使用这个选择可以保护用户的应用程序，而且当发生书写错 误时消除创建新变量 的可能性。


参阅变量未定义
参阅

Option Explicit 语句


要求变量

参阅

可能导致错误的情况：

用户企图使用数值表达式作为len函数的参数。Len函数不接收数值表达式， 但接收字符串或数值变量或字符串表达式。.

用户使用了函数调用或表达式作为Input,Let,Get或Put的参数。 例如：用户使用了看来好象是对一个数值合法引用的参数，而实际上是 对同名函数的调用，这些语句不接收函数调用作为参数。

这个错误典型地发生在当用户企图对不能接收赋值的东西进行赋值时。例如：用户必 能对一个Sub名或表达式赋值。For结构中的循环计数器也必须是变量。同样，Len函数 可以接收数值变量作为参数，而不能接收数值的字符或二进制的表达式作为参数。


参阅要求变量
参阅

For Each...Next 语句

For...Next 语句

Get 语句

Input # 语句

Len 函数

Let 语句

Put 语句


VBA对象库未发现

符合项目语言的Visual Basic对象库（VBAXX.OLB）未发现。对象库可能完全丢失－－ 不在希望的目录上或者不是正确的版本。搜索用户盘使对象库在正确的目录中，并作 为主应用程序文文档加以指定。

如果丢失的库是一个被主应用程序替代的语言版本，可通过简单地重新运行创建程序 很容易地得到，如果用户项目要求与这个语言不相同的对象库，这个对象库由用户主 程序传送，（例如：某人传给用户一个项目，该项目是在为不同语言设置的机器编写 的），确定包括在项目中的Visual Basic对象库的正确的语言版本并安装在希望的位置。

应用程序可以支持它们的对象库的不同语言版本。找出要求的语言版本，单击[引用位置 ]， 并在对话框底部复选指定的语言。

对每种平台对象库存在有不同版本。因此，当项目跨平台移植时，（例如，从 Mainbosh到Windows），引用库的正确语言版本对于那个平台）必须在那个主应用程序文 档指定的位置中是可利用的。对象库文件名通常构造如下：

｛bmc bullet.bmp｝Windows：应用程序代码＋语言代码＋［版本］.OLB

例如

｛bmc bullet.bmp｝VBAFR.OLB应该是法语Vicual Basic对象库。

｛bmc bullet.bmp｝Macintosh：应用程序名语言代码［版本］OLB。

VBA FR OLB 应该是法语Visual Basic对象库。

如果用户不能在自己的系统上查找到遗漏的项目，与引用项目的作者联系。 如果遗漏的库是Microsoft应用程序对象库，能如下所示获得它：

｛bmc bullet.bmp｝如果用户存取Microsoft电子技术支持服务， 引用这个帮助文件的技术支持部分。在电子服务下， 用户能查找到有关如何使用相应服务选项的说明。

｛bmc bullet.bmp｝如果用户不能存取Microsoft电子技术支持服务，那么从Microsoft函索应用 程序注释，Microsoft对象库是可用的。怎样与用户当地Microsoft产品支持组织联系的信 息同样在这个帮助文件技术支持部分可找到。


警告：自定义的语言设置不可移植

当用户为用户的代码选择了自定义语言/国家的设置，语言约定被用于用户代码匹配在用户系统控制板中的那些设置。用户可以使用自定义码地区设置，而用户码用不同的设置 在其它地区或其它系统工作。主应用程序根据其在上运行的机器的控制面板设置分析字 符串。

如果目标机器的控制面板设置与上面编写代码的机器的控制板设置不相同，由主应用程 序进行的串分析（例如：代码取决于一个地区指定的十进制分隔符）将不工作。因此用 户不应使用自定义语言设置，除非用户不打算传送代码到其他用户。如果用户计划传送 代码到其他用户，请选定预定义地区。


Wend 无 While

参阅

每个Wend语句都必须有一个与之相匹配的While在前面。检查嵌套在While…Wend循环 中无终止的循环，这个无终止的循环导致错误。


参阅Wend 无 While
参阅

While...Wend 语句


While  无 Wend

参阅

使用了While语句而没有相应的Wend语句。在外部While…Wend结构内检查不正确地匹配While…Wend的结构。


参阅While 无 Wend
参阅

While...Wend 语句


With  对象必须是用户定义类型或对象

参阅

在With块内部用户试图使用非对象变量（或不是用户定义类型的变量）。查看用户是 否拼错了对象名或用户定义类型变量。


参阅With对象必须是用户定义类型或对象
参阅

Object 数据类型

With 语句


错误的参数个数（错误450）

参阅

调用过程时的参数个数与过程要求的参数个数不一样。对照过程说明检查调用参数表。


参阅错误的参数个数
参阅

Function 语句

Sub 语句


错误的维数

参阅

用户引用的数组的维数与它实际包含的不同。例如：引用的数组如X(2,4)是一个二维数组，而在定义数组时比如Dim X(5)是一个一维数组，这样就会产生这个错误。


参阅错误的维数
参阅

Dim 语句


必须重新启动程序，在编辑{bmc emdash.bmp}进行处理之后?
必须重新启动程序，在编辑 [image] 进行处理之后?

在中断方式 (break mode)中，不能编辑代码。如果选择[是]，执行将终止并将可能 编辑代码 。如果选择[否]，可暂停处继续运行代码。


 Err, Erl 函数实例

该实例显示了用Err和Erl函数实现的错误处理例程。如果没有别的错误，Err返回错误 编号11且Erl返回错误行1030。

Sub ErrDemo()

1010  On Error GoTo ErrorHandler	' Set up an error handler.

1020  B = 1: C = 0	' Initialize variables.

1030  A = B \ C	' Cause a "Division by zero" error.

1040  Exit Sub

ErrorHandler:	' Error handler.

ErrorNumber = Err 	' Get run-time error number.

ErrorLine = Erl	' Get line number.

Resume Next	' Resume execution at next line.

End Sub


 Err 语句实例

该实例显示了怎样用Err语句通过设置Err为0去清除错误。生成错误编号55来说明 其用法。

On Error Resume Next	' Enable error handling.

Open "TESTFILE" For Output as #1	' Open file for output.

Kill "TESTFILE"	' Attempt to delete open file.

Select Case Err	' Evaluate Error Number.

Case 55	' "File already open" error.

Close #1	' Close open file.

Kill "TESTFILE"	' Delete file.

Err = 0	' Reset Err to 0.

Case Else

' Handle other situations here...

End Select


 Error 函数实例

该实例用Error函数打印与指定错误编号对应的错误信息。

For ErrorNumber = 61 To 64	' Loop through values 61 - 64.

Debug.Print Error(ErrorNumber)	' Print error to Debug window.

Next ErrorNumber


 Error 语句实例

该实例用Error语句模拟错误11。

On Error Resume Next	' Enable error handling.

Error 11	' Simulate the "Division by zero" error.


 On Error 语句实例

该实例用On Error goto语句在一个过程中指定错误处理例程的位置。 试图删除打开的文件生成错误编号55。在错误处理例程中处理那个错误， 然后把控制返回给引起这个错误的语句。

Sub OnErrorStatementDemo()

On Error GoTo ErrorHandler	' Enable error-handling routine.

Open "TESTFILE" For Output as #1	' Open file for output.

Kill "TESTFILE"	' Attempt to delete open file.

Exit Sub	' Exit Sub before error handler.

ErrorHandler:	' Error-handling routine.

Select Case Err	' Evaluate Error Number.

Case 55	' "File already open" error.

Close #1	' Close open file.

Case Else

' Handle other situations here...

End Select

Resume	' Resume execution at same line

' that caused the error.

End Sub


 Resume 语句实例

该实例用Resume语句在一个过程中结束错误处理且重新开始执行引起错误的 那条语句。生成错误号55，举例说明它的用法。

Sub ResumeStatementDemo()

On Error GoTo ErrorHandler	' Enable error-handling routine.

Open "TESTFILE" For Output As #1	' Open file for output.

Kill "TESTFILE"	' Attempt to delete open file.

Exit Sub	' Exit Sub before error handler.

ErrorHandler:	' Error-handling routine.

Select Case Err	' Evaluate Error Number.

Case 55	' "File already open" error.

Close #1	' Close open file.

Case Else

' Handle other situations here...

End Select

Resume	' Resume execution at same line

' that caused the error.

End Sub


Close 语句

参阅	实例

描述

终止对一个用Open语句打开的文件的输入／输出（I／O）。

语法

Close [filenumberlist]

元素

filenumberlist参数可以是符合下列语法的一个或多个文件号，这里的filenumber是任何合法的文件号(file number)：

[#]filenumber][,[#]filenumber] . . .

解释

如果用户省略了filenumberlist，则关闭用Open语句打开的所有活动的文件。当用户关闭曾打开用于Output或Append的文件时，则把输出的最终缓冲区写到用于 该文件的操作系统缓冲区。然后释放与关闭的文件有关的所有缓冲区空间。当Close语句执行时，与文件号有关的文件终止。


Close语句参阅
参阅

End语句

Open语句

Reset语句

Stop语句


EOF 函数

参阅	实例

描述

返回一个值，指出是否已经到达文件结尾。

语法

EOF(filenumber)

元素

filenumber命名参数 是任何合法的文件号(file number)。

解释

使用EOF去避免试图超过文件结尾输入的错误做法。如果没有达到文件结尾， 返回False；否则，返回True。当用打开的文件作Random或Binary读写时，如果 上一个执行的Get语句不能读取一个完整记录，EOF返回False，否则，返回True。


EOF 函数参阅
参阅

Loc函数

LOF函数

Open语句


FileAttr 函数

参阅	实例

描述

返回用Open语句打开的文件的文件方式或操作系统文件柄信息。

语法

FileAttr(filenumber,returnType)

元素

FileAttr函数语法有下列命名参数 部分：

部分	描述

filenumber	任何合法的文件号file number

returnType	指出要返回的信息类型号：指定1，返回的值指出文件方式；

指定2，返回操作系统文件柄。

返回值

当returnType参数是1时，下列返回值指出文件方式：

值	文件方式

1	输入

2	输出

4	随机

8	追加

32	二进制


FileAttr函数参阅
参阅

GetAttr函数

Open语句

SetAttr语句


FreeFile 函数

参阅	实例

描述

返回可被Open语句利用的下一个文件号。

语法

FreeFile[(rangenumber)]

元素

rangenumber参数指定要返回的下一个空闲文件号的范围。指定0（默认），返 回从1到255这个范围内的文件号(file number) ，包括255。指定1，返回从256到511这个范围的文件号。

解释

当用户必须提供文件号且又要确信该文件号并未被使用时，用FreeFile


FreeFile函数参阅
参阅

Open语句


Get 语句

参阅	实例

描述

从一个打开的磁盘文件读入一个变量。

语法

Get [#]filenumber,[recnumber],varname

元素

Get语句语法有这些部分：

部分	描述

filenumber	任何合法的文件号(file number)。

recnumber	开始读取的记录号（随机方式文件）或字节号（二进制方式 文件）

varname	合法的变量(variable) 名，数据将读入该变量。

解释

文件中的第一记录／字节在位置1，第二个记录／字节在位置2，依次类推。如 果用户省略recnumber，则读下一个记录或字节（在上一个Get或Put语句之后的那一个或由上一个Seek函数所指的那一个）。必须包括定界逗号， 例如：

Get #4,,FileBuffer

以随机方式打开的文件，下列规则适用：

如果读入的数据长度小于Open语句的Len子句中	指定的长度，Get仍然按记录长度边界读入后读记录。在一个	记录的结尾和下一个记录的开始间的空隙用文件缓冲区中已有内容	填充。因为填充的数据量不能明确地确定，所以，通常较好的	办法是记录长度应与读入的数据的长度匹配。

如果读入的变量是可变长的字符串，Get先读一个含有字符 串长度的2字节描述符，然后把数据读进变量。因此，由Open语句中 Len子句指定的记录长度必须至少比字符串的长度大2字节。

如果读入变量的是一个数字型(numeric type) 	的Variant，则Get读入Variant的标识VarType的2字节，然后把数据读入变量	。例如，读 VarType 3的Variant时，Get读6个字节：2字节标识	Variant为VarType3（Long），4字节包含Long数据。由Open语句	中Len子句指定的记录长度必须至少大于存储该变量所需字节实	际数2个字节。

如果读入的变量是一个String Variant（VarType8），	Get读入标识VarType的2字节，2字节，指定该字符串长度，然后是字符	串数据。在Open语句中由Len子句指定的记录长度	至少必须大于实际字符串长度4个字节。

如果读入的变量是任何其它类型变量（非变长字符串或非Variant），	Get仅读变量数据。由Open语句中Len子句指定的记录长度必须大于 	或等于读入

的数据长度。

除元素间没有填充外，Get读用户定义类型的元素就如同分别读单个 	元素一样。由Open语句中Len从句指定的记录长度必须大于或等于所有需	要读写元素的字节的和。

以Binary方式打开的文件，所有随机规则均适用，但下列情况除外：

在二进制方式，Open语句中的Len子句不起作用。	Get从磁盘连续地读所有变量，即，记录间没有填充。

Get读不是用户定义类型的元素的变长串，不需要	2字节的字符串长度描述符。读的字节数等于字符串中已有的字符数。例 	如，下列语句从文件号1读10个字节：

VarString = String(10," ")

Get #1,,VarString


Get语句参阅
参阅

Open语句

Put语句

Type语句

VarType函数


Input # 语句

参阅	实例

描述

从打开的顺序文件读入数据并把数据赋给变量。

语法

Input #filenumber,varlist

元素

Input #语句语法有这样几部分：

部分	描述

filenumber	任何合法文件号(file number)。

varlist	逗号分隔的一列变量，从文件读的数据赋给它们， 它们不能是数组或对象变量。然而，可以使用描述数组元素或用户定义类型的元素变量。

解释

读数据时，标准字符串或数值数据赋给变量。下表说明了其它输入数据是如 何处理的：

数据	赋给变量的值
分隔逗号或空白线	Empty。
#NULL#	Null。
#TRUE# or #FALSE#	True或 False。
#yyyy-mm-dd hh:mm:ss#	用表达式表示的日期和／或时间。
#ERROR errornumber#	errornumber （变量是有错误标志的 Variant ）。
忽略输入数据中的双引号标志（"）。文件中的数据项必须与Varlist中变量的顺 序一样，并同相同数据类型变量匹配。如果变量是数字而数据不是，则把零赋 给变量。输入数据项时如果到达文件尾，则输入终止并出现错误。

附注  为了把文件中数据正确地读入变量，用户应该总是用Write#语句， 而不是用Print #语句在文件中写      数据。用Write#确保了每个分开的数据字段适 当地被分隔开了。


Input # 语句参阅
参阅

Input函数

Write #语句


Input 函数

参阅	实例

描述

从打开的顺序文件返回字符（字节）。

语法

Input(number,[#]filenumber)

元素

Input函数语法有这样几部分：

部分	描述

number	任何合法的数字表达式(numeric expression) ，指定要返回的字符数。

filenumber	 任何合法的文件号(file number)。

解释

这个函数仅用于以输入或二进制方式打开的文件。与Input #语句不样，Input函数返回它读到的所有字符，包括逗号、回车、换行、引号 和前导空格。

附注  另一个函数（InputB）是为某些亚洲地区使用双字节字符集（DBCS） 而提供的。number不是指定要返回字符数，而是指定字节数。在不用DBCS 的地区，InputB具 有与Input相同的行为。


Input #函数参阅
参阅

Input #语句

从函数返回字符串


Line Input # 语句

参阅	实例

描述

从打开的顺序文件读一行并把它赋给字符串变量。

语法

Line Input #filenumber,varname

元素

Line Input #语句语法有这样几部分

部分	描述

filenumber	任何合法的文件号file number。

varname	合法的字符串变量名variable 。

解释

Line Input #语句每次从文件中读1个字符，直到它遇到回车（chr（13）） 或回车换行序列为止。跳过回车换行序列，而不把它追加到字符串上。


Line Input #语句参阅
参阅

Input #语句


Loc 函数

参阅	实例

描述

返回打开的文件中当前的读／写位置。

语法

Loc(filenumber)

元素

filenumber命名参数 是任何有效文件号(file number)。

解释

下列内容描述了每一种文件读写方式的返回值。

文件方式	返回值

随机	从文件中读入或写到文件的上一个记录的编号。

顺序	用128除文件中的当前字节位置二进制	读或写的上一个字节的位置。


Loc函数参阅
参阅

EOF函数

LOF函数

Open语句


Lock...Unlock语句

参阅	实例

描述

控制其它处理对用Open语句打开的文件的全部或部分的存取。

语法

Lock [#]filenumber[,recordrange]
. . .
Unlock [#]filenumber[,recordrange]

元素

Lock和UnLock语句语法有这样几部分：

部分	描述

filenumber	任何有效的文件号(file number)。

recordrange	锁定或解锁的记录范围。

recordrange参数有下列语法和几部分：

recnumber | [start] To end

部分	描述

recnumber	开始锁定或解锁的记录编号（随机方式文件）或 字节号（二进制方式文件）。

start	要锁定或解锁的第一个记录或字节号。

end	要锁或解锁的最后一个记录或字节号。

解释

Lock和UnLock语句用在几个处理可能需要存取同一个文件的环境中。

Lock和UnLock语句总是配对使用。对Lock和UnLock的参数必须准确匹配。

文件中的第一个记录／字节位于位置1，第二个记录／字节位于位置2，等等。 如果用户只指定一个记录，则仅锁定或解锁那个记录。如果用户指定了记录 的范围并忽略了开始记录（start），则定锁或解锁从第一个记录到范围结尾的 所有记录。用没有recnumber的Lock锁定整个文件，则用没有recnumber的UnLock解锁整个文件。如果文件已打开用于顺序输入或输出，则Lock和UnLock影响整个文件，而不管用start和end 指定的范围。

警告  在关闭文件或终止用户程序之前要确保用 Unlock语句解除了所有 锁定。不解除锁定会产生不可预料的后果。


Lock...Unlock 语句参阅
参阅

Open语句


LOF 函数

参阅	实例

描述

以字节为单位，返回用Open语句打开的文件的大小。

语法

LOF(filenumber)

元素

filenumber命名参数 是任何合法文件号(file number)。

解释

获取未打开文件的长度，使用FileLen函数。


LOF 函数参阅
参阅

EOF函数

FileLen函数

Loc函数

Open语句


Open 语句

参阅	实例

描述

使输入／输出（I／O）能对文件进行。

语法

Open pathname [For mode] [Access access] [lock] As [#]filenumber [Len=reclength]

元素

Open语句语法有这样几部分：

部分	 描述

pathname	字符串表达式(String expression)，它指定文件名， [image] 可能包括目录或文件夹和驱动器。

mode	指定文件方式的关键字：Append， Binary， Input， Output或Random。

access	指定允许对打开文件执行的操作关键字：Read，Write 或ReadWrite。

lock	指定允许由其它处理对打开文件执行的操作关键字：Shared， Lock Read， Lock Write， Lock Read Write。

filenumber	合法文件号(file number)，范围从1到511，包括511。 用FreeFile函数能获得下一个可用文件号。

reclength	小于或等于32767（字节）的数。对于打开用于随机存取的 文件，这个值是记录长度。对顺序文件，这个值是缓冲区的字符数。

解释

用户必须在对文件进行任何I／O操作之前打开文件。Open分配对文件进行I／O的 缓冲区，并确定使用缓冲区的存取方式。

如果pathname指定的文件不存在，当文件打开是用于Append，Binary，Dutput， 或Random方式时，则创建它。如果文件已由另一个处理打开，且不允许指定的存取类型，则Open操作失败，错误出现。如果mode是Binary，则忽略Len子句。

注意  在二进制，输入和随机方式，用户不必首先关闭文件就能用不同的文件 号打开该文件。在追加和输出方式，用户在用不同的文件号打开它之前必须关 掉那个文件。

在Macintosh上，用Open语句指定的文件方式确定了初始Creator和Type属性设置：

  文件方式	创建者 	类型

Output	????	TEXT

Append	????	TEXT

Random	????	OBIN

Binary	????	OBIN

未指定	????	OBIN


Open 语句参阅
参阅

Close语句

FreeFile函数


Print # 语句

参阅	实例

描述

把显示格式的数据写到顺序文件。

语法

Print #filenumber,[outputlist]

元素

Print #语句语法有这样几部分：

部分	描述

filenumber	任何合法的文件号file number。

outputlist	要打印的表达式Expression或表达式列表。

 outputlist 参数有下列语法和部分：

[{Spc(n) | Tab[(n)]}][expression][charpos]

部分	描述

Spc(n)	在输出时，用来插空格字符，这里n是要插的空格字符数。

Tab(n)	用来确定绝对列的插入点位置，这里n是列号。用不带参数的Tab 定出下一个打印区(print zone)开始的插入点位置。

expression	要打印的数值Numeric 或字符串表达式(string expressions) 。

charpos	指定下一个字符的插入点。用分号指定在上一个显示字符后立 即插入的点，使用Tab（n）定出绝对列号的插入点。用不带参数 的Tab定出下一个打印区开始的插入点。如果忽略charpos，下一个字符在下一行打印。

解释

如果用户省略outputlist且在filenumber后仅包括一列分隔符，则打印一空白行到文 件中。能用空格或分号分开多个表达式。空格有与分号相同的效果。用Print# 写到文件的所有数据是国际识别的；即，数据正确地格式化（用适当的十进制 小数点），且关键字以适合国际地区(locale)的为用户系统指定的语言输出。对于 布尔数据，打印True或False。True和False关键字按用户系统指定的当地设置作适 当翻译。

用用户系统识别的标准短日期格式把Data数据写到文件。当日期或时间部分遗 漏或为零时，仅把提供的那部分写到文件中。

如果outputlist是Empty，则没有任何东西写到文件。可是，如果Outputlist数据是Null，则把Null写到文件。同样，Null关键字作适当翻译。对于错误数据，输出 以Error errorcode形式出现。当写到文件时，error关键字作适当翻译。因为Print #把数据图像写到文件，所以用户必须把数据定界，以使正确地打印。 如果用户用无参数的Tab把打印位置移到下一个打印区，Print #同样把打印区 之间把空间写到文件。

附注  如果在未来某个时间，用户要用Input#语句从文件读数据，应用 Write#语句而不是Print #语句把数据写到文件。通过适当地分隔数据，用Write #确保每个分开的数据的完整性，因此可用Input #反过来读它。用Write#同样会确保在任何地方正确地读它。


Print # 语句参阅
参阅

Open语句

Print方法

Spc函数

Tab函数

Write #语句


Put 语句

参阅	实例

描述

将变量写到磁盘文件。

语法

Put [#]filenumber,[recnumber],varname

元素

Put语句语法有这样几部分：

部分	描述

filenumber	任何合法的文件号。

recnumber	开始写的记录号（随机方式文件）或字节号（二进制方式文件）。

varname	含有要写到磁盘的数据变量variable名。

解释

文件中第一个记录／字节在位置1，第二个记录／字节在位置2，等等。如果用 户省略了recnumber，则写下一个记录或字节（在上一个Get或Put语句后的那一个或 上一个Seek函数指定的那一个）。用户必须包含分界分号，例如：

Put #4,,FileBuffer

以随机方式打开的文件，遵循下列规则：

如果正写的数据长度小于Open语句中Len子句指定的长度， Put仍然按记录长度边界写后来的记录。一个记录的结尾与下一个记录的开始间的空格用文件缓冲区已有的内容填充。因为填充的数据量不能准确确定，最好是记录长度与要写的数据长度匹配。

如果写的变量是变长串，Put先写含有字符串长度的2字 节描述符，然后是变量。由Open语句的Len子句指定的记录长度必须至少大于 实际字符串长度的2字节。

如果写的变量是数字类型(numeric type)的Variant，Put先写标识 Variant的VarType的2字节，然后是变量。例如，当写VarType3的Variant时，Put写6字节：2字节标识Variant作为VarType3（Long），4字节含Long数据。Open语句中Len子句指定的记录长度至少必须大于存储变量实际字节数2字节。

如果写的变量是StringVariant（VarType8），Put写2字节标识 VarType，2字节指出字符串的长度，然后是字符串数据。Open语句中Len子句 指定的记录长度必须至少大于实际长度4字节。

如果写的变量是任何其它类型变量（非变长字符串和非Variant）， Put仅写变量数据。Open语句中Len子句指定的记录长度必须大于或等于要写的数据的长度。

Put写用户定义类型的元素，就如同分别写单个元素一样， 但元素间没有填充。由Open语句中Len子句指定的记录长度必须大于或等于需要写单个元素的所有字节和。对于二进制方式打开的文件，所有随机规则均适用，但下列情况除 外：

Open语句中Len子句没有起作用。Put连续地把所有变量 写到磁盘；即，记录间没有填充。

Put写没有2字节长度描述符的用户定义类型的非元素变 长字符串。写的字节数等于字符串中字符数。例如，下列语句写10个字节到文件号1中：

VarString$ = String$(10," ")

Put #1,,VarString$


Put 语句参阅
参阅

Get语句

Open语句

VarType函数


Reset 语句

参阅	实例

描述

关闭用Open语句打开的所有磁盘文件。

语法

Reset

解释

Reset语句语法关闭所有由Open语句打开的当前文件，并把所有文件缓冲区内容写到磁盘。


Reset 语句参阅
参阅

Close语句

End语句

Open语句


Seek 函数

参阅	实例

描述

在用Open语句打开的文件中返回当前读／写位置。

语法

Seek(filenumber)

元素

 filenumber 命名参数 是任何合法文件号(file number)。

解释

Seek返回1和2147483647间的值，包括2147483647（等于230）。对于随机方式打开的 文件，Seek返回要读和写的下一个记录号。对于二进制，输出，追加或输入方式 打开的文件，Seek返回下一个操作要发生的字节位置。文件中第一个字节在位置1，第二个字节在位置2，等等。


Seek 语句参阅
参阅

Get语句

Open语句

Put语句

从函数返回字符串

Seek语句


Seek 语句

参阅	实例

描述

在用Open语句打开的文件中设置下次读或写的位置。

语法

Seek [#]filenumber,position

元素

Seek语句语法有这样几部分：

部分	描述

filenumber	任何合法的文件号file number。

position	范围在1到2147483647间的数，包括2147483647，它指出 下一次读或写将在哪里发生。

解释

Get和Put语句中指定的记录号超越Seek指定的文件位置。做完Seek操作后进行 文件写时，超过了文件尾则扩展文件。如果用户试图对负位置或零位置执行Seek 操作，则出现错误。


Seek 语句参阅
参阅

Get语句

Open语句

Put语句

Seek函数


Spc 函数

参阅	实例

描述

使用Print #语句或Print方法确定输出位置。

语法

Spc(n)

元素

n参数是打印或显示列表中下一个表达式之前要插入的空格数。

解释

如果n小于输出行宽度，下一个打印位置立即跟在打印过的空格后面。

如果n大于输出行宽度，Spc用这样的公式计算下一个打印位置：

currentprintposition + (n Mod width)

例如，如果当前打印是24，输出行宽度是80，用户又指定Spc（90），则下一个打印 从位置34开始（当前打印位置+90／80的余数）。如果当前打印位置和输出行 宽度的差小于n（n Mod Width），则Spc函数跳到下一行的开始位置，

生成空格数等于n-（Width-currentprintposition）

附注  确保用户表格列宽度足以适应较宽的字母。

当用户用具有适当空格字体的Print方法时，对于所选字体，用Spc函数打印的空格 字符宽度总是所有字符宽度的平均值。可是，在打印的字符数和这些字符占用的 固定宽度的列数间没有关连。例如，大写字母W占的宽度比一个固定列宽大，小写 字母I占的比一个固定列宽小。


Spc 函数参阅
参阅

Print方法

Print #语句

Space函数

Tab函数

Width #语句


Tab 函数

参阅	实例

描述

使用Print #语句或Print方法确定输出位置。

语法

Tab[(n)]

元素

n参数是在一列中显示或打印下一个表达式前定位的列数。如果忽略，Tab移动光标 到下一打印区(print zone)的开始位置。这就允许在逗号用作十进制分格符的 地区(locales)，使用Tab代替 逗号 。

解释

如果当前行中的当前打印位置大于n，Tab跳到下一输出行的第n列。如果n小于1， Tab把打印位置移到列1。如果n大于输出行宽度，Tab用这样的公式计算下一个打 印位置：

n Mod width

例如：如果宽度是80而用户指定Tab（90），则下一个打印从列10开始（90／80的余数）。

如果n小于当前打印位置，打印开始于下一行算出的打印位置。如计算出来的打 印位置大于当前打印位置，打印开始于相同行算出的打印位置。在输出行上最左 边打印位置总是1。当用户用Print #语句打印到文件时，最右边打印位置是输 出文件的当前宽度，该宽度用户能用Width #语句设置。

附注  确保用户表格列宽度足以适应较宽的字母。

当用户用具有Print方法的Tab函数时，打印面分成统一的，固定宽度列。对于选择 的字体，每列的宽度是所有字符宽度的平均值。可是，在打印的字符数和字符占 有的固定宽度列数间没有内在联系。例如，大写字母W占的宽度比一个固定列宽大，小写 字母I占的比一个固定列宽小。


Tab 函数参阅
参阅

Print方法

Print #语句

Space函数

Spc函数

Width #语句


Width # 语句

参阅	实例

描述

把输出行宽度赋给用Open语句打开的文件。

语法

Width #filenumber,width

元素

Width语句语法有这样几部分：

部分	描述

filenumber	任何合法的文件号file number。

width	数字表达式(Numeric expression)，范围从0到255，包括255， 它指出在开始新行之前在一行上出现多少字符。如果Width等于0，则对行的长度没有限制。Width的默认值是0。


Width # 语句参阅
参阅

Open语句

Print #语句


Write # 语句

参阅	实例

描述

写原始数据到顺序文件。

语法

Write #filenumber[,outputlist]

元素

Write语句语法有这样几部分：

部分	描述

filenumber	任何合法的文件号(file number)。

outputlist	写到文件的一个或多个逗号分隔的数字(numeric)或字符串表达式(string expressions) 。

解释

如果用户忽略outputlist并在filenumber后包括逗号，则一个空行打印到文件。多个 表达式能用空格，分号或逗号分开。空格与分号有相同功能。用Write#输出数据 到文件时，不管地区locales如何，应遵循几个通用假设，以便能用Input #读取数据并正确地解释。

数值数据总是用句号（。）作为十进制分格符来输出。

对于布尔数据，打印# True #或# FALSE #。不管地区为何，True和False关键字不翻译。

用通用日期格式(universal date format)把日期数据 写到文件。当日期或时间部分遗漏或为零时，仅把提供的部分写到文件。

如果outputlist数据是Empty，则没有内容写到文件。 可是对于Null数据，输 出为# NULL #。

对于错误数据，输出为# Error errorcode #。不管地区为何， Error关键字不翻译。

与 Print # 语句不同， Write # 语句在项目和带引号的字符串写入文件时， 在其之间插入逗号。在列表中不能设置明显的分隔符。当Write # 将ioutputlist 中最后一个字符写到文件后，插入一个新行字符（回车或换行）。


Write 语句参阅
参阅

Input #语句

Open语句

Print #语句


ChDir 语句

参阅	实例

描述

    改变当前目录或文件夹。

语法

ChDir path

元素

 path命名参数(named argument) 是字符串表达式(string expression) ，它标识哪个 目录或文件夹将成为新的默认目录或文件夹， [image] 可以包 括驱动器。如果未指定驱动器，则ChDir改变当前驱动器上的默认目录或文件夹。

解释

在Microsoft Windows中，ChDir语句改变的是默认目录而不是默认驱动器。    例如，如果默认驱动器是C，下列语句改变驱动器D上的默认目录，但C    仍然是默认驱动器。

ChDir "D:\TMP"

    在Mocintosh中，默认驱动器总是改变成在path中指定的哪个驱动器。


ChDir语句参阅
参阅

ChDrive语句

CurDir函数

Dir函数

MkDir语句

RmDir语句


ChDrive 语句

参阅	实例

描述

    改变当前驱动器。

语法

ChDrive drive

元素

drive命名参数(named argument) 是字符串表达式(string expression) ，它指定已存在的驱动器。如果用户提供了零长度参数（""），则当前驱动器不改变。 在Microsoft Windows中，如果参数drive是多个字符组成的串，则ChDrive仅用第 一个字母。

在Macintosh中，ChDrive改变当前文件夹到指定驱动器的根文件夹中。


ChDrive 语句参阅
参阅

ChDri语句

CurDir语句

MkDir语句

RmDir语句


CurDir 函数

参阅	实例

描述

    返回当前路径。

语法

CurDir[(drive)]

元素

drive参数是字符串表达式(string expression) ，它指定已存在的驱动器。在Microsoft Windows中，如果不指定驱动器或drive是零长度（"")，则CurDir返回当前驱动器    的路径。在Macintosh中，CurDir忽略任何指定的drive只单纯地返回当前驱动器的路径。


CurDir 函数参阅
参阅

ChDir语句

ChDrive语句

MkDir语句

从函数返回字符串

RmDir语句


Dir 函数

参阅	实例

描述

    返回分配指定模式或文件属性或驱动器卷标的文件名、目录名或文件夹名。

语法

Dir[(pathname[,attributes])]

元素

    Dir函数语法有这样几部分：

部分	描述

pathname	字符串表达式(String expression) ，指定文件名， [image] 可以包括目录或文件夹，以及驱动器。如果没有查找到pathname ，则返回  Null 。

attributes	常量Constant 或数字表达式(numeric expression)指定 文件属性的和。如果省略，则所有匹配pathname的普通文件 都返回。

attributes参数有这样一些常数和值：

常数	值	文件属性

vbNormal	0	普通。

vbHidden	2	隐藏。

vbSystem	4	系统 [image] 在Macintosh上无效。

vbVolume	8	卷标，如果指定，所有属性都忽略 [image] 在 Macintosh上无效。

vbDirectory	16	目录或文件夹。

附注    由Visual  Basic指定这些常数。因此，这些名字能在用户代码的任何地方使用， 以便取代实际数值。

解释

Dir支持指定多个文件的'*'（多个字符）和`?'（单个字符）通配符的使用。可是，在Macintosh上，这些字符作为合法文件名字符来对待，因而不能用作通配符去指定多个 文件。由于Macintosh不支持通配符，可用文件类型去标识文件组。 用户能用MacID函数指定文件类型以便取代用文件名。例如，下列语句返回当前文件夹中第一个"TEXT"文件的名字：

Dir("", MacID("TEXT"))

如果用户在Microsoft Windows中，把Dir与MacID一起使用，则出现错误。 大于256的任何attribute值被认为是MacID值。用户第一次调用Dir函数时，必须指定pathname，否则出现错误。如果用户同时指定了文件属性，则必须包括pathname。Dir返回 第一个匹配pathname的文件名。为了得到匹配pathname的任何其他文件名，不用参数 再调用Dir即可。若没有更多的文件匹配时，Dir返回零长度字符串。一旦返回零长度 字符串，用户必须在后续调用中指定pathname，否则出现错误。用户能不用检索完 所有匹配当前pathname的文件就可改变到新的pathname。无论如何，用户不能递归地 调用Dir函数。

提示  因为文件名不以特定次序检索，用户可用数组存储文件名并排序该数组。


Dir 函数参阅
参阅

ChDir函数

CurDir函数

MacID函数

从函数返回字符串


FileCopy 语句

参阅	实例

描述

    复制文件。

语法

FileCopy source, destination

元素

    FileCopy语句语法有这样一些命名参数 部分：

部分	描述

source	字符串表达式(String expression) ，指定将要复制的文件名， [image] 可从包括目录或文件夹和驱动器。

destination	字符串表达式，指定目标文件名， [image] 可以包括目录或文件夹和驱动器。

解释

    仅能复制用于只读存取的打开的文件。


FileCopy 语句参阅
参阅

kill语句

Name语句


FileDateTime 函数

参阅	实例

描述

    返回日期(date)，指出文件被创建或最近被修改的日期和时间。

语法

FileDateTime(pathname)

元素

pathname命名参数(named argument) 是字符串表达式(string expression)，它指定文件名， [image] 可以包括目录或文件夹和驱动器。


FileDateTime 函数参阅
参阅

FileLen函数

GetAttr函数


FileLen 函数

参阅	实例

描述

    返回以字节为单位的文件长度。

语法

FileLen(pathname)

元素

pathname命名参数(named argument) 是字符串表达式(string expression)，它指定文件名， [image] 可以包括目录或文件夹和驱动器。

解释

如果调用FileLen函数时，指定的文件是打开的，则返回的值是表示该文件最后存在 磁盘上的大小。    为获取打开文件的长度，使用LOF函数。


FileLen 函数参阅
参阅

FileDateTime函数

GetAttr函数

LOF函数


GetAttr 函数

参阅	实例

描述

    返回表示文件，目录或文件夹或卷标属性的数。

语法

GetAttr(pathname)

元素

pathname命名参数(named argument)是字符串表达式(string expression)，它指定文件名， [image] 可以包括目录或文件夹和驱动器。

返回值

    GetAttr返回的值是下列属性值的和：

值	常数	文件属性

0	vbNormal	普通

1	vbReadonly	只读

2	vbHidden	隐藏

4	vhSystem	系统， [image] 在Madintosh上无效

8	vbVdume	卷标， [image] 在Macintosh上无效

16	vbDirectory	目录或文件夹

32	vbAichive	自上次备份后文件已经改变过， [image] 在Macintosh上无效

附注    由Visual Basic指定这些常数。因此，这些名字能在用户代码的任何地方使用 ，以便取代实际 值。

解释

为判定设置了哪种属性，用And运算符进行GetAttr函数返回的值与用户要的单个文 件属性值的逐位比较(bit-wise comparison) 。如果结果是非零，则该属性对于该命名的文件 已设置了。例如，如果Archive属性没有设置，则下列And表达式的返回值是零。

Result = GetAttr(FName) And vbArchive

    如果Aichive属性已设置，则返回值是非零。


GetAttr 函数参阅
参阅

FileAttr函数

SetAttr语句


Kill 语句

参阅	实例

描述

    从磁盘删除文件。

语法

Kill pathname

元素

    pathname命名参数(named argument) 是字符串表达式(string expression)，它指定一个或多个要删除的文件名， [image] 可以包括目录或文件夹和驱动器。

解释

kill支持指定多个文件的`*'（多个字符）和`?'（单个字符）通配符的使用。可是，在Macintosh上，这些字符作为合法文件名字符来对待，因而不能用作通配符去指定多个 文件。 由于Macintosh并不支持通配符，可用文件类型去标识要删除的文件组。用户可用MacID函数指定文件类型以便取代用分开的文件名重复命令。例如，下列语句删除当前 文件夹中的所有"TEXT"文件。

Kill MacID("TEXT")

如果在Microsoft Windows中把MacID与kill一起来使用，则出现错误。如果用户用kill删除打开的文件，则出现错误。

删除目录，用RmDir语句。


Kill 语句参阅
参阅

RmDir语句

MacID函数


MacID 函数

参阅	实例

描述

    仅在Macintosh上使用，把4字符常数转换成Dir，kill，Shell和AppActivate可使用的值。

语法

MacID(constant)

元素

constant命名参数(named argument) 由4字符组成，用于指定源类型、文件类型、应用程序 标记或Apple Event。例如,TEXT、OBIN、MSWD(Microsoft Word）、EXCEL(Microsoft Excel）等等。

解释

MacID与Dir和kill一起使用，以指定Macintosh文件类型。由于Macintosh不支 持`*'和`?'作为通配符，用户可用4字符常数代替标识文件组。例如，下列语句从当前 文件夹返回`TEXT'类型文件：

Dir("", MacID("TEXT"))

MacID与Shell和AppActive一起使用，指定使用唯一应用程序标记的应用程序。


MacID 函数参阅
参阅

AppActive语句

Dir函数

kill语句

Shell函数


MkDir 语句

参阅	实例

描述

    创建新目录或文件夹。

语法

MkDir path

元素

path命名参数(named argument)是字符串表达式(string expression)，它标识将要创建的目录或文件夹。可以包括驱动器。如果没有指定驱动器，MkDir在当前驱动器上创建新目录或文件夹。

解释

在Microsoft Windows中，如果用户用MkDir创建一个其名字含有嵌入空格的目录， 则用户可以用某些应用程序存取它，但用户不能用标准操作系统命令删除它。删 除该目录，使用RmDir语句。


MkDir 语句参阅
参阅

ChDir语句

CurDir函数

RmDir语句


Name 语句

参阅	实例

描述

    更改磁盘文件，目录或文件夹名。

语法

Name oldpathname As newpathname

元素

    Name语句语法有这样几部分：

部分	描述

oldpathname	字符串表达式(String expression)，它指定已存在的文件名和位置， [image] 可以包括目录或文件夹和驱动器。

newpathname	字符串表达式，它指定新文件名和位置， [image] 包括目录或文件夹和驱动器。由newpathname指定的文件不能是已有的文件。

解释

newpathname和oldpathname两者必须在相同驱动器上。如果newpathname中的路径已存 在，且它又不同于oldpathname中的路径，则Name语句把文件移到新目录或文件夹中， 若必要的话，更换文件名。如果newpathname和oldpathname有不同的路径且有相同文 件名，则Name把文件移到新位置，保持文件名不变。用Name时，用户能把文件从一 个目录或文件夹移到另一个去，但用户不能移动目录或文件夹。Name支持`*'（多个 字符）和`?'（单个字符）通配符的使用。可是，在Macintosh上，这些字符作为合法 文件名字符来对待，不能用作通配符去指定多个文件。在打开的文件用Name将产生 错误。用户 必须在更名之前关闭打开的文件。


Name 语句参阅
参阅

kill语句


RmDir 语句

参阅	实例

描述

    删除已存在的目录或文件夹。

语法

RmDir path

元素

    path命名参数是字符串表达式，它标识要删除的目录或文件夹，

    不可包括驱动器。如果没有指定驱动器，RmDir在当前驱动器上删除目

    录或文件夹。

解释

    如果用户试图对含有文件的目录或文件夹使用RmDir，则有错误出现。

    在删除目录或文件夹之前，用kill语句删除所有文件。


RmDir 语句参阅
参阅

ChDir语句

CurDir函数

kill语句

MkDir语句


SetAttr 语句

参阅	实例

描述

    为文件设置属性信息。

语法

SetAttr pathname,attributes

元素

    SetAttr语句语法有这样一些命名参数(named-argument)部分：

部分	描述

pathname	字符串表达式(String expression)，它指定文件名， [image] 可以包括目录或文件夹和驱动器。

attributes	常量(Constant)或数字表达式(numeric expression)，指定文件属性的和attributes的常数和值：

常数	值	文件属性

vbNormal	0	普通（默认）

vbReadOnly	1	只读

vbvHidden	2	隐藏

vbSystem	4	系统， [image] 在Macintosh上，无效

vbAicive	32	自上次备份后文件已经被改变过， [image] 在Macintosh上无效

附注    由Visual Basic指定这些常数。因此，在用户代码中任何地方均能用这些名字代替 实际值。

解释

    如果用户设置打开文件的属性，则会出现运行错误。


SetAttr 语句参阅
参阅

FileAttr函数

GetAttr函数


 ChDir 语句实例

该实例用 ChDir 语句改变当前目录或文件夹。

' Change current directory or folder to "MYDIR".

ChDir "MYDIR"

' In Microsoft Windows.

' Assume "C:" is the current drive.  The following statement changes

' the default directory on drive "D:". "C:" remains the current drive.

ChDir "D:\WINDOWS\SYSTEM"

' On the Macintosh.

' Changes default folder and default drive.

ChDir "HD:MY FOLDER"


 ChDrive 语句实例

该实例用 ChDrive 语句改变当前驱动器。

' In Microsoft Windows.

ChDrive "D"	' Make "D" the current drive.

' On the Macintosh.

' Make "MY DRIVE" the current drive

ChDrive "MY DRIVE:"

' Make "MY DRIVE" the current drive and current folder since its the

' root.

ChDrive "MY DRIVE:MY FOLDER"


 CurDir 函数实例

该实例用 CurDir 函数返回当前路径。

' In Microsoft Windows.

' Assume current path on C Drive is  "C:\WINDOWS\SYSTEM".

' Assume current path on D Drive is "D:\EXCEL".

' Assume C is the current drive.

MyPath = CurDir	' Returns "C:\WINDOWS\SYSTEM".

MyPath = CurDir("C")	' Returns "C:\WINDOWS\SYSTEM".

MyPath = CurDir("D")	' Returns "D:\EXCEL".

' On the Macintosh.

' Drive letters are ignored. Path for current drive is returned.

' Assume current path on HD Drive is  "HD:MY FOLDER".

' Assume HD is the current drive. Drive MD also exists on the machine.

MyPath = CurDir	' Returns "HD:MY FOLDER".

MyPath = CurDir("HD")	' Returns "HD:MY FOLDER".

MyPath = CurDir("MD")	' Returns "HD:MY FOLDER".


 Dir 函数实例

该实例用 Dir 函数检查指定文件和目录是否存在。 MacID 函数可以在 Macintosh中使用，用以指定文件类型。

' In Microsoft Windows.

' Returns "WIN.INI" if it exists.

MyFile = Dir("C:\WINDOWS\WIN.INI")

' Returns file name with specified extension. If more than one *.ini

' file exists, the first file name found is returned.

MyFile = Dir("C:\WINDOWS\*.ini")

' Call Dir again without arguments to return the next *.ini file in the

' same directory.

MyFile = Dir

' Return first *.txt file with a set hidden attribute.

MyFile = Dir("*.TXT", vbHidden)

' On the Macintosh.

' Use the MacID function to specify file type.

' The following statement returns the first "TEXT" file found in the

' specified directory or folder.

MyFile = Dir("HD:MyFolder:", MacID("TEXT"))


 FileCopy 语句实例

该实例用 FileCopy 语句复制一个文件到另一个文件。对该实例来说， 假定SRCFILE是含有某些数据的一个文件。

SourceFile = "SRCFILE"	' Define source file name.

DestinationFile = "DESTFILE"	' Define target file name.

FileCopy SourceFile, DestinationFile	' Copy source to target.


 FileDateTime 函数实例

该实例用 FileDateTime 函数得到文件创建或最后修改时的日期和时间。 显示的日期和时间格式以用户系统的本地设置为依据。

' Assume TESTFILE was last modified on February 12 1993 at 4:35:47 PM.

' Assume United States/English locale settings.

MyStamp = FileDateTime("TESTFILE")	' Returns "2/12/93 4:35:47 PM".


 FileLen 函数实例

该实例用 FileLen 函数以字节为单位返回一个文件的长度。对该实例来说， 假定TESTFILE是含有某些数据的一个文件。

MySize = FileLen("TESTFILE")	' Returns file length (bytes).


 GetAttr 函数实例

该实例用 GetAttr 语句判定一个文件和目录或文件夹的属性。

' Assume file TESTFILE has hidden attribute set.

MyAttr = GetAttr("TESTFILE")	' Returns 2.

' Assume file TESTFILE has hidden and read-only attributes set.

MyAttr = GetAttr("TESTFILE")	' Returns 3.

' Assume MYDIR is a directory or folder.

MyAttr = GetAttr("MYDIR")	' Returns 16.


 Kill 语句实例

该实例用 Kill 语句从磁盘上删除文件。由于Macintosh不支持通配符， 用户可用MacID函数去指定文件类型而不是文件名。

' Assume TESTFILE is a file containing some data.

Kill "TestFile"	' Delete file.

' In Microsoft Windows.

' Delete all *.txt files in current directory.

Kill "*.txt"

' On the Macintosh.

' Use the MacID function to delete all PICT files in current folder

Kill MacID("PICT")


 MacID 函数实例

该实例显示了 MacID 函数的各种用途。在Microsoft Windows中不能使用 MacID 函数。

' Return the first text file in folder HD:My Folder.

FileName = Dir("HD:My Folder:", MacID("TEXT"))

' Deletes all "TEXT" files in the current folder.

Kill MacID("TEXT")

' Run Microsoft Excel.

ReturnValue = Shell(MacID("XCEL"))

' Activate Microsoft Word.

AppActivate MacID("MSWD")


 MkDir 语句实例

该实例用 MkDir 语句创建目录或文件夹。如果未指定驱动器，则在当前驱动器上创建新目录或文件夹。

MkDir "MYDIR"	' Make new directory or folder.


 Name 语句实例

该实例用 Name 语句更名一个文件。对该实例来说，假定指定的目录或文件夹已经存在。

OldName = "OLDFILE" : NewName = "NEWFILE"	' Define file names.

Name OldName As NewName	' Rename file.

' In Microsoft Windows.

OldName = "C:\MYDIR\OLDFILE" : NewName = "C:\YOURDIR\NEWFILE"

Name OldName As NewName	' Move and rename file.

' On the Macintosh.

OldName = "HD:MY FOLDER:OLDFILE" : NewName = "HD:YOUR FOLDER:NEWFILE"

Name OldName As NewName	' Move and rename file.


 RmDir 语句实例

该实例用 RmDir 语句删除已存在的目录或文件夹。

' Assume that MYDIR is an empty directory or folder.

RmDir "MYDIR"	' Remove MYDIR.


 SetAttr 语句实例

该实例用 SetAttr 语句为文件设置属性。

SetAttr "TESTFILE", vbHidden	' Set hidden attribute.

SetAttr "TESTFILE", vbHidden + vbReadOnly	' Set hidden and Read-only

' attributes.


 Close 语句实例

该实例用Close语句关闭所有打开用于Output的3个文件。

For I = 1 To 3	' Loop 3 times.

FileName = "TEST" & I	' Create file name.

Open FileName For Output As #I	' Open file.

Print #I, "This is a test."	' Write string to file.

Next I

Close	' Close all 3 open files.


 EOF 函数实例

该实例用EOF函数检测文件是否结束。对本例来说，假定MyFile是仅有几行文字的 文本文件。

Open "MyFile" For Input As #1	' Open file for input.

Do While Not EOF(1)	' Check for end of file.

Line Input #1, InputData	' Read line of data.

Debug.Print InputData	' Print to Debug window.

Loop

Close #1	' Close file.


 FileAttr 函数实例

该实例用FileAttr函数返回一个打开文件的文件方式和文件柄。

FileNum = 1	' Assign file number.

Open "TESTFILE" For Append As FileNum	' Open file.

Handle = FileAttr(FileNum, 1)	' Returns 8 (Append file mode).

Mode = FileAttr(FileNum, 2)	' Returns file handle.

Close FileNum	' Close file.


 FreeFile 函数实例

该实例用FreeFile函数返回下一个可用的文件编号。在这个循环中，打开了5个文 件用于输出，每个都写入了相同的数据。

For MyIndex = 1 to 5	' Loop 5 times.

FileNumber = FreeFile	' Get unused file

' number.

Open "TEST" & MyIndex For Output As #FileNumber	' Create file name.

Write #FileNumber, "This is a sample"	' Output text.

Close #FileNumber	' Close file.

Next MyIndex


 Get 语句实例

该实例用Get语句从磁盘文件读数据到变量。对本例来说，假定TESFILE是含有用 户定义类型Record的5个记录的文件。

Type Record	' Define user-defined type.

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record	' Declare variable.

' Open sample file for random access.

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

' Read the sample file using the Get statement.

Position = 3	' Define record number.

Get #1, Position, MyRecord	' Read third record.

Close #1	' Close file.


 Input # 语句实例

该实例用Input#语句从文件中读数据到两个变量。对该实例来说，假定TESTFILE是 一个用Write#语句写入的仅有几行数据的文件；即，每行含有引号引起的一个字符 串和一个由逗号分开的数值。例如，("Hello",234)。

Open "TESTFILE" For Input As #1	' Open file for input.

Do While Not EOF(1)	' Loop until end of file.

Input #1, MyString, MyNumber	' Read data into variables.

Debug.Print MyString, MyNumber	' Print data to Debug window.

Loop

Close #1	' Close file.


 Input 函数实例

该实例用Input函数一次从一个文件中读一个字符并把它输出到调试窗口。对该实 例来说，假定TESTFILE是一个有几行样本数据的文本文件。

Open "TESTFILE" For Input As #1	' Open file.

Do While Not EOF(1)	' Loop until end of file.

MyChar = Input(1, #1)	' Get one character.

Debug.Print MyChar	' Print to Debug window.

Loop

Close #1	' Close file.


 Line Input # 语句实例

该实例用Line Input #语句从顺序文件中读一行并将其赋给一个变量。 对该实例来说，假定TESTFILE是 有几行样本数据的文本文件。

Open "TESTFILE" For Input As #1	' Open file.

Do While Not EOF(1)	' Loop until end of file.

Line Input #1, TextLine	' Read line into variable.

Debug.Print TextLine	' Print to Debug window.

Loop

Close #1	' Close file.


 Loc 函数实例

该实例用Loc函数返回一个打开文件的当前读写位置。对该实例来说，假定 TESTFILE是有几行样本数据的文本文件。

Open "TESTFILE" For Input As #1	' Open file just created.

Do While Not EOF(1)	' Loop until end of file.

Line Input #1, MyLine	' Read line into variable.

MyLocation = Loc(1)	' Get current position within file.

' Print to Debug window.

Debug.Print MyLine; Tab; MyLocation

Loop


Lock， Unlock 语句实例
 Lock, Unlock 语句实例

该实例说明了Lock和Unlock语句用法。当一个记录正在被修改时，拒绝其他处理 对该记录的存取。对该实例来说，假定TESTFILE是含有用户定义类型Record的5 个记录的文件。

Type Record	' Define user-defined type.

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record	' Declare variable.

' Open sample file for random access.

Open "TESTFILE" For Random Shared As #1 Len = Len(MyRecord)

RecordNumber = 4	' Define record number.

Lock #1, RecordNumber	' Lock record.

Get #1, RecordNumber, MyRecord	' Read record.

MyRecord.ID = 234	' Modify record.

MyRecord.Name = "John Smith"

Put #1, RecordNumber, MyRecord	' Write modified record.

Unlock #1, RecordNumber	' Unlock current record.

Close #1	' Close file.


 LOF 函数实例

该实例用LOF函数确定打开的磁盘文件的大小。对该实例而言，假定TESTFILE是含 有样本数据的文本文件。

Open "TESTFILE" For Input As #1	' Open file.

FileLength = LOF(1)	' Get length of file.

Close #1	' Close file.


 Open 语句实例

该实例说明了Open语句的各种用法，以便能对文件进行输入/输出。

' Open in sequential-input mode.

Open "TESTFILE" For Input As #1

' Open in binary-file mode for writing operations only.

Open "TESTFILE" For Binary Access Write As #1

' Open file in random-access mode. The file contains records of the

' user-defined type Record.

Type Record	' Define user-defined type.

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record	' Declare variable.

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

' Open for sequential output; any process can read/write to file.

Open "TESTFILE" For Output Shared As #1

' Open in binary-file mode for reading; other processes can't read

' file.

Open "TESTFILE" For Binary Access Read Lock Read As #1


 Print # 语句实例

该实例用Print #语句向文件写数据。

Open "TESTFILE" For Output As #1	' Open file for output.

Print #1, "This is a test"	' Print text to file.

Print #1,	' Print blank line to file.

Print #1, "Zone 1"; Tab ; "Zone 2"	' Print in two print zones.

Print #1, "Hello" ; " " ; "World"	' Separate strings with space.

Print #1, Spc(5) ; "5 leading spaces "	' Print 5 leading spaces.

Print #1, Tab(10) ; "Hello"	' Print word at col 10.

' Assign Boolean, Date, Null and Error values.

MyBool = False : MyDate = #February 12, 1969# : MyNull = Null

MyError = CVErr(32767)

' True, False, Null and Error are translated using locale settings of

' your system. Date literals are written using standard short date

' format.

Print #1, MyBool ; " is a Boolean value"

Print #1, MyDate ; " is a date"

Print #1, MyNull ; " is a null value"

Print #1, MyError ; " is an error value"

Close #1	' Close file.


 Put 语句实例

该实例用Put语句写数据到磁盘文件。用户定义类型Record的5个记录写到了文件中。

' Define user-defined type.

Type Record

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record	' Declare variable.

' Open file for random access.

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

For RecordNumber = 1 To 5	' Loop 5 times.

MyRecord.ID = RecordNumber	' Define ID.

MyRecord.Name = "My Name" & RecordNumber	' Create a string.

Put #1, RecordNumber, MyRecord	' Write record to file.

Next RecordNumber

Close #1	' Close file.


 Reset 语句实例

该实例用Reset语句关闭所打开的文件，并把所有文件缓冲区的内容写到磁盘。

For FileNumber = 1 To 5	' Loop 5 times.

' Open file for output.

Open "TEST" & FileNumber For Output As #FileNumber

Write #FileNumber, "Hello World"	' Write data to file.

Next FileNumber

Reset	' Close files and write contents

' to disk.


 Seek 函数实例

该实例用Seek函数返回当前文件位置。

' For files opened in random-file mode, Seek returns number of next

' record.  Assume TESTFILE is a file containing records of the

' user-defined type Record.

Type Record	' Define user-defined type.

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record	' Declare variable.

' Open file in random-file mode.

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

Do While Not EOF(1)	' Loop until end of file.

Get #1, , MyRecord	' Read next record.

Debug.Print Seek(1)	' Print record number to Debug

' window.

Loop

Close #1	' Close file.

' For files opened in modes other than random mode, Seek returns the

' byte position at which the next operation will take place. Assume

' TESTFILE is a file containing a few lines of text.

Open "TESTFILE" For Input As #1	' Open file for reading.

Do While Not EOF(1)	' Loop until end of file.

MyChar = Input(1,#1)	' Read next character of data.

Debug.Print Seek(1)	' Print byte position to Debug

' window.

Loop

Close #1	' Close file.


 Seek 语句实例

该实例用Seek语句在一个文件中设置下一次读或写的位置。

' For files opened in random-file mode, Seek sets the next

' record. Assume TESTFILE is a file containing records of the

' user-defined type Record.

Type Record	' Define user-defined type.

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record	' Declare variable.

' Open file in random-file mode.

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

MaxSize = LOF(1) \ Len(MyRecord)	' Get number of records in file.

' The loop reads all records starting from the last.

For RecordNumber = MaxSize To 1 Step - 1

Seek #1, RecordNumber	' Set position.

Get #1, , MyRecord	' Read record.

Next RecordNumber

Close #1	' Close file.

' For files opened in modes other than random mode, Seek sets the

' byte position at which the next operation will take place. Assume

' TESTFILE is a file containing a few lines of text.

Open "TESTFILE" For Input As #1	' Open file for input.

MaxSize = LOF(1)	' Get size of file in bytes.

' The loop reads all characters starting from the last.

For NextChar = MaxSize To 1 Step -1

Seek #1, NextChar	' Set position.

MyChar = Input(1,#1)	' Read character.

Next NextChar

Close #1	' Close file.


 Spc 函数实例

该实例和Spc函数定出文件中和调试窗口中的输出位置。

' The Spc function can be used with the Print # statement.

Open "TESTFILE" For Output As #1	' Open file for output.

Print #1, "10 spaces between here"; Spc(10); "and here."

Close #1	' Close file.

' The following statement causes the text to be printed in the Debug

' window, preceded by 30 spaces.

Debug.Print Spc(30); "Thirty spaces later..."


 Tab 函数实例

该实例用Tab函数定出文件中或调试窗口中的输出位置。

' The Tab function can be used with the Print # statement.

Open "TESTFILE" For Output As #1	' Open file for output.

' The second word prints at column 20.

Print #1, "Hello"; Tab(20); "World."

' If the argument is omitted, cursor is moved to the next print zone.

Print #1, "Hello"; Tab ; "World"

Close #1	' Close file.

' The Tab function can also be used with the Print method.

' The following statement prints text starting at column 10.

Debug.Print Tab(10); "10 columns from start."


 Width # 语句实例

该实例用Width语句对文件设置输出行宽。

Open "TESTFILE" For Output As #1	' Open file for output.

Width #1, 5	' Set output-line width to 5.

For I = 0 To 9	' Loop 10 times.

Print #1, Chr(48 + I);	' This prints 5 characters per line.

Next I

Close #1	' Close file.


 Write # 语句实例

该实例用Write# 语句把原始数据写到顺序文件。

Open "TESTFILE" For Output As 1	' Open file for output.

Write #1, "Hello World", 234	' Written data is comma delimited.

Write #1,	' Write blank line.

' Assign Boolean, Date, Null and Error values.

MyBool = False : MyDate = #February 12, 1969# : MyNull = Null

MyError = CVErr(32767)

' Boolean data is written as #TRUE# or #FALSE#. Date literals are

' written in universal date format. Null data is written as #NULL#.

' Error data is written as #ERROR errorcode#.

Write #1, MyBool ; " is a Boolean value"

Write #1, MyDate ; " is a date"

Write #1, MyNull ; " is a null value"

Write #1, MyError ; " is an error value"

Close #1	' Close file.


IsArray 函数

参阅	实例

描述

    返回一个值,指出一个变量是否是一个数组。

语法

IsArray(varname)

元素

    varname命名参数可以是任何变量(variable)。

解释

    如果变量是一个数组，IsArray返回True；否则，返回False。


IsArray 函数参阅
参阅

Array 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

TypeName 函数

Variant 数据类型

VarType 函数


IsDate 函数

参阅	实例

描述

    返回一个值，指出一个表达式能否转换为日期。

语法

IsDate(expression)

元素

experssion命名参数能够是可识别为日期或时间的任何日期date 或字符串表达式(string expression) 。

解释

如果表达式是一个日期或能合法地转换为一个日期，IsDate返回True；否则，返回False。合法日期的范围是公元100年1月1日至公元9999年12月31日。


IsDate 函数参阅
参阅

CDate 函数

Date 数据类型

IsArray 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

TypeName 函数

Variant 数据类型

VarType 函数


IsEmpty 函数

参阅	实例

描述

    返回一个值，指出一个变量是否已初始化。

语法

IsEmpty(expression)

元素

experssion命名参数可以是任何数字(numeric) 或字符串表达式(string expression)。然而，因为IsEmpty用于判定单个变量是否初始化了，所以expression参 数最常用的是单一变量名(variable name)。

解释

如果变量是Empty，IsEmpty返回True；否则返回False。如果expression包含多个变量 ，则总是返回False。


IsEmpty 函数参阅
参阅

IsArray 函数

IsDate 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

TypeName 函数

Variant 数据类型

VarType 函数


IsError 函数

参阅	实例

描述

    返回一个值，指出表达式是否是一个错误值。

语法

IsError(expression)

元素

    expression命名参数可以是用于指出错误值的任何数字表达式(numeric expression) 。

解释

 利用CVErr函数把实数转换为错误值来产生错误值。IsError函数用来判定一个数字表达 式是否表示一个错误。如果expression参数指出一个错误，则IsError返回True；否则，返 回False。


IsError 函数参阅
参阅

IsArray 函数

IsDate 函数

IsEmpty 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

CVErr 函数

TypeName 函数

Variant 数据类型

VarType 函数


IsMissing 函数

参阅	实例

描述

    返回一个值，指出一个可选参数是否已经传递给一个过程。

语法

IsMissing(argname)

元素

    argname命名参数是可选过程参数名。

解释

在有可选参数的过程中使用IsMissing函数，包括ParamArray参数，用以判定参数是否已经传递给过程。如果没有值传递给指定的参数，IsMissing返回True；否则，返回False。


IsMissing 函数参阅
参阅

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句

TypeName 函数

Variant 数据类型

VarType 函数


IsNull 函数

参阅	实例

描述

    返回一个值，指出表达式是否含有非法数据（Null）。

语法

IsNull(expression)

元素

    experssion命名参数可以是任何数字(numeric) 或字符串表达式(string expression)。

解释

如果expression是Null，那么它含有非法数据，IsNull返回True；否则，IsNull返回False。 如果expression由一个以上变量组成，任何变量中的Null都将使整个表达式返回True。

Null值指出Variant含有非法数据。Null与Empty是不一样的，Empty是指出变量还未初 始化 。它同样与零长度字符串不一样，有时候，零长度字符串称作为空字符串。

注意    用IsNull函数判定表达式是否含有Null值。用户可能期望在某些环境下产生True 的表 达式， 诸如If Var=Null和If Var<>Null，它总是产生False。这是因为含有 Null的任何表达式 本身是Null， 因此是False。


IsNull 函数参阅
参阅

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNumeric 函数

IsObject 函数

TypeName 函数

Variant 数据类型

VarType 函数


IsNumeric 函数

参阅	实例

描述

    返回一个值，指出表达式是否能求出数值。

语法

IsNumeric(expression)

元素

    expression命名参数可以是任何数字（numeric） 或字符串表达式(string expression)。

解释

    如果整个expression被认为是数字，则IsNumeric返回True；否则返回False。

    如果expression是日期表达式(date expression)，IsNumeric返回False。


IsNumeric 函数参阅
参阅

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsObject 函数

TypeName 函数

Variant 数据类型

VarType 函数


IsObject 函数

参阅	实例

描述

    返回一个值，指出表达式是否引用了合法OLE自动化对象。

语法

IsObject(expression)

元素

    expression命名参数可以是任何表达式(expression)。

解释

如果expression是一个对实际对象的合法引用，IsObject返回True；否则，它返回False。


IsObject 函数参阅
参阅

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

Object 数据类型

Set 语句

TypeName 函数

Variant 数据类型

VarType 函数


TypeName 函数

参阅	实例

描述

    返回一个提供有关变量信息的字符串。

语法

TypeName(varname)

元素

    varname命名参数可以是任何变量(variable)，但用户定义类型的变量除外。

解释

    TypeName返回的串可以是下列任何串之一：

返回的字符串 	变量含有

objecttype	类型是Objecttype的OLE自动化对象。

Integer 	整数。

Long	长整数。

Single	单精度浮点数。

Double	双精度浮点数。

Currency	货币值。

Date	日期。

String	字符串。

Boolean	布尔值。

Error	错误值。

Empty	未初始化。

Null	非法数据。

Object	不能支持OLE自动化的对象。

Unknown	类型是未知的OLE自劝化对象。

Nothing	不能引用对象的对象变量。

如果varname是数组，返回的字符串可以是带有空括号的返回字符串（或variant）的 任何一个。例如，如果varname是整型数组，则TypeName返回"Integer()"。


TypeName 函数参阅
参阅

数据类型摘要

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

Variant 数据类型

VarType 函数


VarType 函数

参阅	实例

描述

    返回一个值，指出变量的子类型。

语法

VarType(varname)

元素

    Varname命名参数可以是任何变量(variable)，但用户定义的类型除外。

返回值

返回值	常量	变量类型

0	vbEmpty	Empty （未初始化）。

1	vbNull	Null （非法数据）。

2	vbInteger	整型。

3	vbLong	长整型。

4	vbSingle	单精度浮点数。

5	vbDouble	双精度浮点数

6	vbCurrency	货币。

7	vbDate	日期。

8	vbString	字符串。

9	vbObject	OLE自动化对象。

10	vbError	错误。

11	vbBoolean	布尔。

12	vbVariant	变体型（仅用变体型数组）。

13	vbDataobject	非OLE自动化对象。

8192	vbArray	数组。

附注    这些常量由Visual Basic指定。因此，这些名字可以用在用户程序中任何地方代替实际值。

解释

VatType函数从来不对vbArray本身返回值。总是把它加到某些其它值    上以指出特定类型的数组。常量vbVariant仅在与vbArray相连，以指出 VarType函数的参数是一个类型为Variant数组时才返回。

例如，对一个整型数组的返回值是由vbInteger+vbArray计算出来的，或者是8194。


VarType 函数参阅
参阅

数据类型摘要

IsArray 函数

IsDate 函数

IsEmpty 函数

IsError 函数

IsMissing 函数

IsNull 函数

IsNumeric 函数

IsObject 函数

TypeName 函数

Variant 数据类型


 IsArray 函数实例

该实例用 IsArray 函数检查一个变量是否为数组。

Dim MyArray(1 To 5) As Integer	' Declare array variable.

YourArray = Array(1, 2, 3)	' Use Array function.

MyCheck = IsArray(MyArray)	' Returns True.

MyCheck = IsArray(YourArray)	' Returns True.


 IsDate 函数实例

该实例用 IsDate 函数判定一个表达式能否被转换为日期。

MyDate = "February 12, 1969" : YourDate = #2/12/69# : NoDate = "Hello"

MyCheck = IsDate(MyDate)	' Returns True.

MyCheck = IsDate(YourDate)	' Returns True.

MyCheck = IsDate(NoDate)	' Returns False.


 IsEmpty 函数实例

该实例用 IsEmpty 函数判定变量是否已被初始化。

MyCheck = IsEmpty(MyVar)	' Returns True.

MyVar = Null	' Assign Null.

MyCheck = IsEmpty(MyVar)	' Returns False.

MyVar = Empty	' Assign Empty.

MyCheck = IsEmpty(MyVar)	' Returns True.


 IsError函数实例

该实例用 IsError 函数检查一个数值表达式是否为错误值。 CVErr函数用于从用户定义的函数中返回Error 变量。

' Assume UserFunction is a user-defined function procedure that returns

' an error value; e.g., return value assigned with the statement

' UserFunction = CVErr(32767) where 32767 is a user-defined number.

ReturnVal = UserFunction()

MyCheck = IsError(ReturnVal)	' Returns True.


 IsMissing 函数实例

该实例用 IsMissing 函数检查一个可选参数是否已经传递给了用户定义的过程。 下列语句调用用户定义的函数过程。

' The following statements call the user-defined function procedure.

ReturnValue = ReturnTwice()	' Returns Null.

ReturnValue = ReturnTwice(2)	' Returns 4.

' Function procedure definition.

Function ReturnTwice(Optional A)

If IsMissing(A) Then

' If argument is missing, return a Null.

ReturnTwice = Null

Else

' If argument is present, return twice the value.

ReturnTwice = A * 2

End If

End Function


 IsNull 函数实例

该实例用 IsNull 函数判定变量是否含有 Null。

MyCheck = IsNull(MyVar)	' Returns False.

MyVar = ""

MyCheck = IsNull(MyVar)	' Returns False.

MyVar = Null

MyCheck = IsNull(MyVar)	' Returns True.


 IsNumeric 函数实例

该实例用 IsNumeric 函数判定变量是否作为数值计算。

MyVar = "53"	' Assign value.

MyCheck = IsNumeric(MyVar)	' Returns True.

MyVar = "459.95"	' Assign value.

MyCheck = IsNumeric(MyVar)	' Returns True.

MyVar = "45 Help"	' Assign value.

MyCheck = IsNumeric(MyVar)	' Returns False.


 IsObject 函数实例

该实例用 IsObject函数判定变量是否引用了合法对象。 MyObject和YourObject是相同类型的对象变量，在此仅为了显示实例而采用了属性名。

Dim MyInt As Integer	' Declare variable.

Set YourObject = MyObject	' Assign an object reference.

MyCheck = IsObject(YourObject)	' Returns True.

MyCheck = IsObject(MyInt)	' Returns False.


 TypeName 函数实例

该实例用 TypeName 函数返回变量的信息。

' Declare variables.

Dim StrVar As String, IntVar As Integer, CurVar As Currency

Dim ArrayVar (1 To 5) As Integer

NullVar = Null	' Assign Null value.

MyType = TypeName(StrVar)	' Returns "String".

MyType = TypeName(IntVar)	' Returns "Integer".

MyType = TypeName(CurVar)	' Returns "Currency".

MyType = TypeName(NullVar)	' Returns "Null".

MyType = TypeName(ArrayVar)	' Returns "Integer()".


 VarType 函数实例

该实例用 VarType 判定变量的子类型。

' Initialize variables.

IntVar = 459: StrVar = "Hello World": DateVar = #2/12/69#

MyCheck = VarType(IntVar)	' Returns 2.

MyCheck = VarType(DateVar)	' Returns 7.

MyCheck = VarType(StrVar)	' Returns 8.


As <关键字>
As

 As 关键字用在下列方面：

Const 语句

Declare 语句

Dim 语句

Function 语句

Name 语句

Open 语句

Private 语句

Public 语句

ReDim 语句

Static 语句

Sub 语句

Type 语句


Binary <关键字>
Binary

Binary关键字用在下列方面：

Open 语句

Option Compare 语句


ByRef <关键字>
ByRef

ByRef关键字用在下列方面：

Call 语句

Declare 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


ByVal <关键字>
ByVal

Byval关键字用在下列方面：

Call 语句

Declare 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


Date <关键字>
Date

Date关键字用在下列方面：

Date 数据类型

Date 函数

Date 语句


Else <关键字>
Else

Else关键字用在下列方面：

If...Then...Else 语句

Select Case 语句


Empty <关键字>
Empty

参阅

Variant子类型指出未初始化的变量值.


参阅 Empty 关键字
参阅

Variant 数据类型


Err <关键字>
Err

Err关键字用在下列方面：

Err 函数

Err 语句


Error <关键字>
Error

Error关键字用于下列方面：

Error 函数

Error 语句

On Error 语句


False <关键字>
False

参阅

限定关键字(keyword)其值等于0。


参阅False 关键字
参阅

限定关键字(Restricted Keywords)


For <关键字>
For

For关键字用在下列方面：

For...Next 语句

For Each...Next 语句

Open 语句


Get <关键字>
Get

Get关键字用在下列方面：

Get 语句

Property Get 语句


Input <关键字>
Input

Input关键字用在下列方面：

Input 函数

Input # 语句

Line Input # 语句


Is <关键字>
Is

Is关键字用在下列方面：

Is Operator

Select Case 语句


Let <关键字>
Let

Let关键字用在下列方面：

Property Let 语句

Let 语句


Lock <关键字>
Lock

Lock关键字用在下列方面：

Lock...Unlock 语句

Open 语句


Mid <关键字>
Mid

Mid关键字用在下列方面

Mid 函数

Mid 语句


Next <关键字>
Next

Next关键字用在下列方面

For...Next 语句

For Each...Next 语句

On Error 语句

Resume 语句


Null <关键字>
Null

参阅

Variant子类型指出变量含有非法数据.


参阅Null 关键字
参阅

Variant 数据类型


On <关键字>
On

On关键字用在下列方面：

On Error 语句

On...GoSub 语句

On...GoTo 语句


Option <关键字>
Option

Option关键字用在下列方面：

Option Base 语句

Option Compare 语句

Option Explicit 语句

Option Private 语句


Optional <关键字>
Optional

Optional关键字用在下列方面：

Declare 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


ParamArray <关键字>
ParamArray

ParamArray关键字用在下列方面：

Declare 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句


Print <关键字>
Print

Print关键字用在下列方面：

Print 方法

Print # 语句


Private <关键字>
Private

Private关键字用在下列方面

Const 语句

Declare 语句

Function 语句

Option Private 语句

Private 语句

Property Get 语句

Property Let 语句

Property Set 语句

Sub 语句

Type 语句


Property <关键字>
Property

Property关键字用在下列方面：

Property Get 语句

Property Let 语句

Property Set 语句


Public <关键字>
Public

Public关键字用在下列方面：

Const 语句

Declare 语句

Function 语句

Property Get 语句

Property Let 语句

Property Set 语句

Public 语句

Sub 语句

Type 语句


Resume <关键字>
Resume

Resume关键字用在下列方面：

On Error 语句

Resume 语句


Seek <关键字>
Seek

Seek关键字用在下列方面：

Seek 函数

Seek 语句


Set <关键字>
Set

Set关键字用在下列方面;

Set 语句

Property Set 语句


Static <关键字>
Static

Static关键字用在下列方面：

Function 语句

Static 语句

Sub 语句


Step <关键字>
Step

Step关键字用在下列方面：

For Each...Next 语句

For...Next 语句


String <关键字>
String

String关键字用在下列方面;

String 数据类型

String 函数


To <关键字>
To

To关键字用在下列方面：

Dim 语句

For...Next 语句

Lock, Unlock 语句

Private 语句

Public 语句

ReDim 语句

Select Case 语句

Static 语句


Time <关键字>
Time

Time关键字用在下列方面：

Time 函数

Time 语句


True <关键字>
True

参阅

限定关键字(keyword) 其值等于-1.


参阅True 关键字
参阅

Restricted 关键字


Math 函数

Abs 函数

Atn 函数

Cos 函数

Exp 函数

Fix 函数

Int 函数

Log 函数

Rnd 函数

Sgn 函数

Sin 函数

Sqr 函数

Tan 函数

派生数学函数


Abs 函数

参阅	实例

描述

    返回数值的绝对值。

语法

Abs(number)

元素

  number参数可以是任何合法数字表达式((numeric expression))。如果number含有不合法数据，则返回Null；如果是一个未初始化变量， 返回 Empty 。

解释

    一个数值的绝对值是它的无符号量值。例如ABS(-1)和ABS(1)都返回1。


Abs 函数参阅
参阅

数学函数

Sgn函数


Atn 函数

参阅	实例

描述

    返回一个数的反正切值。

语法

Atn(number)

元素

    number命名参数可以是任何合法数字表达式((numeric expression))。

解释

Atn函数为直角三角形两个边的比率(number)以弧度方式返回相应的角度。该比率是 与该 角相对的边的长度除以与该角相邻的边的长度。结果的范围从-pi/2到pi/2 弧度。将度转换成弧度，是用pi/180相乘;将弧度转换成度，乘以180/pi。

附注    Atn是Tan的反三角函数，Tan是用角度作为它的参数，返回直角三角形两个边的比 率。不要把Atn与余切搞混淆，余切是正切的简单倒数(1/正切)。


Atn 函数参阅
参阅

Con函数

派生数学函数

数学函数

Sin函数

Tan函数


Cos 函数

参阅	实例

描述

    返回一个角度的余弦。

语法

Cos(number)

元素

    number命名参数 可以是以弧度表示角度的任何合法数字表达式(numeric expression)。

解释

cos函数利用角度，返回直角三角形两个边的比率。该比率是与角度相邻的边的长度 除斜边的长度。结果的范围是从-1到1。将度转换成弧度，乘以pi/180。 将弧度转换成度，乘以180/pi。


Cos 函数参阅
参阅

Atn函数

派生数学函数

数学函数

Sin函数

Tan函数


Exp 函数

参阅	实例

描述

    返回e(自然对数的底)的乘幂。

语法

Exp(number)

元素

    number命名参数 可以是任何合法数字表达式(numeric expression)。

解释

    如果number的值超过709782712893，则出现错误，常数e大约是2.718282。

附注    Exp函数是log函数的补充，有时将它称为反对数。


Exp 函数参阅
参 阅

派生数学函数

Log函数

数学函数


Int 函数，Fix函数

参阅	实例

描述

    返回一个数的整数部分。

语法

Int(number)
Fix(number)

元素

    number参数可以是任何合法数字表达式(numeric expression)。如果number含有不合法数据，返回 Null 。

解释

Int和Fix都删掉number的小数部分，返回整型值。Int和Fix的差别是：如果number是负 的，Int返回小于或等于number的第一个负整数，而Fix返回大于或等于number的第一 个负整数。例如，Int把-8.4转换为-9，而Fix把-8.4转换为-8。Fix(number)等价于

Sgn(number) * Int(Abs(number))


Int， Fix 函数参阅
参阅

CInt函数

数学函数


Log 函数

参阅	实例

描述

    返回一个数的自然对数。

语法

Log(number)

元素

    number命名参数可以是任何大于0的合法数字表达式(numeric expression)。

解释

自然对数是以e为底的对数。常数e大约是2.718282。用户能用x的自然对数除以n的 自然对数来计算出任何数字x以n为底的对数，如下所示：

Logn(x) = Log(x) / Log(n)

下面实例展示了计算以10为底的对数的自定义Function：

Static Function Log10(X)

Log10 = Log(X) / Log(10#)

End Function


Log 函数参阅
参阅

派生数学函数

Exp函数

数学函数


Randomize 语句

参阅	实例

描述

    初始化随机数生成器。

语法

Randomize [number]

元素

    number命名参数为任何合法数字表达式(numeric expression)。

解释

    Randomize用number初始化随机数生成器，给它一个新种子值。如果用户省略了 number， 用Timer函数返回的值作为新的种子seed值。如果不使用Randomize， 则总是使用相同的初 始种子去启动序列。在调用Rnd之前，利用没有 参数的Randomize语句，以系统时间为基 准 提供随机种子去初始化随机数生成器。


Randomize 语句参阅
参阅

Rnd函数

Timer函数


Rnd 函数

参阅	实例

描述

返回一随机数。

语法

Rnd[(number)]

元素

    number命名参数 可以是任何合法数字表达式(numeric expression)。

解释

    Rnd函数返回一个小于1但大于或等于0的值。

    number的值决定了Rnd如何生成随机数：

如果number是	Rnd生成：

小于零	每次相同的数，用number作为种子seed

大于零	序列中的下一个随机数

等于零	最近产生的数

没有提供	序列中的下一个随机数

对任何给定的初始种子，产生相同数值序列，因为对Rnd函数的每个后续调用均使 用前面的数作为序列中下一个数的种子。在调用Rnd之前，利用没有参数的 Randomize语句， 以系统时间为基准提供随机种子去初始化随机数生成器。

为了在给定范围内产生随机整数，使用下列公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound是该范围的最大数值，lowerbound是该范围的最小数值。


Rnd 函数参阅
参阅

数学函数

Randomize语句

Timer函数


Sgn 函数

参阅	实例

描述

    返回一个整数，指出数的符号。

语法

Sgn(number)

元素

    number参数可以是任何合法数字表达式(numeric expression)。

返回值

如果number是	Sgn返回

大于零	 1

等于零	 0

小于零	 -1

解释

    number参数的符号决定了Sgn函数的返回值。


Sgn 函数参阅
参阅

Abs函数

数学函数


Sin 函数

参阅	实例

描述

    返回一个角度的正弦。

语法

Sin(number)

元素

    number命名参数 可以是以弧度表示角度的任何合法 数字表达式(numeric expression)。

解释

Sin函数利用角度，返回直角三角形两个边的比率。该比率是与角度相对的边的 长度除斜边的长度。结果的范围是-1到1。将度转换成弧度，是用pi/180 相乘。将弧度转换成度，乘以180/pi。


Sin 函数参阅
参阅

Atn函数

Cos函数

派生数学函数

数学函数

Tan函数


Sqr 函数

参阅	实例

描述

    返回一个数的平方根。

语法

Sqr(number)

元素

    number命名参数 可以是大于等于零的任何合法数字表达式(numeric expression)。


Sqr 函数参阅
参阅

数学函数


Tan 函数

参阅	实例

描述

    返回一个角度的正切。

语法

Tan(number)

元素

    number命名参数 可以是以弧度表示角度的任何合法数字表达式(numeric expression)。

解释

Tan利用角度，返回直角三角形两个边的比率。该比率是与角度相对的边的长度除与角度相邻的边的长度。将度转换成弧度，乘以pi/180。将弧度转换成度，乘以是用180/pi。


Tan 函数参阅
参阅

Atn函数

Cos函数

派生数学函数

数学函数

Sin函数


派生数学函数

参阅

下面是可从内部数学函数推导出来的非内部数学函数表：

函数	推导等式

正割	Sec(X) = 1 / Cos(X)

余割	Cosec(X) = 1 / Sin(X)

余切	Cotan((X) = 1 / Tan(X)

反正弦	Arcsin(X) = Atn(X / Sqr(-X * X + 1))

反余弦	Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 1.5708

反正割	Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) -1) * 1.5708

反余割	Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * 1.5708

反余切	Arccotan(X) = Atn(X) + 1.5708

双曲正弦	HSin(X) = (Exp(X) - Exp(-X)) / 2

双曲余弦	HCos(X) = (Exp(X) + Exp(-X)) / 2

双曲正切	HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))

双曲正割	HSec(X) = 2 / (Exp(X) + Exp(-X))

双曲余割	HCosec(X) = 2 / (Exp(X) - Exp(-X))

双曲余切	HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))

反双曲正弦	HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))

反双曲余弦	HArccos(X) = Log(X + Sqr(X * X - 1))

反双曲正切	HArctan(X) = Log((1 + X) / (1 - X)) / 2

反双曲正割	HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)

反双曲余割	HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)

反双曲余切 	HArccotan(X) = Log((X + 1) / (X - 1)) / 2

以N为底的对数	LogN(X) = Log(X) / Log(N)


派生数学函数参阅
参阅

Atn函数

Cos函数

Exp函数

Log函数

Sin函数

Sqr函数

Tan函数


 Abs 函数实例

该实例用 Abs 函数计算出一个数的绝对值。

MyNumber = Abs(50.3)	' Returns 50.3.

MyNumber = Abs(-50.3)	' Returns 50.3.


Atn Example
 Atn 函数实例

该实例用 Atn 函数计算一个数的反正切。

Pi = 4 * Atn(1)	' Calculate the value of pi.


 Cos 函数实例

该实例用 Cos 函数计算一个角度的余弦。

MyAngle = 1.3	' Define angle in radians.

MySecant = 1 / Cos(MyAngle)	' Calculate secant.


 Exp 函数实例

该实例用 Exp 函数计算e的幂。

' Define angle in radians.

MyAngle = 1.3

' Calculate hyperbolic sine.

MyHSin = (Exp(MyAngle) - Exp(- 1 * MyAngle)) / 2


Int Function, Fix 函数实例
 Int 函数，Fix函数实例

该实例展示了Int和Fix函数如何返回数值整数部分。在负数参数的情况下，Int函数返回小于或等于那个数值的第一个整数；返之，Fix函数返回大于或等于那个数值的第一个整数。

MyNumber = Int(99.8)	' Returns 99.

MyNumber = Fix(99.2)	' Returns 99.

MyNumber = Int(-99.8)	' Returns -100.

MyNumber = Fix(-99.8)	' Returns -99.

MyNumber = Int(-99.2)	' Returns -100.

MyNumber = Fix(-99.2)	' Returns -99.


 Log 函数实例

该实例用Log函数计算一个数值的自然对数。

' Define angle in radians.

MyAngle = 1.3

' Calculate inverse hyperbolic sine.

MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))


 Randomize 语句实例

该实例用于Randomize语句初始化随机数生成器。由于数值参数省略了，Randomize因Timer函数的返回值作为新种子值。

' Initialize random-number generator.

Randomize

' Generate random value between 1 and 6.

MyAngle = Int((6 * Rnd) + 1)


 Rnd 函数实例

该实例用Rnd函数生成从1到6间的随机整数。

MyValue = Int((6 * Rnd) + 1)	' Generate random value between 1 and 6.


 Sgn 函数实例

该实例用Sgn函数判定一个数值的符号。

MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0

MySign = Sgn(MyVar1)	' Returns 1.

MySign = Sgn(MyVar2)	' Returns -1.

MySign = Sgn(MyVar3)	' Returns 0.


 Sin 函数实例

该实例用Sin函数计算一个角度的正弦。

MyAngle = 1.3	' Define angle in radians.

MyCosecant = 1 / Sin(MyAngle)	' Calculate cosecant.


 Sqr 函数实例

该实例用Sqr函数计算一个数值的平方根。

MySqr = Sqr(4)	' Returns 2.

MySqr = Sqr(23)	' Returns 4.795832.

MySqr = Sqr(0)	' Returns 0.

MySqr = Sqr(-4)	' Generates run-time error.


 Tan 函数实例

该实例用Tan函数计算一个角度的正切。

MyAngle = 1.3	' Define angle in radians.

MyCotangent = 1 / Tan(MyAngle)	' Calculate cotangent.


AppActivate 语句

参阅	实例

描述

  激活一个应用程序窗口。

语法

AppActivate title [,wait]

元素

AppActivate语句语法具有下列命名参数组成部分：

组成部分	描述

title	在Microsoft Windows中，title参数是想要激活的应用程序窗口的标题栏中的字符串。

在Macintosh（System7.0或其后续）上，title参数是应用程序名。可以使用 MacID函数指定一个应用程序的标记而不是应用程序名，例如：

AppActivate MacID("MSWD")

另外，由shell函数返回的任务标识符可以代替title去激活一个应用程序。

wait	Boolean值指明在激活另一个应用程序之前正调用的应用程序是否有焦点， 如果为False（默认），指定的应用程序立即被激活，即使正调用的应 用程序没有焦点，如果为True，则正调用的应用程序等待直至它具一个焦点时，然后激活指定的应用程序。

解释

AppActivate语句为命名应用程序或窗口改变焦点，但不影响它被最大化或最小化。当采 取一些措施改变焦点或关闭窗口时，焦点在激活的应用程序窗口中移动。用Shell函数 启动 一个应用程序或设置窗口式样。

如果要查找应用程序去激活它，就要做一次比较以找到一个应用程序，它的标题字 符串与title完全匹配。如果没有成功，那么，任何以title开始的应用程序的标题字符 串均被激活。 在Microsoft Windows中，如果有不止一个被title命名的应用程序实例，则任意激活一个。

   如果在Microsoft Windows中MacID函数与AppActivate一起使用，则出现错误信息。


参阅AppActivate 语句
参阅

MacID 函数

Shell 函数

SendKeys 语句


Beep 语句

实例

描述

  通过计算机的扬声器发音。

语法

Beep

解释

   发声的频率和周期依赖于硬件，不同的计算机可能是不同的。


InputBox 函数

参阅	实例

描述

在对话框中显示一个提示，等待用户输入文字或选择一个按钮，然后返回文字框的 内容。

语法

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

元素

InputBox函数语法具有下列命名参数组成部分：

组成部分	描述

prompt	字符串表达式String expression作为信息显示在对话框内，prompt的最大长度约1024个字符， 取决于被使 用字符的宽度。如果prompt包含不止一行， 则必须确保每行之间包括一个回车（字 符代码13），或回车换行（字符代码10）。

title	字符串表达式显示在对话框的标题栏title bar中，如果省略title，则标题栏内什么也不放。

default	如果没有提供其它输入，则字符串表达式作为默认响应被 显示在文字框中。如果省略default，则文字框显示空。

xpos	数字表达式Numeric expression用于指定对话框左边与屏幕左边水平距离，如果省略xpos，则对话框水平置中。

ypos	数字表达式用于指定对话框上边与屏幕顶端的垂直距离，如果省略Ypos， 则对话框被垂直放置在屏幕 下大约三分之一处。

helpfile	字符串表达式，标识要使用的帮助文件，为对话框提供上下文 相关的帮助，如果提供了helptile，则也必须提供context。

context	数字表达式，即帮助的作者赋予适当的帮助主题的帮助上 下文编号，如果提供了context，则也必须提供helptile。

解释

当helptile和context都被提供时，帮助按钮自动地加到对话框上。如果用户选择[确定]或按Enter键，则InputBox函数返回文字框内的任何信息，如果用户选择[取消]，该函数返 回一个零 长度字符串（"  "）。


参阅InputBox 函数
参阅

MsgBox 函数

由函数返回字符串


MsgBox 函数

参阅	实例

描述

在对话框中显示信息，等待用户选择一个按钮，然后返回一个值表明用户选择了 哪一个按钮。

语法

MsgBox(prompt[,buttons][,title][,helpfile,context])

元素

    MsgBoxe函数语法具有以下命名参数组成部分：

  组成部分	描述

prompt	作为信息显示在对话框内的字符串表达式String expression。prompt的最大长度约1024 个字符，依赖于使用的字符的宽度。如果prompt包含不止一行，必须保证在每行之间含 有一个回车（字符代码13），或回车换行（字符代码10）。

buttons	数字表达式Numeric expression ，指明数字和要显示的按钮类型，要使用的图标式样，默认按钮的 标识及模态值的总和，如果省略，则buttons的默认值为0。

title	显示在对话框标题栏title bar 内的字符串表达式，如果省略title，则标题栏内什么也不放。

helpfile	字符表达式，标识要使用的帮助文件，为对话框提供上下文相 关的帮助，如果提供了helptile，则也必须提供context。

context   	数字表达式，为帮助的作者赋予适当的帮助主题的帮助上 下文编号，如果提供了context ，则也必须提供helptile。

button命名参数具有下列值：

  常量	值	描述

vbOKOnly	0	仅显示[确定]按钮

vbOKCancel	1	显示[确定]和[取消]按钮

vbAbortRetryIgnore	2	显示[放弃]，[重试]和[忽略]按钮

vbYesNoCancel	3	显示[是]，[否]和[取消]按钮

vbYesNo	4	显示[是]和[否]按钮

vbRetryCancel	5	显示[重试]和[取消]按钮

vbCritical	16	显示关键信息图标

vbQuestion	32	显示警告查询图标

vbExclamation	48	显示警告信息图标

vbInformation	64	显示信息消息图标

vbDefaultButton1	0	第一个按钮默认

vbDefaultButton2	256	第二个按钮默认

vbDefaultButton3	512	第三个按钮默认

vbApplicationModal	0	应用程序模式，继续在当前应用程 序中工作之前必须响应消息框

vbSystemModal	4096	系统模式，所有应用程序都暂停， 直到用户响应消息框为止

值的第一组（0—5）描述显示在对话框中的按钮类型和编号；第二组（16，32，48， 64）描述图标式样；第三组（0，256，512）决定哪一个按钮被默认；第四组（0， 4096）确定消息框的模态，当将数相加为buttons参数建立最终值时，每组只用一个数。

附注   这些常量由Visual Basic指定。因此这些名字可以用在用户代码的任何地方代替实际值。

返回值

常量	值	选定的按钮

vbOK	1	[确定]

vbCancel	2	[取消]

vbAbort	3	[放弃]

vbRetry	4	[重试]

vbIgnore	5	[忽略]

vbYes	6	[是]

vbNo	7	[否]

解释

当helptile和Context都被提供时，帮助按钮被自动地加到对话框中。如果对话框显示[取消]按钮，则ESC键与选择[取消]有相同的效果，如果对话框包含一个帮助按钮，则上下文相关的帮助提供给对话框。然而，在另一个按钮被选择之前没有值被返回。


参阅MsgBox 函数
参阅

InputBox 函数

由函数返回字符串


RGB 函数

实例

描述

  返回一个表示RGB颜色值的整数。

语法

RGB (red, green, blue)

元素

    RGB函数语法具有下列命名参数组成部分：

组成部分	描述

red	范围在0到255之间的所有整数，表示颜色的红色含量

green	范围在0到255之间的所有整数，表示颜色的绿色含量

blue	范围在0到255之间的所有整数，表示颜色的兰色含量

解释

    接收颜色说明的应用程序方法和属性要求表示RGB颜色的说明为一个整数，RGB 颜色值指 出红、绿、兰的相对密度，它们混和后形成一个特定的显示颜色。RGB的任何 参数的值， 如果超过255，则被假定为255。

    下表列出一些标准颜色和它们包含的红、绿和兰色的值：

颜色	 红值	绿值	兰值

黑    	0	0	0

兰	0	0	255

绿	0	255	0

青绿	0	255	255

红	255	0	0

绛红	255	0	255

黄	255	255	0

白	255	255	255

附注  该函数返回的RGB值与Macintosh操作系统的RGB值不兼容。它们可以用在Macintosh机的Microsoft应用程序的上下文内。但当直接与Macintosh操作系统交换颜色改变时，不应该使用 。


SendKeys 语句

参阅	实例

描述

  向活动窗口发送一个或更多击键，与在键盘上键入一样，在Macintosh机上无效。

语法

SendKeys string[,wait]

元素

   SendKeys语句语法具有下列命名参数组成部分：

组成部分	描述

string	指明要发送的击键字符串表达式String expression

wait	用布尔值指明等待方式，如果为False（默认），在键被发送之后立即将控 制返回给过程。如果为True，在控制被返回给过程之前击键必须被处理。

解释

每个键都可以用一个或多个字符表示，为了指定一个键盘字符，使用该字符本身。 例如，为了表示字母A，则string用＂A＂。如果想表示不止一个字符，将每一个追 加字符附在前一个字符之后。为了表示字母A、B和C，则string用＂ABC＂。

加号（+）  ^号（^），百分号（％），波折号（～）和园括号（）对于SendKeys 具有特殊意义。

为了指定这些字符之一，将其括在花括号之内。例如，要指定加号，用｛+｝， 方括号对 于SendKeys没有特殊含义，但也必须将其括在花括号之内，因为 在其它应用程序中，当出 现动态数据交换（DDE）时，方括号 确实具有很重要的特殊含义。为发送花括号符，使用 ｛｛｝｛｝｝。

当按一个（例如ENTER或TAB）和多个代表动作而不是字符的键时，为了 指定不能显示的 字符，使用如下所示代码：

    键	代码

BACKSPACE	{BACKSPACE}, {BS}, or {BKSP}

BREAK	{BREAK}

CAPS LOCK	{CAPSLOCK}

DEL	{DELETE} or {DEL}

DOWN ARROW	{DOWN}

END	{END}

ENTER	{ENTER}

ESC	{ESC}

HELP	{HELP}

HOME	{HOME}

INS	{INSERT}

LEFT ARROW	{LEFT}

NUM LOCK	{NUMLOCK}

PAGE DOWN	{PGDN}

PAGE UP	{PGUP}

PRINT SCREEN	{PRTSC}

RIGHT ARROW	{RIGHT}

SCROLL LOCK	{SCROLLLOCK}

TAB	{TAB}

UP ARROW	{UP}

F1	{F1}

F2	{F2}

F3	{F3}

F4	{F4}

F5	{F5}

F6	{F6}

F7	{F7}

F8	{F8}

F9	{F9}

F10	{F10}

F11	{F11}

F12	{F12}

F13	{F13}

F14	{F14}

F15	{F15}

F16	{F16}

    为了指定与SHITF，CTRL和ALT键任意组合的键，在常规键之前用一个或多个下列代码：

    键	代码

SHIFT	+

CTRL (CONTROL)	^

ALT	%

   当另外几个键被按下时，为了指明SHITF，CTRL和ALT的任意组合应指定按下状态。 将那些键的代码放在括号内。例如，为了指明当E和C被按下时指定SHIFT为按下状 态，使用＂+(EC)＂，为了指明按下E时指定SHIFT为按下状态，而按C时不用SHIFT， 用＂+EC＂ 。

    为了指定重复键，使用｛Key number｝格式在Key和number之间必须放一 空格。例如，｛LEFT 42｝即是按LEFT ARROW键42次；｛h，10｝即是按h键10次。

附注  SendKeys不能向不是为Microsoft Windows而设计的应用程序发送击键。SendKeys也不能向任何应用程序发送PRINT SCREEN（PRTSC）键。


参阅SendKeys 语句
参阅

AppActivate

DoEvents 语句


AppActivate语句实例

该实例列举了激活一个应用程序窗口的AppActivate语句的多种用法。在Macintosh机上， 用户可以使用MacID函数指定应用程序的标记代替应用程序名字。AppActivate语句对于 Macintosh System 7.0或后续型均有效。

' In Microsoft Windows.

AppActivate "Microsoft Word"	' Activate Word.

' AppActivate can also use the return value of the Shell function.

MyAppID = Shell("C:\WORD\WINWORD.EXE", 1)	' Run Microsoft Word.

AppActivate MyAppID	' Activate Microsoft

' Word.

' On the Macintosh.

AppActivate "Microsoft Word"	' Activate Microsoft

' Word.

' MacID("MSWD") returns signature for Microsoft Word.

AppActivate MacID("MSWD")	' Activate Microsoft

' Word.

' You can also use the return value of the Shell function.

ReturnValue = Shell("Microsoft Excel")	' Run Microsoft Excel.

AppActivate ReturnValue	' Activate Microsoft

' Excel.


 Beep语句实例

该实例使用Beep语句通过计算机的扬声器发三个连续的音。

For I = 1 to 3	' Loop 3 times.

Beep	' Sound a tone.

Next I


 InputBox函数实例

该实例显示了用InputBox函数提示用户输入一个数值的多种方法。 如果X和Y位置被省略，则对话被自动地置于各自的坐标轴中部。 如果用户选择[确定]或按ENTER键，则变量MyValue包含用户输入的数值， 如果用户选择[取消]，则返回一个零长度字符串。

Message = "Enter a value between 1 and 3"	' Set prompt.

Title = "InputBox Demo"	' Set title.

Default = "1"	' Set default.

' Display message, title, and default value.

MyValue = InputBox(Message, Title, Default)

' Use helpfile and context. The help button is added automatically.

MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' Display dialog at position 100,100

MyValue = InputBox(Message, Title, Default, 100, 100)


 MsgBox函数实例

该实例使用MsgBox函数在一个对话框中用[是]和[否]按钮显示一个 临界错误信息。[否]按钮被指定用于默认响应。 MsgBox函数返回的值取决于用户选择的按钮。该实例用以 假定DEMO.HLP是一个包含上下文编号等于1000的主题的帮助文件。

Msg = "Do you want to continue ?"	' Define message.

Style = vbYesNo + vbCritical + vbDefaultButton2	' Define buttons.

Title = "MsgBox Demonstration"	' Define title.

Help = "DEMO.HLP"	' Define help file.

Ctxt = 1000	' Define topic

' context.

' Display message.

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYES Then	' User chose Yes

' button.

MyString = "Yes"	' Perform some action.

Else	' User chose No

' button.

MyString = "No"	' Perform some action.

End If


 RGB 函数实例

该实例显示RGB函数如何返回代表RGB颜色值的整数。它用于接收颜色描述 的应用程序方法和属性。对象Mgobject及它的属性此处仅用于说明目的。

Msg = "Do you want to continue ?"	' Define message.

Style = vbYesNo + vbCritical + vbDefaultButton2	' Define buttons.

Title = "MsgBox Demonstration"	' Define title.

Help = "DEMO.HLP"	' Define help file.

Ctxt = 1000	' Define topic

' context.

' Display message.

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYES Then	' User chose Yes

' button.

MyString = "Yes"	' Perform some action.

Else	' User chose No

' button.

MyString = "No"	' Perform some action.

End If


 SendKeys语句实例

该实例用Shell函数运行包含在Microsoft Windows中的计算器应用程序；然后用SendKeys语句发送击键，对一些数求和， 并退出计算器。SendKeys语句在Macintosh机上无效。

ReturnValue = Shell("Calc.exe", 1)	' Run Calculator.

AppActivate ReturnValue 	' Activate the Calculator.

For I = 1 To 100	' Set up counting loop.

SendKeys I & "{+}", True	' Send keystrokes to Calculator

Next I	' to add each value of I.

SendKeys "=", True	' Get grand total.

SendKeys "%{F4}", True	' Send Alt+F4 to close Calculator.


Print 方法

参阅	 实例

用于

Debug.

描述

打印调试窗口的即时分割区域内的文字。

语法

[object.]Print [outputlist]

元素

Print方法语法具有下列部分：

部分	描述
object	赋给Debug对象的对象表达式。
outputlist	要打印的表达式或表达式清单，如果省略，则打印一条空白线。

outputlist参数具有下列语法和部分：

[{Spc(n) | Tab[(n)]}][expression][charpos]

部分	描述
Spc（n）	用于输出中的插入空格符，这里n是要插入的空格符数
Tab（n）	用于在一个绝对列号中定位插入点，这里n是列号。使用不带参数的Tab在下一个打印区域的起始定位插入点。
expression	要打印的数字或字符串表达式
charpos	为下一个字符指定插入点，用一个分号指定紧随最后显示字符的插入点。使用Tab（n）在一个绝对列号中定位插入点，使用不带参数的Tab在下一个打印区域的起始定位插入点。Charpos被省略，则下一个字符被打印在下一行。

解释

多个表达式可以被一个空格或分号分隔，一个空格与一个分号具有相同的效果。 所有打印到即时分割区域中的数据在国际上均识别；即，该数据被正确地格式化 了（使 用适当的十进制小数点），而且关键字以适用于国际区域的规定的用于用 户系统的语言 输出 。

对于布尔数据，打印True或False，True或False关键字根据场所不同以适当的形式 翻译。

Date数据用能被用户所使用的系统识别的标准的短数据格式写入，当日期或时间 部分丢失或为零时，只有提供的数据被写入。

如果outputlist数据为Null则什么也不写。然而，如果outputlist数据为Null，则输出 Null。另外，当输出时，Null关键字以适当的形式翻译。

对于错误数据，输出显示为错误及错误代码。输出时，Error关键字以适当形式翻 译。

附注  因为Print方法通常与适当的空格符一起打印，重要的是要记住：在打印的 字符数和 这些 字符占用的固定宽度列数之间是没有对应比关系的。例如， 一个宽字母， 如“W” 将占 用不止一个固定宽度列，而一个窄字母如“i”， 占用的则较少。为了统计被使用的比平均字符宽的字符，必须确信表格的 列有足够间隔。除此之外，可以使用固定调距的字 体（例如Courier）打印以 保证每个字符仅用一列。


参阅Print 方法
参阅

Debug对象

Print#语句

Spc函数

Tab函数


Debug对象

参阅	方法

描述

Debug对象用关键字Debug进行读写，并且用于运行期向调试窗口传送输出。


参阅

Debug Window


方法

Print方法

_


 Print 方法实例

该实例用 Print 方法向Debug对象输出文字，即在调试窗口中显示文字。

For I = 11 To 20	' Loop 10 times.

' Print each value on a new line.

Debug.Print I

Next I

For I = 11 To 20	' Loop 10 times.

' Print values on the same line, next to each other.

Debug.Print I;

Next I

Debug.Print Spc(10) ; "Hello there"	' Print 10 spaces before.

Debug.Print Tab(20) ; "This is a test"	' Print at column 20.

Debug.Print "Hello"; Tab; Tab; "There"	' Print 2 print zones apart.


运算符摘要

        参阅

算术运算符

用于进行数学计算的运算符

比较运算符

用于进行比较的运算符

连接运算符

用于进行字符串连接的运算符

逻辑运算符

用于进行逻辑运算的运算符


参阅运算符摘要
参阅

运算符优先次序


运算符优先次序

        参阅

当一个表达式中出现几个运算符时，每个部分被计算然后得出一个预定次序， 该次序即为所知的运算符优先次序，括号可被用于超越优先次序而使一个表达式 的一些部分优先被计算。括号内的部分总是先于括号外的部分被执行，而在括号 内，正常的运算符优先次序仍保留。

当表达式包含不止一类运算符，数学运算符首先被计算，然后计算比较运算符， 最后计算逻辑运算符。所有比较运算符具有同等的优先次序；即，它们根据出现 的位置按从左到右的次序计算，数学和逻辑运算符按下列优先次序计算：

    数学的	比较	逻辑的

  指数（^）	相等（=）	Not

  负号（-）	 不等（<>）	And

  乘和除（*,/）	小于（<）	 Or

  整除（\）	大于（>）	Xor

 取换运算（Mod）	小于等于（<=）	 Eqv

  加和减（+,-）	大于等于（>=）	Imp

字符串连接（&）	Like	Is

当乘和除在表达式中均出现时，按其出现的次序从左到右进行运算。同样地， 当加和减均出现在表达式时，按其出现次序从左到右依次运算。 字符串连接运算符（&）并不是真正的数学运算符，但在优先次序中它确实落在所有数学运算符之后但在所有比较运算符之前。类似地，Like运算符在优先次序上与所有比较运算符相等，实际上是一个模式匹配运算符，Is运算符是对象引用比较运算符，它并不比较对象或它们的值；它检查仅用于确定是否两个对象的引用指的是同一个 对象。


运算符优先次序 参阅
参阅

      运算符摘要


算术运算符

 ^运算符

*运算符

 /运算符

 \运算符

 Mod运算符

 +运算符

 -运算符


连接运算符

&运算符

+运算符


逻辑运算符

 And运算符

 Eqv运算符

Imp运算符

Not运算符

Or运算符

 Xor运算符


^运算符

参阅	实例

描述

进行一个数的乘幂运算。

语法

result = number^exponent

元素

^运算符语法具有下列组成部分。

组成部分	 描述

  result	任何数字变量。

  number	任何数字表达式numeric expression。

  exponent	任何数字表达式。

解释

仅当exponent为整数时number可以为负数。当一个表达式中有不止一次乘幂运算时，^运算符根据它从左到右的次序进行运算。

通常，结果的数据类型data type是一个双精度数或包含双精度数的变量，然而如果number或

exponent是一个Null表达式，则result也是Null。


参阅^运算符
参阅

数学运算符

运算符优先次序

运算符摘要


+运算符

参阅	实例

描述

用于两个数的相加。

语法

result = expression1+expression2

元素

+运算符语法具有下列组成部分：

组成部分	描述

  result	任何数字变量。

  expression1	任何表达式expression。

  expression2 	任何表达式。

解释

虽然用户可以使用+运算符连接两个字符串，但应当使用&运算符用于连接以避免二 义性并且提供自身说明代码。当使用+运算符，可能无法确定是加还是字符串连接。如果至少一个表达式不是变量，可以使用下列规则：

如果	则
两个表达式均为数字数据类型data types (Boolean, Integer, Long, Single, Double, Date or Currency)	相加
两个表达式均为字符串	连接
一个表达式是数字型数据类型而另一个为 任何变量（Null除外）	相加
一个表达式是字符串而另一个为任何变量 （Null除外）	连接
一个表达式为Empty变量	另一个表达式不改变地作为result返回
一个表达式为数字数据型而另一个是一个 字符串	出现一个类型不匹配错误信息
两个表达式均为Null	result也是Null

如果两个表达式均为变量表达式，则下面的表达式类型决定了+运算符执 行下列操作：

如果	则
两个变量表达式均为数字	相加
两个变量表达式均为字符串	连接
一个变量表达式为数字式而另一个为字符串	相加

因为简单的数字相加仅用于数字数据类型表达式，result的数据类型通常与绝大多数 精度表达式类型相同。精度次序从最低到最高依次为，整型，长整型，单精度型， 双精度型和货币型。

下列为这种次序的例外情况：

当一个单精度数和一个长整型数相加时，result的数据类型被转换成双精度 数。

当result的数据类型为超出本身合法范围的单精度，长整型或日期型变量时 ，result被转换成双精度变量。

当result数据类型超出其合法范围的整型变量，result转换成长整型变量。

当一个日期被加到任何其它数据类型上时，result的数据类型总是一个日期 。

当一个或两个表达式为Null表达式，result也为Null。如果两个表达式均为Empty，result为一个整型数。然而如果仅有一个表达式是Empty，另一个表达式不改变地作为result 返回。


参阅+运算符
参阅

数学运算符

连接运算符

运算符优先次序

运算符摘要


-运算符

参阅	 实例

描述

用于计算两个数之差或指出一个数字表达式的相反值。

语法1

result = number1-number2

语法2

-number

元素

-运算符语法具有下列组成部分；

组成部分	 描述

  result	任何数字变量。

  number 	任何数字表达式numeric expression。

  number1	任何数字表达式。

  number2 	任何数字表达式。

解释

在语法1中，-运算符即为数学减运算符，用于计算两个数之差。在语法2中，-运算符为一元负运算符用于指出一个数字表达式的相反值。

result的数据类型data type通常与绝大多数精度表达式类型相同，精度次序从最低到最高 依次为整型，长整型，单精度型，双精度型和货币型，下例为这种次序的例外 情况：

当减法用于一个单精度型和一个长整型时，result数据类型被转换 成双精度 型。

当result的数据类型为超出其合法范围的单精度、长整型或 日期型变量时， result被转换成一个包含双精度型数的变量。

当result数据类型超出其合法范围的整型变量时，result被转换成 长整型变量 。

当减法用于一个日期和任一其它数据类型时， result的数据类型为一个日期 型。

当减法用于两个日期表达式，result的数据类型为双精度数。

如果一个或两个表达式为Null表达式，则result也为Null。如果一个表达式为Empty， 它被当作0处理。

$参阅-运算符


- 运算符参阅
参阅

算术运算符

运算符优先次序

运算符摘要


*运算符

参阅	实例

描述

用于两数相乘。

语法

result = number1*number2

元素

*运算符语法具有下列组成部分：

 组成部分	描述

  result	任何数字变量。

  number1	任何数字表达式。

  number2	任何数字表达式。

解释

result数据类型data type通常与绝大多数精度表达式的类型相同。精度次序从最低到最高依 次为整型、长整型、单精度型、双精度型和货币型。

下面为这种次序例外情况：

当乘法运算用于一个单精度数和一个长整型数，result数据类型被转换成 一个双精度数。

当result的数据类型为超出其合法范围的单精度，长整型或日期型变量时 ，result被转换成一个包含双精度型数的变量。

当result数据类型为超出其合法范围的整型变量时，result被转换成一个长 整型变量。

如果一个或两个表达式为Null表达式，则result也为Null。如果一个表达式为Empty， 它被当作0处理。


参阅*运算符
参阅

数学运算符

运算符优先次序

运算符摘要


/运算符

参阅	实例

描述

用于两个数相除然后返回一个浮点数结果。

语法

result = number1/number2

元素

     /运算符语法具有下列组成部分：

组成部分	描述

  result	任何数字变量。

  number1	任何数字表达式numeric expression。

  number2	任何数字表达式。

解释

result的数据类型data type通常是一个双精度数或一个双精度变量。下列为这种规则的例外情 况：

当两个表达式均为整型或单精度表达式时，result是一个单精度数， 除非它超出其合法范围；在这种情况下，出现一个错误信息。

当两个表达式均为整型或单精度变量时，result是一个单精度变量， 除非它超出其合法范围；在这种情况下，result是一个相当于双精度型的变量。

如果一个或两个表达式为Null 表达式，则result也为Null。任何为Empty的表达式被当作0处理。


参阅/运算符
参阅

数学运算符

运算符优先次序

运算符摘要


\运算符

参阅	实例

描述

用于两个数的相除然后返回整数结果。

语法

result = number1\number2

元素

      \运算符语法具有下列组成部分：

组成部分	描述

   result	任何数字变量。

   number1	任何数字表达式。

   number2	任何数字表达式。

解释

在进行除运算之前，数字表达式被圆整为整型或长整型表达式。通常result的数据 类型为整型数，整型变量，长整型或长整型变量，而不管result是否是一个整数， 任何小数部分都被截掉。然而如果任何表达式为Null，则result也为Null。任何为Empty的表达式均被当作0处理。


参阅\运算符
参阅

数学运算符

运算符优先次序

运算符摘要


Mod运算符

参阅	实例

描述

将两个数相除然后仅返回余数。

语法

result = number1 Mod number2

元素

Mod运算符语法具有下列组成部分；

  组成部分	描述

  result 	 任何数字变量。

  number1 	 任何数字表达式。

  number2	 任何数字表达式。

解释

取模或取余运算将number1和number2相除（将浮点数圆整为整数），然后仅返回作为result的余数，例如在下列表达式中，A（即result）等于5。

A = 19 Mod 6.7

通常，result的数据类型为整型，整型变量，长整型或相当于长整型的变量，而不管result是否是一个整数，任何小数部分均被舍去。然而，如果任何表达式为 Null，则result也为Null。任何为Empty的表达式均被当作0处理。


参阅Mod运算符
参阅

数学运算符

运算符优先次序

运算符摘要


&运算符

参阅	实例

描述

用于两个表达式的字符串连接。

语法

result = expression1 & expression2

元素

&运算符语法具有下列组成部分：

  组成部分	 描述

  result	任何数字变量。

  expression1	任何表达式。

  expression2	任何表达式。

解释

若一个表达式不是字符串，它都被转换成字符串变量，若两个表达式均为字符串 表达式，则result的数据类型为字符串；否则，result是一个字符串变量，若两个 表达式均为Null，则result也是Null。然而，若只有一个字符串为Null，则与另一 个表达式进行连接时该表达式被当作零长度字符串处理，任何为Empty的表达式 也被当作零长度字符串处理。


参阅&运算符
参阅

连接运算符

运算符优先次序

运算符摘要


比较运算符

参阅	实例

描述

用于比较表达式。

语法

result = expression1 comparisonoperator expression2
result = object1 Is object2
result = string Like pattern

元素

比较运算符具有下列组成部分：

  组成部分	描述

  result	任何数字变量。

  expression	任何表达式。

  comparisonoperator	任何比较运算符。

  object	任何对象名。

  string 	 任何字符串表达式。

  pattern 	任何字符串表达或字符范围。

解释

Is和Like运算符具有与下表所列运算符不同的特定比较功能，下表为比

较运算符的清单及决定result是True, False或Null的条件：

运算符	描述	为True ，若	为False ，若	为Null ，若
<	小于	expression1 < expression2	expression1 >= expression2	expression1 或 expression2 = Null
<=	小于或等于	expression1 <= expression2	expression1 > expression2	expression1 或 expression2 = Null
>	大于	expression1 > expression2	expression1 <= expression2	expression1 或 expression2 = Null
>=	大于或等于	expression1 >= expression2	expression1 < expression2	expression1 或 expression2 = Null
=	等于	expression1 = expression2	expression1 <> expression2	expression1 或 expression2 = Null
<>	不等于	expression1 <> expression2	expression1 = expression2	expression1 或 expression2 = Null
当比较两个表达式时，可能不容易确定表达式是作为数字还是字符串比较。当两个 表达式 均不是变体时，下表显示如何进行比较或结果是什么：

如果	则
两个表达式均为 数据类型 (Integer, Long, Single, Double, 或 Currency)	进行数字比较。
两个表达式均为字符串	进行 字符串比较。
一个表达式为数字式而另一个是变 量。 可为数字。	进行数字比较。
一个表达式为数字数据类型而另 一个表达式为不能转换成数字的字 符串变量。	出现类型不匹配错误。
一个表达式为字符串，而另一个 是变体( Null除外)	进行字符串比较。
一个表达式为Empty ，而另一个是 数字数据类型。	进行数字比较，Empty表 达式为0。
一个表达式为Empty 而另一个是字符串	进行字符串比较，Empty 表达式为零长度字符串。
如果expression1和 expression2均为变量表达式，下列类型决定它们如何进行比较。下表显示表达式如何 进行比较或比较的结果，其取决于下列变量类型：

如果	则
两个变量表达式均为数字	进行数字比较
两个变量表达式均为字 符串	进行字符串比较
一个变量表达式为数字式而另一个是 字符串	数字表达式小于字符串表达式是字符串
一个变量表达式为Empty而另一个为 数字式	进行数字比较，用0作为Empty表达式
一个变量表达式为Empty而另一个为 字符串	进行字符串比较，用零长度字符串作为Empty表达式
两个变量表达式均为Empty	两表达式相等
附注  如果一个货币型与一个单精度或双精度型相比较，则单精度或双精度被转换成货 币型，这使得小于0.0001的单精度或双精度的小数部分被去掉从而使两个不等的 数作 为相等比较，当一个单精度数与一个双精度数比较时，双精度数被圆整为 单精度数 的精度。


参阅比较运算符
参阅

Is运算符

Like运算符

运算符优先次序

运算符摘要

Option Compare语句


And运算符

参阅	实例

描述

用于对两个表达式进行逻辑与运算。

语法

result = expression1 And expression2

元素

And运算符语法具有下列组成部分：

组成部分	描述

result	任何数字变量。

expression1	任何表达式。

expreession2	任何表达式。

解释

当且仅当两个表达式均为True，则result为True，若任何一个表达式为False， 则result为False。

下表说明运算结果：

如果 expression1 为	而且 expression2 为	则 result 为

True	True	True

True	False	False

True	NulldefNull	Null

False	True	False

False	False	False

False	Null	False

Null	True	Null

Null	False	False

Null	Null	Null

And运算符也可以对两个数字表达式的相同位进行逐位比较，然后根据下列真值表 将设置在result中相应的位：

如果 expression1 中的位是	Expression2 中的位是	则 result 是
0	0	0
0	1	0
1	0	0
1	1	1


参阅And运算符
参阅

逻辑运算符

运算符优先次序

运算符摘要


Eqv运算符

参阅	实例

描述

进行两个表达式的逻辑等价运算。

语法

result = expression1 Eqv expression2

元素

Eqv运算符语法具有下列组成部分；

  组成部分	 描述

  result	任何数字变量。

  expression1	任何表达式。

  expression2	任何表达式。

解释

如果任一个表达式为Null，则result也为Null，当任一个表达式为Null， result由下表决定：

如果expression1是	且 expression2 是	则 result 为

True	True	True

True	False	False

False	True	False

False	False	True

Eqv运算符也可以对两个数字表达式的逐位比较进行逐位比较然后根据下列真值表将相应的位设置在result中。

  如果expression1是	而expression2是	则result是

          0	 0	1

          0	1	 0

          1	 0	 0

          1	 1	1


参阅Eqv运算符
参阅

逻辑运算符

运算符优先次序

运算符摘要


Imp运算符

参阅	实例

描述

进行两个表达式的逻辑隐式运算。

语法

result = expression1 Imp expression2

元素

Imp运算符语法具有下列组成部分：

  组成部分	描述

  result	任何数字变量。

  expression1	任何表达式。

  expression2	任何表达式。

解释

下表说明运算结果的确定：

如果expression1 是	且 expression2 是	则 result 为

True	True	True

True	False	False

True	Null	Null

False	True	True

False	False	True

False	Null	True

Null	True	True

Null	False	Null

Null	Null	Null

Imp运算符也可以对两个数字表达式的相同位进行逐位比较，然后根据下列真值表将设置在result中相应的位。

  如果expression1中的位是	 且expression2中的位是	则 result为

           0	0	1

           0	 1	1

           1	 0	 0

           1	1	1


参阅Imp运算符
参阅

逻辑运算符

运算符优先次序

运算符摘要


Not运算符

参阅	实例

描述

用于对一个表达式进行逻辑非运算。

语法

result = Not expression

元素

Not运算符语法具有下列组成部分：

  组成部分	描述

  result	任何数字变量。

  expression	任何表达式。

解释

下表说明运算结果的确定：

如果expression为	则 result 为

True	False

False	True

Null	Null

另外，Not运算符将在任何变量的位值取相反值然后根据下列真值表将设置在result中相应的位。

expression中的位	位中的result
0	1
1	0


参阅Not运算符
参阅

逻辑运算符

运算符优先次序

运算符摘要


Or运算符

参阅	实例

描述

用于两个表达式的逻辑或运算。

语法

result = expression1 Or expression2

元素

Or运算符语法具有下列组成部分：

  组成部分	描述

  result	任何数字变量。

  expression1	任何表达式。

  expression2	任何表达式。

解释

如果一个或两者表达式为True，则result为True。下表说明运算结果的确定：

如果expression1 为	且 expression2为	则 result 为

True	True	True

True	False	True

True	Null	True

False	True	True

False	False	False

False	Null	Null

Null	True	True

Null	False	Null

Null	Null	Null

Or运算符也可以对两个数字表达式的相同位进行逐位比较，然后根据下列真值表在result中相应的位。

如果 expression1 中的位是	且 expression2 中的位是	则 result 为
0	0	0
0	1	1
1	0	1
1	1	1


参阅Or运算符
参阅

逻辑运算符

运算符优先次序

运算符摘要


Xor运算符

参阅 	 实例

描述

进行两个表达式的逻辑异或运算。

语法

result = expression1 Xor expression2

元素

Xor运算符语法具有下列组成部分：

  组成部分	描述

  result	任何数字变量。

  expression1	任何表达式。

  expression2	任何表达式。

解释

当且仅当一个表达式为True，result为True。然而如果任何一个表达式为Null，则

result也为Null，当任一个表达式都不是Null时，则result由下表决定：

如果expression1 是 	且 expression2 是 	 则 result 为

True	True	False

True	False	True

False	True	True

False	False	False

Xor运算符也可以对两个数字表达式的相同位进行逐位比较，然后根据下列真值在result中相应的位。

如果expression1中的位是	且 expression2中的位是	则 result 为
0	0	0
0	1	1
1	0	1
1	1	0


参阅Xor运算符
参阅

逻辑运算符

运算符优先次序

运算符摘要


Like运算符

参阅	 实例

描述

用于比较两个字符串。

语法

result = string Like pattern

元素

Like运算符语法具有下列组成部分：

  组成部分	 描述

  result	 任何数字变量。

  String	任何字符串表达式。

  Pattern	任何符合以下所描述的模式匹配约定的字符串表达式。

解释

如果String与Pattern相匹配，则result为True；如果不匹配，result为False；如果任何String或Pattern为 Null，则result也为Null。

Like运算符的性能决定于Option Compare语句，除非另外指定，每一个模块表的默认字符串比较方法均为Option Compare Binary。

Option Compare Binary产生字符串的比较，这种比较基于从字符内部二进制表示导出的 排序次序，在Microsoft Windows中，排序次序由代码的页决定，在Macintosh机上，排列次序由 字符集决定，

A < B < E < Z < a < b < e  < z < � < � < � < � < � < � 在下例中示例了一个典型的二进制排序次序：

Option Compare Text进行字符串比较，这种比较基于用户系统的地区locale所决定的一个与字母大小写无关的文字排序次序。上述相同的字符，若用Option Compare Text排序，则排序次序如下：

(A=a)  < ( �=�) < (B=b) < (E=e) < (�=�) < (Z=z) < (�=�)

内部的模式匹配为字符串比较提供了一个灵活多样的工具，模式匹配特性允许用 户使用通配符，字符表或字符区域，用任何组合匹配字符串，下表所示为在Pattern中允许的字符及它们的匹配：

    pattern中的字符	在string中匹配

?	任何一个字符。

*	零或更多的字符。

#	 任何一个数字（0—9）。

[charlist]	 在chartlist中的一个字符。

[!charlist]	 不在chartlist中的一个字符。

在括号（[ ]）中的一组单个或多个字符（charlist）可用于匹配字符串中的任何一个 字符而且可以包括几乎所有字符代码，包括数字。

附注  特殊字符如左括号（[），问号（?），数字符（#）和星号（*）仅通过将其放在括号内即可直接用于自身匹配，而右括号（]）不能用在组内匹配自身，但可被用于组外 作为一个单独字符。

除了包含在括号中的一个字符简表之外，chartlist可以使用一个连字符-指定字符区域，以划分区域的上界和下界。例如，如果String中的相应字符位置含有A到Z范围内的任何大写字母则与Pattern中的[A-Z]匹配，括号内可以没有任何分界符地包含多个区域。

指定区域的含义决定于运行时字符合法排序（如决定于Option Compare和代码运行系统的地区locale设置值）用Option Compare Binary显示上述同一实例，区域[A-E]， E匹配A，B和E，用Option Compare Text,[A-E]匹配A，a,   à,à,B,b,E,e注意不与或匹配，因为重音字符在排序次序中排在非重音字符之后。

模式匹配的另外一些重要规则如下：

在chartlist前面的惊叹号（!），含义如果在String中找到除chartlist内的字符 之外的任何字符则作一次匹配，当在括号外使用时，惊叹号与自身匹配。

连字符（-）可以出现在chartlist中的开头（如果使用惊叹号则在其之后）或结尾处以与自身匹配，在任何其他位置，连字符用于标识字符区域。

当字符区域被指定后，它们必须以上升排序次序出现（从最低到最高）。[A-Z]为一个合法模式，但[Z-A]不是。

字符顺序[ ]被忽略，它被当作一个零长度字符串处理。


参阅Like 运算符
参阅

比较运算符

Instr 函数

运算符优先级

运算符摘要

Option Compare 语句

StrComp 函数


Is运算符

参阅	实例

描述

用于比较两个对象引用变量。

语法

result = object1 Is object2

元素

Is运算符语法具有下列组成部分：

  组成部分	 描述

  result	任何数字变量。

  object1	任何对象名。

  object2	任何对象名。

解释

如果object1和object2引用的是同一对象，则result为True；如果不是， 则result为False，两个变量可用几种方式引用同一对象。

在下例中，A被设置用于引用与B引用相同的对象：

Set A = B

下例设置A和B相引用对象C：

Set A = C

Set B = C


参阅Is 运算符
参阅

比较运算符

运算符优先次序

运算符摘要

Set语句

_


^ 运算符实例

该实例用^运算符将一个数进行乘幂运算。

MyValue = 2 ^ 2	' Returns 4.

MyValue = 3 ^ 3 ^ 3	' Returns 19683.

MyValue = (-5) ^ 3	' Returns -125.


＋ 运算符实例

该实例用＋运算符进行数的相加。＋运算符也可用于

连接字符串但要去掉含糊部分，代之使用&运算符。

MyNumber = 2 + 2	' Returns 4.

MyNumber = 4257.04 + 98112	' Returns 102369.04.

Var1 = "34" : Var2 = 6	' Initialize variables.

MyNumber = Var1 + Var2	' Returns 40.

Var1 = "34" : Var2 = "6"	' Initialize variables.

MyNumber = Var1 + Var2	' Returns "346" (string concatenation).


－运算符实例

该实例用－运算符计算两个数之差。

MyResult = 4 - 2	' Returns 2.

MyResult = 459.35 - 334.90	' Returns 124.45.


* 运算符实例

该实例用*运算符进行两个数的相乘。

MyValue = 2 * 2	' Returns 4.

MyValue = 459.35 * 334.90 	' Returns 153836.315.


/ 运算符实例

该实例用/运算符进行浮点除运算。

MyValue = 10 / 4	' Returns 2.5.

MyValue = 10 / 3	' Returns 3.333333.


\ 运算符实例

该实例用\运算符进行整除运算。

MyValue = 11 \ 4	' Returns 2.

MyValue = 9 \ 3	' Returns 3.

MyValue = 100 \ 3	' Returns 33.


Mod 运算符实例

该实例用Mod 运算符将两个数相除，然后只保留

余数，如果两数的任一个为浮点数，则首先舍入为整数。

MyResult = 10 Mod 5	' Returns 0.

MyResult = 10 Mod 3	' Returns 1.

MyResult = 12 Mod 4.3	' Returns 0.

MyResult = 12.6 Mod 5	' Returns 3.


& 运算符实例

该实例用&运算符使字符串相连接。

MyStr = "Hello" & " World"	' Returns "Hello World".

MyStr = "Check " & 123 & " Check"	' Returns "Check 123 Check".


比较运算符实例

该实例显示了用于比较表达式的比较运算符的多种用法。

MyResult = (45 < 35)	' Returns False.

MyResult = (45 = 45)	' Returns True.

MyResult = (4 <> 3)	' Returns True.

MyResult = ("5" > "4")	' Returns True.

Var1 = "5" : Var2 = 4	' Initialize variables.

MyResult = (Var1 > Var2)	' Returns True.

Var1 = 5 : Var2 = Empty

MyResult = (Var1 > Var2)	' Returns True.

Var1 = 0 : Var2 = Empty

MyResult = (Var1 = Var2)	' Returns True.


And 运算符实例

该实例用And运算符进行两个表达式的逻辑与运算。

A = 10: B = 8: C = 6 : D = Null	' Initialize variables.

MyCheck = A > B And B > C	' Returns True.

MyCheck = B > A And B > C	' Returns False.

MyCheck = A > B And B > D	' Returns Null.

MyCheck = A And B	' Returns 8 (bit-wise comparison).


Eqv 运算符实例

该实例用Eqv运算符进行两个表达式的逻辑等价运算。

A = 10: B = 8: C = 6 : D = Null	' Initialize variables.

MyCheck = A > B Eqv B > C	' Returns True.

MyCheck = B > A Eqv B > C	' Returns False.

MyCheck = A > B Eqv B > D	' Returns Null.

MyCheck = A Eqv B	' Returns -3 (bit-wise comparison).


Imp 运算符实例

该实例用Imp运算符进行两个表达式的逻辑推断运算。

A = 10: B = 8: C = 6 : D = Null	' Initialize variables.

MyCheck = A > B Imp B > C	' Returns True.

MyCheck = A > B Imp C > B	' Returns False.

MyCheck = B > A Imp C > B	' Returns True.

MyCheck = B > A Imp C > D	' Returns True.

MyCheck = C > D Imp B > A	' Returns Null.

MyCheck = B Imp A	' Returns -1 (bit-wise comparison).


Not 运算符实例

该实例用Not运算符进行一个表达式的逻辑非运算。

A = 10: B = 8: C = 6 : D = Null	' Initialize variables.

MyCheck = Not(A > B)	' Returns False.

MyCheck = Not(B > A)	' Returns True.

MyCheck = Not(C > D)	' Returns Null.

MyCheck = Not A	' Returns -11 (bit-wise comparison).


Or 运算符实例

该实例用Or运算符进行两个表达式的逻辑或运算。

A = 10: B = 8: C = 6 : D = Null	' Initialize variables.

MyCheck = A > B Or B > C	' Returns True.

MyCheck = B > A Or B > C	' Returns True.

MyCheck = A > B Or B > D	' Returns True.

MyCheck = B > D Or B > A	' Returns Null.

MyCheck = A Or B	' Returns 10 (bit-wise comparison).


Xor 运算符实例

该实例用Xor运算符进行两个表达式的逻辑异或运算。

A = 10: B = 8: C = 6 : D = Null	' Initialize variables.

MyCheck = A > B Xor B > C	' Returns False.

MyCheck = B > A Xor B > C	' Returns True.

MyCheck = B > A Xor C > B	' Returns False.

MyCheck = B > D Xor A > B	' Returns Null.

MyCheck = A Xor B	' Returns 2 (bit-wise comparison).


Like 运算符实例

该实例用Like运算符把一个字符串同一个模式进行比较。

MyCheck = "aBBBa" Like "a*a"	' Returns True.

MyCheck = "F" Like "[A-Z]"	' Returns True.

MyCheck = "F" Like "[!A-Z]"	' Returns False.

MyCheck = "a2a" Like "a#a"	' Returns True.

MyCheck = "aM5b" Like "a[L-P]#[!c-e]"	' Returns True.

MyCheck = "BAT123khg" Like "B?T*"	' Returns True.

MyCheck = "CAT123khg" Like "B?T*"	' Returns False.


Is 运算符实例

该实例用Is运算符来比较两个对象地址，所有在此

使用的对象变量均为属性名，并且仅用于说明目的。

Set YourObject = MyObject	' Assign object references.

Set ThisObject = MyObject

Set ThatObject = OtherObject

MyCheck = YourObject Is ThisObject	' Returns True.

MyCheck = ThatObject Is ThisObject	' Returns False.

' Assume MyObject <> OtherObject

MyCheck = MyObject Is ThatObject	' Returns False.


代码分割区域
代码窗口

参阅

代码窗口用于显示、编辑和写模块表级module-level和过程procedure代码。在模块表module中，代码窗口可分割成两个窗口。

为分割模块表

从[窗口]菜单上，选择[分割]命令。

为删除分割

从[窗口]菜单上，选择[分割]命令或双击分割条(split bar)或拖曳分割条到窗口的顶端或底端。


参阅代码分割区域
参阅

调试窗口

即时窗口

监视窗口


调试窗口

参阅

使用调试窗口可单步执行代码，显示变量值，观察监视表达式(watch expressions)，并完成其他调试任务。

为显示调试窗口，从[视图]菜单上选择[调试窗口]命令。

当遇到断点(breakpoint)时或手工输入间断方式(break mode)时，调试窗口自动打开。

为关闭调试窗口：

在Microsoft Windows中双击控制菜单框(Control menu-box)或按CTRL+F4组合键。

在Macintosh上，单击关闭框close box。

附注  当代码被执行时，在调试窗口的代码窗口中不能输入语句。然而， 当执行停止时，可以使用Debug对象和Print方法打印内部值以便在窗口中查看。 例如，下列代码打印变量A的值到调试窗口：

Debug.Print A

在间断方式状态下，可以在调试窗口的即时窗口中输入语句。

调试窗口包括：

即时窗口

即时窗口用于输入代码并即时执行该代码。当初次打开调试窗口时默认显示即时 窗口。

在监视窗口状态下，要显示即时窗口可选定即时标签。

监视窗口

监视窗口显示有关所有已定义的监视表达式(watch expressions)的信息。为显示监视窗口，选定监视标签。

过程框

在间断方式状态下，过程框显示执行停止处的项目(project)名、模块表名和过程名。

分割条

分割条(split bar)把调试窗口分为两个窗口，上面窗口显示即时或监视窗口 分割条下面的代码窗口显示执行停止处的代码。

为调整窗口大小，选定分割条并向上或向下拖曳它。

代码窗口

代码窗口显示执行停止处的过程代码。


参阅调试窗口
参阅

代码窗口

即时窗口

Debug 对象

Print 方法

监视窗口


即时分割区域
即时窗口

参阅

即时窗口用于输入代码并即时执行该代码。当在即时窗口中工作时，可以键 入或粘贴语句并按ENTER键运行它。例如，下列代码显示变量A的值，在此情况下它 是5。

?A

5

在等待方式( wait mode)中，代码在全局中执行。在间断方式(break mode)中，即时窗口中的代码在调试窗口标题栏中的上下文执行。例如， 如果键入Print variablename，输出是局部变量的值。这与在过程框中指定的过程 里实际执行Print方法相同。初次打开调试窗口时在默认情况下显示即时窗口。 当监视窗口显示时，选定即时标签 显示即时窗口。


参阅即时分割区域
参阅

调试窗口

监视窗口

调用对话


滚动条

参阅

滚动条是用鼠标垂直和水平地滚动窗口的一部分的图形设备。滚动条被放置在窗口的右 下角。

为在窗口内滚动

进行下列操作之一：

为滚动	做:

向上一行      	单击向上滚动箭头

向上一窗口    	在垂直滚动条中滚动框的上面单击

到近似的位置  	拖曳滚动条

向下一行      	单击向下滚动箭头

向下一窗口    	在垂直滚动条中滚动框的下面单击

向左	单击向左滚动箭头

向左一窗口    	在水平滚动条中滚动框的左面单击

向右	单击向右滚动箭头

向右一窗口    	在水平滚动条中滚动框的右面单击

滚动条包括：

滚动箭头

出现在滚动条两端的带箭头的按钮。箭头指示滚动时窗口内容移动的方向。例如，向上 箭头向顶部移动，向下箭头向底部移动，等等。

滚动框

滚动条中指明窗口内相对位置的方块。

为快速移动通过窗口，沿滚动条拖曳滚动框。


参阅滚动条
参阅

分割条


分割条

参阅

分割条split bar把窗口分为可独立滚动的两个窗口。在调试窗口中，

分割条从即时窗口或监视窗口中分割出代码窗口。在模块表(module)中， 分割条把模块分割 为两个窗口 。当想同时观察代码的不同部分时，可以用这种方法。

为分割窗口，从窗口菜单上选择分割命令。

为删除分割条，从窗口菜单上选择分割命令或双击分割条。


参阅分割条
参阅

滚动条


监视分割区域
监视窗口

参阅

  监视窗口显示关于所有已定义的监视表达式的信息，包括表达式本身、监视表达式(watch expressions)的内容和转换到间断方式时监视表达式的值。 如果表达式不在范围(scope)内，当前值不显示。

为显示监视窗口

选择调试窗口中监视标签。

当得不到表达式的值时，显示如下信息：

Can't compile module [image] 监视被定义处的模块表含有语法错且不能被编译或监视内容被定义为“所有模块表”并且监视内容中有一模块表不能被编译。

Invalid watch expression [image] 监视表达式为非法，合法监视表达式可以包含常量、变量、函数过程调用和 用户定义类型的元素，但不能包含子过程调用或用户定义的类型。

Out of context [image] 监视值在当前上下文内无效。例如，在等待方式(wait mode)中所有监视皆在上下文之外。

Can't evaluate watches on arrays [image] 监视表达式为数组。只有数组的元素可以被监视。


参阅监视分割区域
参阅

调试窗口

即时窗口


Chr 函数

参阅	实例

描述

返回与指定字符代码有关的字符。

语法

Chr(charcode)

元素

charcode命名参数是一个范围在0到255之间的数，用于识别一个字符character。

解释

从0到31之间的数与标准的不可打印的ASCII相同。例如，chr(10)返回一个换行符。


Chr 函数 参阅
参阅

Asc 函数

字符集

从函数返回字符串

Str 函数


Format函数

参阅	实例

描述

按照包含在格式表达式中的说明，格式化一个表达式。

语法

Format(expression[,format])

元素

Format函数语法有以下组成部分：

组成部分 	描述

erpression 	任何合法表达式expression。

format 	一个合法被命名的或用户自定义的格式表达式。

解释

为了格式化以下内容 	按如下操作

数字 	使用预先定义的命名数字格式named numeric formats或创建用户自定义的数字格式numeric formats。

日期和时间  	使用预先定义了的命名的日期/时间格式或创 建用户自定义的日期/时间格式。

日期和时间序号 	使用日期和时间格式或数字格式。

字符串 	创建用户自定义的字符串格式。

如果没有指定format而试图格式化一个数，format数提供与str 函数相同的功能。然而，被格式化的整数同使用format格式化字符串一样，用于显示值符 号的起始空格被去掉。而用str进行转换的正数则保留起始空格。


Format 函数 参阅
参阅

命名的日期/时间格式

命名的数字格式

从函数返回字符串

Str 函数

用户自定义的日期/时间格式

用户自定义的数字格式

用户自定义的字符串格式

不同数字值的不同格式

不同字符串值的不同格式


命名的数字格式（format函数）
命名数字格式（format函数）

参阅

下表识别预先定义了的数字格式名：

格式名 	描述

GeneracNumber 	照原样显示数，不用千位分隔符。

Currency 	在适当情况下，用千位分隔符显示数，显示圆括号内的负数， 在小数分隔符右边显示两位。注意输出是以系统设置为基础。

Fixed 	在小数分隔符左边显示至少一位，左边至少显示两位。

Stardard 	用千位分隔符显示数，小数分隔符左边至少一位，右边至少两位。

Percent 	显示被100相乘以后的数，并在其后加一个百分号（%）。总是显示小数分隔符右边的两位。

Scientific 	使用标准科学记数法。

Yes/No	如果数为零显示“否”，否则显示“是”。

True/False	如果数为零显示False，否则显示True。

On/off	如果数为零显示off，否则显示on。


参阅命名的数字格式
参阅

Format 函数

命名的日期/时间格式


用户定义的数字格式（Format函数）
用户自定义的数字格式（Format函数）

参阅	实例

用户可以使用下表中标识的字符创建用户自定义的数字格式：

字符 	描述

None 	未格式化。

显示未格化数。

0	数字保留区。

显示一位数或一个零。如果表达式有一位数处在格式字符串中0出现的位置则显示它。否则，在那个位置显示一个0。

如果数的位数小于格式表达式中零的个数（在小数的任意一侧），则显示起始或结尾的0。如果小数分隔符右边数的位数多于格式表达式中小 数分隔符右边0的个数，则将该数四舍五入为与0同样多的小数位。如果小数分隔符左边数的位数多于格式表达式中小数分隔符左边0的个数， 则不做修改显示多余的数。

#	数字保留区。

显示一位数或什么也不显示。如果表达式有一位数处在格式字符串中# 	出现的位置。则显示它。否则在那个位置什么也不显示。

如果数的位数少于或等于格式表达式中小数分隔符两边的#数，	则不显示起始或结尾的0。除此之外，该字符的功能与0数字保留区相同。

.	小数保留区。

在某些地区locales，逗号被用于小数分隔符，小数保留区决定有多少位	显示在小数分隔符的两侧。如果格式表达式在该符号的左边仅包含数的	正负号，则小于1的数从小数分隔符开始。如果希望起始的0与小数部分	同时显示，可以用0代替小数分隔符左边的第一位数字的保留区。在被竉袷交�后的输出中，用作小数保留区的实际字符取决于被用户系统所能�	侗鸬氖�字格式。_

%	百分数保留区。

表达式被100相乘，百分号(%)被插在格式字符串中其出现的位置。

,	千位分隔符。

在某些地区，句号被用作千位分隔符。千位分隔符将一个小 数分隔符左边有	四位或多于四位数的千位与百位分开。如果格式 包含一个被数字保留区(0 	或#)包围的千位分隔符，则指定了千位分隔符 的标准用法。两个相邻的千分 	隔符或一个紧挨着小数分隔符左 边的千位分隔符号（无论是否指定了小数	）意味着"将 该数除以1000，然后按要求 四舍五入"。也可以用这种技巧	缩小大 数。例如，可以使用格式字符串"##0,,"将1亿表示为100。小于1百万的 数显示为0。不与小数分隔符左边紧挨的任何其它位置的两个相邻 的 千位分隔符仅仅被用作指定千位分隔符的用法。在被格式化后的输 出中，用作千位分隔符的实际字符取决于用户系统所能识别的数 字格式。

:	时间分隔符。

在某些地区，其它字符也可用于表示时间分隔符。当时间被格式化后，时间分隔符划分小时、分、秒。在被格式化后的输出中，用作时间分隔符的实际字符取决于用户系统设置。

/	日期分隔符。

在某些地区，其它字符也可用于表示日期分隔符。当日期被格式化后，	日期分隔符划分日、月、年。在被格式化后的输出中，用作日期分隔符	的实际字符取决于用户系统设置。

E- E+ e- e+	科学格式。

如果在E-、E+、e-	或e+的右边格式表达式包含至少一位数字保留区（0或#），则该数用科	学格式显示并将E或e插入数和它的指数之间。右边的数字保留区决定了	指数的位数，用E-或e-	紧挨负指数放置一个负号。用E+或e+在紧挨正指数放置一个正号。

- + $ ( ) space	显示一个文字字符。

显示除下面所列的一个字符，在它之前用一个反斜杠（\）或用双引号（	"" ）将其括在里面。

\	在格式字符串中显示下一个字符。

格式表达式中的许多字符都有特殊的含义，不能做为文字符显示。除非	前面加一个反斜杠。反斜杠自身不能显示，使用反斜杠与使用双引号将	下一个字符括在里面效果一样。为了显示一个反斜杠，可使用两个反斜	杠（\\）。不能象文字符那样被显示的字符，有日期和时间格式符（a，	c，d，h，m，n，p，q，s，t，w，y，和/：），数字一格式符（#，0，	%，E，e，逗号，句号）及字符串格式符（@，&，<，>和!）。

"ABC"	显示双引号内的字符串。

为了从代码内包含format中的字符串，必须用chr（34）以将文字括在里	面（34 为双引号的字符代码character code）。


参阅用户定义的数字格式
参阅

Format 函数

用户自定义的日期/时间格式

用户自定义的字符串格式


不同数组的不同格式
不同数字值的不同格式（format函数）

参阅

数字的格式表达式可以含有被分号分开的一至四段。（如果format参数包含预先定义

了的格式之一，则只允许有一段）。

如果使用 	结果为

仅一段 	格式表达式用于所有值

两段 	                第一段用于正值和零。第二段用于负值。

三段 	                第一段用于正值，第二段用于负值，第三段用于零。

四段                 第一段用于正值，第二段用于负值，

                            第三段用于零，第四段用于Null值。

下面实例有两段：第一段为正值和零定义格式，第二段为负值定义格式。

"$#,##0;($#,##0)"

如果在分号之间什么也没有，丢失段用正值格式打印。例如，下列格式用第一段中

的格式显示正值和负值，如果值为零则显示"Zero"。

"$#,##0;;\Z\e\r\o"


参阅不同数组的不同格式
参阅

不同字符串值的不同格式

Format 函数


 用户自定义的数字格式实例

某些数字格式表达式实例如下所示，（这些实例均假设用户系统的地区设置为英语一

美国）。第一列包含格式字符串，如果被格式化的数据为列首所给的值，则其它

列为结果的输出。

格式（format）                              +5                       ��5                  十进制0.5           Null

Zero-length string	5	-5	0.5

0	5	-5	1

0.00	5.00	-5.00	0.50

#,##0	5	-5	1

#,##0.00;;;Nil	5.00	-5.00	0.50	Nil

$#,##0;($#,##0)	$5	($5)	$1

$#,##0.00;($#,##0.00)	$5.00	($5.00)	$0.50

0%	500%	-500%	50%

0.00%	500.00%	-500.00%	50.00%

0.00E+00	5.00E+00	-5.00E+00	5.00E-01

0.00E-00	5.00E00	-5.00E00	5.00E-01


命名的日期/时间格式（Format函数）

参阅

下表标识预先定义了的日期和时间格式名：

 格式名	描述

General Date	显示一个日期和/或时间。对于实数，显示一个日期 和时间（例如，4/3/93 05:34PM），如果没有小数部分， 只显示日期（例如，4/3/93）。 如果没有整数部分，只显 示时间（例如，05:34PM）。日期显示取决于用户系统设置。

LongDate 	根据用户系统的长日期格式显示日期。

Medium Date 	使用中型日期格式显示日期，对于宿主应用程序host       application的语言版本是适当的。

 Short Date	使用用户系统的短日期格式显示日期。

Long Time 	使用用户系统的长时间格式：包括小时、分、秒显示时间。

Medium Time 	使用小时和分的12小时时制和AM/PM指示符显示时间。

Short Time 	使用24小时时制（例如，17:45）显示时间。


参阅命名的日期/时间格式
参阅

Format 函数

命名的数字格式


用户定义的日期/时间格式（Format函数）
用户自定义的日期/时间格式（Format函数）

参阅	实例

用户可以使用下表标识的字符创建用户自定义的日期/时间格式：

字符 	描述

:	时间分隔符。在某些地区locales，其它字符也可以用于表示时间分隔符。 当时间值被格式化后,时间分隔符划分小时、分、秒。在被格式化后的输出中用作时间分隔符的实际字符取决于用户系统设置。

/	日期分隔符。在某些地区，其它字符也可以用于表示日期分隔符。 当日期值被格式化后，日期分隔符划分日、月、年。在被格式化后的输出中用作日期分隔符的实际字符取决于用户系统设置。

c	将日期显示为ddddd形式，将时间显示为ttttt形式。按以上次序， 如果日期序号没有小数部分，则只显示日期信息。如果没有函数 部分，则只显示时间信息。

d	将日显示为一个数，前面不加0（1-31）。

dd	将日显示为一个数，前面加0（01-31）。

ddd	显示星期的缩写（Sun-Sat）。

dddd	显示星期的全名（Sunday-Saturday）。

ddddd	显示完整的日期（包括日、月、年）。 根据用户系统的短日期格式设置进行格式化。对于Microsoft Windows，默认短日期格式为m/d/yy。

dddddd	将日期系列号显示为完整的日期（包括日、月、年）。按照 用户系统识别的长日期设置进行格式化。对于Microsoft Windows，默认长日期格式为mmmm dd,yyyy。

w	将星期几显示为一个数（1为星期天直至7为星期六）。

ww	将年中的星期显示为一个数（1-53）。

m	将月显示为一个数，不加前边的0（1-12）。如果m直接跟在h或hh后， 则显示分钟而不是显示月。

mm	将月显示为一个数，前边加0（01-12）。如果m有接跟在h或hh后，则显示分钟而不是显示月。

mmm	将月显示为缩写（Jan-Dec）。

mmmm	将月显示为月的全名（January-December）。

q	 将年中的季度显示为一个数（1-4）。

y	将每年的第几天显示为一个数（1-366）。

yy	将年显示为一个二位数（00-99）。

yyyy	将年显示为一个四位数（100-9999）。

h	将小时显示为一个数，不带前边的0（0-23）。

hh	将小时显示为一个数，带前边的0（00-23）。

n	将分显示为一个数，不带前边的0（0-59）。

nn	将分显示为一个数，带前边的0（00-59）。

s	将秒显示为一个数，不带前边的0（0-59）。

ss	将秒显示为一个数，带前边的0（00-59）。

t t t t t	将时间显示为一个完整时间（包括小时、分、秒）， 使用用户系统识别的用时间格式定义了的时间分隔符进行格式化。 如果选择了前边加0 选项，并且时间为上午或晚上10点之前， 则显示前边的0。默认时间格式为h:mm:ss。

AM/PM	使用12小时时制，在中午之前将大写字母AM与时间一起显示，在中午和 11:59PM之间将大写字母PM与时间一起显示。

am/pm	使用12小时时制，在中午之前将小写字母am与时间一起显示， 在中午和11:59PM之间将小写字母pm与时间一起显示。

A/P	使用12小时时制，在中午之前将大写字母A与时间一起显示， 在中午和 11:59PM之间将大写字母P与时间一起显示。

a/p	使用12小时时制，在中午之前将小写字母a与时间一起显示，在中午和 11:59PM之间将小写字母p与时间一起显示。

AMPM	使用12小时时制，在中午之前将用户系统定义的AM 字符串文字与时间一起显示，在中午和11:59PM之间将用户系统定 义的PM字符串文字与时间一起显示。AMPM可以是大写，也可以是 小写，但是被显示的字符串要与用户系统设置的已定义了的字符 串相匹配，对于Microsoft Windows，默认格式为AM/PM。


参阅用户定义的日期/时间格式
参阅

Format 函数

用户自定义的数字格式

用户自定义的字符串格式


用户定义的日期/时间格式实例
 用户自定义的日期/时间格式实例

下面 是用户自定义的1958年12月7日的日期和时间格式实例：

格式 	显示

m/d/yy	12/7/58

d-mm	7-Dec

d-mmmm-yy	7-December-58

d-mmmm	7 December

mmmm-yy	December 58

hh:mm AM/PM	08:50 PM

h:mm:ss a/p	8:50:35 p

h:mm	20:50

h:mm:ss	20:50:35

m/d/yy h:mm	12/7/58 20:50


用户定义的字符串格式（format函数）
用户自定义的字符串格式（format函数）

参阅

用户可以使用下列任意字符为字符串创建一个格式表达式。

字符 	描述

@	字符保留区 显示一个字符或一个空格。如果字符串有一个字符处于格式字符串中@出现的位置，则显示该字符。否则在该位置显示空格。除非格式字符串中有! 字符，否则从右到左填充保留区。参见下面说明。

&	字符保留区  显示一个字符或什么也不显示。如果字符串有一个字符处于格式字符串 中&出现的位置， 则显示该字符。否则什么也不显示。除非格式字符串中有!字符， 否则从右到左填充保留区。参见下面说明。

<	强制小写

以小写格式显示所有字符。

>	强制大写

以大写格式显示所有字符。

!	强制从右到左填充保留区

默认为从右到左填充。


参阅用户定义的字符串格式
参阅

Format 函数

用户自定义的日期/时间格式

用户自定义的数字格式


不同字符串值的不同格式
不同字符串值的不同格式（Format函数）

参阅

字符串的格式表达式可以有一段，或用分号隔开的两段。

如果使用	结果为

仅一段	则格式用于所有字符串数据。

两段	第一段用于字符串数据，第二段用于Null值和零长度字符串。


参阅不同字符串值的不同格式
参阅

不同数字值的不同格式

Format 函数


Hex函数

参阅	实例

描述

返回一个字符串用以表示一个数的十六进值。

语法

Hex(number)

元素

 number 命名参数为任意合法数字表达式numeric expression。

解释

如果number不是一个整数，在被运算之前将其圆整为最接近的整数。

如果number是 	Hex返回

Null	一个错误信息。

Empty	零 (0)。

任何其它数 	最大到8位的十六进制字符。

用户也可以直接通过在数前适当位置加上&H来表示十六进制数。例如，&H10在十六

进制计数法中表示十进制16。


Hex 函数 参阅
参阅

Oct 函数

从函数返回字符串


InStr 函数

参阅	实例

描述

返回一个字符串在另一个字符串中第一次出现的位置。

语法

InStr([start,]string1,string2[,compare])

元素

Instr函数语法具有下列组成部分：

组成部分 	描述

start	数字表达式Numericexpression，为每一次搜索设置开始位置。 如果省略，则从第一个字符位置开始寻找。如果start包含非法数据，则出现错误信息。如果compare被指定，则start是必选项。

string1	被搜索的字符串表达式Stringexpression。如果string1包含非法数据， 	则返回Null。

string2 	正搜索的字符串表达式。如果string2包含非法数据，则返回Null。

compare	指定字符串比较string comparison类型的数。指定1则进行与大小写无关的文字比较，指定0（ 默认）进行一次二进制比较。如果compare为Null，则出现一个错误信息。 如果指定了compare，则start也是必选项。如果省略compare，则Option Compsre 设置用于决定比较类型。

返回值

值 	描述

0 	string1 为零长度。

start 	string2为零长度。

0 	string2未找到。

发现匹配的位置 	string2 在string1中找到。

0 	start>string2。

解释

附注 当指定Option cormpare Text后，该比较为文字比较与大小写无关，当指定option Compare Binary后，该比较为严格的二进制比较。

附注 另一个函数（InStrB）被提供用于一些亚洲地区的双字节字符设置（DBCS ）环境，InStrB返回字节的位置而不是另一个字符串中该字符串第一次出现的字符位置。 在不使用DBCS的地区，InStrB与InStr性能一样。


InStr 函数 参阅
参阅

Option Compare 语句


LCase 函数

参阅	实例

描述

返回一个转换成小写的字符串。

语法

LCase(string)

元素

string

命名参数named argument为任何合法字符串表达式string expression。如果string 包含非法数据， 返回Null。

解释

只有大写字母被转换成小写字母，所有小写字母和非字母字符保持不变。


LCase 函数 参阅
参阅

从函数返回字符串

UCase 函数


Left 函数

参阅	实例

描述

从字符串左边返回指定字符数。

语法

Left(string,length)

元素

Left函数语法具有下列命名参数部分：

组成部分 	描述

string	字符串表达式String expression的最左边字符被返回， 如果string包含非法数据， 则返回Null。

length	指明有多少字符被返回的数字表达式Numeric expression。如果是0，则返回一个零长度字符串，如果大于或等于string的字符数，则返回整个字符串。

解释

为了确定string的字符数，使用Len函数。

附注 另一个函数（LeftB）被提供用于一些亚洲地区的双字节字符设置（DBCS）环境。length指定要返回的字节数而不是字符数。在不使用DBCS的地区，LeftB性能与Left一样。


Left 函数 参阅
参阅

Len 函数

Mid 函数

从函数返回字符串

Right 函数


Len 函数

参阅	实例

描述

返回一个字符串的字符数或要存储一个变量的字节数。

语法

Len(string | varname)

元素

Len函数语法具有下列组成部分：

组成部分 	描述

String 	任何合法字符串表达式string expression，如果string包含非法数据，则返回Null。

virname 	任何合法变量variable名。如果virname包含非法数据，则返回Null。

解释

警告 当与用户自定义的数据类型一起使用时，Len或许不能决定实际需要的存储字节数。

附注  另一个函数（LenB）被提供用于一些亚洲地区的双字节字符设置 （DBCS ）环境。 LenB返回用于表示字符串的字节数而不是那个字符串的字符数。在不使用DBCS的地区，LenB与Len的性能一样。


Len 函数 参阅
参阅

InStr 函数


LSet 语句

参阅	实例

描述

在一个字符串变量内靠左对齐字符串，或将一个用户自定义类型变量复制到另一个 用户定义类型变量。

语法

LSet stringvar = string

LSet varname1 = varname2

元素

LSet语句语法具有下列组成部分：

组成部分 	描述

stringvar 	字符串变量variable名。

string 	在stringvar内要靠左对齐的字符串表达式String expression。

varnamel 	被复制到用户自定义类型的变量名。

varname2 	从用户自定义类型中复制的变量名。

解释

LSet将stringvar内的任何剩余字符用空格代替。如果string长于 stringvar ，则LSet仅将最左边的字符，最长到stringvar的长度，放在stringvar内。或Currency型可以被复制。下面的实例用于将Rectwo（用户自定义类型变量）内的内容复制到Recone（另一个用 户自定义类型变量）中。

Type TwoString

StrFld As String * 2

End Type

Type ThreeString

StrFld As String * 3

End Type

Dim RecOne As TwoString, RecTwo As ThreeString

LSet RecOne = RecTwo

因为，Recone为2个字节长，则仅有2个字节从Rectwo中被复制出。LSet 只复制两个

用户自定义类型变量中字节较短的字节数。


LSet 语句 参阅
参阅

RSet 语句


LTrim, RTrim, and Trim 函数
LTrim，Rtrim和Trim函数

参阅	实例

描述

返回不带起始空格（LTrim），结尾空格（RTrim）或起始和结尾空格（Trim ）的字符串副本。

语法

LTrim(string)

RTrim(string)

Trim(string)

元素

 string命名参数为任何合法字符串表达式string expression，如果string包含非法数据, 则返回Null。


LTrim, RTrim, and Trim 函数
参阅

Left 函数

从函数返回字符串

Right 函数


Mid 函数

参阅	实例

描述

从一个字符串返回指定的字符数。

语法

Mid(string,start[,length])

元素

Mid函数语法具有下列组成部分：

组成部分 	描述

string 	字符串表达式String expression，从它返回字符。如果string包含非法数据，则返回Null。

start 	string中字符的位置，从这里开始返回。如果start大于string 中的字符数，Mid返回一个零长度字符串。

length 	要返回的字符数，如果省略或文字中的字符数（包括start处的字符 ）少于length。则从start位置开始直到字符串结尾的所有字符均被返回。

解释

为了确定string中 的字符数，使用Len函数。

附注 另一个函数（MidB）被提供用于一些亚洲地区的双字节字符设置（DBCS）环境。 length指定要返回的字节数而不是字符数。在不使用DBCS的地区，MidB的性能与Mid一样。


Mid 函数 参阅
参阅

Left 函数

Len 函数

LTrim 函数

Mid 语句

从函数返回字符串

Right 函数

RTrim 函数

Trim 函数


Mid 语句

参阅	实例

描述

将一个字符串变量中指定字符数用另一个字符串的字符代替。

语法

Mid(stringvar,start[,length]) =string

元素

Mid句法语法具有以下组成部分：

组成部分 	描述

stringvar 	要改变的字符串变量名。

start 	stringvar中字符的位置，文字替换从这里开始。

lenger 	要替换的字符数。如果省略，则使用字符串的全部。

string 	字符串表达式String expression，用于替换stringvar中的一部分。

解释

被替换的字符数总是小于或等于stringvar中的字符数。


Mid 语句 参阅
参阅

Mid 函数


Oct 函数

参阅	实例

描述

返回表示数的八进制值的字符串。

语法

Oct(number)

元素

number命名参数是任何合法数字表达式numeric expression。

解释

number并不总是一个整数，在被运算之前，它被四舍五入为最接近的整数。

如果number为 	Oct返回

Null	错误信息。

Empty	零 (0)。

任何其它数 	最大到11个八进制字符。

用户也可以直接通过在数前加上&O表示八进制数。例如，&O10为十进制8 的

八进制表示法。


Oct 函数 参阅
参阅

Hex 函数

从函数返回字符串


Right 函数

参阅	实例

描述

从一个字符串右边返回指定的字符数。

语法

Right(string,length)

元素

Right函数语法具有下列命名参数部分：

组成部分 	描述

string 	字符串表达式String expression的最右边字符被返回。如果string包含非法数据，则返回Null。

length 	数字表达式Numeric expression，指明要返回的字符数。如果为0，则返回一个零长度字符串，如果大于或等于string中的字符数，则返回整个字符串。

解释

为了确定string中的字符数，使用Len函数。

附注：另一个函数（RightB）被提供用于一些亚洲地区的双字节字符设置（DBCS） 环境。Lergth指定要返回的字节数而不是字符数，在不使用DBC S的地区，RightB与Right的性能一样。


Right 函数 参阅
参阅

Left 函数

Len 函数

Mid 函数

从函数返回字符串


RSet 语句

参阅	实例

描述

在字符串变量中靠右对齐一个字符串。

语法

RSet stringvar = string

元素

RSet语句语法有以下组成部分

组成部分 	描述

stringvar 	字符串变量名。

string 	stringvar内要靠右对齐的字符串表达式String expression。

解释

RSet将stringvar内任何剩余字符用空格代替，一直回退到起始。RSet不能与用户自定义 类型一起使用。


RSet 语句 参阅
参阅

LSet 语句


Space 函数

参阅	实例

描述

返回由指定空格数组成的字符串。

语法

Space(number)

元素

number命名参数为字符串内用户想要的空格数。

解释

Space函数可用于对输出进行格式化并清除固定长度字符串内的数据。


Space 函数 参阅
参阅

从函数返回字符串

Spc 函数

String 函数


Str 函数

参阅	实例

描述

返回一个数的字符串表示法。

语法

Str(number)

元素

number命名参数是任何合法数字表达式numeric expression。

解释

当数被转换为字符串时，起始空格一直保留用于number的正负号。如果number为正， 被返回的字符串起始包含一个空格，即意味着加号。 使用Format函数可以将数值转换为用户希望的格式，如：日期、时间、货币或其它用 户定义格式。与Str不同，Format函数不包含用于number 正负号的起始空格。

附注：str函数仅将句号（.）看作合法小数分隔符， 当有可能要使用不同的小数分隔符时（例如，在国际应用程序中），可以使用cstr将数据转换成字符串。


Str 函数 参阅
参阅

CStr 函数

Format 函数

从函数返回字符串

Val 函数


StrComp 函数

参阅	实例

描述

返回表示字符串比较string comparison结果的值。

语法

StrComp(string1,string2[,compare])

元素

StrComp函数语法有以下组成部分：

组成部分 	描述

string1 	任何合法字符串表达式string expression。

string2 	任何合法字符串表达式。

compare 	指定字符串比较类型的数。指定1，即进行一次文字比较，指定0 （默认），即进行一次二进制比较。如果Strcomp为Null，则出现 一个错误信息，如果compare省略，Option Compare的设置用于确定比较类型。

返回值

值 	描述

-1 	string1<string2。

0 	string1=string2。

1 	string1>string2。

Null	Sering1或string2为Null。

解释

附注：当指定Option Compare Text后，比较为文字比较，与大小写无关。当指定 Option Compare Binary后，比较为严格二进制比较。


StrComp 函数 参阅
参阅

Option Compare 语句


String 函数

参阅	实例

描述

返回指定长度的重复字符的字符串。

语法

String(number,character)

元素

String函数语法有以下命名参数部分：

组成部分 	描述

number 	被返回的字符串长度，如果number包含非法数据，则返回Null。

character 	字符代码Character code，指定字符或字符串表达式string expression。其第一个字符用于建立返回字符串，如果character包含非 法数据，则返回Null。

解释

如果用户指定的Character数大于255，则string用下面的公式将该数转换成一个有 效字符代码：

character Mod 256


String 函数 参阅
参阅

字符集

从函数返回字符串

Space 函数

String  数据类型


UCase 函数

参阅	实例

描述

返回一个转换成大写字母的字符串。

语法

UCase(string)

元素

string命名参数是任何合法字符串表达式string expression。如果string包含非法数据。则返回一个Null。

解释

只有小写字母被转换成大写字母，所有大写字母和非字母字符均保持不变。


UCase 函数 参阅
参阅

LCase 函数

从函数返回字符串


Chr函数实例

该实例用Chr函数返回一个与指定字符代码相对应的字符。

MyChar = Chr(65)	' Returns A.

MyChar = Chr(97)	' Returns a.

MyChar = Chr(62)	' Returns >.

MyChar = Chr(37)	' Returns %.


 Format 函数实例

    该实例显示了用Format函数使用命名的和用户定义的格式对数值进行格式化的多种不同方法。对于日期分隔符(/),时间分隔符(:)和AM/PM文字,由依赖于当时的时间设置的用户系统显示的实际的格式化输出。当时间和日期被列在开发环境的后面时,使用Code Locale的短时间和短日期格式,当使用运行代码显示时,使用System Locale的短时间和短日期格式,它与Code locale也可能是不同的。在该例中,假定为English-US。

' MyTime and MyDate will be displayed in the development environment

' using current system short time and short date settings.

MyTime = #17:04:23#

MyDate = #January 27, 1993#

' Returns current system time in the system-defined long time format.

MyStr = Format(Time, "Long Time")

' Returns current system date in the system-defined long date format.

MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s")	' Returns "17:4:23".

MyStr = Format(MyTime, "hh:mm:ss AMPM")	' Returns "05:04:23 PM".

MyStr = Format(MyDate, "dddd, mmm d yyyy")	' Returns

' "Wednesday, Jan 27 1993".

' If format is not supplied, a string is returned.

MyStr = Format(23)	' Returns "23".

' User-defined formats.

MyStr = Format(5459.4, "##,##0.00")	' Returns "5,459.40".

MyStr = Format(334.9, "###0.00")	' Returns "334.90".

MyStr = Format(5, "0.00%")	' Returns "500.00%".

MyStr = Format("HELLO", "<")	' Returns "hello".

MyStr = Format("This is it", ">")	' Returns "THIS IS IT".


 Hex 函数实例

该实例用Hex函数返回一个数的16进制值。

MyHex = Hex(5)	' Returns 5.

MyHex = Hex(10)	' Returns A.

MyHex = Hex(459)	' Returns 1CB.


InStr 函数实例
 函数实例

该实例用InStr函数返回在另一个字符串中一个字符串第一次出现的位置。

SearchString ="XXpXXpXXPXXP"	' String to search in.

SearchChar = "P"	' Search for "P".

' A textual comparison starting at position 4. Returns 6.

MyPos = InStr(4, SearchString, SearchChar, 1)

' A binary comparison starting at position 1. Returns 9.

MyPos = InStr(1, SearchString, SearchChar, 0)

' Comparison is binary by default (if last argument is omitted).

MyPos = InStr(SearchString, SearchChar)	' Returns 9.

MyPos = InStr(1, SearchString, "W")	' Returns 0.


 LCase 函数实例

该实例用LCase函数返回一个字符串的小写形式

Uppercase = "Hello World 1234"	' String to convert.

Lowercase = LCase(UpperCase)	' Returns "hello world 1234".


 Left 函数实例

该实例用left函数从一个字符串的左边返回指定数目的字符。

AnyString = "Hello World"	' Define string.

MyStr = Left(AnyString, 1)	' Returns "H".

MyStr = Left(AnyString, 7)	' Returns "Hello W".

MyStr = Left(AnyString, 20)	' Returns "Hello World".


 Len 函数实例

该实例用len函数返回一个字符串中的字符数或存储到一个变量中需要的字节数。

Type CustomerRecord	' Define user-defined type.

ID As Integer

Name As String * 10

Address As String * 30

End Type

Dim Customer As CustomerRecord	' Declare variables.

Dim MyInt As Integer, MyCur As Currency

MyString = "Hello World"	' Initialize.

MyLen = Len(MyInt)	' Returns 2.

MyLen = Len(Customer)	' Returns 42.

MyLen = Len(MyString)	' Returns 11.

MyLen = Len(MyCur)	' Returns 8.


 LSet 语句实例

该实例用LSet语句靠左对齐一个字符串变量内的字符串然后将一个用户定义类型的变量 复制到另一个不同的用户定义类型的变量中

MyString = "0123456789"	' Initialize string.

LSet MyString = "<-Left"	' MyString contains "<-Left    ".

' LSet is also used to copy a variable of one user-defined type to

' another variable of a different user-defined type.

' Module level.

Type AType	' Define types.

AName As String * 10

AAdd As String * 10

End Type

Type BType

BName As String * 5

BAdd As String * 5

End Type

' Procedure level.

Dim AVar As AType, BVar As BType	' Declare variables.

AVar.AName = "John Smith"	' Define fields.

AVar.AAdd = "Rodeo Drv."

LSet BVar = AVar	' Copy variables.

' After copying, values are truncated.

Debug.Print BVar.BName	' Prints "John ".

Debug.Print BVar.BAdd	' Prints "Smith".


LTrim, RTrim, and Trim 语句实例
 LTrim, RTrim, and Trim 函数实例

该实例用LTrim和RTrim函数从一个字符串变量中去掉前后空格,单独使用Trim函数可 得到同样的结果

MyString = "  <-Trim->  "   	' Initialize.

TrimString = LTrim(MyString)	' TrimString = "<-Trim->  ".

TrimString = RTrim(MyString)	' TrimString = "  <-Trim->".

TrimString = LTrim(RTrim(MyString))	' TrimString = "<-Trim->".

' Using the Trim function alone achieves the same result.

TrimString = Trim(MyString)	' TrimString = "<-Trim->".


 Mid 函数实例

该实例用Mid函数从一个字符串中返回一个指定的数目的字符。

MyString = "Mid Function Demo"	' Create text string.

FirstWord = Mid(MyString, 1, 3)	' Returns "Mid".

LastWord = Mid(MyString, 14, 4)	' Returns "Demo".

MidWords = Mid(MyString, 5)	' Returns "Function Demo".


 Mid 语句实例

该实例用Mid语句以另一个字符串中的字符去替代一个字符串变量中指定的数目的字符。

MyString = "The dog jumps"	' Initialize string.

Mid(MyString, 5, 3) = "fox"	' MyString = "The fox jumps".

Mid(MyString, 5) = "cow"	' MyString = "The cow jumps".

Mid(MyString, 5) = "cow jumped over"	' MyString = "The cow jumpe".

Mid(MyString, 5, 3) = "duck"	' MyString = "The duc jumps".


 Oct 函数实例

该实例用Oct函数返回一个数的11进制值。

MyOct = Oct(4) 	' Returns 4.

MyOct = Oct(8)	' Returns 10.

MyOct = Oct(459)	' Returns 713.


 Right 函数实例

该实例用Right函数从一个字符串的右边返回指定的数目的字符。

AnyString = "Hello World"	' Define string.

MyStr = Right(AnyString, 1)	' Returns "d".

MyStr = Right(AnyString, 6)	' Returns " World".

MyStr = Right(AnyString, 20)	' Returns "Hello World".


 RSet 语句实例

该实例用Rset语句靠右对齐一个字符串变量中的字符串

MyString = "0123456789"	' Initialize string.

RSet MyString = "Right->"	' MyString contains "   Right->".


 Space函数实例

该实例用Space函数返回一个由指定空格数构成的字符串

' Returns a string with 10 spaces.

MyString = Space(10)

' Insert 10 spaces between 2 strings.

MyString = "Hello" & Space(10) & "World"


 Str函数实例

该实例用Str返回一个数的字符串表示当一个数被转换成一个字符串时,它的起始位置始终保留用于正负号.

MyString = Str(459)	' Returns " 459".

MyString = Str(-459.65)	' Returns "-459.65".

MyString = Str(459.001)	' Returns " 459.001".


 StrComp 函数实例

该实例用StrComp函数返回一个字符串比较的结果。如果第三个参数定为1,则作一次文 字比较；如果第三个参数为0或省略,则进行一次二进制比较。

MyStr1 = "ABCD": MyStr2 = "abcd"	' Define variables.

MyComp = StrComp(MyStr1, MyStr2, 1)	' Returns 0.

MyComp = StrComp(MyStr1, MyStr2, 0)	' Returns -1.

MyComp = StrComp(MyStr2, MyStr1)	' Returns 1.


 String 函数实例

该实例用String函数返回指定长度的重复字符的字符串

MyString = String(5, "*")	' Returns "*****".

MyString = String(5, 42)	' Returns "*****".

MyString = String(10, "ABC")	' Returns "AAAAAAAAAA".


 UCase 函数实例

该实例用UCase函数返回一个字符串的大写形式

LowerCase = "Hello World 1234"	' String to convert.

UpperCase = UCase(LowerCase)	' Returns "HELLO WORLD 1234".


 增加监视表达式


 增加监视表达式

参阅

监视表达式(watch expression) 是在调试窗口中定义的用于监视的表达式。

  当应用程序进入中断方式(break mode) 时，选定的监视表达式出现在监视窗口中，在此可观察其值，在等待方式(wait mode）defwaitmode 中，仅模块表和项目级监视值被显示。

为增加监视表达式

1.从[工具]菜单上，选择[增加监视]。

2.如果表达式在代码窗口中选定，它自动地显示在表达式框中。如果无表达式显示，输入想要求值的表达式。

3.选定上下文组中的模块表或过程上下文，选定表达式被求值的区域。

附注    选定适合需要的最狭小的范围，选定所有过程或所有模块表 会相当大地减慢模块表的执行，因为整个语句执行后表达式被求值。 如果选定指定上下文的过程，仅当过程在当前过程调用清单中时执行受影响。 按下调试窗口中过程框的向右按钮显示调用对话。

4.在监视类型中选定一选项定义系统怎样响应监视表达式。有三类监视表达式。

类型	描述

监视表达式	监视表达式值被显示。如果表达式上下文不在调用对话中列出的过程中，当前值不显示。

当值改变时间断	如果表达式值改变，执行终止。

当值为True时间断	如果表达式求值为True，执行终止。

5.选择[确定]按钮。


参阅增加监视表达式
参阅

调试检查清单

删除监视表达式

编辑监视表达式

设置和清除断点


 继续执行


 继续执行

参阅

当运行代码时，运行可终止，如果：

非捕获运行(run-time) 错误发生。

以前设置的断点(breakpoint) 被遇到。

监视表达式(watch expression)，设置当值改变时间断或当值为True时，间断被遇到。

代码中Stop语句和End语句被遇到。

 CTRL+BREAK组合键被遇到。为继续执行

从[运行]菜单，选择[继续执行（F5）]，[单步执行(进入过程)（F8）]或[单步执行 (不进入过程)（SHIFT+F8）]


参阅继续执行
参阅

增加监视表达式

调试检查清单

End语句

结束执行

重新启动执行

设置和清除断点

启动执行

Stop语句


 创建过程


创建过程

参阅

模块表(Module) 中的代码被组成过程(Procedures)。过程告知应用程序如何执行特定任务，使用过程把复杂代码任务分解为更易管理的单位。

为创建过程

1.	打开想编写过程的模块表。

可创建子过程、函数或属性过程

2.	键入Sub,Function或ProPerty。按F1获取语法帮助。

3.	键入过程代码。

4.	使用相应的End Sub.End Function或End Property语句结束过程。


参阅创建过程
参阅

Function语句

Sub语句

Property Get语句

Property Let语句

Property Set语句

输入和编辑代码


 调试检查清单


调试检查清单

参阅

调试是发现和消除代码中错误的过程。运行应用程序时，可遇到三类错误：

编译错误 [image] 发生，其结果是代码 构造不正确。可能有非正确匹配的控制结构（诸如无对应于For语句的Next语句） 或程序错误（违反Basic的规定，诸如误拼写的字，丢失分隔符或类型不匹配）。

编译错误包括语法错误，即语法或标点错，其中包括括号不匹配或传给内部函数的参数的个数不正确。

运行错误 [image] 发生，当应用程序启动 执行后，运行错误的实例包括试图进行非法操作，诸如写入的文件

不存在或被零除。

逻辑错误 [image] 发生，当程序不按预想 执行和产生不正确结果时。

为调试代码

1.	打印代码（一些用户发现在纸上读代码比在屏幕上看容易）。

2.	运行应用程序发现难点：

从[运行]菜单，选择[开始（F5）]。

运行直至出现错误终止执行或在怀疑有错的地方手工终止执行。

在工具选项对话的[模块表设置标签]中设置在错误处间断。

在错误处理程序中设置断点并使用Resume Next语句。

消除所有编译和运行错误。

从[运行]菜单，选择[继续执行（F5）]。

3.	使用调试工具和技巧分离错误并监视代码流：

在特定点设置断点(breakpoints) 展停执行寻找不正确变量类型，变量名字中的混淆，逻辑比较的错误无限循环、 断章取义的输出、数组问题等。也可设置断点监视代码流或检查当前状态信息。

对变量名字使用上下文相关帮助（F1）检查冲突。

使用[单步执行(进入过程)（F8）]或[单步执行(不进入过程)（SHIFT+F8）]跟踪代码。

增加监视表达式(watch expression) ，在开发时或当在间断方式(break mode) 监视特定表达式值时使用即时监视。

使用调试窗口的即时窗口测试代码或过程的单独行或在间断方式时改变值。

输入间断方式并选择过程框的向右按钮观查代码正确执行和跟踪路径。

4.	确定错误位置，然后编辑：

在调试窗口的即时窗口中测试单独行或调试代码。

当错误发现时，使用搜索和替换特性检查其他过程或模块表的相同错误。

从[运行]菜单，选择[重新设置]命令重新设置变量和重新从起始点执行。


参阅调试检查清单
参阅

增加监视表达式

继续执行

删除监视表达式

编辑监视表达式

结束执行

输入和编辑代码

替换代码中文字

重新启动执行

设置和消除断点

启动执行

终止执行

跟踪执行

使用即时窗口


 删除监视表达式


删除监视表达式

参阅

用调试窗口的监视窗口删除监视表达式：

选定表达式并按下DELETE，或

选定表达式并从[编辑]菜单选择[清除]命令，或

双击表达式并选择[删除]命令，或

选定表达式，从[工具]菜单选择[编辑监视]命令，然后选择[删除]命令。


参阅删除监视表达式
参阅

调试检查清单

设置和清除断点


 编辑监视表达式


编辑监视表达式

参阅

为编辑监视表达式

1.	双击调试窗口的监视窗口中的表达式或选定表达式，然后从 [工具]菜单上选择[编辑监视]命令。

2.	对表达式、上下文和监视类型进行改变。

3.	选择[确定]按钮。


参阅编辑监视表达式
参阅

增加监视表达式

调试检查清单

删除监视表达式

设置和清除断点


 结束执行


结束执行

参阅

为结束执行

从[运行]菜单，选择[完成]，或

间断方式期间关闭调试窗口。


参阅结束执行
参阅

重新启动执行

启动执行

终止执行


 输入和编辑代码


输入和编辑代码

参阅

在模块表中输入和编辑代码。模块表具有内部自动格式化(automatic formatting) 和语法检查(syntax checking) 能力。

准则

为输入代码，插入模块表或选定模块表并开始键入。

为改正键入的错误，按BACKSPACE键。

为删除文字，选定文字并按DEL键。

为移动插入点(insertion point), ，在想要插入的插入点处单击鼠标或使用箭头键。

为缩排文本，选定想缩排的行并按TAB键。

为在插入和覆盖方式间切换，按INSERT键。

为在代码行中增加注释(comment)， 用撇写（'）作为行开头或使用Rem语句。

为完成语句，在行尾按ENTER键或把插入点从该行移开。

为在一行中写多条语句，使用冒号为分隔符，例如

For I = 1 to 100: A(I) = I: Next I

为在下行继续一语句，该行未端用续行符(line-continuation character)。

为同时察看代码的不同部分，从[窗口]菜单选择[分割]命令。

 为定义接受参数(arguments)的过程，用列表分隔符分开它们，如果多于一个， 用括号括起所有跟在过程名后的参数，例如：

Sub IncrementXY(X, Y)

为传递参数给过程，用逗号分开它们，如果多于一个，跟在调用的过程名后，例如：

IncrementXY X, Y

                    仅当Call关键字用在过程名前才用括号括起参数放在过程名后，例如：

Call IncrementXY(X, Y)

为获得关键字keyword的帮助，键入或选定关键字并按F1键。

为把一变量赋予另一个，使用语法

destination = source.


输入和编辑代码的准则
参阅

创建过程

数据类型摘要

代码中输入声明

Rem语句


 代码中输入声明


代码中输入声明

参阅

声明是命名和定义过程、常量、用户定义类型或变量属性的非执行代码语句，在模块表(modules)中编写模块表级(module-level) 声明。也可在模块表内指定过程中输入过程级(procedure-level)声明。声明的位置和规格如Public或Private确定了声明的范围。


参阅代码中输入声明
参阅

Declare语句

输入和编辑代码

Private语句

Public语句


 引入文本文件到代码中


引入文本文件到代码中
引入本文文件到代码中

参阅

可以引入包含代码的文本文件到当前模块表中并在代码中使用它。

为引入文本文件到模块表中

1.	从[插入]菜单，选择[文件]命令。   插入文字对话框出现。

2.	用插入文字对话框选定要引入的文件。

3.	选择[确定]按钮。


参阅引入文本文件到代码中
参阅

输入和编辑代码

使用联机帮助上的实例代码


 在代码中替换文字


在代码中替换文字

参阅

为在模块表中替换文字

1.	从[编辑]菜单，选择[替换]命令。

替换对话框出现。

2.	在查找内容框中，键入要搜索的文字。

3.	在替换成框中，键入替代文字。

4.	选定搜索内容选项指定在何处查找文本。

5.	从清单中选定搜索选项指定搜索方向。

6.	为设置搜索限制，选定：

精确匹配的匹配条件

仅查找整个字搜索整个字本身，而不选为一个字的一部分。

使用模式匹配使用通配符。

7.	如果在替换文字前想确认变化，则选择[查找下一个]。选择[替换]选项替换查找 到突显的文字，并自动进行查找下一个，或选择全部替换自动地改变搜索的文字。


参阅在代码中替换文字
参阅

在代码中搜索文本


 重新启动执行


重新启动执行

参阅

可以从间断方式break mode重新启动执行。重新启动返回代码到新初始化

的状态。重新设置所有变量并从内存中删除任何暂停的过程。

如果不想重新设置变量，跳过步骤1。

为重新启动执行

1.	从[运行]菜单，选择[重新设置]。

2.	从[运行]菜单，选择[开始]。


参阅重新启动执行
参阅

继续执行

调试检查清单

结束执行

启动执行

终止执行


 在代码中搜索文字


在代码中搜索文字

参阅

为在模块表中搜索指定文本

1.	从编辑菜单，选择查找命令。

查找对话框出现。

2.	在查找内容框中，键入要搜索的文字（如果在显示对话框前未选定文字）。

3.	选定搜索内容选项按钮指定在何处查找文字。

4.	从清单中选定搜索选项指定搜索方向。

5.	为设置搜索限制：

选定匹配条件查找精确匹配

选定仅查找整个字搜索整个字本身并不是一个字的一部分。

选定使用模式匹配使用通配符或区域。

6.	选择[查找下一个]。


参阅在代码中搜索文字
参阅

在代码中替换文字


 设置和清除断点


设置和清除断点

参阅

在过程中于指定的语句处设置断点(breakpoint) 暂停执行。例如，在怀疑有问题存在处。

当不在需要它们停止执行时，清除断点。

为设置断点

1.	放置插入点(insertion point) 在想要执行停止的过程的行中任意处。

2.	从[运行]菜单，选择[切换断点（F9）]。

断点被增加并该行被设置为选项对话框中定义的断点颜色。

为清除断点

1.	放置插入点在包含断点过程的行上任意处。

2.	从[运行]菜单，选择[切换断点（F9）]。

断点被清除且醒目显示被删除。

为在应用程序中清除所有断点

从[运行]菜单，选择[清除所有断点]。

附注  在代码中设置的断点当保存代码时不被保存。如果在含有多个由冒号分隔 的语句的行上设置断点，间断总在该行第一个语句处发生。


参阅设置和清除断点
参阅

增加监视表达式

调试检查清单

删除监视表达式

编辑监视表达式


 分割模块表


分割模块表

参阅

水平分割模块表(module) 至两个窗口同时观察代码的不同部分。每个窗口单独滚动，水平和垂直， 代码改变立即在两个窗口中反应。

为分割模块表

从[窗口]菜单，选择[分割]。

为删除分割

从[窗口]菜单，选择[分割]或双击分割条(split bar) 或拖曳它到窗口顶部或底部。


参阅分割模块表
参阅

Visual Basic模块表


 启动执行


启动执行

参阅

测试代码的一种方法是运行它且当用户希望时对其进行处理。

为启动执行，从[运行]菜单选择[开始（F5）]。

如果应用程序不运行，可能因为：

语法(syntax) 错误或一些其他错误存在于代码中。

逻辑(logic) 错误存在于代码中，它可导致运行(run-time) 错误。

为获取帮助，当错误消息显示时按F1键。再次运行代码前，考虑提供的建议以便 改正错误。


参阅启动执行
参阅

继续执行

调试检查清单

End语句

结束执行

重新启动执行

终止执行


终止执行
 停止执行


终止执行
停止执行

参阅

因这些原因这一执行可终止：

非捕获的运行错误发生。

从前设置的断点(breakpoint) 被遇到。

监视表达式(watch expression)被遇到，已设置其为间断，如果其值改变或其值为True。

Stop语句或End语句被遇到。

在Microsoft Windows中CTRL+BREAK组合键被按下。

在Mcintosh上，CMD+.(period)组合键或ESC键被按下。


参阅终止执行
参阅

增加监视表达式

继续执行

调试检查清单

End语句

结束执行

重新启动执行

设置和清除断点

启动执行

Stop语句


 跟踪执行


跟踪执行

参阅

跟踪执行，因为何语句首先执行不总是明显的。使用这些技巧

跟踪代码的执行：

[单步执行] [image] 跟踪通过代码的每一行并进入过程。这允许观察变量对每个语句的影响。

[单步执行] [image] 执行每个过程好象它是单一语句。使用[单步执行(不进入过程)]代替[单步执行(进入过程)]通过过程调用而不是进入调用的过程。

为从当前语句跟踪执行

从[运行]菜单，选择[单步执行(进入过程)（F8）]。

从[运行]菜单，选择[单步执行(不进入过程)（SHIFT+F8）]。

为在中断方式break mode中从程序开始跟踪执行

从运行菜单，选择[单步执行(不进入过程)（F8）]；或选择[单步执行(不进入过程)（SHIFT+F8）]。


参阅跟踪执行
参阅

调试检查清单

设置和清除断点


打开和关闭语法检查
 语法检查打开和关闭


打开和关闭语法检查

参阅

模块表Modules 包括语法检查功能，即：

当输入时，检查每个语句的语法错误（诸如误拼关

                  键字或丢失分隔符），并且如果有错误，则报警。

如果语法正确，把代码翻译为内部格式，它加速向运

                  行代码的过渡。

当初次启动时，该功能必须被打开，但可关闭它，如果喜欢编写代码，当错误发生 时不报警。

为打开和关闭语法检查

1.	从[工具]菜单，选择[选项]。

2. 	选定模块表设置标签。

3.	使用显示语法错误选择框选定或取消选定。

4.	选择[确定]按钮。


参阅打开和关闭语法检查
参阅

输入和编辑代码


 使用帮助菜单上的实例代码


使用帮助菜单上的实例代码

参阅

可从联机帮助上复制实例代码，把它粘贴到当前模块表module中，然后

编辑代码以满足需要。

为复制和粘贴实例代码

1.	查找想要的主题。

2.	在主题的非滚动区域中单击实例跳到代码实例。

3.	在含有代码实例的辅助窗口中，选择[复制]。

4.	在复制窗口中，选定要复制的代码并选择[复制]按钮。

5.	在模块表中，单击想要插入实例代码处。

6.	从[编辑]菜单，选择[粘贴]。

附注  从帮助菜单上复制实例代码后，可能需要修改变量、常量和地址， 确保在每个注释前增加引号（�穑�，特别是如果它折转到第二行。此工作 失败可能妨碍代码正确执行。


参阅使用帮助菜单上的实例代码
参阅

输入和编辑代码

在代码中替换文字


 使用即时监视


使用即时监视

参阅

在等待方式(wait mode) 或间断方式(break mode)中，可以检查未定义为监视表达式(watch expression)的当前变量或表达式的值。使用即时监视命令完成。

为显示立即监视

1.	在模块表(module) 中突出显示表达式。

2.	从[工具]菜单，选择[即时监视（SHIFT+F9）]。

即时监视对话框显示选定的表达式的当前值。

3.	如果基于即时监视对话框中表达式增加监视表达式，选择[增加]。


参阅使用即时监视
参阅

增加监视表达式

调试检查清单

删除监视表达式

编辑监视表达式

设置和清除断点


使用即时分割区域
 使用即时窗口


使用即时分割区域
使用即时窗口

参阅

使用即时窗口：

测试有问题的或新编代码。

查询或修改变量或属性的值。当执行终止时，在代码中赋新值。

模仿运行错误(run-time error)。要想查看哪个错误消息对话框与给定错误代码相关，键入：

Error errornumber

在代码中调用想要的过程。

当程序运行时观察调试输出。

为在调试窗口的即时窗口中执行代码

1.	在即时窗口中键入语句。

2.	按下ENTER键执行语句。

附注  即时窗口语句在上下文中执行。在间断方式(break mode)中，上下文在当前过程或在调用对话框中选定的过程中。在等待方式(wait mode) 中，上下文是全局的，上下文出现在调试窗口的标题栏中或在过程栏中。如果需要关 键字帮助，选定或键入关键字并按F1键。当在即时窗口中时，可以做在模块表中 所做的大部分事情，但即时窗口中的语句不被项目保存。


参阅使用即时分割区域
参阅

调试窗口

调试检查清单

Visual Basic模块表


增加监视对话

参阅

增加监视对话用于输入监视表达式(watch expression)。表达式可以是任一合法的Basic表达式。

每次输入中断方式(break mode)或在即时分割区域中某个语句执行后，监视表达式在调试窗口的监视分割区域中被更新。

注意  当选定监视表达式上下文时，使用满足要求的最小范围(scope) 。选定所有过程或所有模块表相当大地减慢模块表执行，因为这个语句执行后表达式被求值。选定特定上下文的过程仅当该过程在当前过程调用清单中时才影响执行，可通过在调试窗口中按下向右按钮到过程框查看。

为打开增加监视对话，从[工具]菜单选择[增加监视]。

在表达式框中键入表达式。附注：如果先选定表达式，它自动显示在表达式框中。

为在表达式框中增加表达式，选择[确定]按钮或按ENTER键。

为关闭[增加监视]对话而不增加表达式，选择[取消]按钮或：

在Mircosoft Windows中，双击控制菜单框(control-menu box) 或按CTRL+F4组合键。

在Mocintosh上，单击关闭框(close box)。

增加监视对话包括：

表达式框

    显示默认选定的表达式，可以输入不同表达式求值。

上下文组

过程 [image] 显示过程名，选定的项驻留于此(默认)。定义表达式在其中求值的过程， 可以选定所有过程或特定过程上下文，在此对变量求值。

模块表 [image] 显示模块表(module) 名，在此选定的项存在(默认)。可以选定所有模块表或特定模块表上下文，在此对变量求值。

工作簿 [image] 显示当前工作簿名字，表达式不能在当前工作簿外的上下文中求值。

监视类型组

  监视表达式 [image] 表达式和值显示在调试窗口的

  监视分割区域中，当进入中断方式时，监视表达式的值

  自动更新。

  表达式为True时中断 [image] 当在特定上下文内表

  达式求值为True时，模块表执行自动进入中断方式。

  当表达式改变时中断 [image] 当在特定上下文中表

  达式值改变时，执行自动进入中断方式。


参阅增加监视
参阅

增加监视表达式

调试窗口

编辑监视对话

即时监视对话

设置和清除断点

使用即时分割区域

监视分割区域


调用对话

参阅

中断方式(break mode) 期间，调用对话显示当前过程调用的清单。 当在过程中执行代码时，该过程被增加到当前过程调用清单中， 每次过程调用另一过程，它被增加到清单中，等等。

当执行返回到调用过程时，调用的过程从清单中删除。 从即时分割区域中调用的过程也增加到调用清单中。

为显示调用对话，在调试窗口中按下按钮到过程框的右边。

为显示过程，选定清单中的过程名并选择[显示]。

为关闭对话，选择[取消]或：

在Mircosift Windows中，双击控制菜单框(control-menu box) 或按CTRL+F4组合键。

在Macintosh上，单击关闭框(close box)。


参阅调用对话
参阅

即时分割区域

调试窗口


编辑监视对话

参阅

编辑监视对话用于删除或编辑监视表达式(watch expression)的上下文或类型。

注意  当选定表达式的上下文时，使用满足需要的最小范围(scope)。选定所有过程或所有模块表，相当大地减慢模块表执行，因为每个语句执行后表达式被求值。选定特定上下文的过程仅当过程在当前过程调用到表中才影响执行，可通过按下调试窗口中显示对话按钮观看。

为打开编辑监视对话，从工具菜单上选择编辑监视或 在调试窗口的监视分割区域双击存在的表达式。选定的表达式出现在 对话中(默认)。

为删除表达式，选择[删除]。

为保存对表达式的任何变化，选择[确定]按钮。

为关闭编辑对话而不增加或改变表达式，选择[取消]按钮或：

在Microsoft Windows中，双击控制菜单框(control-menu box) 或按CTRL+F4组合键。

在Macintosh上，单击关闭框(close box)。

编辑监视对话包括：

   表达式框

       显示选定的项(默认)。必须输入不同的项或表达式求值。

  上下文组

    过程 [image] 显示过程名，选定的项驻留于此(默认)。 可以选定所有过程或特定过程上下文，在其中对变量求值。

模块表 [image] 显示模块表(module)名，选定的项驻留于此(默认)。 可以选定所有模块表或特定模块表上下文，在其中对变量求值。

    工作簿 [image] 显示当前工作簿的名字，表达式不能在当前工作簿之外的上下文中求值。

  监视类型组

    监视表达式 [image] 表达式和值显示在调试窗口的监视分割区域中。当进入间断方式时， 监视表达式的值自动更新。

    当表达式为True时，中断 [image] 在特定上下文中，当表达式求值为True时，模块表执行自动进入中断方式。

    当表达式改变时，中断 [image] 在特定上下文中，当表达式值改变时，执行自动进入中断方式。


参阅编辑监视
参阅

增加监视对话

增加监视表达式

调试窗口

删除监视表达式

编辑监视表达式

即时监视对话

设置和清除断点

使用即时分割区域

监视分割区域


即时监视对话

参阅

即时监视对话显示选定表达式的当前值，当调试代码时如果想看到变量、 属性或其他表达式的当前值，该功能非常有用。

为显示即时监视对话，选定表达式并从[工具]菜单上 选择[即时监视]或按SHIFT+F9组合键。

为增加表达式到监视分割区域，按[增加]按钮。

为关闭即时监视对话，选择[取消]按钮或：

在Microsoft Windows中，双击控制菜单框(control-menu box) 或按CTRL+F4。

在Macintosh上，单击关闭框(close box)。

即时监视对话包括：

当前上下文

    监视表达式所在的工作簿、模块表和过程的名字。

表达式框

    选定的表达式。

值框

  选定的表达式的值，如果表达式上下文不在调用对话列

  出的过程内，当前值不显示。


I参阅即时监视
参阅

增加监视对话

增加监视表达式

调用对话

调试窗口

编辑监视对话

删除监视表达式

编辑监视表达式

设置和清除断点

使用即时分割区域

监视分割区域


Visual Basic模块表

参阅

Visual Basic模块表用于编写、显示和编辑代码，模块表存储模块表级(module-level) 代码和过程(procedure) 代码，可以在模块表中有多个过程且工作簿中有多个模块表。

为插入模块表

1.	从[插入]菜单，选择[宏表]命令。

新菜单出现。

2.	从新菜单，选择[模块表]。

模块表包括：

分割条

    分割条(split bar) 把模块表分为两个分割区域，如果从[窗口]菜单选择[分割]， 它是可见的，然后可同时观 察代码的不同部分。

滚动条

    水平和垂直滚动条允许导航代码。


参阅模块表分割区域
参阅

在代码中输入声明

输入和编辑代码的准则

滚动条

分割条


任务关键字

参阅

分类	描述

数组	创建、定义和使用数组。

控制流	循环和控制过程流。

转换	转换数和数据类型。

数据类型	数据类型和变量子类型。

日期和时间	转换和使用日期及时间表达式。

目录和文件	控制文件系统和处理文件。

错误	捕获和返回错误值。

输入和输出	接受输入和显示或打印输出。

数学	执行三角函数或其他数学计算。

杂类	启动其它应用程序和处理事件。

运算符	比较表达式和其它操作。

字符串处理	处理字符串和字符串类型数据。

变量和常量	声明和定义变量和常量。


参阅任务关键字
参阅

程序语言摘要


数组关键字摘要


数组关键字摘要

参阅

作用	关键字

验证数组。	IsArray

创建数组。	Array

改变默认下界。	Option Base

声明和初始化数组。	Dim, Public, Private, ReDim, Static

查找数组的上下界。	LBound, UBound

重新初始化数组。	Erase, ReDim


参阅数组关键字摘要
参阅

任务关键字


转换关键字摘要


转换关键字摘要

参阅

作用	关键字

ANSI值到字符串。	Chr

转换大小写。	Format, LCase, UCase

日期到序列号。	DateSerial, DateValue

十进制数到其他进制。	Hex, Oct

数到串。	Format, Str

任一数据类型到其他类型。	CBool, CCur, CDate, CDbl, CInt, CLng, CSng, CStr, CVar, CVErr,Fix, Int

序列号到日期。	Date, Month, Weekday, Year

序列号到时间。	Hour, Minute, Second

字符串到ASCⅡ值。	Asc

字符串到数。	Val

时间到序列号。	TimeSerial, TimeValue


参阅转换关键字摘要
参阅

任务关键字


数据类型关键字摘要


数据类型关键字摘要

参阅

作用	关键字

数据类型间转换。	CBool, CCur, CDate, CDbl, CInt, CLng, CSng, CStr, CVar, CVErr,Fix, Int

设置固有数据类型。	Boolean, Integer, Long, Currency, Single, Double, Date, String, Object, Variant (默认)

验证数据类型。	IsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull, IsNumeric, IsObject


参阅数据类型关键字摘要
参阅

任务关键字


时期和时间关键字摘要
日期和时间关键字摘要


时期和时间关键字摘要
日期和时间关键字摘要

参阅

作用	关键字

获取当前日期或时间。	Date, Now, Time

返回日期。	DateSerial, DateValue

返回时间。	TimeSerial, TimeValue

设置时间或日期。	Date, Time

过程计时。	Timer


参阅日期和时间关键字摘要
 参阅

任务关键字


控制流关键字摘要


控制流关键字摘要

参阅

作用	关键字

分支。	GoSub...Return, GoTo, On Error, On...GoSub, On...GoTo

退出或暂停程序。	DoEvents, End, Stop

循环。	Do...Loop, For...Next, For Each...Next, While...Wend

进行决策。	If...Then...Else, Select Case


参阅控制流关键字摘要
参阅

任务关键字


目录和文件关键字摘要


目录和文件关键字摘要

参阅

作用	关键字

改变目录或文件夹。	ChDir

改变驱动器。	ChDrive

复制文件。	FileCopy

建立目录或文件夹。	MkDir

删除目录或文件夹。	RmDir

返回当前路径。	CurDir

返回文件、目录或标记属性。	GetAttr

返回文件名或卷标。	Dir

返回文件日期／时间标志。	FileDateTime

更改文件名、目录或文件夹。	Name

设置文件的属性信息。	SetAttr


参阅目录和文件关键字摘要
参阅

任务关键字


错误关键字摘要


错误关键字摘要

参阅

作用	关键字

获取错误消息。	Error

获取错误--状态数据。	Erl, Err

模拟运行错误。	Error

捕获运行错误	On Error, Resume

类型验证。	IsError

返回Error变量。	CVErr


参阅错误关键字摘要
参阅

任务关键字


输入和输出关键字摘要


输入和输出关键字摘要

参阅

作用	关键字

访问或创建文件。	Open

关闭文件。	Close, Reset

控制输出外观。	Format, Print, Print #, Spc, Tab, Width #

复制文件。	FileCopy

获取文件信息。	EOF, FileAttr, FileDateTime,FileLen, FreeFile, GetAttr, Loc, 	LOF, Seek

管理文件。	Dir, Kill, Lock...Unlock, Name

从文件中读。	Get, Input, Input #, Line Input#

返回文件长度。	FileLen

设置或获取文件属性。	FileAttr, GetAttr, SetAttr

设置文件中可读写位置。	Seek

写入文件。	Print #, Put, Write #


参阅输入和输出关键字摘要
参阅

任务关键字


数学关键字摘要


数学关键字摘要

参阅

作用	关键字。

派生三角函数。	Atn, Cos, Sin, Tan

一般计算。	Exp, Log, Sqr

产生随机数。	Randomize, Rnd

获取绝对值。	Abs

获取表达式符号。	Sgn

进行数字转换。	Fix, Int


参阅数学关键字摘要
参阅

任务关键字


杂类关键字摘要


杂类关键字摘要

参阅

作用	关键字

处理迫近的事件。	DoEvents

运行其他程序。	AppActivate, Shell

发送击键到应用程序。	SendKeys

计算机发出嘟嘟声。	Beep


参阅杂类关键字摘要
参阅

任务关键字


运算符关键字摘要


运算符关键字摘要

参阅

作用	关键字

算术。	^, -, *,  /, \, Mod, +, &

比较。	=, <>, <, >, <=, >=, Like, Is

逻辑运算。	Not, And, Or, Xor, Eqv, Imp


参阅运算符关键字摘要
参阅

任务关键字


字符串处理关键字摘要


字符串处理关键字摘要

参阅

作用	关键字

比较两字符串。	StrComp

转换大小写。	Format, LCase, UCase

创建重复字符的字符串。	Space, String

确定字符串长度。	Len

格式化字符串。	Format

两端对齐字符串。	LSet, RSet

处理字符串。	Instr, Left, LTrim, Mid, Right, RTrim, Trim

设置字符串比较规则。	Option Compare

处理ASCII和ANSI值。	Asc, Chr


参阅字符串处理关键字摘要
参阅

任务关键字


变量和常量关键字摘要


变量和常量关键字摘要

参阅

作用	关键字

赋值。	Let

声明变量和常量。	Const, Dim, Private, Public, Static

声明模块表为私有。	Option Private Module

获取变量信息。	IsArray, IsDate, IsEmpty, IsError, IsMissing,

IsNull, IsNumeric, IsObject, TypeName

 VarType

必选的详细变量声明。	Option Explicit

设置默认数据类型。	Deftype


参阅变量和常量关键字摘要
参阅

任务关键字


创建对象变量

参阅

　　处理对象变量就如同处理与其相关的对象一样，可以设置或返回对象 属性， 也可以使用 有关对象的方法。

为创建对象变量

1.	声明对象变量

2.	赋对象变量给对象

声明对象变量

  　使用Dim语句或其它声明语句（Public，Private或Static）声明对象变量。 对应于对象的变量必须是Variant，Object或对象的特定类型。例如， 下面的声明均合法：

Dim MyObject	' Declares MyObject as Variant data type.

Dim MyObject As Object	' Declares MyObject as Object data type.

Dim MyObject As Font	' Declares MyObject as Font type.

附注：当与其他变量共同使用时，如果使用未声明的对象变量，对象变量数据 类型默认为Variamt。

  　Object数据类型允许创建对任意对象的引用。当指定的对象类型object type只有在过程运行时才知道的情况下，可以用Object数据类型声明对象变量。如果已知与对象变量相关的对象类型，必须声明对象类型为对象变量。例 如，如果使用的应用程序包含Sample对象类型，可以用以下语句之一声明对 象变量。

Dim MyObject As Object	' Declared as generic object.

Dim MyObject As Sample	' Declared only as Sample object.

声明指定对象类型提供自动类型检查，快速代码并改善可读性。赋对象变量 给对象。

  　使用Set语句赋对象变量给对象。可以赋于对象表达式object expression 或Nothing。例如，下面的对象变量赋值是合法的。

Set MyObject = YourObject	' Assign object reference.

Set MyObject = Nothing	' Discontinue association.

  　设置对象变量为Nothing，切断对象变量与指定对象的关系。 这样可以防止偶然改变变量时，对象随之改变。如果在关闭对象后，对象变 量设置总是Nothing， 可以易于测试对象变量是否指向合法对象。例如：

If MyObject Not Nothing Then	' Variable refers to valid object.

. . .

End If


参阅创建对象变量
参阅

CreateObject 函数

GetObject 函数

Object Data Type

Set 语句


创建数组

参阅

  　除非指定声明数组包含变量的数据类型，否则类型Variant 类型数组中的每个元素占用16字节，用下列代码行比较几个数组的大小：

' Integer array uses 22 bytes (11 elements * 2 bytes).

ReDim MyIntegerArray(10) As Integer

' Double-precision array uses 88 bytes (11 elements * 8 bytes).

ReDim MyDoubleArray(10) As Double

' Variant array uses at least 176 bytes (11 elements * 16 bytes).

ReDim MyVariantArray(10)

' Integer array uses 100 * 100 * 2 bytes (20,000 bytes).

ReDim MyIntegerArray (99, 99) As Integer

' Double-precision array uses 100 * 100 * 8 bytes (80,000 bytes).

ReDim MyDoubleArray (99, 99) As Double

' Variant array uses at least 160,000 bytes (100 * 100 * 16 bytes).

ReDim MyVariantArray(99, 99)

　  数组变化的最大范围，取决所使用的操作系统和多少有效内存。不可抵达该 极限。若在系统中使用超过有效随机读写内存量的数组，由于从磁盘读写数 据，将使运行速度降低。


参阅创建数组
参阅

Dim 语句

Private 语句

Public 语句

ReDim 语句

Static 语句

有效使用数据类型


创建递归过程

参阅

　　对于变量，过程具有极限空间量，过程每次自身调用时，占用的空间增 加。该过程类型称为递归过程。递归过程的无限调用，最终将出现错误。例 如：

Function RunOut(Maximum)

RunOut = RunOut(Maximum)	' Error Calls itself without ever exiting.

End Function

  　当两个过程之间无限调用时，或者限制递归的一些条件没有满足时，错误 往往不易发 现。递归有其用途，例如，下面的过程使用递归函数计算阶乘：

Function Factorial (N)

If N <= 1 Then	' Reached end of recursive calls.

Factorial = 1	' (N = 0) so climb back out of calls.

Else	' Call Factorial again if N > 0.

Factorial = Factorial(N - 1) * N

End If

End Function

  　应该测试递归过程，以确保不是由于过程多次自身调用而使用得内存溢出 ，如果得到错误信息，则说明该过程不是无限自身调用。然后试着用下述方 法转换内存。

消除不必要的变量

使用Variant之外的数据类型

重新评价过程的逻辑，可以经常替代递归的嵌套循环。


参阅创建递归过程
参阅

加快For...Next循环

有效使用数据类型


加快For...Next循环

参阅

　　整型不仅小于Variant数据类型，而且略快于更新，自从计算机高速运转 以来，这种区别只有当运行成千上万的运算时，才可发现。例如：

Dim CountFaster As Integer	' First case, use Integer.

For CountFaster = 0 to 32766

Next CountFaster

Dim CountSlower As Variant	' Second case, use Variant.

For CountSlower = 0 to 32766

Next CountSlower

  上述第一种情况比第二种情况的运行时间略少。但是，当CountFaster超过32 ，767时，出现错误。为解决这一问题，将CountFaster变为Long数据类型，其可接受较宽的整数范围。然而，Long数据类型的变量较Integer类型变量更新 较慢。 一般说来，数据类型越短，更新时间越短，变体型略慢于其等价的数据类型 。


参阅加快
参阅

数据类型摘要

有效利用数据类型


模块表范围

参阅

　  在模块表级(module level)上定义变量和对象在模块表中的所有过程内可见，可用模块表名字限制 它们以区分具有相同名字的过程级变量。例如，在MyModule模块表级声明的 变量Myvar， 可与以MyMoude。MyVar限制的声明于过程的变量MyVar区分。但是， 不需要在没有相同名字局部变量的过程中限制模块级变量名。模块表变量 总是Static，即只要其模块是运行程序的一部，该模块变量总存在。

  　过程总是定义于模块表级，默认为项目中过程可见。如果只希望过程在 其自己模块中可见，可以将其定义为Private，避免项目中其他模块过程调 用它。 可以在模块表开始加入语句Option Private使得所有模块表过程私有。

（当其模块表为运行程序一部分时），过程的寿命与Static变量的寿命相同。 在声明的直接引用项目(referenced project)中，标识符Public对直接引用项目是可见。以const 语句声明的变量和符号常量默认为Private。过程默认为Public。以Type...End Type 语句声明的结构类型默认为Public。在项目中，可使用Option Private Module 保持整个模块表中public标识符可见，但在其它项目中不可见。


参阅模块表范围
参阅

Const 语句

Option Private 语句

Private

过程范围

项目范围

Public

范围级

Static 语句

Type...End Type 语句


命名冲突错误

参阅

　  即使已使用Option Explicit，命名冲突错误仍会出现，它一般防止该情况发生。例如， 如果在过程中的for...Next循环中使用未声明标识符，该变量与另一宽范围变量具有相同名字，不必特意将该变量变为宽范围的。

Option Explicit	' Forces declaration before use of variables.

Dim X	' Module-level declaration of X.

Sub AnyProc()

' A Dim X statement here would prevent a bug.

For X = 0 to 25	' Loop counter not declared in its procedure.

Print X	' This X is the same as the module-level X.

Next X

Call AnotherProc

End Sub

Sub AnotherProc()

X = X + 1

Print X	' This X has value of loop counter in AnyProc.

End Sub


参阅命名冲突错误
参阅

For...Next 语句

Option Explicit 语句

解决命名冲突

范围级


OLE自动化

参阅

OLE自动化是一个应用程序的工业标准，它使用展现的OLE对象给开发工具，宏语言及其它支持OLE自动化的应用程序。例如， 电子表格应用程序可以用不同的对象类型展现工作表，图表，单元格或单元 格区域 [image] 。字处理器可展现如应用程序，文档，段落，句子，书签及选定区域等对象。

　  当应用程序支持OLE自动化时，其展现的对象可被Visual Basic读写。 由对象上的引用方法或获取和设置对象的属性，使用visual Basic操纵这些对象。例如，如果创建名字为MyObj；的OLE自动化，可编写如下代码操纵对象。

MyObj.Insert "Hello, world."	' Place text.

MyObj.Bold = True	' Format text.

MyObj.SaveAs  "C:\WORDPROC\DOCS\TESTOBJ.DOC"	' Save the object.

下列函数提供OLE自动化对象的读写：

函数   	 描述

CreatObject 	创建指定类型的新对象

GetObject 	从文件中检索对象

参见应用程序的文档，以获取支持的属性和方法的详细内容。应用程序支持 、对象、函 数及属性支持方法通常在应用程序对象库中定义。

  在对象库中增加地址

1.	从[工具]菜单中选择[引用位置]。

[引用位置]对话框出现。

2.	选定应用程序地址，如果其没有列出，选择[浏览]并选定相应的文件。

可以引用应用程序的对象而不在应用程序的对象库中增加地址。但是，对于下述情况， 最好增加对象库地址。

全局读写的函数，可直接读写没有限制。

如果应用程序没有被引用过，其将自动执行。

函数，属性及方法引用可在编译中检查正确性， 以便运行可较快执行。

可以声明定义于库内的类型变量， 该变量增加运行的可靠性和可读性。


参阅OLE自动化
参阅

CreateObject 函数

GetObject 函数

Set 语句


有效传递参数
有效地传递参数

参阅

　　除非指定另外方法，所有参数通过传地址(by reference)传入过程。这样是有效的，因为所有参数的传递时间相同，并且 在不考虑参数数据类型的过程中，所有参数的空间相同。

　　如果在过程的声明中包含ByVal关键字，可以用传值(by value)代替传地址。 用传值时，在过程中占用2到16字节，其取决于参数的数据类型。大的数据类型占用的字节略多于小的数据类型。通过传值传递参数复制原始变量， 在过程内改变参数，不反馈至原始变量。例如：

Function Factorial (ByVal MyVar As Integer)	' Function declaration.

MyVar = MyVar - 1

If MyVar = 0 Then

Factorial = 1

Exit Function

End If

Factorial = Factorial(MyVar) * (MyVar + 1)

End Function

' Call Factorial with a variable S.

S = 5

Print Factorial(S)	' Displays 120 (the factorial of 5).

Print S	' Displays 5.

　　当函数声明中没有ByVal时，上述Print语句显示1和0。这是因为MyVal与变量有关，而变量S将每次减1直至等于0。

　　因为byVal使用参数的副本，其允许将变量传入上述阶乘函数。 如果过程声明的参数是另外数据类型，不可通过传地址传递变量。


参阅传递参数
参阅

ByRef

ByVal

数据类型摘要

有效利用数据类型


过程范围

参阅

　　定义于过程级(procedure level)的变量和对象对于其过程是私有的， 在该过程外不可见。 如果声明为Static，只要其模块表是运行程序的一部分，该变量就存在。否 则，每次过程开始时，就创建一次局部变量，在过程结束时，该变量亦失 效。过程不可与其它过程嵌套。


参阅过程范围
参阅

模块表范围

项目范围

范围级

Static


项目范围

参阅

　　仅模块表名字和被调用项目(referenced projects)名字应是项目(project level)，其包含宿主应用程序(host-application)模块和项目。(尽管它们与主--指定术语相关，例如，Excel中工作表)。

　　Public标识符在项目级是可见的，即使其定义为模块表级，值得强调的是该可见性仅在一个方向扩展。即，被直接引用项目中的public标识符，在直接引用项目中是可见的， 但引用项目中的标识符在被引用的项目中不可见。 例如， 如果Myproj直接引用Yourpoj，模块表名字和Yourproj中的其余public标识符在Myproj中可见，但是模块表名和Mypro；中的其余Public标识符在YourProj中不可见。


参阅项目范围
参阅

模块表范围

过程范围

Public

范围级


解决命名冲突

参阅

　　当试图创建或使用Visual Basic已定义过识别的标识符时，将出现命名冲突。在某些情况下，  命名冲突产生如  Ambiguous   name   detected 或  Duplicate declaration in current scope的错误。命名冲突未被发现，则产生代码错误，导致错误结果，尤其是在第一次使用前没有显式声明变量的时候。如果理解区域，对象和过程标 识符的范围(scoping)特性，大部分命名 冲突均可解决。visual Basic具有三种范围级：过程级，模块表级和项目级。

命名冲突可能，当标识符：

在多级中可见

在同一级中具有两种不同的含义

　　例如，在不同模块表中过程可具有相同的名字。如Mysub过程定义于模块表Mod1，和Mod2中。当过程仅被自身模块调用时，不产生命名冲突。然而，如果从第3个模块表调用Mysub并且没有提供区分两个Mysub的限制，则产生 命名冲突。例如，从Mod5调用Myxub（定义于Mod1和Mod2），在通常的调用中指定它为Mod1、Mysub 或Mod2、Mysub 。

　　visual Basic用匹配标识符的"closest"声明(declaration)为每个标识符匹配地址。 如果在项目的两个模块表（Mod1和Mod2）中MyID均声明为Public，可以指定Mod2中的 MyID 在Mod2内无限制，但在Mod1中必须对其施加限制（如Mod2.MyID）。如果Mod2 在不同的项目中，但其中之一是直接被引用项目(referenced project)中，上述原则也适用。但是，如果Mod2处于非直接被引用项目中 ，引用MyID变量应以项目名加以限制。如果从第三个直接被引用模块表引 用MyID，则以第一个搜索到的声明加以匹配。

直接被引用项目，按其在[工具]菜单的[引用位置]对话框中的出现次序排列

每个项目的模块，（在项目中模块没有固有次序）。

宿主应用程序(host-application)对象（例如，Excel中的R1C1）的名字不能在不同的范围级重新 使用。

  　每个模块表用语句Option Expticit开始在变量使用前，施加显式变量声明， 可有助于避免命名冲突和相对标识符错误。

  　大部分命名冲突可以通过在名字前加限制的方法解决，该限制由其模块表 名构成。如果必要，也可以由模块表名和项目名共同构成。例如：

YourProject.YourModule.YourSub MyProject.MyModule.MyVar

前面的代码调用Xub过程并传递MyVar参数。可以用任何限制组合，只要满足 区分标识符。

　由命名冲突引起的典型错误包含：意义不明确的名字，重复声明，未声明 的标识符，过程未发现等等。


参阅解决命名冲突
参阅

命名冲突错误

Option Explicit 语句

Public

范围级

Sub 语句


从函数返回字符串

参阅

　  某些函数具有两个版本，一个返回Variant数据类型(data type)，另一个返回String数据类型。Vaniant版本最方便，因为其可在不同数据 类型间处理自动转换。

  在下列情况中，考虑使用String类型版本：

程序较大，且使用多个变量。

代码为密集型结构，并想在数据类型相互转换时检测。

直接把数据写到随机存储文件中。

  　下面的函数，当在其名字上附加美元符（$）时，以String类型变量返回值 。这些函数不论加不加美元符，其用途和语法相同。

Chr$	CurDir$	Date$	Dir$

Error$	Format$	Hex$	Input$

LCase$	Left$ 	LTrim$	Mid$

Oct$	Right$	RTrim$	Seek$

Space$	Str$	String$	Time$

Trim$	UCase$

附注   Input（InputB），Left（LeftB），Mid（MidB）和Right（RightB ）的两字节版本同样支持附加$的语法。


参阅返回字符串
参阅

数据类型摘要

Dim语句

用数据类型节省空间

把数据写到文件

编写可维护的程序


用数据类型节省空间

参阅

　　在计算机内存中整型占用的空间量最小。例如，可在一个变体型（16字 节）的占用空间中可写入八个整型（8*2字节）。然而，在大部分情况下，只有有限的数值可用数据类型节省内存空间。一般情况下，不应使用内存至极 限状态，除非代码包含偶然创建的巨型数组和递归过程。


参阅用数据类型节省空间
参阅

创建数组

创建递归过程

数据类型摘要

有效使用数据类型


范围级

参阅

　  Visual Basic程序具有三种范围级，确定何时何地标识符被识别（可见），说明如下：

可见范围	用...声明	引用为
仅在过程中	Dim 或 Static, 在过程内声明	variablename
模块表（模块表中所有过程）	Dim, Static, Private, 在所有过程外声 明	[modulename.]variablename
项目（当前项目所有模块表中的所有过程和所有引用过程）	Public, 在所有过程外声 明	[projectname.[modulename.]]variablename


参阅范围级
参阅

const语句

模块表范围

Option Private语句

Private

过程范围

项目范围

Public

解决命名冲突

Static

type...end Type语句


有效使用数据类型

参阅

　  除非指定，否则未声明的变量被赋予Variant数据类型(data type)，该数据类型易于编写程序，但它并不是要使用的最有效的数据类 型。必须考虑使用其他数据类型，如果：

程序较大，且使用多个变量。

必须尽可能快地运行程序

代码为密集型结构，并想在数据类型相互转换时检测。

直接把数据写入随机存储文件中。

  除了Variant类型，支持的数据类型包括：Boolean，Lnteger，Long，Single ，double，curency，Date， Object和String。使用Dim语句声明特定类型变量， 例如：

Dim X As Integer

该语句声明是整型的 [image] ，32，768与32，767之间的整数。如果要将X设置为该区域之外的 数，则出现错误。如果将X设置为分数，则数字被截断。例如：

X = 32768 	   ' Causes error

X = 5.9	' Sets x to 6.


参阅有效使用数据类型
参阅

数据类型摘要

加快for...Next的循环

用数据类型节省空间

把数据写入文件

编写可维护的程序


跨越应用程序工作
应用程序交叉运行

参阅

　　Visual Basic可以创建新对象并可从Microsoft应用程序中恢复存在的对象：

应用程序	对象类型	类
Microsoft Excel, version 5.0	应用程序	Excel.Application
	工作簿	Excel.Sheet
	图表	Excel.Chart
Microsoft Project, version 4.0	应用程序	MSProject.Project
Microsoft Word, version 6.0	WordBasic	Word.Basic
附注  较新版本的Microseft Excel，Project和word允许使用visual Bassic 从其余应用程序创建新对象。其余应用程序也可提供用Visual Basic创建的对象。为获取更多信息，参见应用程序文档。

使用CreateObject或GetObject函数，创建新对象或从另一应用程序获取已有对象：

' Start Microsoft Excel and create a new Worksheet object.

Set ExcelWorksheet = CreateObject("Excel.Sheet")

' Start Microsoft Excel and open an existing Worksheet object.

Set ExcelWorksheet = GetObject("SHEET1.XLS")

' Start Microsoft Word.

Set WordBasic = CreateObject("Word.Basic")

  　当用GreateObject或GetObject启动时，不同应用程序的表现方式不同。例如 ，Microsoft Excel启动不可见，Microsoft Word启动可见。当Microsoft Excel是不可见时，它不显示于屏幕上或Windows任务列表中。如果显示Microsof Excel 或在任务列表中，设置其Visible属性为True。例如：

ExcelWorksheet.Application.Visible = True

  　设置Microsoft Excel的Visible属性为False， 使应用程序不可见或将其从任务列表中删除。但是，Microsoft Excel不关闭，并对Visual Basic仍然有效。

  　当其对象变量设置为Nothing或超出范围时，Microsoft word关闭。 如果在此之前没有保存修改，编辑将丢失。例如：

' Save changes and close Word.

WordBasic.FileSaveAll

Set WordBasic = Nothing

  　当其对象变量设置为Nothing或超出范围时，如果Mricrosoft Excel 不可见，

则关闭。

' If Microsoft Excel is invisible it will close. If not, it stays open.

Set ExcelWorksheet = Nothing

  　大部分应用程序都提供Exit或Quit方法，关闭可见或不可见应用程序，为进 一步获取有关应用程序的对象、方法、属性信息，参见应用程序文档。


参阅跨越应用程序工作
参阅

CreateObject 函数

GetObject 函数

Set 语句


把数据写入文件

参阅

　  当工作中使用大量数据时，把数据写入文件或从文件中读取数据通常是方便 的，Open语 句直接创建和读写文件。Open语句提供三种文件读写类型。

顺序读写（Input，Output和Append方式）， 一般用于编写简单文本文件，如错误记录及报告。

随机读写（Random方式）， 用于无论何时需要读数据和把数据写入文件而不关闭文件。 随机读写文件用记录保存文件，以便于迅速定位信息。

二进制读写（Binary方式），用于某些特殊情况，需要在何处读取或把数据写入 文件的任何字节位置。例如，何时存储或显示位图图象。

  　下表显示当把数据写入文件或从文件读取数据时，使用的典型语句。

读写类型	写数据	读数据

顺序	Print #, Write #	Input #

随机	Put	Get

二进制	Put	Get

　  Input#，Print#和Write#一次读写一行数据。例如：

Open "LOG.TXT" For Append As #1	' Append creates a file if it doesn't

Print #1, "Printing line to file."	' already exist.

Write #1, "Writing line to file."

Close #1

Open "LOG.TXT" For Input As #1

Do Until EOF(1)

Input #1, FileData

Print FileData	' Displays text.

Loop

Close #1

  　Get和Put用记录方式读写数据。记录的大小由变量的数据类型确定。例如：

Dim MyData As Integer	' MyData is 2 bytes long.

Open "DATA.REC" For Random As #1

For RecordNumber = 1 To 10

MyData = I * I

Put #1, RecordNumber, MyData	' Write data to file.

Next RecordNumber

For RecordNumber = 1 To 10

MyData = I * I

Get #1, RecordNumber, MyData	' Read data from file.

Print MyData

Next RecordNumber

Close #1

当读写随机文件时，一般使用以Type语句声明的用户定义的数据类型。

附注   print# 写用户可读/地方化的数据，Write#以独立语言方式写数据。


参阅把数据写入文件
参阅

数据类型摘要

Dim 语句

Get 语句

Input # 语句

Open 语句

Print # 语句

Put 语句

Type 语句

Write # 语句


编写可维护程序

参阅

　  Variant数据类型(data type)变量几乎接受所有赋于它们的数据。这样虽然十分方便但也可能隐藏 错误。如果编写的应用程序被许多人使用或维护，最好使用非变体型数据 类型和OptionExplicit语句。

       如果将数据赋值给不合适的变量，非变体型数据类型将产生错误。例如：

Dim NumVar As Integer

Dim StrVar as String

StrVar = "This is some text"

NumVar = StrVar	' Error The data types don't match.

NumVar = 40000	' Too big Causes "Overflow" error.

非变体型数据类型可完成某些转换。例如，如果浮点数以Integer 数据类型赋给变量，其可向上（下）截断。但是，如果要将字符串转换成数 字数据类型，则必须用某种数据类型转换函数。一般不需要在使用变量前声 明变量。同样，这样虽然方便，但也会在偶然误拼变量名时导改错误，用Option Explicit语句捕捉此类错误。例如：

Option Explicit

Sub ReadValues()

Dim NumVar As Integer

Dim StrVar As String

For NumVar = 0 to 9

StrVar = "Some text"	' Error misspelled the variable.

Next NumVar

End Sub

  　如果没有Option Explicit语句，此类错误无法捕捉， 必将消耗大量时间找到它。


参阅编写可维护程序
参阅

转换函数

数据类型摘要

Option Explicit语句