Excel VBA属性、方法、事件大全——Part4(Complete List of Excel VBA attribute/method and event)

时间:2022-01-15 03:54:19


Attribute/
Method/Event

Description

DashStyle

返回或设置指定直线的虚线样式。可以是 MsoLineDashStyle 常量之一。可读/ Long 类型。

DatabaseSort

如果为 True,则允许手动更改数据透视表字段中项目的位置。如果该字段中没有手动定位的项目,则返回 TrueBoolean 类型,可读写。

DataBinding

返回一个 XmlDataBinding 对象,该对象表示与指定的架构映射相关的绑定。只读。

DataBodyRange

返回一个 Range 对象,它代表数据透视表中数值区域。只读。

DataEntryMode

返回或设置数据输入模式
本示例检查数据输入模式是否处于打开状态,如果是,则关闭之。
If (Application.DataEntryMode = xlOn) Or _
    (Application.DataEntryMode = xlStrict) Then
        Application.DataEntryMode = xlOff
End If

DataFields

返回一个对象,该对象表示单个数据透视表字段(PivotField 对象)或当前显示为数据字段的所有字段集合(PivotFields 对象)。只读。

DataLabel

返回一个 DataLabel 对象,它代表与趋势线相关的数据标签。只读。

DataLabel

返回一个 DataLabel 对象,它代表与数据点相关的数据标签。只读。

DataLabelRange

返回一个 Range 对象,该对象表示在数据透视表中包含数据字段的标签的区域。只读。

DataLabels

返回代表数据系列中单个数据标签(DataLabel 对象)或所有数据标签的集合(DataLabels 集合)的对象。

DataPivotField

返回一个 PivotField 对象,该对象表示数据透视表中所有数据字段。只读。

DataRange

返回一个 Range 对象,如下表所示。只读。

DataSeries

在指定区域内创建数据系列
本示例在工作表 Sheet1 上的单元格区域 A1:A12 中创建包含 12 个日期的数据系列。该系列包含 1996 年中每个月份的最后一天。
Set dateRange = Worksheets("Sheet1").Range("A1:A12")
Worksheets("Sheet1").Range("A1").Formula = "31-JAN-1996"
dateRange.DataSeries Type:=xlChronological, Date:=xlMonth

DataTable

返回 DataTable 对象,该对象代表图表的数据表。
本示例向嵌入图表添加带有外框的数据表。
With Worksheets(1).ChartObjects(1).Chart
    .HasDataTable = True
    .DataTable.HasBorderOutline = True
End With

DataType

返回或设置一个 XlParameterDataType 值,它代表指定查询参数的数据类型。

DataType

返回一个 XlPivotFieldDataType 值,它代表数据透视表字段中的数据类型。

Date

设置当前系统日期。
语法
Date = date
对于运行 Microsoft Windows 95 的系统,要设置的 date 必须介于 1980 1 1 日与 2099 12 31 日之间

Date

返回包含系统日期的 Variant (Date)
语法
Date
说明
为了设置系统日期,请使用 Date 语句。

Date1904

如果指定工作簿使用的是 1904 日期系统,则该值为 True
本示例使 Microsoft Excel 对活动工作簿使用 1904 日期系统。
ActiveWorkbook.Date1904 = True

DateAdd

返回包含一个日期的 Variant (Date),这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
interval
必要。字符串表达式,是所要加上去的时间间隔。
number
必要。数值表达式,是要加上的时间间隔的数目。其数值可以为正数(得到未来的日期),也可以为负数(得到过去的日期)。
date
必要。Variant (Date) 或表示日期的文字,这一日期还加上了时间间隔。

DateDiff

返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
interval
必要。字符串表达式,表示用来计算date1 date2 的时间差的时间间隔
Date1□date2
必要;Variant (Date)。计算中要用到的两个日期。
Firstdayofweek
可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。
firstweekofyear
可选。指定一年的第一周的常数。如果未予指定,则以包含 1 1 日的星期为第一周。

DatePart

返回一个包含已知日期的指定时间部分的 Variant (Integer)
语法
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
interval
必要。字符串表达式,是要返回的时间间隔。
date
必要。要计算的 Variant (Date) 值。
Firstdayofweek
可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。
firstweekofyear
可选。指定一年第一周的常数。如果未予指定,则以包含 1 1 日的星期为第一周。

DateSerial

返回包含指定的年、月、日的 Variant (Date)
语法
DateSerial(year, month, day)
year
必要;Integer。从 100 9999 间的整数,或一数值表达式。
month
必要;Integer。任何数值表达式。
day
必要;Integer。任何数值表达式。

DateValue

返回一个 Variant (Date)
语法
DateValue(date)
必要的 date 参数 date 通常是字符串表达式,表示从 100 1 1 日到 9999 12 31 日之间的一个日期。但是,date 也可以是任何表达式,其所代表的日期、时间在上述范围内。

DAverage

计算列表或数据库的列中符合指定条件的值的平均值。

Day

返回一个 Variant (Integer),其值为 1 31 之间的整数,表示一个月中的某一日。
语法
Day(date)
必要的 date 参数,可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null,则返回 Null

Days360

