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

学问就像一个圆,学的越多,圆越大,圆外的未知领域也就越大。

VBA中数千个对象、属性、方法,自己能实际用到的毕竟只是少数。对于大部分没有用过的,要平和的接受。

毕竟,如果需要,我可以随时来找你们的。

这张表还要加一列:对象列。因为不同的对象,可以拥有相同名称的属性和方法。

Attribute/
Method/Event

Description

BackColor

返回或设置一个 ColorFormat 对象,它代表指定的填充背景色。

BackColor

返回或设置一个 ChartColorFormat 对象,它代表指定的填充背景色。

Background

返回或设置文本背景类型
本示例为第一张工作表上的第一张嵌入图表添加图表标题,然后设置标题的字体大小和背景类型。本示例假定图表在第一张工作表上。
Sub UseBackground()
   
With Worksheets(1).ChartObjects(1).Chart
        .HasTitle = True
        .ChartTitle.Text = "Rainfall Totals by Month"
        With .ChartTitle.Font
            .Size = 10
            .Background = xlBackgroundTransparent
        End With
    End With
End Sub

BackgroundChecking

警告用户并指出违背可用错误检查规则的所有单元格。如果该属性设置为 True (默认值),则在违背启用错误的所有单元格旁边将出现自动更正选项按钮。如果为 False,则禁用背景错误检查。Boolean 类型,可读写。

BackgroundQuery

如果查询表的查询是异步执行(在后台执行)的,则为 TrueBoolean 类型,可读写。

BackgroundQuery

如果数据透视表的查询是异步执行(在后台执行)的,则为 TrueBoolean 类型,可读写。

BackgroundStyle

返回或设置背景样式。可读/ MsoBackgroundStyleIndex 类型。
版本信息
 
已添加版本:  Excel 2007
语法
表达式.BackgroundStyle
表达式   一个代表 Shape 对象的变量。

Backward

返回或设置趋势线向后延伸的周期数(或散点图中的单位数)。Long 类型,可读写。

Backward2

返回或设置趋势线向后延伸的周期数目(或散点图中的单位个数)。可读/ Double 类型。

BahtText

将数字转换为泰语文本并添加后缀泰铢

BalloonError

获取表示所记录的最后一个气球错误的值。只读

Bar3DGroup

返回一个 ChartGroup 对象,该对象代表三维图表中的条形图组
本示例将三维条形图图表组中各条形簇之间的距离设置为条形宽度的 50%
Charts(1).BarGroup3DGroup.GapWidth = 50

BarGroups

在二维图表中返回一个对象,该对象既可代表单个条形图组,也可代表一个条形图组集合。
本示例将二维条形图图表组中各条形簇之间的距离设置为条形宽度的 50%
Charts(1).BarGroups(1).GapWidth = 50

BarShape

返回或设置用于三维条形图或柱形图的形状。
本示例设置用于第一个图表的第一个数据系列的形状。
Charts(1).SeriesCollection(1).BarShape = xlConeToPoint

BarShape

返回或设置用于三维条形图或柱形图的形状。XlBarShape 类型,可读写。

BaseField

返回或设置自定义计算的基准字段。本属性仅对数据字段有效。Variant 类型,可读写。

BaseItem

返回或设置自定义计算基准字段的数据项,仅对数据字段有效。Variant 类型,可读写。

BaseUnit

返回或设置指定分类轴的基本单位。XlTimeUnit 类型,可读写。

BaseUnitIsAuto

如果由 Microsoft Excel 为指定的分类轴选取适当的基本单位,则该值为 True。默认值为 TrueBoolean 类型,可读写。

BCCRecipients

您查询的是 Macintosh 专用的 Visual Basic 关键词。有关该关键词的帮助信息,请查阅 Microsoft Office Macintosh 版的语言参考帮助。

Beep

通过计算机喇叭发出一个声调。
语法
Beep

BeforeClose

在关闭工作簿之前,先产生此事件
本示例将 BeforeClose 事件的响应设置为保存工作簿的任何更改。
Private Sub Workbook_BeforeClose(Cancel as Boolean)
   
If Me.Saved = False Then Me.Save
End Sub

BeforeDoubleClick

当双击某工作表时产生此事件,此事件先于默认的双击操作
Private Sub expression_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
expression
引用在类模块中带有事件声明的 Worksheet 类型对象的变量。

BeforeDoubleClick

