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

时间:2022-12-03 03:56:32


对象/属性/方法/事件
Object/Attribute/
Method/Event

描述
Description

Object

获取或设置一个对象引用。可读/写。

Object

返回与此 OLE 对象相联系的 OLE 自动化对象。Object 型,只读。

Obscured

如果指定形状的阴影是填充的,并且阴影被形状所遮盖(即便该形状没有填充),那么该值为 True。如果阴影没有填充,并且当形状没有填充时,可透过形状看到阴影的轮廓,那么该值为 FalseMsoTriState 类型,可读写。

Oct

返回 Variant (String),代表一数值的八进制值。
语法
Oct(number)
必要的 number 参数为任何有效的数值表达式或字符串表达式。

Oct2Bin

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

Oct2Dec

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

Oct2Hex

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

ODBCError

ODBCError 对象是 ODBCErrors 集合的成员。代表一个由最近的 ODBC 查询生成的 ODBC 错误。如果指定的 ODBC 查询运行时没有出现错误,则 ODBCErrors 集合为空。集合中错误的索引次序与 ODBC 数据源生成它们时的次序相同

ODBCErrors

返回一个 ODBCErrors 集合,该集合包含由最近的查询表或数据透视表操作产生的所有 ODBC 错误

ODBCErrors

每一个 ODBCError 对象都代表一个由最近的 ODBC 查询返回的错误。如果指定的 ODBC 查询运行时没有出现错误,则 ODBCErrors 集合为空。集合中错误的索引次序与 ODBC 数据源生成它们时的次序相同。您不能给该集合添加成员。

ODBCTimeout

以秒为单位返回或设置 ODBC 查询的时间限制

Odd

返回数字向上舍入到的最接近的奇数。

OddAndEvenPagesHeaderFooter

如果指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚,则为 True。可读/ Boolean 类型。

OddFPrice

返回首期付息日不固定(长期或短期)的面值 100 的债券价格。

OddFYield

返回首期付息日不固定(长期或短期)的债券的收益率。

OddLPrice

返回末期付息日不固定(长期或短期)的面值 100 的债券的价格。

OddLYield

返回末期付息日不固定(长期或短期)的债券的收益率。

Offset

返回一个 Range 对象,该对象代表某个指定区域以外的区域
本示例激活Sheet1上活动单元格向右偏移三列、向下偏移三行处的单元格。
Worksheets("Sheet1").Activate
ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate

Offset

返回或设置一个 Long 值,它代表各级别标签之间的距离以及第一级标签与坐标轴之间的距离。

OffsetX

以磅为单位返回或设置指定形状的阴影的水平偏移量。正偏移值将阴影向右偏移,负偏移值将阴影向左偏移。可读写。Single 类型。

OffsetY

以磅为单位返回或设置指定形状阴影的垂直偏移。正偏移值将阴影向下偏移,负偏移值将阴影向上偏移。可读写。Single 类型。

OLAP

如果数据透视表缓存与联机分析处理 (OLAP) 服务器相连,则返回 True。只读 Boolean 类型。

OLEDBErrors

返回 OLEDBErrors 集合,该集合代表最近一次 OLE DB 查询所返回的错误信息

OLEDBErrors

每一个 OLEDBError 对象都代表最近的 OLE DB 查询返回的一个错误。如果指定的 OLE DB 查询运行时没有出现错误,则 OLEDBErrors 集合为空。集合中错误的索引次序与 OLE DB 提供程序生成它们时的次序相同。您不能给该集合添加成员。

OLEFormat

返回一个 OLEFormat 对象,该对象包含 OLE 对象属性。只读。
语法
表达式.OLEFormat
表达式   一个代表 Shape 对象的变量。

OLEObjects

返回代表图表或工作表上单个 OLE 对象(OLEObject)或所有 OLE 对象的集合(OLEObjects 集合)的对象
本示例创建工作表Sheet1OLE对象的链接类型列表。该列表将出现在本示例新建的工作表中。
Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Name"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Sheet1").OLEObjects
    newSheet.Cells(i, 1).Value = obj.Name
    If obj.OLEType = xlOLELink Then
        newSheet.Cells(i, 2) = "Linked"
    Else
        newSheet.Cells(i, 2) = "Embedded"
    End If
    i = i + 1