按一年 360 天的算法(一年 12 个月,每月 30 天)返回两个日期之间的天数,它用于某些会计计算中。

Db

使用固定余额递减法返回指定周期内某项资产的折旧值。

Dbcs

将字符串中的半角(单字节)字母转换为全角(双字节)字符。函数的名称(及其转换的字符)取决于语言设置。可读/ String 类型。

DCount

计算列表或数据库的列中符合指定条件并且包含数字的单元格的个数。

DCountA

计算列表或数据库的列中符合指定条件的非空单元格的个数。

DDB

返回一个 Double,指定一笔资产在一特定期间内的折旧。可使用双下落收复平衡方法或其它指定的方法进行计算。
语法
DDB(cost, salvage, life, period[, factor])
cost
必要。Double 指定资产的初始成本。
salvage
必要。Double.指定使用年限结束时的资产价值。
life
必要。Double 指定资产可用的可用年限。
period
必要。Double 指定计算资产折旧所用的那一期间。
factor
可选。Variant 指定收复平衡下落时的速度。如果省略的话,2(双下落方法)为缺省值。

Ddb

使用双倍余额递减法或其他指定方法返回某项资产在指定周期内的折旧值。

DDEAppReturnCode

返回带应用程序说明符的DDE返回代码,该代码包含在 Microsoft Excel 接收到的最后一个 DDE 确认信息中
本示例设置 appErrorCode 变量值为 DDE 返回代码。
appErrorCode = Application.DDEAppReturnCode

DDEExecute

通过指定的 DDE 通道在另一个应用程序中执行一条命令或执行其他操作。
expression.DDEExecute(Channel, String)
expression
可选。该表达式返回一个 Application 对象

DDEInitiate

打开到一个应用程序的 DDE 通道。
expression.DDEInitiate(App, Topic)
expression
可选。该表达式返回一个 Application 对象

DDEPoke

向应用程序发送数据
expression.DDEPoke(Channel, Item, Data)
expression
可选。该表达式返回一个 Application 对象

DDERequest

来自指定应用程序的请求信息
expression.DDERequest(Channel, Item)
expression
可选。该表达式返回一个 Application 对象。

DDETerminate

关闭到另一个应用程序的 DDE 通道。
expression.DDETerminate(Channel)
expression
可选。该表达式返回一个 Application 对象。

Deactivate

图表、工作表或工作簿从活动状态转为非活动状态时产生此事件
本示例当工作簿转为非活动状态时,对所有打开的窗口进行排列。
Private Sub Workbook_Deactivate()
    Application.Windows.Arrange xlArrangeStyleTiled
End Sub

Deactivate

图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。
本示例当工作簿转为非活动状态时,对所有打开的窗口进行排列。
Private Sub Workbook_Deactivate()
    Application.Windows.Arrange xlArrangeStyleTiled
End Sub

Dec2Bin

将十进制数转换为二进制数。

Dec2Hex

将十进制数转换为十六进制数。

Dec2Oct

将十进制数转换为八进制数。

DecimalSeparator

设置或返回用作十位分隔符的字符
本示例将“1,234,567.89”放置在单元格 A1 中,然后将系统的十位分隔符和千位分隔符更改为短划线。
Sub ChangeSystemSeparators()
    Range("A1").Formula = "1,234,567.89"
    MsgBox "The system separators will now change."
    ' Define separators and apply.
    Application.DecimalSeparator = "-"
    Application.ThousandsSeparator = "-"
    Application.UseSystemSeparators = False
End Sub

Declare