当双击一张嵌入图表时产生此事件,并且此事件先于默认的双击操作。
本示例将忽略图表基底的默认双击操作。
Private Sub Chart_BeforeDoubleClick(ByVal ElementID As Long, _
   
ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
    If ElementID = xlFloor Then
        Cancel = True
        MsgBox "Chart formatting for this item is restricted."
    End If
End Sub

BeforePrint

在打印指定工作簿(或者其中的任何内容)之前,产生此事件。
本示例在打印之前对当前活动工作簿的所有工作表重新计算。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
For Each wk in Worksheets
        wk.Calculate
    Next
End Sub

BeforeRefresh

在刷新查询表之前产生此事件。这里的刷新包括调用 Refresh 方法引起的变化,用户的操作引起的变化和打开包含该查询表的工作簿引起的变化。

BeforeRightClick

当用鼠标右键单击某工作表时产生此事件,此事件先于默认的右键单击操作。
本示例为 B1:B10 单元格添加新的快捷菜单项。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
       
Cancel As Boolean)
    Dim icbc As Object
    For Each icbc In Application.CommandBars("cell").Controls
        If icbc.Tag = "brccm" Then icbc.Delete
    Next icbc
    If Not Application.Intersect(Target, Range("b1:b10")) _
        Is Nothing Then
            With Application.CommandBars("cell").Controls _
                .Add(Type:=msoControlButton, before:=6, _
                temporary:=True)
           .Caption = "New Context Menu Item"
           .OnAction = "MyMacro"
           .Tag = "brccm"
        End With
    End If
End Sub

BeforeRightClick

当用鼠标右键单击一个嵌入图表时发生此事件,此事件先于默认的右键单击操作。
Private Sub expression_BeforeRightClick(Cancel As Boolean)
expression
引用在类模块中带有事件声明的Chart类型对象的变量。
Cancel
必需。当事件发生时为False。如果该事件过程将本参数设为True,则该过程执行结束之后将不执行默认的右键单击操作。

BeforeSave

保存工作簿之前产生此事件。
本示例在保存工作簿之前询问用户是否保存。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
       
Cancel as Boolean)
    a = MsgBox("Do you really want to save the workbook?", vbYesNo)
    If a = vbNo Then Cancel = True
End Sub

BeforeXmlExport

Microsoft Excel 将指定的工作簿中的数据保存或导出到 XML 数据文件之前,发生此事件
expression.BeforeXmlExport(Map, Url, Cancel)
expression   
必需。该表达式返回一个 Workbook 对象。

BeforeXmlImport

在刷新现有的 XML 数据连接或将新的 XML 数据导入到指定的 Microsoft Excel 工作簿之前,发生此事件。
expression.BeforeXmlImport(Map, Url, IsRefresh, Cancel)
expression     
必需。该表达式返回应用于列表中的对象之一。

BeginArrowheadLength

返回或设置指定线条起点的箭头的长度。MsoArrowheadLength 类型,可读写。

BeginArrowheadStyle

返回或设置指定线条起点的箭头样式。MsoArrowheadStyle 类型,可读写。

BeginArrowheadWidth

返回或设置指定线条起点的箭头宽度。MsoArrowheadWidth 类型,可读写。

BeginConnect

将指定的连接符的起点连接到指定的形状上。如果在连接符的起点与其他形状之间已经有了连接,那么该已有的连接将中断。如果连接符的起点不在所需的连接结点上,本方法将把连接符的起点移到该连接结点,并对连接符的大小和位置作相应的调整。可用 EndConnect 方法将连接符的终点连接到某一形状上。

BeginConnected

如果指定的连接符的起点已连接到了某一形状上,则该属性值为 TrueMsoTriState 类型,只读。

BeginConnectedShape

返回一个 Shape 对象,该对象代表指定连接符的起点所连到的形状。只读。

BeginConnectionSite

返回一个整数,该整数指定连接符起点的连接结点。Long 类型,只读。

BeginDisconnect

使指定的连接符的起点与其所连接的形状脱离。本方法并不修改连接符的尺寸和位置:连接符的起点仍保留在原来所连接的连接结点的位置,但与该连接结点之间不再有连接。可用 EndDisconnect 方法使连接符的终点与某一形状脱离。

BesselI

返回修正的 Bessel 函数,它等效于计算纯虚数参数值的 Bessel 函数。

BesselJ

返回 Bessel 函数。

BesselK

返回修正 Bessel 函数,它等效于根据纯虚数参数计算的 Bessel 函数。

BesselY

返回 Bessel 函数,该函数也称为 Weber 函数或 Neumann 函数。

BetaDist

返回 Beta 累积分布函数。

BetaInv

对于指定的 Beta 分布,返回累积分布函数的反函数。即,如果 probability = BetaDist(x,...),则 BetaInv(probability,...) = x

Bin2Dec

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

Bin2Hex

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

Bin2Oct

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

BinomDist

返回一元二项式分布的概率。

BlackAndWhite

如果指定文档中的元素以黑白方式打印,则该属性值为 TrueBoolean 类型,可读写。

BlackWhiteMode

返回或设置一个值,该值指明以黑白模式查看演示文稿时指定形状出现的方式。MsoBlackWhiteMode,可读写。
语法
表达式.BlackWhiteMode
表达式   一个代表 Shape 对象的变量。

Blur

返回或设置指定底纹的模糊度。可读/ Single 类型。

Bold

如果字体设为加粗格式,则该值为 True
本示例将 Sheet1 A1:A5 区域的字体设为加粗。
Worksheets("Sheet1").Range("A1:A5").Font.Bold = True