Next

OLEObjects

返回代表图表或工作表上单个 OLE 对象或所有 OLE 对象的集合的对象。
本示例创建工作表 Sheet1 OLE 对象的链接类型列表。该列表将出现在本示例新建的工作表中
Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Name"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Sheet1").OLEObjects
    newSheet.Cells(i, 1).Value = obj.Name
    If obj.OLEType = xlOLELink Then
        newSheet.Cells(i, 2) = "Linked"
    Else
        newSheet.Cells(i, 2) = "Embedded"
    End If
    i = i + 1
Next

OLEType

返回 OLE 对象类型。可为以下 XlOLEType 常量之一:xlOLELink xlOLEEmbed。如果对象是链接的(对象存储于文件之外),则本属性返回 xlOLELink,如果对象是内嵌的(对象完全包含于文件之内),则返回 xlOLEEmbedLong 类型,只读。

OmittedCells

如果该值为 True(默认值),则 Microsoft Excel 将用自动更正选项按钮识别包含公式的选定单元格,其中该公式引用的区域应包括相邻单元格,但这些单元格却被遗漏掉了。如果该值为 False,则禁用对被遗漏单元格的错误检查。Boolean 类型,可读写。

On

如果启用了“Office 助手,则为 True。可读/写。

On

如果打开指定的筛选,则该属性值为 TrueBoolean 类型,只读。

On Error

启动一个错误处理程序并指定该子程序在一个过程中的位置;也可用来禁止一个错误处理程序。
语法
On Error GoTo line
On Error Resume Next
On Error GoTo 0
On Error GoTo line 
启动错误处理程序,且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到 line,激活错误处理程序。指定的 line 必须在一个过程中,这个过程与 On Error 语句相同; 否则会发生编译时间错误。
On Error Resume Next
说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo
On Error GoTo 0
禁止当前过程中任何已启动的错误处理程序。

On...GoSubOn...GoTo

根据表达式的值,转到特定行执行。
语法
On expression GoSub destinationlist
On expression GoTo destinationlist
expression
必要参数。数值表达式,其运算结果应该是一个界于 0 255 之间的整数,包含 0 255。如果 expression 的计算结果不是一个整数,则它会先四舍五入为一个整数。
destinationlist
必要参数。行号或行标签的列表,之间要以逗号隔开。

OnAction

返回或设置单击指定对象时运行的宏的名称。String 类型,可读写。
语法
表达式.OnAction
表达式   一个代表 Shape 对象的变量。

OneColorGradient

将指定填充设为单色渐变。

OnKey

当按特定键或特定的组合键时运行指定的过程
本示例为 Ctrl+ 加号分配“InsertProc”过程,并为 Shift+Ctrl+ 向右键分配“SpecialPrintProc”过程。
Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"

本示例将 Shift+Ctrl+ 向右键重新设为正常的含义。
Application.OnKey "+^{RIGHT}"

本示例将 Shift+Ctrl+ 向右键设为不发生任何操作。
Application.OnKey "+^{RIGHT}", ""

OnRepeat

重复菜单项和执行的过程名进行设置
本示例对重复和撤消过程进行设置。
Application.OnRepeat "Repeat VB Procedure", _
    "Book1.xls!My_Repeat_Sub"
Application.OnUndo "Undo VB Procedure", _
    "Book1.xls!My_Undo_Sub"

OnTime