用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。
语法 1
[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])]
语法 2
[Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] [([arglist])] [As type]
Public
可选的。用于声明对所有模块中的所有其它过程都可以使用的过程
Private
可选的。用于声明只能在包含该声明的模块中使用的过程。
Sub
可选的(但 Sub Function 二者需选其一)。表示该过程没有返回值。
Function
可选的(但 Sub Function 二者需选其一)。表示该过程会返回一个可用于表达式的值。
name
必需的。任何合法的过程名。注意动态链接库的入口处(entry points)区分大小写。
Lib
必需的。指明包含所声明过程的动态链接库或代码资源。所有声明都需要 Lib 子句。
libname
必需的。包含所声明的过程动态链接库名或代码资源名。
Alias
可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称。当外部过程名与某个关键字重名时,就可以使用这个参数。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时,也可以使用 Alias。如果该动态链接库过程中的某个字符不符合动态链接库的命名约定时,也可以使用 Alias
aliasname
可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号 (#),则 aliasname 是动态链接库中该过程的入口处的名称。如果首字符是 (#),则随后的字符必须指定该过程的入口处的顺序号。
arglist
可选的。代表调用该过程时需要传递的参数的变量表。
type
可选的。Function 过程返回值的数据类型;可以是 Byte Boolean IntegerLongCurrencySingleDoubleDecimal(目前尚不支持)、DateString(只支持变长)或 Variant,用户定义类型,或对象类型。

DefaultFilePath

返回或设置 Microsoft Excel 打开文件时使用的默认路径
本示例显示当前默认文件路径。
MsgBox "The current default file path is " & _
    Application.DefaultFilePath

DefaultSaveFormat

返回或设置保存文件使用的默认格式
本示例设置保存文件的默认格式。
Application.DefaultSaveFormat = xlExcel4Workbook

DefaultSheetDirection

返回或设置 Microsoft Excel 显示新窗口和工作表时的默认方向
本示例将默认方向设置为从右到左。
Application.DefaultSheetDirection = xlRTL

DefaultWebOptions

返回 DefaultWebOptions 对象,该对象包含应用程序级的全局属性,当以网页保存文档或打开网页时,Microsoft Excel 会使用这些属性
本示例检查文档编码方式的默认设置是否为 Western,然后设置相应的字符串 strDocEncoding 的值。
If Application.DefaultWebOptions.Encoding = msoEncodingWestern Then
    strDocEncoding = "Western"
Else
    strDocEncoding = "Other"
End If

DefaultWebOptions

包含应用程序级的全局属性,当将文档另存为网页或打开网页时,Microsoft Excel 将使用这些属性。您可以在应用程序(全局)级或在工作簿级返回或设置属性。
说明
工作簿级的属性设置会重写应用程序级的属性设置。工作簿级的属性设置包含在 WebOptions 对象中。

Deftype

在模块级别上,为变量和传给过程的参数,设置缺省数据类型,以及为其名称以指定的字符开头的 Function Property Get 过程,设置返回值类型。
语法
DefBool letterrange[, letterrange] . . .
DefByte letterrange[, letterrange] . . .
DefInt letterrange[, letterrange] . . .
DefLng letterrange[, letterrange] . . .
DefCur letterrange[, letterrange] . . .
DefSng letterrange[, letterrange] . . .
DefDbl letterrange[, letterrange] . . .
DefDec letterrange[, letterrange] . . .
DefDate letterrange[, letterrange] . . .
DefStr letterrange[, letterrange] . . .
DefObj letterrange[, letterrange] . . .
DefVar letterrange[, letterrange] . . .
所需的 letterrange 参数遵循下述语法:
letter1[-letter2]
letter1
letter2 参数指定设置缺省数据类型的名称范围。每个参数都是指变量,参数和 Function 过程,或 Property Get 过程名称的首字母,且参数可以是字母表中的任意字母。letterrange 中不区分字母的大小写。

Degrees

将弧度转换为度。

Delete

删除对象
本示例删除活动工作簿的 Sheet3 工作表,并且不显示确认对话框。
Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True

Delete

删除对象
本示例删除 Sheet1 A1:D10 单元格区域,并将其右侧单元格向左移位
Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft

Delete

删除对象。
本示例删除 Sheet1 A1:D10 单元格区域,并将其右侧单元格向左移位
Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft

Delete

删除对象。
expression.Delete()
expression
必需 。该表达式返回应用于列表中的对象之一

Delete

删除对象。
expression.Delete()
expression
必需。该表达式返回应用于列表中的对象之一。

Delete

删除对象。
本示例删除活动工作簿的 Sheet3 工作表,并且不显示确认对话框。
Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True

Delete

从集合中删除 CommandBar 对象。在某些 Microsoft Office 应用程序中,CommandBar 已被新的功能区用户界面取代。有关详细信息,请在帮助中搜索关键字功能区
语法
表达式.Delete
表达式   必需。一个代表 CommandBar 对象的变量。

Delete

删除对象。
语法
表达式.Delete
表达式   一个代表 Name 对象的变量

Delete

删除对象。

Delete

删除对象。
语法
表达式.Delete
表达式   一个代表 Style 对象的变量。
返回值
Variant

Delete

删除对象。
语法
表达式.Delete
表达式   一个代表 Shape 对象的变量。

Delete

删除对象。
语法
表达式.Delete
表达式   一个代表 Comment 对象的变量。

Delete

删除对象。
语法
表达式.Delete
表达式   一个代表 Charts 对象的变量。

Delete

删除数据点所属的系列。

Delete

删除自定义的文档属性。

Delete

从工作簿中删除指定的 XML 映射。

DeleteAll

删除有权访问工作表上受保护的区域的所有用户。

DeleteChartAutoFormat

从图表的可用自动套用格式列表中删除自定义图表自动套用格式
本示例删除自定义自动套用格式“Presentation Chart”
Application.DeleteChartAutoFormat name:="Presentation Chart"

DeleteCustomList

删除一个自定义序列
本示例删除一个自定义序列。
n = Application.GetCustomListNum(Array("cogs", "sprockets", _
    "widgets", "gizmos"))
Application.DeleteCustomList n

DeleteNumberFormat

从指定工作簿中删除一个自定义数字格式
本示例从当前工作簿中删除“000-00-0000”数字格式。
ActiveWorkbook.DeleteNumberFormat("000-00-0000")

DeleteReplacement

删除自动更正替换数组中的一个输入项。
语法
表达式.DeleteReplacement(What)
表达式   一个代表 AutoCorrect 对象的变量。
参数
名称 必选/可选 数据类型 描述
What
必选 String 要替换的文本(当文本出现在要从自动更正替换数组中删除的行上时)。如果该字符串不在自动更正替换数组中,此方法将失败。

DeleteSetting

Windows 注册表中 (Macintosh)应用程序初始化文件中的信息,从应用程序项目里删除区域或注册表项设置。
语法
DeleteSetting appname, section[, key]
appname
必需的。字符串表达式,包含应用程序或工程的名称,区域或注册表项用于这些应用程序或工程。 Macintosh中,这是System文件夹中Preferences文件夹中初始化文件的文件名。
section
必要。字符串表达式,包含要删除注册表项设置的区域名称。如果只有 appname section,则将指定的区域连同所有有关的注册表项设置都删除。
key
可选。字符串表达式,包含要删除的注册表项设置。

Delivery

返回或设置邮件传递的方法。可以是 XlRoutingSlipDelivery 常量之一。Long 类型,可读写。

Delta

检验两个值是否相等。如果 number1 = number2,则返回 1;否则返回 0

Dependents

返回 Range 对象,该对象代表包含单元格所有依赖条件的区域
本示例选定工作表 Sheet1 中单元格 A1 的从属单元格。
Worksheets("Sheet1").Activate
Range("A1").Dependents.Select

Depth

返回一个 Long 值,它代表分类轴刻度线标签的级别数。

DepthPercent

返回或设置三维图表的深度,以图表宽度的百分比表示(有效范围从 20% 2000% )。
本示例将 Chart1 的深度设置为其宽度的 50%。本示例应在三维图表上运行(DepthPercent 属性在二维图表中无效)。
Charts("Chart1").DepthPercent = 50

Description

获取或设置指定的 COMAddin 对象的说明性 String 值。可读/写。

Deselect

取消对指定图表的选定。
本示例等价于在对活动图表进行处理时按下 Esc。本示例应在有组件(如坐标轴)被选定的图表上运行。
ActiveChart.Deselect

Destination

返回查询表目标区域(查询结果表放置的区域)的左上角单元格。目标区域必须位于包含 QueryTable 对象的工作表中。Range 类型,只读。

DevSq

返回数据点与其样本平均值的偏差的平方和。

DGet

从列表或数据库的列中提取符合指定条件的单个值。

Dialog

Dialog 对象
代表内置的 Microsoft Excel 对话框。
说明
Dialog
对象是 Dialogs 集合的成员。Dialogs 集合包含 Microsoft Excel 中的所有内置对话框。不能在集合中新建或添加内置对话框。Dialog 对象只能在 Show 方法中用来显示相应的对话框。

DialogBox

显示由 Microsoft Excel 4.0 宏表上的对话框定义表所定义的对话框
本示例运行一个 Microsoft Excel 4.0 对话框,然后在消息框中显示返回值。dialogRange 变量是指在 Microsoft Excel 4.0 宏工作表上的称为“Macro1”的对话框定义表。
Set dialogRange = Excel4MacroSheets("Macro1").Range("myDialogBox")
result = dialogRange.DialogBox
MsgBox result

Dialogs

返回一个 Dialogs 集合,此集合代表所有的内置对话框
本示例显示文件菜单的打开对话框。
Application.Dialogs(xlDialogOpen).Show

Dialogs

Microsoft Excel 中所有 Dialog 对象的集合
可用 Dialogs 属性返回 Dialogs 集合。下例显示可用的内置 Microsoft Excel 对话框的数目。
MsgBox Application.Dialogs.Count

DictLang

Microsoft Excel 执行拼写检查时,选择使用的词典语言。Long 类型,可读写。

DifferentFirstPageHeaderFooter

如果在第一页使用不同的页眉或页脚,则为 True。可读/ Boolean 类型。

Dim

声明变量并分配存储空间。
语法
Dim [WithEvents] varname[([subscripts])] [As [New] type] [, [WithEvents] varname[([subscripts])] [As [New] type]] . . .
WithEvents
可选的。关键字,说明 varname 是一个用来响应由 ActiveX 对象触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents,可以声明任意个所需的单变量,但不能使用 WithEvents 创建数组。New WithEvents 不能一起使用。
varname
必需的。变量的名称;遵循标准的变量命名约定。
subscripts
可选的。数组变量的维数;最多可以定义 60 维的多维数组。subscripts 参数使用下面的语法:
  [lower To] upper [, [lower To] upper] . . .
如果不显式指定 lower,则数组的下界由 Option Base 语句控制。如果没有使用 Option Base 语句,则下界为 0
New
可选的。可隐式地创建对象的关键字。如果使用 New 来声明对象变量,则在第一次引用该变量时将新建该对象的实例,因此不必使用 Set 语句来给该对象引用赋值。New 关键字不能声明任何内部数据类型的变量,以及从属对象的实例,也不能与 WithEvents 一起使用。
type
可选的。变量的数据类型;可以是 Byte Boolean IntegerLongCurrencySingleDoubleDecimal(目前尚不支持)、DateString(对变长的字符串)、String * length (对定长的字符串)、ObjectVariant、用户定义类型、或对象类型。所声明的每个变量都要一个单独的 As type 子句。

Dir

返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。
语法
Dir[(pathname[, attributes])]
pathname
可选参数。用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到 pathname,则会返回零长度字符串 ("")
attributes
可选参数。常数或数值表达式,其总和用来指定文件属性。如果省略,则会返回匹配 pathname 但不包含属性的文件。

DirectDependents

返回 Range 对象,该对象代表包含一个单元格所有直接依赖条件的区域
本示例选定工作表 sheet1 中单元格 A1 的直接从属单元格。
Worksheets("Sheet1").Activate
Range("A1").DirectDependents.Select

Direction

返回或设置朗读单元格的次序。Direction 属性的值为一个 XlSpeakDirection 常量。可读写。

DirectPrecedents

返回 Range 对象,该对象代表包含一个单元格所有直接引用单元的区域
本示例选定工作表 sheet1 中单元格 A1 的直接引用单元格。
Worksheets("Sheet1").Activate
Range("A1").DirectPrecedents.Select

Dirty

一次重新计算发生时指定要重新计算的单元格区域
本示例中,Excel在单元格A3中输入了一个公式,保存了更改,并重新计算了单元格 A3
Sub UseDirtyMethod()
    MsgBox "Two values and a formula will be entered."
    Range("A1").Value = 1
    Range("A2").Value = 2
    Range("A3").Formula = "=A1+A2"
    ' Save the changes made to the worksheet.
    Application.DisplayAlerts = False
    Application.Save
    MsgBox "Changes saved."
    ' Force a recalculation of range A3.
    Application.Range("A3").Dirty
    MsgBox "Try to close the file without saving and a dialog box will appear."
End Sub

DisableAskAQuestionDropdown

如果启用了应答向导下拉菜单,则为 True。可读写。
语法
表达式.DisableAskAQuestionDropdown
表达式   一个代表 CommandBars 对象的变量。

DisableCustomize

如果禁用了工具栏的自定义功能,则为 True。可读写。
语法
表达式.DisableCustomize
表达式   一个代表 CommandBars 对象的变量。

Disc

返回债券的贴现率。

DisplayAlerts

如果宏运行时 Microsoft Excel 显示特定的警告和消息,则该值为 True
本示例关闭工作簿Book1.xls,但不提示用户保存所作更改。Book1.xls中的所有更改都不会保存。
Application.DisplayAlerts = False
Workbooks("BOOK1.XLS").Close
Application.DisplayAlerts = True

DisplayAsCaption

此属性用于将透视字段的成员属性显示为标题。只读。

DisplayAsTooltip

此属性用于指定在工具提示中是否显示透视字段的特定成员属性。可读写。Boolean

DisplayAutoCorrectOptions

允许用户显示或隐藏自动更正选项按钮。默认值为 TrueBoolean 类型,可读写。
语法
表达式.DisplayAutoCorrectOptions
表达式   一个代表 AutoCorrect 对象的变量。

DisplayBlanksAs

返回或设置在图表中绘制空白单元格的方式。
本示例设置 Microsoft Excel Chart1 中不绘制空白单元格。
Charts("Chart1").DisplayBlanksAs = xlNotPlotted

DisplayClipboardWindow

如果能显示 Microsoft Office 剪贴板,则返回 True
在本示例中,Microsoft Excel 确定是否可显示 Office 剪贴板,并通知用户。
Sub SeeClipboard()
    ' Determine if Office Clipboard can be displayed.
    If Application.DisplayClipboardWindow = True Then
        MsgBox "Office Clipboard can be displayed."
    Else
        MsgBox "Office Clipboard cannot be displayed."
    End If
End Sub

DisplayCommentIndicator

返回或设置单元格批注和标识符的显示方式
本示例隐藏单元格提示,但保留批注标识符
Application.DisplayCommentIndicator = xlCommentIndicatorOnly

DisplayContextTooltips

控制是否显示数据透视表单元格的工具提示。可读写 Boolean

DisplayDocumentActionTaskPane

设为True可显示文档操作任务窗格;设为 False 可隐藏文档操作任务窗格
expression.DisplayDocumentActionTaskPane
     expression   
必需。该表达式返回一个 Application 对象。

DisplayDrawingObjects

返回或设置图形的显示方式。
本示例隐藏当前工作簿中的所有图形。
ActiveWorkbook.DisplayDrawingObjects = xlHide

DisplayEmptyColumn

如果对数值轴的 OLAP 提供程序的查询中包括非空 MDX 关键字,则返回 True。在结果集中,OLAP 提供程序不返回空列。如果省略非空关键字,则返回 FalseBoolean 类型,可读写。

DisplayEmptyRow

如果对分类轴的 OLAP 提供程序的查询中包括非空 MDX 关键字,则返回 True。在结果集中,OLAP 提供程序不返回空行。如果省略非空关键字,则返回 FalseBoolean 类型,可读写。

DisplayEquation

如果显示图表中的趋势线公式,则该值为 True(其数据标签与 R-平方值相同)。将该属性设为 True 可自动显示数据标签。Boolean 类型,可读写。

DisplayErrorString

如果数据透视表在有错误的单元格中显示用户自定义的错误字符串,则该值为 True。默认值为 FalseBoolean 类型,可读写。

DisplayExcel4Menus

如果 Microsoft Excel 显示 4.0 版的菜单栏,则该值为 True
本示例将切换到显示 Microsoft Excel 4.0 版的菜单。
Application.DisplayExcel4Menus = True

DisplayFieldCaptions

控制是否在网格中显示筛选器按钮以及行和列的透视字段标题。可读/写。

DisplayFonts

如果在字体框中以实际字体显示字体名称,则为 True。可读写。
语法
表达式.DisplayFonts
表达式   一个代表 CommandBars 对象的变量。

DisplayFormulaBar

如果编辑栏可见,则该值为 True
本示例隐藏编辑栏。
Application.DisplayFormulaBar = False

DisplayFormulas

如果指定窗口正显示公式,则该值为 True,如果正显示数值,则该值为 False
本示例将 Book1.xls 的当前窗口更改为显示公式
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.DisplayFormulas = True

DisplayFormulas

如果窗口正显示公式,则为 True;如果窗口正显示值,则为 False。可读/ Boolean 类型。
语法
表达式.DisplayFormulas
表达式   一个代表 Window 对象的变量。

DisplayFullScreen

如果 Microsoft Excel 处于全屏显示模式,则该值为 True
本示例设置 Microsoft Excel 以全屏显示模式进行显示。
Application.DisplayFullScreen = True

DisplayFunctionToolTips

如果能显示函数的工具提示,则该值为 True
在本示例中,Microsoft Excel 将显示函数的工具提示的状态通知用户。
Sub CheckToolTip()
    ' Notify the user of the ability to display function ToolTips.
    If Application.DisplayFunctionToolTips = True Then
        MsgBox "The ability to display function ToolTips is on."
    Else
        MsgBox "The ability to display function ToolTips is off."
    End If
End Sub

DisplayGridlines

如果显示网格线,则该值为 True
本示例切换 Book1.xls 活动窗口中的网格线显示方式。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.DisplayGridlines = Not(ActiveWindow.DisplayGridlines)

DisplayGridlines

如果显示网格线,则为 True。可读/ Boolean 类型。
语法
表达式.DisplayGridlines
表达式   一个代表 Window 对象的变量。

DisplayHeadings

如果显示行列标题,则该值为 True;如果没有显示行列标题,则该值为 False
本示例隐藏 Book1.xls 活动窗口中的行列标题
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.DisplayHeadings = False

DisplayHeadings

如果同时显示行标题和列标题,则为 True;如果未显示标题,则为 False。可读/ Boolean 类型。
语法
表达式.DisplayHeadings
表达式   一个代表 Window 对象的变量。

DisplayHorizontalScrollBar

如果显示水平滚动条,则该值为 True
本示例打开活动窗口的水平滚动条。
ActiveWindow.DisplayHorizontalScrollBar = True

DisplayHorizontalScrollBar

如果显示水平滚动条,则该属性值为 TrueBoolean 类型,可读写。
语法
表达式.DisplayHorizontalScrollBar
表达式   一个代表 Window 对象的变量。

DisplayImmediateItems

返回或设置 Boolean,用于指明当数据透视表的数据区域为空时,行和列区域中的项是否可见。如果该属性为 False,则当数据透视表的数据区域为空时,将隐藏行和列区域中的项。默认值为 True

DisplayInkComments

确定墨迹批注是否显示在工作簿中的 Boolean
expression.DisplayInkComments
expression
必需。该表达式返回应用于列表中的对象之一。

DisplayInReport

此属性用于指定在数据透视表中是否显示指定的成员属性 PivotField。可读/ Boolean 类型。

DisplayInsertOptions

如果应显示插入选项按钮,则该值为 True
在本示例中,Microsoft Excel 将显示插入选项按钮的状态通知用户。
Sub SettingToolTip()
    ' Notify the user of the ToolTip status.
    If Application.DisplayInsertOptions = True Then
        MsgBox "The ability to display the Insert Options button is on."
    Else
        MsgBox "The ability to display the Insert Options button is off."
    End If
End Sub

DisplayKeysInTooltips

如果每个命令栏控件的快捷键都显示在工具提示中,则为 True。可读写。
语法
表达式.DisplayKeysInTooltips
表达式   一个代表 CommandBars 对象的变量。

DisplayMemberPropertyTooltips

控制是否在工具提示中显示成员属性。可读/ Boolean 类型。

DisplayNoteIndicator

如果包含注释的单元格显示单元格提示并包含注释标识符(单元格右上角的小圆点),则该值为 True
本示例隐藏注释标识符。
Application.DisplayNoteIndicator = False

DisplayNullString

如果数据透视表在包含空值的单元格中显示用户自定义的字符串,则该值为 True。默认值为 TrueBoolean 类型,可读写。

DisplayOutline

如果显示分级显示符号,则该值为 True
本示例显示 Book1.xls 活动窗口中的分级显示符号。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.DisplayOutline = True

DisplayOutline

如果显示分级显示符号,则为 True。可读/ Boolean 类型。
语法
表达式.DisplayOutline
表达式   一个代表 Window 对象的变量。

DisplayPageBreaks

如果显示指定工作表中的分页符(包括自动和手动分页符),则该值为 True
本示例使工作表 sheet1 显示分页符。
Worksheets("Sheet1").DisplayPageBreaks = True

DisplayPasteOptions

如果能显示粘贴选项按钮,则该值为 True
在本示例中,Microsoft Excel 将显示粘贴选项按钮的状态通知用户。
Sub CheckDisplayFeature()
    ' Check if the options button can be displayed.
    If Application.DisplayPasteOptions = True Then
        MsgBox "The ability to display the Paste Options button is on."
    Else
        MsgBox "The ability to display the Paste Options button is off."
    End If
End Sub

DisplayRecentFiles

如果在文件菜单中显示最近使用过的文件的名称,则该值为 True
本示例关闭最近使用过的文件名称列表。
Application.DisplayRecentFiles = False

DisplayRightToLeft

如果指定的窗口、工作表或 ListObject 是从右到左显示,则该值为 True。如果对象从左到右显示,则该值为 False

DisplayRightToLeft

如果指定的窗口或工作表是从右到左显示(而非从左到右),则为 True。如果对象从左到右显示,则为 FalseBoolean 类型,只读。
语法
表达式.DisplayRightToLeft
表达式   一个代表 Window 对象的变量。

DisplayRSquared

如果显示图表中趋势线的 R-平方值,则该值为 True(其数据标签与公式的相同)。将该属性设为 True 可自动显示数据标签。Boolean 类型,可读写。

DisplayRuler

如果在指定窗口中显示标尺,则为 True。可读/ Boolean 类型。
版本信息
 
已添加版本:  Excel 2007
语法
表达式.DisplayRuler
表达式   一个代表 Window 对象的变量。

DisplayScrollBars

如果滚动条对所有工作簿都可见,则该值为 True
本示例对所有工作簿都关闭滚动条。
Application.DisplayScrollBars = False

DisplaySmartTags

返回或设置一个 XlSmartTagDisplayMode 常量,该常量表示智能标记的显示特征。可读写。

DisplayStatusBar

如果显示状态栏,则该值为 True
本示例保存 DisplayStatusBar 属性的当前状态,然后将该属性设置为 True,以显示状态栏。
saveStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True

DisplayTooltips

如果只要用户将指针放在命令栏控件上方就显示屏幕提示,则为 True。可读写。
语法
表达式.DisplayTooltips
表达式   一个代表 CommandBars 对象的变量。

DisplayUnit

返回或设置数值轴的单位标签。XlDisplayUnitxlCustom xlNone 类型,可读写。

DisplayUnitCustom

如果 DisplayUnit 属性的值是 xlCustom,则 DisplayUnitCustom 返回或设置显示的单位的值。该值范围必须是从 0 10E307Double 类型,可读写。

DisplayUnitLabel

返回指定坐标轴的 DisplayUnitLabel 对象。如果 HasDisplayUnitLabel 属性设置为 False,则返回 null。只读。

DisplayVerticalScrollBar

如果显示垂直滚动条,则该值为 True
本示例显示活动窗口的垂直滚动条。
ActiveWindow.DisplayVerticalScrollBar = True

DisplayVerticalScrollBar

如果显示垂直滚动条,则该属性值为 True。可读/ Boolean 类型。
语法
表达式.DisplayVerticalScrollBar
表达式   一个代表 Window 对象的变量。

DisplayWhitespace

如果显示空白,则为 True。可读/ Boolean 类型。
版本信息
 
已添加版本:  Excel 2007
语法
表达式.DisplayWhitespace
表达式   一个代表 Window 对象的变量

DisplayWorkbookTabs

如果显示工作表标签,则该值为 True
本示例显示工作表标签。
ActiveWindow.DisplayWorkbookTabs = True

DisplayWorkbookTabs

如果显示工作簿标签,则该属性值为 TrueBoolean 类型,可读写。
语法
表达式.DisplayWorkbookTabs
表达式   一个代表 Window 对象的变量。

DisplayXMLSourcePane

将文件保存为 XML 电子表格格式,
打开“XML 任务窗格,并显示 XmlMap 参数指定的 XML 映射
可使用以下代码隐藏“XML 任务窗格。
Application.CommandBars("Task Pane").Visible = False

DisplayZeros

如果显示零值,则该值为 True
本示例将 Book1.xls 中的活动窗口设置为显示零值。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.DisplayZeros = True

DisplayZeros

如果显示零值,则为 True。可读/ Boolean 类型。
语法
表达式.DisplayZeros
表达式   一个代表 Window 对象的变量。

DivID

返回用于标识网页上 HTML <DIV> 标记的唯一标识符。此标记与保存为网页的文档中的某一项相关联。该项可以是整个工作簿、一张工作表、选定的打印区域、自动筛选区域、单元格区域、图表、数据透视表或查询表。String 类型,只读。

DMax

返回列表或数据库的列中符合指定条件的最大数字。

DMin

返回列表或数据库的列中符合指定条件的最小数字。

Do...Loop

当条件为 True 时,或直到条件变为 True 时,重复执行一个语句块中的命令。
语法
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
或者可以使用下面这种语法:
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]