Border

返回一个 Border 对象,它代表对象的边框。

BorderAround

向单元格区域添加边框,并设置该边框的 ColorLineStyle Weight 属性
本示例向工作表 Sheet1 上的区域 A1:D4 添加红色的粗外框。
Worksheets("Sheet1").Range("A1:D4").BorderAround _
       
ColorIndex:=3, Weight:=xlThick

Borders

返回Borders集合,该集合代表样式或单元格区域的边框
本示例将 Sheet1 中单元格 B2 的底部边框颜色设置为红色。
Sub SetRangeBorder()
   
With Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3
    End With
End Sub

Borders

返回或设置一个 Borders 集合,它代表基于单元格边框格式的搜索条件。
语法

表达式.Borders

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

Borders

返回一个 Borders 集合,它代表样式或单元格区域(包括定义为条件格式一部分的区域)的边框。
语法
表达式.Borders
表达式   一个代表 Style 对象的变量。

Borders

返回一个 Borders 集合,它代表样式或单元格区域(包括定义为条件格式一部分的区域)的边框。

BottomMargin

以磅为单位返回或设置底端边距的大小。Double 类型,可读写。

BottomRightCell

返回一个 Range 对象,它代表位于该对象右下角下方的单元格。只读。
语法
表达式.BottomRightCell
表达式   一个代表 Shape 对象的变量。

BottomRightCell

返回一个 Range 对象,它代表位于该对象右下角下方的单元格。只读。

BreakLink

将链接到其他 Microsoft Excel 源或 OLE 源的公式转换为值
本示例中,Microsoft Excel 转换了活动工作簿中的第一个链接(Excel 链接类型)。本示例假定在活动工作簿中至少存在一个连接到其他 Excel 源的公式。
Sub UseBreakLink()
   
Dim astrLinks As Variant
    ' Define variable as an Excel link type.
    astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    ' Break the first link in the active workbook.
    ActiveWorkbook.BreakLink _
        Name:=astrLinks(1), _
        Type:=xlLinkTypeExcelLinks
End Sub

BreakSideBySide

使用此方法可结束两个窗口的并排模式
下例结束了并排模式。
Sub CloseSideBySide()
  
ActiveWorkbook.Windows.BreakSideBySide
End Sub

Brightness

返回或设置指定图片或 OLE 对象的亮度。该属性的值必须是 0.0(最暗)到 1.0(最亮)之间的数。Single 型,可读写。

BringToFront

将对象放到 z-次序前面。

BubbleScale

返回或设置指定图表组中气泡的缩放比例。可为从 0(零)到 300 之间的整数,表示相对于默认大小的百分率。仅适用于气泡图。Long 类型,可读写。

BubbleSizes

返回或设置一个字符串,该字符串引用包含气泡图 x 值、y 值和大小数据的工作表单元格。在返回单元格引用时,它将返回以 A1 样式注释描述单元格的字符串。要为气泡图设置大小数据,必须使用 R1 样式注释。仅适用于气泡图。Variant 类型,可读写。

Build

返回 Microsoft Excel 连编号
本示例检测 Build 属性。
If Application.Build > 2500 Then
   
' build-dependent code here
End If

BuildFreeform

建立一个任意多边形对象。返回一个 FreeformBuilder 对象,该对象代表正在创建的任意多边形。用 AddNodes 方法向任意多边形添加线段。如果任意多边形中已包含了一个以上的线段,则可用 ConvertToShape 方法将 FreeformBuilder 对象转换为 Shape 对象,该对象将具有在 FreeformBuilder 对象中定义的几何属性。
语法
表达式.BuildFreeform(EditingType, X1, Y1)
表达式   一个代表 Shapes 对象的变量。
参数
名称必选/可选数据类型描述
EditingType
必选 MsoEditingType 第一个节点的编辑属性。
X1
必选 Single 任意图形中第一个节点相对于文档左上角的位置(以磅为单位)。
Y1
必选 Single 任意图形中第一个节点相对于文档左上角的位置(以磅为单位)。
返回值
FreeformBuilder

BuiltIn

如果指定的命令栏是容器应用程序的内置命令栏,则获取 True。如果是自定义命令栏,则返回 False。只读。
语法
表达式.BuiltIn
表达式   一个代表 CommandBar 对象的变量。
返回值
Boolean

BuiltIn

如果样式为内置样式,则为 True。只读 Boolean 类型。
语法
表达式.BuiltIn
表达式   一个代表 Style 对象的变量。

BuiltIn

如果样式为内置样式,则为 True。只读 Boolean 类型。

BuiltinDocumentProperties

返回一个 DocumentProperties 集合,该集合代表指定工作簿的所有内置文档属性
本示例在第一张工作表中以列表的形式显示所有内置文档属性的名称。
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
   
Cells(rw, 1).Value = p.Name
    rw = rw + 1
Next


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值