安排一个过程在将来的特定时间运行(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。
本示例设置 15 秒后运行my_Procedure过程,从现在开始计时。
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
 
本示例设置 my_Procedure 在下午 5 点开始运行。
Application.OnTime TimeValue("17:00:00"), "my_Procedure"

OnUndo

撤消菜单项和执行的过程名进行设置
本示例对重复和撤消过程进行设置。
Application.OnRepeat "Repeat VB Procedure", _
    "Book1.xls!My_Repeat_Sub"
Application.OnUndo "Undo VB Procedure", _
    "Book1.xls!My_Undo_Sub"

OnUpdate

该事件发生于命令栏改变时。
语法
表达式.OnUpdate
表达式   一个代表 CommandBars 对象的变量。

OnWindow

返回或设置每当激活一个窗口时要运行的过程的名称
每当激活窗口一时,本示例就运行 WindowActivate 过程。
ThisWorkbook.Windows(1).OnWindow = "WindowActivate"

OnWindow

返回或设置每当激活一个窗口时要运行的过程的名称。
每当激活窗口一时,本示例就运行 WindowActivate 过程。
ThisWorkbook.Windows(1).OnWindow = "WindowActivate"

OnWindow

返回或设置每当激活一个窗口时要运行的过程的名称。String 型,可读写。
语法
表达式.OnWindow
表达式   一个代表 Window 对象的变量。

Open

打开一个工作簿。
本示例打开 Analysis.xls 工作簿,然后运行 Auto_Open 宏。
Workbooks.Open "ANALYSIS.XLS"
ActiveWorkbook.RunAutoMacros xlAutoOpen

Open

打开工作簿时,将产生本事件。
每次打开工作簿时,本示例都最大化 Microsoft Excel 窗口。
Private Sub Workbook_Open()
    Application.WindowState = xlMaximized
End Sub

Open

能够对文件输入/输出 (I/O)
语法
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
pathname
必要。字符串表达式,指定文件名,该文件名可能还包括目录、文件夹及驱动器。
mode
必要。关键字,指定文件方式,有 AppendBinaryInputOutput、或 Random 方式。如果未指定方式,则以 Random 访问方式打开文件。
access
可选。关键字,说明打开的文件可以进行的操作,有 ReadWrite、或 Read Write 操作。
lock
可选。关键字,说明限定于其它进程打开的文件的操作,有 SharedLock ReadLock Write、和 Lock Read Write 操作。
filenumber
必要。一个有效的文件号,范围在 1 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。
reclength
可选。小于或等于 32767(字节)的一个数。对于用随机访问方式打开的文件,该值就是记录长度。对于顺序文件,该值就是缓冲字符数。

Open

打开一个最近使用的工作簿。

OpenDatabase

返回一个 Workbook 对象,该对象代表一个数据库
本示例中,Microsoft Excel 打开了“northwind.mdb”文件。本示例假定“northwind.mdb file”存在于 C 盘上。
Sub UseOpenDatabase()
    ' Open the Northwind database.
    Workbooks.OpenDatabase _
        FileName:="C:\northwind.mdb"
End Sub

OpenLinks

打开链接的支持文档。
本示例打开当前活动工作簿的所有 Microsoft Excel 支持文档。
Sub OpenAllLinks()
    Dim arLinks As Variant
    Dim intIndex As Integer
    arLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(arLinks) Then
        For intIndex = LBound(arLinks) To UBound(arLinks)
            ActiveWorkbook.OpenLinks arLinks(intIndex)
        Next intIndex
    Else
        MsgBox "The active workbook contains no external links."
    End If
End Sub

OpenText

载入一个文本文件,并将其作为包含单个工作表的工作簿进行分列处理,然后在此工作表中放入经过分列处理的文本文件数据。
本示例打开 Data.txt 文件并将制表符作为分隔符对此文件进行分列处理,转换成为工作表。
Workbooks.OpenText filename:="DATA.TXT", _
   dataType:=xlDelimited, tab:=True

OpenXML

打开 XML 数据文件。返回一个 Workbook 对象。
下面的代码打开了 XML 数据文件“customers.xml”并在 XML 列表中显示了此文件的内容。
Sub UseOpenXML()
    Application.Workbooks.OpenXML _
        Filename:="customers.xml", _
        LoadOption:=xlXmlLoadImportToList
End Sub

OperatingSystem

返回当前操作系统的名称和版本号
本示例显示操作系统的名称。
MsgBox "Microsoft Excel is using " & Application.OperatingSystem

Operator

返回一个 Long 值,它代表条件格式的操作符。

Operator

返回一个 Long 值,它代表数据有效性的运算符。

Operator

返回一个 XlAutoFilterOperator 值,它代表与指定筛选所应用的两个条件相关的操作符。

OptimizeCache

如果构造数据透视表的高速缓存时,需要对其进行优化,则该值为 True。默认值为 FalseBoolean 类型,可读写。

Option Base

在模块级别中使用,用来声明数组下标的缺省下界。
语法
Option Base {0 | 1}
说明
由于下界的缺省设置是 0,因此无需使用 Option Base 语句。如果使用该语句,则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base,且必须位于带维数的数组声明之前。

Option Compare

在模块级别中使用,用于声明字符串比较时所用的缺省比较方法。
语法
Option Compare {Binary | Text | Database}
说明
如果使用,则 Option Compare 语句必须写在模块的所有过程之前。

Option Explicit

在模块级别中使用,强制显式声明模块中的所有变量。
语法
Option Explicit
说明
如果使用,Option Explicit 语句必须写在模块的所有过程之前。

Option Private

在允许引用跨越多个工程的主机应用程序中使用 Option Private Module,可以防止在模块所属的工程外引用该模块的内容。在不允许这种引用的主机应用程序中,例如,Visual Basic 的独立方式版本,Option Private 就不起作用。
语法
Option Private Module
说明
如果使用 Option Private 语句,则必须是写在模块级别中的任何过程之前。

Or

在其参数组中,如果任一参数的逻辑值为 TRUE,即返回 TRUE;如果所有参数的逻辑值为 FALSE,即返回 FALSE

Order

返回或设置一个 XlOrder 值,它代表 Microsoft Excel 打印一张大工作表时所使用的页编号的次序。

Order

返回或设置一个 Long 值,它代表趋势线类型为 xlPolynomial 时趋势线的顺序号(大于 1 的整数)。

OrganizationName

返回注册组织名称
本示例显示注册组织名称。
MsgBox "The registered organization is " & _
    Application.OrganizationName

OrganizeInFolder

如果为 True,则在将指定的文档保存为网页时,所有的支持文件(如背景纹理和图形)将组织在一个单独的文件夹中;如果为 False,则支持文件和网页将保存在同一文件夹中。默认值是 TrueBoolean 类型,可读写。

Orientation

文本方向。可为 –90 90 度之间的整数值
expression.Orientation
expression
必需。该表达式返回上面的对象之一。

Orientation

返回或设置一个 Variant 值,它代表文本方向。
语法

表达式.Orientation

表达式   一个代表 CellFormat 对象的变量。

Orientation

返回或设置一个 XlOrientation 值,它代表文本方向。
语法
表达式.Orientation
表达式   一个代表 Style 对象的变量。

Orientation

返回或设置一个 Long 值,它代表文本框的方向。

Orientation

返回或设置一个 XlPageOrientation 值,它代表纵向或横向打印模式。

Orientation

返回或设置一个 XlPivotFieldOrientation 值,它代表字段在指定的数据透视表中的位置。

Orientation

返回或设置一个 Variant 值,它代表文本方向。

Orientation

返回或设置一个 Long 值,它代表文本方向。

Orientation

返回或设置一个 XlOrientation 值,它代表文本方向。

Outline

返回一个 Outline 对象,该对象代表指定工作表的分级显示
本示例将 Sheet1 的分级显示设置为使用自动样式。
Worksheets("Sheet1").Outline.AutomaticStyles = True

OutlineFont

如果指定的字体是空心字体,则该值为 True
本示例对 Sheet1 A1 单元格的字体进行设置。
Worksheets("Sheet1").Range("A1").Font.OutlineFont = True

OutlineLevel

返回或设置指定行或列的当前分级显示级别
本示例设置 sheet1 上第二行的分级显示级别。
Worksheets("Sheet1").Rows(2).OutlineLevel = 1

Overlap

指定放置条形和柱形的方式。取值范围在 -100 100 之间。仅应用于二维条形图和二维柱形图。Long 类型,可读写。