condition
可选参数。数值表达式或字符串表达式,其值为 True False。如果 condition Null,则 condition 会被当作 False
statements
一条或多条命令,它们将被重复当或直到 condition True

DoAlert

显示一个警告并返回指示用户按下的按钮的 Long 值。可以选择通过“Microsoft Office 助手或普通消息框显示此警告。

DocumentLibraryVersions

返回一个 DocumentLibraryVersions 集合,代表启用版本控制的、存储在服务器上文档库中的共享工作簿的版本集合。
expression.DocumentLibraryVersions
expression
必需。该表达式返回一个 Workbook 对象。

DoEvents

转让控制权,以便让操作系统处理其它的事件。
语法
DoEvents( )
说明
DoEvents
函数会返回一个 Integer,以代表 Visual Basic 独立版本中打开的窗体数目,例如,Visual Basic,专业版,在其它的应用程序中,DoEvents 返回 0

Dollar

帮助主题中描述的函数可将数字转换为文本格式,并应用货币符号。函数的名称及其应用的货币符号取决于您的语言设置。

DollarDe

将按分数表示的价格转换为按小数表示的价格,使用函数 DOLLARDE 可以将分数表示的金额数字,如证券价格,转换为小数表示的数字。

DollarFr

将按小数表示的价格转换为按分数表示的价格。使用函数 DOLLARFR 可以将小数表示的金额数字,如证券价格,转换为分数型数字。

DoubleClick

等价于双击活动单元格
本示例双击工作表 Sheet1 中的活动单元格。
Worksheets("Sheet1").Activate
Application.DoubleClick

DoughnutGroups

返回代表二维图表上单个圆环图图表组或圆环图图表组的集合的对象。
本示例设置 Chart1 中第一个圆环组的起始角度。
Charts("Chart1").DoughnutGroups(1).FirstSliceAngle = 45

DoughnutHoleSize

返回或设置圆环图图表组的内径大小。内径大小以图表大小的百分比表示,有效取值范围为 10% 90%Long 类型,可读写。

DownBars

返回一个 DownBars 对象,该对象表示折线图中的跌柱线。仅应用于折线图。只读。

DownloadComponents

如果必要的“Microsoft Office Web 组件在您用 Web 浏览器查看已保存的文档时已经下载,但只有在尚未安装这些组件时,该值为 True。如果没有下载这些组件,则为 False。默认值是 FalseBoolean 类型,可读写。

DownloadURL

返回一个 String 值,该值表示智能标记的统一资源定位符 (URL)。只读。

DProduct

计算列表或数据库的列中符合指定条件的值的乘积。

Draft

如果打印工作表时不打印其中的图形,则该属性值为 TrueBoolean 类型,可读写。

DragOff

将一个分页符拖出打印区域。

DragOver

当将一个单元格区域拖过图表时产生此事件。
本示例显示拖过图表的单元格区域的地址。
Private Sub Chart_DragOver()
    MsgBox Selection.Address
End Sub

DragPlot

将一个单元格区域拖放到图表上时产生此事件。
本示例当将单元格区域拖放到图表上时更改该图表的类型。
Private Sub Chart_DragPlot()
    Me.ChartType = xlLine
End Sub

DragToColumn

如果指定字段能被拖动到列位置上,则为 True。默认值是 TrueBoolean 类型,可读写。

DragToData

如果指定字段可被拖动到数据位置上,则为 True。默认值是 TrueBoolean 类型,可读写。

DragToHide

如果通过将字段拖离数据透视表可隐藏该字段,则为 True。默认值是 TrueBoolean 类型,可读写。

DragToPage

如果字段可被拖动到页位置上,则为 True。默认值是 TrueBoolean 类型,可读写。

DragToRow

如果字段可被拖动到行位置上,则为 True。默认值是 TrueBoolean 类型,可读写。

Drilled

设置多维数据集字段的分级成员选择控件中多维数据集字段成员的“drilled”(展开或可见)状态。该属性主要用于录制宏,而不用于其他用途。可读写。

DrilledDown

如果指定数据透视表字段或数据透视表项的标志设置为“drilled”(展开或可见),则为 TrueBoolean 类型,可读写。

DrillTo

DrillTo 方法支持从另一个透视字段深化到指定的透视字段。

DrillTo

DrillTo 方法支持从 PivotItem 中深化到指定的透视字段。

DropDownLines

返回或设置组合框中下拉区域中显示的列表行的数目。Long 类型,可读写。

DropLines

返回一个 DropLines 对象,该对象表示折线图或面积图上数据系列的垂直线。仅适用于折线图或面积图。只读。

DStDev

将列表或数据库的列中符合指定条件的数字作为样本,估算总体的标准偏差。

DStDevP

将列表或数据库的列中符合指定条件的数字作为整个总体,计算总体的标准偏差。

DSum

计算列表或数据库的列中符合指定条件的数字之和。

Duplicate

复制对象,并返回对新复制对象的引用。
语法
表达式.Duplicate
表达式   一个代表 Shape 对象的变量。
返回值
Shape

Duplicate

复制对象,并返回对新复制对象的引用。

Duration

返回假设面值 100 的定期付息有价证券的修正期限。期限定义为一系列现金流现值的加权平均值,用于计量债券价格对于收益率变化的敏感程度。

DVar

将列表或数据库的列中符合指定条件的数字作为一个样本,估算总体的方差。

DVarP

将列表或数据库的列中符合指定条件的数字作为整个总体,计算总体的方差。