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

数据分析(Data Analysis) 同时被 2 个专栏收录
422 篇文章 13 订阅

很多事情没有结果,是因为没有坚持去做。

为了避免虎头蛇尾,趁着今天的最高篇数还没达到时,再发一篇不费脑子的文章。

其实,严格来讲,这也是曾经费脑子写代码提取出来的资料。虽然结构不是还可以更完美,但是作为检索工具,应该也能凑活着用。(提示:CTRL+F,输入你感兴趣的关键字来碰碰运气吧!)

Attribute/
Method/Event

Description

CacheIndex

返回或设置数据透视表缓存的索引号。Long 类型,可读写。

Calculate

计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格
本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。
Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate

Calculate

对于 Worksheet 对象,在对工作表进行重新计算之后产生此事件
每当工作表重新计算时,本示例就调整 A 列到 F 列的宽度。
Private Sub Worksheet_Calculate()
    Columns("A:F").AutoFit
End Sub

Calculate

对于 Chart 对象,在图表对新的数据点或者更改的数据点绘制之后产生此事件。
Private Sub object_Calculate()
object     Chart
或者 Worksheet。有关对 Chart 对象使用事件的详细内容,请参阅 Chart 对象事件的用法。

CalculateBeforeSave

如果将工作簿保存到磁盘之前先进行计算则为 True
本示例设置 Microsoft Excel 保存工作簿到磁盘之前对工作簿进行计算。
Application.Calculation = xlManual
Application.CalculateBeforeSave = True

CalculatedFields

PivotField 对象组成的集合,这些对象代表指定数据透视表中的所有计算字段

CalculatedFields

返回一个 CalculatedFields 集合,该集合表示指定数据透视表中的所有计算字段。只读。

CalculatedItems

返回一个 CalculatedItems 集合,该集合表示指定数据透视表中的所有计算项。只读。

CalculatedMembers

返回一个 CalculatedMembers 集合,该集合表示 OLAP 数据透视表的所有计算成员和计算方法。

CalculateFull

促使对所有打开工作簿中的数据进行完整计算
本示例将当前 Microsoft Excel 的版本与上次计算该工作簿的 Excel 版本进行比较。如果两个版本不同,则对所有打开工作簿中的数据进行一次完整计算。
If Application.CalculationVersion <> _
    Workbooks(1).CalculationVersion Then
    Application.CalculateFull
End If

CalculateFullRebuild

对于所有打开的工作簿,强制数据的完整计算并重建从属关系
本示例将当前 Microsoft Excel 的版本与上次计算该工作簿的 Excel 版本进行比较。如果两个版本不同,则对所有打开工作簿中的数据进行一次完整计算并重建从属关系。
Sub UseCalculateFullRebuild()
    If Application.CalculationVersion <> _
        Workbooks(1).CalculationVersion Then
        Application.CalculateFullRebuild
    End If
End Sub

Calculation

Application 对象:返回或者设置计算模式
PivotField
对象:返回或设置指定字段计算结果的类型
本示例设置 Microsoft Excel 在将工作簿保存回磁盘之前对工作簿进行计算。
Application.Calculation = xlCalculateManual
Application.CalculateBeforeSave = True

Calculation

返回或设置一个 XlPivotFieldCalculation 值,它代表指定字段执行的计算类型。此属性仅对数据字段有效。

CalculationInterruptKey

设置或返回一个 XlCalculationInterruptKey 常量,该常量指定在执行计算时能中断 Microsoft Excel 的键
在本示例中,Microsoft Excel 确定对中断计算的键的设置,并通知用户。
Sub CheckInterruptKey()
    ' Determine the calculation interrupt key and notify the user.
    Select Case Application.CalculationInterruptKey
        Case xlAnyKey
            MsgBox "The calcuation interrupt key is set to any key."
        Case xlEscKey
            MsgBox "The calcuation interrupt key is set to 'Escape'"
        Case xlNoKey
            MsgBox "The calcuation interrupt key is set to no key."
    End Select
End Sub

CalculationVersion

返回一个数字,其最右 4 位为计算引擎的次版本号,其他数字(左边)为 Microsoft Excel 的主版本号
本示例将当前 Microsoft Excel 的版本与上次计算工作簿的 Excel 的版本进行比较。如果两个版本号不同,则本示例将 blnFullCalc 变量设置为 True
If Application.CalculationVersion <> _
    Workbooks(1).CalculationVersion Then
    blnFullCalc = True
Else
    blnFullCalc = False
End If

Call

将控制权转移到一个 Sub 过程,Function 过程,或动态链接库 (DLL)过程。
语法
[Call] name [argumentlist]
Call
可选参数;关键字。如果指定了这个关键字,则 argumentlist 必须加上括号,例如:
  Call MyProc(0)
name
必要参数,要调用的过程名称。
argumentlist 

CallByName

执行一个对象的方法,或者设置或返回一个对象的属性。
语法
CallByName(object, procname, calltype,[args()])
object
必需的;变体型(对象)。函数将要执行的对象的名称。
procname
必需的;变体型(字符串)。一个包含该对象的属性名称或者方法名称的字符串表达式。
calltype
必需的;常数。一个 vbCallType 类型的常数,代表正在被调用的过程的类型。
args()
可选的:变体型(数组)。

Caller

返回关于调用 Visual Basic 的信息
本示例显示关于调用 Visual Basic 的信息。
Select Case TypeName(Application.Caller)
    Case "Range"
        v = Application.Caller.Address
    Case "String"
        v = Application.Caller
    Case "Error"
        v = "Error"
    Case Else
        v = "unknown"
End Select
MsgBox "caller = " & v

Callout

返回一个 CalloutFormat 对象,它包含指定形状的标注格式属性。应用于代表线形标注的 Shape 对象。只读。
语法
表达式.Callout
表达式   一个代表 Shape 对象的变量。

CancelRefresh

取消指定查询表的所有后台查询。使用 Refreshing 属性可以确定当前是否正在进行后台查询。

CanCheckIn

如果 Microsoft Excel 可以将指定的工作簿签入到服务器上,则该值为 True
本示例检查服务器,查看指定的工作簿是否可以签入。如果可以,本示例将保存并关闭工作簿,并将其签回服务器。
Sub CheckInOut(strWkbCheckIn As String)
    ' Determine if workbook can be checked in.
    If Workbooks(strWkbCheckIn).CanCheckIn = True Then
        Workbooks(strWkbCheckIn).CheckIn
        MsgBox strWkbCheckIn & " has been checked in."
    Else
        MsgBox "This file cannot be checked in " & _
            "at this time.  Please try again later."
    End If
End Sub

CanCheckOut

如果 Microsoft Excel 可以将指定的工作簿从服务器签出,则该值为 True
本示例验证工作簿没有被其他用户签出,并验证该工作簿是否可以被签出。如果工作簿可以签出,本示例将工作簿复制到本机以进行编辑。
Sub UseCanCheckOut(docCheckOut As String)
    ' Determine if workbook can be checked out.
    If Workbooks.CanCheckOut(Filename:=docCheckOut) = True Then
        Workbooks.CheckOut (Filename:=docCheckOut)
    Else
        MsgBox "You are unable to check out this document at this time."
    End If
End Sub

CanPlaySounds

不能使用此属性。声音附注从 Microsoft Excel 中删除。

CanRecordSounds

不能使用此属性。声音附注从 Microsoft Excel 中删除。

CapitalizeNamesOfDays

如果日期名称的第一个字母自动大写,则该属性值为 TrueBoolean 类型,可读写。
语法
表达式.CapitalizeNamesOfDays
表达式   一个代表 AutoCorrect 对象的变量。

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

Caption

显示在文档窗口标题栏中的名称
本示例将活动工作簿中第一个窗口的名称设置为“Consolidated Balance Sheet”。然后该名称被用作 Windows 属性的索引。
ActiveWorkbook.Windows(1).Caption = "Consolidated Balance Sheet"
ActiveWorkbook.Windows("Consolidated Balance Sheet") _
    .ActiveSheet.Calculate

Caption

该字符范围内的文本
expression.Caption
expression
必需。该表达式返回上面的对象之一。

Caption

返回一个 String 值,它代表多维数据集域的标签文本。

Caption

返回一个 String 值,它代表数据透视字段的标签文本。

Caption

返回一个 String 值,它代表数据透视项的标签文本。

Caption

返回或设置一个 String 值,它代表图表标题文本的方向。

Caption

返回或设置一个 String 值,它代表坐标轴标题文本。

Caption

返回或设置一个 String 值,它代表显示单位标志文本。

Caption

返回或设置一个 String 值,它代表数据标签文本。

Caption

回或设置一个 Variant 值,它代表文档窗口标题栏中显示的名称。
语法
表达式.Caption
表达式   一个代表 Window 对象的变量。

Category

返回或设置指定名称在宏语言中的分类
String
类型,可读写。
语法
表达式.Category
表达式   一个代表 Name 对象的变量。

CategoryLocal

返回或设置以用户语言表示名称的类别。String 类型,可读写。
语法
表达式.CategoryLocal
表达式   一个代表 Name 对象的变量。

CategoryNames

以文本数组形式返回或设置指定坐标轴中所有分类的名称。该属性既可设为一个数组,也可设为一个包含所有分类名称的 Range 对象。Variant 类型,可读写。

CategoryType

返回或设置分类轴类型。XlCategoryType 类型,可读写。

Cbool

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CBool(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

Cbyte

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CByte(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

CCRecipients

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

Ccur

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CCur(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

Cdate

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CDate(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

CDbl

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CDbl(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

Cdec

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CDec(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

Ceiling

返回向上舍入(远离零)到最接近的 significance 的倍数的 number

CellDragAndDrop

如果允许拖放单元格则为 True
本示例打开允许拖放单元格的功能。
Application.CellDragAndDrop = True

CellFormat

表示单元格格式的搜索条件
使用 Application FindFormat ReplaceFormat 属性可返回一个 CellFormat 对象。

对于 CellFormat 对象,可使用其 BordersFont Interior 属性为单元格格式定义搜索条件。

Cells

Application 对象:返回 Range 对象,该对象代表活动工作表中所有的单元格
Range
对象:返回 Range 对象,该对象代表指定区域内的所有单元格
Worksheet
对象:返回 Range 对象,该对象代表工作表中所有的单元格
本示例将工作表“Sheet1”中单元格“C5”的字体大小设置为 14 磅。
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
本示例将工作表“Sheet1”中单元格区域“A1: C5”的字体样式设置为斜体。
Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

Cells

返回一个 Range 对象,该对象代表工作表(不仅仅是当前使用的单元格)中的所有单元格
本示例将 Sheet1 中单元格 C5 的字体大小设置为 14 磅。
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
本示例清除 Sheet1 上第一个单元格的公式。
Worksheets("Sheet1").Cells(1).ClearContents

Cells

返回一个 Range 对象,该对象代表指定单元格区域中的单元格
本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。
With Worksheets("Sheet1").Cells.Font
    .Name = "Arial"
    .Size = 8
End With
本示例将 Sheet1 上单元格区域 A1: C5 的字体样式设置为斜体。
Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

CenterFooter

居中对齐 PageSetup 对象中的页脚信息。可读/ String 类型。

CenterFooterPicture

返回一个 Graphic 对象,该对象表示页脚中间部分的图片。用于设置图片的属性。

CenterHeader

居中对齐 PageSetup 对象中的页眉信息。可读/ String 类型。

CenterHeaderPicture

返回一个 Graphic 对象,该对象表示页眉中间部分的图片。用于设置图片的属性。

CenterHorizontally

如果在页面的水平居中位置打印指定工作表,则该属性值为 TrueBoolean 类型,可读写。

CenterVertically

如果在页面的垂直居中位置打印指定工作表,则该属性值为 TrueBoolean 类型,可读写。

CentimetersToPoints

将计量单位从厘米转换为磅(一磅等于 0.035 厘米)。
本示例将 Sheet1 的左页边距设为 5 厘米。
Worksheets("Sheet1").PageSetup.LeftMargin = _
        Application.CentimetersToPoints(5)

Change

当用户更改工作表中的单元格,或外部链接引起单元格的更改时产生此事件。
本示例将更改的单元格的颜色设为蓝色。
Private Sub Worksheet_Change(ByVal Target as Range)
    Target.Font.ColorIndex = 5
End Sub

ChangeFileAccess

更改工作簿的访问权限
本示例将活动工作簿设为只读。
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

ChangeHistoryDuration

返回或者设置共享工作簿的修订记录中所要显示修订信息的天数。
本示例检查修订追踪功能是否有效,如果有效,则对修订记录中显示的天数进行设置。关闭工作簿时,将删除修订记录中的任何比该属性设置的日期旧的修订。
With ActiveWorkbook
    If .KeepChangeHistory Then
        .ChangeHistoryDuration = 7
    End If
End With

ChangeLink

将链接从某一文档更改到另一文档
本示例更改 Microsoft Excel 链接。
ActiveWorkbook.ChangeLink "c:\excel\book1.xls", _
    "c:\excel\book2.xls", xlExcelLinks

ChangePassword

更改受保护的工作表中可以进行编辑的区域的密码。

ChangeScenario

更改方案以得到一组新的可变单元格及方案值(可选)。

ChangingCells

返回一个 Range 对象,该对象表示方案的可变单元格。只读。

Characters

返回一个 Characters 对象,该对象代表对象文字的字符区域
本示例将 Sheet1 A1 单元格第三个字符的格式设为加粗。
With Worksheets("Sheet1").Range("A1")
    .Value = "abcdefg"
    .Characters(3, 1).Font.Bold = True
End With

Characters

代表包含文本的对象中的字符

Characters

返回一个 Characters 对象,该对象表示某个形状的文本框架中的字符区域。可以使用 Characters 对象向文本框架中添加字符和设置字符的格式。

Characters

返回 Characters 对象,它代表对象文本内某个区域的字符。使用 Characters 对象可为文本字符串内的字符设置格式。

CharacterType

返回或设置指定单元格中拼音文本的类型。XlPhoneticCharacterType 类型,可读写。

Chart

代表工作簿中的图表。该图表既可为嵌入图表(包含在 ChartObject 中),也可为一个单独的图表工作表。

Chart

返回 Chart 对象,该对象代表形状中包含的图表。只读。
版本信息
 
已添加版本:  Excel 2007
语法
表达式.Chart
表达式   一个代表 Shape 对象的变量。

Chart

返回一个 Chart 对象,该对象代表对象中包含的图表。只读。

ChartArea

返回 ChartArea 对象,该对象代表图表的整个图表区
本示例将 Chart1 的图表区域内部颜色设为红色,并将其边框颜色设为蓝色。
With Charts("Chart1").ChartArea
    .Interior.ColorIndex = 3
    .Border.ColorIndex = 5
End With

ChartGroups

返回一个对象,该对象代表图表中单个图表组或所有图表组的集合。
本示例显示 Chart1 中第一个图表组的涨跌柱线,并对其颜色进行设置。本示例应在包含两个有一个或多个交叉数据点的系列的二维折线图上运行。
With Charts("Chart1").ChartGroups(1)
    .HasUpDownBars = True
    .DownBars.Interior.ColorIndex = 3
    .UpBars.Interior.ColorIndex = 5
End With

ChartObjects

返回代表工作表中单个嵌入图表(ChartObject 对象)或所有嵌入图表的集合(ChartObjects 对象)的对象
本示例向工作表 Sheet1 上嵌入的第一个图表中添加标题。
With Worksheets("Sheet1").ChartObjects(1).Chart
    .HasTitle = True
    .ChartTitle.Text = "1995 Rainfall Totals by Month"
End With
本示例清除工作表 Sheet1 上嵌入的第一个图表的格式设置。
Worksheets("Sheet1").ChartObjects(1).Chart.ChartArea.ClearFormats

ChartObjects

返回代表工作表中单个嵌入图表或所有嵌入图表的集合的对象。
本示例向工作表 Sheet1 上嵌入的第一个图表中添加标题。
With Worksheets("Sheet1").ChartObjects(1).Chart
    .HasTitle = True
    .ChartTitle.Text = "1995 Rainfall Totals by Month"
End With

Charts

返回一个Sheets集合,该集合代表活动工作簿中的所有图表工作表
本示例设置 Chart1 的标题文本。
With Charts("Chart1")
    .HasTitle = True
    .ChartTitle.Text = "First Quarter Sales"
End With
 
本示例删除活动工作簿中所有的图表工作表。
ActiveWorkbook.Charts.Delete

Charts

返回一个 Sheets 集合,该集合代表指定工作簿中所有的图表工作表
本示例设置 Chart1 的标题文本。
With Charts("Chart1")
    .HasTitle = True
    .ChartTitle.Text = "First Quarter Sales"
End With

Charts

指定的或活动工作簿中所有图表工作表的集合。
说明
每个图表工作表都由一个 Chart 对象来表示。这不包括嵌入在工作表或对话框编辑表上的图表。有关嵌入图表的信息,请参阅 Chart ChartObject 主题。

ChartTitle

返回 ChartTitle 对象,该对象代表指定图表的标题。
本示例设置 Chart1 的标题文本。
With Charts("Chart1")
    .HasTitle = True
    .ChartTitle.Text = "First Quarter Sales"
End With

ChartType

返回或设置图表类型。
当图表为二维气泡图时,本示例将第一个图表组中的气泡大小设置为默认大小的 200%
With Worksheets(1).ChartObjects(1).Chart
    If .ChartType = xlBubble Then
        .ChartGroups(1).BubbleScale = 200
    End If
End With

ChartType

返回或设置图表类型。XlChartType 类型,可读写。

ChartWizard

更改给定图表的属性。
本示例重新设置 Chart1 的格式,将其改为折线图,添加图例,并添加分类轴标题和数值轴标题。
Charts("Chart1").ChartWizard _
    Gallery:=xlLine, _
    HasLegend:=True, CategoryTitle:="Year", ValueTitle:="Sales"

ChDir

改变当前的目录或文件夹。
语法
ChDir path
必要的 path 参数是一个字符串表达式,它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器,则 ChDir 在当前的驱动器上改变缺省目录或文件夹。

ChDrive

改变当前的驱动器。
语法
ChDrive drive
必要的 drive 参数是一个字符串表达式,它指定一个存在的驱动器。如果使用零长度的字符串 (""),则当前的驱动器将不会改变。如果 drive 参数中有多个字符,则 ChDrive 只会使用首字母。 Macintosh 中, ChDrive 将当前文件夹改变到指定驱动器的根文件夹

CheckAbort

停止 Microsoft Excel 应用程序中的重新计算
本示例中,Excel 将停止应用程序中的重新计算(不包括单元格 A10)。为查看本示例的结果,假定应用程序中还存在其他计算,这将允许用户查看被指定继续进行重新计算的单元格和其他单元格区域之间的不同。
Sub UseCheckAbort()
    Dim rngSubtotal As Variant
    Set rngSubtotal = Application.Range("A10")
    ' Stop recalculation except for designated cell.
    Application.CheckAbort KeepAbort:=rngSubtotal
End Sub

CheckboxState

返回或设置一个 Boolean 值,表示是否选中了智能文档中的某个复选框。将此属性设为 True 则选中复选框。将此属性设为 False 则清除复选框。Boolean 类型,可读写。

CheckIfOfficeIsHTMLEditor

如果在启动 Excel 时,Microsoft Excel 检查某个 Office 应用程序是否为默认 HTML 编辑器,则该值为 True。如果 Excel 并不进行此检查,则该值为 False。默认值为 TrueBoolean 类型,可读写。

CheckIn

将工作簿从本地计算机返回给服务器,同时将本地工作簿设为只读使之无法在本地进行编辑
本示例检查服务器以查看是否可以签入指定的工作簿。如果可以,本代码将保存并关闭工作簿,而且将其签回服务器。
Sub CheckInOut(strWkbCheckIn As String)
    ' Determine if workbook can be checked in.
    If Workbooks(strWkbCheckIn).CanCheckIn = True Then
        Workbooks(strWkbCheckIn).CheckIn
        MsgBox strWkbCheckIn & " has been checked in."
    Else
        MsgBox "This file cannot be checked in " & _
            "at this time.  Please try again later."
    End If
End Sub

CheckOut

返回一个 String 对象,该对象代表一个指定的工作簿,将从服务器签出到本机进行编辑。
本示例验证工作簿没有被其他用户签出,并验证该工作簿是否可以签出。如果工作簿可以签出,本示例将工作簿复制到本机以进行编辑。
Sub UseCheckOut(docCheckOut As String)
    ' Determine if workbook can be checked out.
    If Workbooks.CanCheckOut(docCheckOut) = True Then
        Workbooks.CheckOut docCheckOut
    Else
        MsgBox "Unable to check out this document at this time."
    End If
End Sub

CheckSpelling

对单个单词进行拼写检查
expression.CheckSpelling(Word, CustomDictionary, IgnoreUppercase)
expression
必需。该表达式返回上述对象之一。

CheckSpelling

对一个对象进行拼写检查。该形式的调用无返回值
本示例对 Sheet1 进行拼写检查。
Worksheets("Sheet1").CheckSpelling

CheckSpelling

对一个对象进行拼写检查
本示例对 Sheet1 进行拼写检查。
Worksheets("Sheet1").CheckSpelling

CheckSpelling

对一个对象进行拼写检查。
本示例对 Sheet1 进行拼写检查。
Worksheets("Sheet1").CheckSpelling

ChiDist

返回 χ2 分布的单尾概率。

ChiInv

返回 χ2 分布的单尾概率的反函数。

Child

如果指定的形状是子形状,或者如果形状区域中的所有形状都是同一个父形状的子形状,则返回 msoTrueMsoTriState 类型,只读。
语法
表达式.Child
表达式   一个代表 Shape 对象的变量。

ChildField

返回一个 PivotField 对象,该对象表示特定字段的子字段(如果该字段已分组且有子字段)。只读。

ChildItems

返回一个对象,它代表一个数据透视表数据项(PivotItem 对象)或所有数据项的集合(PivotItems 对象),该集合可以由指定字段中的子项组成,也可以由指定数据项中的子项组成。只读。

ChiTest

返回独立性检验值。

Choose

从参数列表中选择并返回一个值。
语法
Choose(index, choice-1[, choice-2, ... [, choice-n]])
index
必要参数,数值表达式或字段,它的运算结果是一个数值,且界于 1 和可选择的项目数之间。
choice
必要参数,Variant 表达式,包含可选择项目的其中之一。

Choose

Arg1 作为索引使用,以返回值参数列表中的值。

Chr

返回 String,其中包含有与指定的字符代码相关的字符
语法
Chr(charcode)
必要的 charcode 参数是一个用来识别某字符的 Long

Cint

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CInt(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

CircleInvalid

对工作表中的无效数据项进行圈释
本示例对第一张工作表的无效数据项进行圈释。
Worksheets(1).CircleInvalid

CircularReference

返回一个 Range 对象,该对象代表指定工作表中包含第一个循环引用的区域,或者如果指定工作表中无循环引用则返回 Nothing
本示例选定Sheet1第一个循环引用中的第一个单元格
Worksheets("Sheet1").CircularReference.Select

Clean

删除文本中的所有非打印字符。

Clear

清除 FindFormat ReplaceFormat 属性中的条件集。
语法
表达式.Clear
表达式   一个代表 CellFormat 对象的变量。

Clear

清除整个对象
本示例清除 Sheet1 A1:G37 单元格区域的公式和格式设置。
Worksheets("Sheet1").Range("A1:G37").Clear

Clear

清除整个对象。

ClearAllFilters

ClearAllFilters 方法将删除当前应用于数据透视表的所有筛选。包括删除 PivotTable 对象的 PivotFilters 集合中的所有筛选,删除应用的所有手动筛选以及将报表筛选区域中的所有筛选字段设置为默认项。

ClearAllFilters

调用此方法将删除当前应用于透视字段的所有筛选。包括从透视字段的 PivotFilters 集合中删除所有筛选以及删除应用于透视字段的所有手动筛选。如果透视字段位于报表筛选区域中,则所选项将被设置为默认项。

ClearArrows

清除指定工作表的追踪箭头。使用审核功能可添加追踪箭头。
本示例清除 Sheet1 的追踪箭头。
Worksheets("Sheet1").ClearArrows

ClearCircles

清除指定工作表的追踪箭头。使用审核功能可添加追踪箭头。
本示例清除对第一张工作表中无效数据项的圈释。
Worksheets(1).ClearCircles

ClearComments

清除指定区域的所有单元格批注
本示例清除 E5 单元格的所有批注。
Worksheets(1).Range("e5").ClearComments

ClearContents

清除指定区域的公式
本示例清除工作表 Sheet1 A1:G37 单元格的公式,但保留其格式设置。
Worksheets("Sheet1").Range("A1:G37").ClearContents

ClearContents

清除图表中的数据但保留格式设置。

ClearFormats

清除对象的格式设置
本示例清除工作表 Sheet1 A1:G37 单元格的所有格式设置。
Worksheets("Sheet1").Range("A1:G37").ClearFormats

ClearFormats

清除对象的格式设置。

ClearLabelFilters

此方法将删除透视字段的 PivotFilters 集合中的所有标签筛选或所有日期筛选。

ClearManualFilter

ClearManualFilter 方法提供一个简便方式,可将数据透视表中透视字段的所有项的 Visible 属性设置为 True,并清空 OLAP 数据透视表中的 HiddenItemsList/VisibleItemsList 集合。

ClearManualFilter

提供一个简便方法,可将数据透视表中透视字段的所有项的 Visible 属性设置为 True,并清空 OLAP 数据透视表中的 HiddenItemsList VisibleItemsList 集合。

ClearNotes

清除指定区域中所有单元格的附注和语音批注
本示例清除工作表 Sheet1 上从 A 列到 C 列中的所有批注和语音批注。
Worksheets("Sheet1").Columns("A:C").ClearNotes

ClearOutline

清除指定区域的分级显示
本示例清除工作表 Sheet1 上单元格区域 A1:G37 的分级显示。
Worksheets("Sheet1").Range("A1:G37").ClearOutline

ClearTable

ClearTable 方法用于清除数据透视表。清除数据透视表包括删除所有字段以及删除应用于数据透视表的所有筛选和排序。此方法将数据透视表重置为该表刚创建而尚未添加任何字段时的状态。

ClearValueFilters

调用此方法将删除透视字段的 PivotFilters 集合中的所有值筛选。

CLng

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CLng(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

Close

关闭对象
expression.Close(SaveChanges, Filename, RouteWorkbook)
expression
必需。该表达式返回上述对象之一。
SaveChanges Variant
类型,可选。如果工作簿没有改变,则忽略此参数
FileName      Variant
类型,可选。以此文件名保存所做的更改
RouteWorkbook      Variant
类型,可选。如果指定工作簿不需要传送给下一个收件人(没有传送名单或已经传送),则忽略该参数

Close

关闭对象。
本示例关闭 Book1.xls,并放弃所有对此工作簿的更改。
Workbooks("BOOK1.XLS").Close SaveChanges:=False

Close

关闭对象。
本示例关闭 Book1.xls,并放弃所有对此工作簿的更改。
Workbooks("BOOK1.XLS").Close SaveChanges:=False
本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变,Microsoft Excel 将显示询问是否保存更改的对话框和相应提示。
Workbooks.Close

Close

关闭 Open 语句所打开的输入/输出 (I/O) 文件。
语法
Close [filenumberlist]
可选的 filenumberlist 参数为一个或多个文件号,其中 filenumber 为任何有效的文件号,语法如下:
[[#]filenumber] [, [#]filenumber] . . .

Close

关闭对象。
语法
表达式.Close(SaveChanges, Filename, RouteWorkbook)
表达式   一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
SaveChanges
可选 Variant 如果工作簿中没有改动,则忽略此参数。如果工作簿中有改动但工作簿显示在其他打开的窗口中,则忽略此参数。如果工作簿中有改动且工作簿未显示在任何其他打开的窗口中,则由此参数指定是否应保存更改。如果设为 True,则保存对工作簿所做的更改。如果工作簿尚未命名,则使用 Filename。如果省略 Filename,则要求用户提供文件名。
Filename
可选 Variant 以此文件名保存所做的更改。
RouteWorkbook
可选 Variant 如果工作簿不需要传送给下一个收件人(没有传送名单或已经传送),则忽略此参数。否则,Microsoft Excel 根据此参数的值传送工作簿。如果设为 True,则将工作簿传送给下一个收件人。如果设为 False,则不发送工作簿。如果忽略,则要求用户确认是否发送工作簿。
返回值
如果该方法成功关闭对象,则为 True,否则为 False

CLSID

返回一个只读的唯一标识符,或识别对象的 CLSIDString 类型。
语法
表达式.CLSID
表达式   一个代表 AddIn 对象的变量。

CodeName

返回指定对象的代码名
本示例显示第一张工作表的代码名。
MsgBox Worksheets(1).CodeName

CodeName

返回指定对象的代码名
对于一个返回指定对象的表达式,该表达式可使用对象的代码名。例如,如果第一张工作表的代码名为 Sheet1,则下列表达式是等价的。
Worksheets(1).Range("a1")
Sheet1.Range("a1")
本示例显示第一张工作表的代码名。
MsgBox Worksheets(1).CodeName

CodeName

返回指定对象的代码名。
本示例显示第一张工作表的代码名。
MsgBox Worksheets(1).CodeName

Color

返回或设置对象的主要颜色,可用 RGB 函数创建颜色值。
本示例对 Chart1 中数值坐标轴的刻度线标志颜色进行设置。
Charts("Chart1").Axes(xlValue).TickLabels.Font.Color = _
    RGB(0, 255, 0)

Color

返回或设置对象的主要颜色,如注释部分中的表格所示。使用 RGB 函数可创建颜色值。Variant 型,可读写。

ColorIndex

返回或设置四条边框的颜色。
本示例为 Chart1 中数值坐标轴的主要网格线设置了颜色。
With Charts("Chart1").Axes(xlValue)
    If .HasMajorGridlines Then
        .MajorGridlines.Border.ColorIndex = 5    'set color to blue
    End If
End With

ColorIndex

返回或设置字体的颜色。
本示例将 Sheet1 A1 单元格的字体颜色改为红色。
Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3

ColorIndex

返回或设置边框内部的颜色。
本示例将 Chart1 的图表区域内部颜色设为红色,将其边框的颜色设为蓝色。
With Charts("Chart1").ChartArea
    .Interior.ColorIndex = 3
    .Border.ColorIndex = 5
End With

ColorIndex

返回或设置一个 Variant 值,它代表边框的颜色。

ColorIndex

返回或设置一个 Variant 值,它代表指定的工作表或图表选项卡的颜色。

Colors

返回或设置工作簿调色板中的颜色。
本示例使活动工作簿的调色板与工作簿 Book2.xls 的调色板相同。
ActiveWorkbook.Colors = Workbooks("BOOK2.XLS").Colors
本示例设置活动工作簿调色板的第五号颜色。
ActiveWorkbook.Colors(5) = RGB(255, 0, 0)

ColorType

返回或设置应用于指定图片或 OLE 对象的颜色转换类型。MsoPictureColorType 类型,可读写。

Column

返回指定区域中第一块中的第一列的列号
本示例将工作表 Sheet1 上每隔一列的列宽设置为 4 磅。
For Each col In Worksheets("Sheet1").Columns
    If col.Column Mod 2 = 0 Then
        col.ColumnWidth = 4
    End If
Next col

Column3DGroup

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

ColumnDifferences

返回一个Range对象,该对象代表每列中所有与比较单元格内容不同的单元格
本示例选定工作表 Sheet1 A 列中与单元格 A4 内容不同的单元格。
Worksheets("Sheet1").Activate
Set r1 = ActiveSheet.Columns("A").ColumnDifferences( _
    Comparison:=ActiveSheet.Range("A4"))
r1.Select

ColumnFields

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

ColumnGrand

如果数据透视表显示列总计,则该属性值为 TrueBoolean 类型,可读写。

ColumnGroups

在二维图表上,本方法返回代表单个柱形图图表组或所有柱形图图表组的集合的对象。
本示例将二维柱形图图表组中各柱形簇之间的距离设置为柱形宽度的 50%
Charts(1).ColumnGroups(1).GapWidth = 50

ColumnRange

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

Columns

返回一个Range对象,该对象代表活动工作表中的所有列
本示例将Sheet1的第一列(A列)的字体设置为加粗。
Worksheets("Sheet1").Columns(1).Font.Bold = True
 
本示例将“myRange”区域第一列中每一单元格的值置为 0(零〕。
Range("myRange").Columns(1).Value = 0

Columns

返回一个 Range 对象,该对象代表指定工作表上的所有列
本示例将 Sheet1 的第一列(A 列)的字体设置为加粗。
Worksheets("Sheet1").Columns(1).Font.Bold = True
本示例将“myRange”区域第一列中每一单元格的值置为 0(零〕。
Range("myRange").Columns(1).Value = 0

Columns

返回 Range 对象,该对象代表指定单元格区域中的列
本示例将“myRange”区域第一列中每一单元格的值置为 0(零〕。
Range("myRange").Columns(1).Value = 0

ColumnWidth

返回或设置指定区域中所有列的列宽
本示例使工作表 Sheet1 A 列的列宽加倍。
With Worksheets("Sheet1").Columns("A")
    .ColumnWidth = .ColumnWidth * 2
End With

COMAddIns

返回 Microsoft Excel COMAddIns 集合,它代表当前所安装的 COM 加载宏
本示例显示当前已安装的COM加载宏的数目
Set objAI = Application.COMAddIns
MsgBox "Number of COM add-ins available:" & _
    objAI.Count

Combin

返回从给定的项目数中提取若干项目的组合数。使用 Combin 可以确定给定的项目数中所有可能的项目组合数。

Command

返回命令行的参数部分,该命令行用于装入 Microsoft Visual Basic Visual Basic 开发的可执行程序。Visual Basic Command 函数在 Microsoft Office 应用程序中不可用。
语法
Command
说明
当从命令行装入 Visual Basic 时,/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中,cmdlineargs 代表 Command 函数返回的参数信息。

CommandBar

CommandBar 对象是 CommandBars 集合的成员。
代表容器应用程序中的一个命令栏

CommandBars

返回 CommandBars 对象,该对象代表 Microsoft Excel 命令栏
本示例删除所有不可见的自定义命令栏。
For Each bar In Application.CommandBars
    If Not bar.BuiltIn And Not bar.Visible Then bar.Delete
Next

CommandBars

代表容器应用程序中命令栏的 CommandBar 对象的集合。

CommandText

返回或设置指定数据源的命令串。Variant 型,可读写。

CommandType

返回或设置说明部分的下表中列出的 XlCmdType 常量之一。返回或设置的常量用于描述 CommandText 属性的值。默认值为 xlCmdSQLXlCmdType 类型,可读写。

CommandUnderlines

返回或设置 Microsoft Excel for the Macintosh 中命令加下划线的状态
本示例关闭 Microsoft Excel for the Macintosh 中的命令加下划线。
Application.CommandUnderlines = xlCommandUnderlinesOff

Comment

返回一个Comment对象,该对象代表与该区域左上角单元格相关联的批注
本示例设置 Sheet1 中第一个方案的批注。
Worksheets("Sheet1").Scenarios(1).Comment = _
    "Worst case July 1993 sales"

Comment

返回或设置与名称关联的批注。可读/ String 类型。
语法
表达式.Comment
表达式   一个代表 Name 对象的变量。

Comment

返回或设置一个 String 值,它代表与方案相关联的批注。

Comments

返回 Comments 集合,该集合代表指定工作表中所有的批注
本示例将活动工作表中所有由 Jean Selva 所做的批注删除。
For Each c in ActiveSheet.Comments
    If c.Author = "Jean Selva" Then c.Delete
Next

Comments

单元格批注的集合

CompactLayoutColumnHeader

指定透视数据表在压缩行布局表单中时标题中显示的标题。可读写 String

CompactLayoutRowHeader

指定透视数据表在压缩行布局表单中时行标题中显示的标题。可读写 String

CompactRowIndent

当启用压缩行布局表单时,返回或设置透视项目的缩进增量。可读写。

CompareSideBySideWith

以并排模式打开两个窗口
expression.CompareSideBySideWith
expression
必需。该表达式返回应用于列表中的对象之一
说明
不能对 Application 对象或 ActiveWorkbook 属性使用 CompareSideBySideWith 方法。

Complex

将实系数及虚系数转换为 x + yi x + yj 形式的复数。

Confidence

返回一个值,可使用该值构造总体平均值的置信区间。

ConflictResolution

返回或设置更新共享工作簿时解决冲突的方式
本示例使共享工作簿有冲突时总是接受本地用户所做的修改。
ActiveWorkbook.ConflictResolution = xlLocalSessionChanges

Connect

获取或设置指定的 COMAddIn 对象的连接状态。可读/写。

Connection

返回或设置包含下列某项的字符串:允许 Microsoft Excel 连接到 OLE DB 数据源的 OLE DB 设置;允许 Microsoft Excel 连接到 ODBC 数据源的 ODBC 设置;允许 Microsoft Excel 连接到 Web 数据源的 URL;或者文本文件的名称或路径,或是指定某个数据库或 Web 查询的文件名称或路径。Variant 型,可读写。

ConnectionSiteCount

返回指定形状中的连接部位的数量。Long 型,只读。
语法
表达式.ConnectionSiteCount
表达式   一个返回 Shape 对象的表达式。

Connector

如果指定的形状是连接符,则此属性为 TrueMsoTriState 类型,只读。
语法
表达式.Connector
表达式   一个返回 Shape 对象的表达式。

ConnectorFormat

返回一个包含连接符格式属性的 ConnectorFormat 对象。应用于代表连接符的 Shape 对象。只读。
语法
表达式.ConnectorFormat
表达式   一个返回 Shape 对象的表达式。

Consolidate

将若干工作表中若干区域的数据合并计算至单个工作表上的单个区域
本示例使用 SUM 函数对工作表 Sheet 2 和工作表 Sheet 3 的数据进行合并计算,将结果放到工作表 Sheet1 中。
Worksheets("Sheet1").Range("A1").Consolidate _
    Sources:=Array("Sheet2!R1C1:R37C6", "Sheet3!R1C1:R37C6"), _
    Function:=xlSum

ConsolidationFunction

返回当前合并运算所使用的函数代码
如果当前合并计算所使用的函数为 SUM 函数,本示例将显示一消息框。
If Worksheets("Sheet1").ConsolidationFunction = xlSum Then
    MsgBox "Sheet1 uses the SUM function for consolidation."
End If

ConsolidationOptions

返回表示合并计算选项的三元素数组
本示例显示工作表Sheet1中合并计算的选项。选项列表将出现在本示例新建的工作表中。
Set newSheet = Worksheets.Add
aOptions = Worksheets("Sheet1").ConsolidationOptions
newSheet.Range("A1").Value = "Use labels in top row"
newSheet.Range("A2").Value = "Use labels in left column"
newSheet.Range("A3").Value = "Create links to source data"
For i = 1 To 3
    If aOptions(i) = True Then
        newSheet.Cells(i, 2).Value = "True"
    Else
        newSheet.Cells(i, 2).Value = "False"
    End If
Next i
newSheet.Columns("A:B").AutoFit

ConsolidationSources

返回一个字符串数组,这些字符串是工作表中当前合并计算的数据源的名称
本示例显示在工作表Sheet1中用于合并计算的数据源的名称。名称列表将出现在本示例新建的工作表中。
Set newSheet = Worksheets.Add
newSheet.Range("A1").Value = "Consolidation Sources"
aSources = Worksheets("Sheet1").ConsolidationSources
If IsEmpty(aSources) Then
    newSheet.Range("A2").Value = "none"
Else
    For i = 1 To UBound(aSources)
        newSheet.Cells(i + 1, 1).Value = aSources(i)
    Next i
End If
newSheet.Columns("A:B").AutoFit

Const

声明用于代替文字量的常数。
语法
[Public | Private] Const constname [As type] = expression
Public
可选的。该关键字用于在模块级别中声明在所有模块中对所有过程都可以使用的常数。在过程中不能使用。
Private
可选的。该关键字用于在模块级声明只能在包含该声明的模块中使用的常数。不能在过程中使用。
constname
必需的。常数的名称;遵循标准的变量命名约定。
type
可选的。常数的数据类型;可以是 Byte Boolean IntegerLongCurrencySingleDoubleDecimal(目前尚不支持)、DateString Variant。所声明的每个变量都要使用一个单独的 As 类型子句。
expression
必需的。文字,其它常数,或由除 Is 之外的任意的算术操作符和逻辑操作符所构成的任意组合。

ConstrainNumeric

如果手写识别程序只能识别数字和标点符号,则该值为 TrueBoolean 类型
本示例监测是否运行在 Microsoft Windows for Pen Computing 上,如果是,则限定手写识别程序仅识别数字和标点符号。
If Application.WindowsForPens Then
    Application.ConstrainNumeric = True
End If

Container

回一个对象,此对象包含指定 OLE 对象的容器应用程序
此属性提供了一种在主机应用程序内(如 Microsoft Internet Explorer)打开 Excel 工作簿时访问容器应用程序对象模型的方法。

Context

获取或设置一个可确定命令栏保存位置的字符串。该字符串由应用程序定义和解释。可读写。
语法
表达式.Context
表达式   一个代表 CommandBar 对象的变量。

Contrast

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

ControlCharacters

如果 Microsoft Excel 显示从右到左语言的控制字符,则该值为 True
本示例设置 Microsoft Excel 使其解释控制字符。
Application.ControlCharacters = True

ControlFormat

返回或设置一个 MsoTriState 值,它确定对象是否可见。可读写。包含 Microsoft Excel 控件属性

ControlFormat

返回一个 ControlFormat 对象,该对象包含 Microsoft Excel 控件 Microsoft Excel 控件:Excel 本身具有的控件,而不是 ActiveX 控件。)属性。只读。
语法
表达式.ControlFormat
表达式   一个代表 Shape 对象的变量。

Controls

获取一个代表命令栏上的所有控件的 CommandBarControls 对象。只读。
语法
表达式.Controls
表达式   一个代表 CommandBar 对象的变量。
返回值
CommandBarControls

Convert

将数字从一个度量系统转换为另一个度量系统。例如,Convert 可以将一个以英里为单位的距离表转换成一个以公里为单位的距离表。

ConvertFormula

A1 R1C1 引用样式之间进行转换,或者在相对和绝对引用之间进行转换,或者同时进行这两种转换
本示例将包含 R1C1-样式引用的 SUM 公式转换为包含 A1-样式引用的等价公式,然后显示转换结果。
inputFormula = "=SUM(R10C2:R15C2)"
MsgBox Application.ConvertFormula( _
    formula:=inputFormula, _
    fromReferenceStyle:=xlR1C1, _
    toReferenceStyle:=xlA1)

ConvertToFormulas

ConvertToFormulas 方法是 1st_Excel12 中的新方法,可用于将数据透视表转换为多维数据集公式。可读/ Boolean 类型。

Copy

将指定工作表复制到工作簿的另一位置
本示例复制工作表 Sheet1,并将其放置在工作表 Sheet3 之后。
Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

Copy

将单元格区域复制到指定的区域或剪贴板中
本示例将工作表 Sheet1 上单元格区域 A1:D4 中的公式复制到工作表 Sheet2 上的单元格区域 E5:H8 中。
Worksheets("Sheet1").Range("A1:D4").Copy _
destination:=Worksheets("Sheet2").Range("E5")

Copy

将指定工作表复制到工作簿的另一位置。
本示例复制工作表 Sheet1,并将其放置在工作表 Sheet3 之后。
Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

Copy

将工作表复制到工作簿的另一位置。

Copy

将对象复制到剪贴板。
语法
表达式.Copy
表达式   一个代表 Shape 对象的变量。

Copy

将对象复制到剪贴板。

Copy

将工作表复制到工作簿的另一位置。
语法
表达式.Copy(Before, After)
表达式   一个代表 Charts 对象的变量。
参数
名称 必选/可选 数据类型 描述
Before
可选 Variant 将要在其之前放置所复制工作表的工作表。如果指定了 After,则不能指定 Before
After
可选 Variant 将要在其之后放置所复制工作表的工作表。如果指定了 Before,则不能指定 After

Copy

如果系列具有图片填充,此方法将把图片复制到剪贴板。

Copy

如果数据点具有图片填充,此方法将把图片复制到剪贴板中。

CopyFromRecordset

将一个 ADO DAO Recordset 对象的内容复制到工作表中,复制的起始位置在指定区域的左上角
本示例将 DAO Recordset 对象中的字段名称复制到工作表的第一行中,并将这些名称的格式设为加粗。然后,本示例将记录集复制到工作表中,复制的起始位置在 A2 单元格。
For iCols = 0 to rs.Fields.Count - 1
    ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1),  _
    ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs

CopyObjectsWithCells

如果对象与单元格一同剪切、复制、提取和排序,则该值为 True
本示例设置 Microsoft Excel 将单元格与对象一同剪切、复制、提取和排序。
Application.CopyObjectsWithCells = True

CopyPicture

将选定对象作为图片复制到剪贴板
本示例将工作表 Sheet1 A1:D4 单元格的屏幕图像复制到剪贴板,并将其位图粘贴到工作表 Sheet1 上的另一位置。
Worksheets("Sheet1").Range("A1:D4").CopyPicture xlScreen, xlBitmap
Worksheets("Sheet1").Paste _
Destination:=Worksheets("Sheet1").Range("E6")

CopyPicture

将选定对象作为图片复制到剪贴板。
本示例将工作表 Sheet1 A1:D4 单元格的屏幕图像复制到剪贴板,并将其位图粘贴到工作表 Sheet1 上的另一位置。
Worksheets("Sheet1").Range("A1:D4").CopyPicture xlScreen, xlBitmap
Worksheets("Sheet1").Paste _
    Destination:=Worksheets("Sheet1").Range("E6")

CopyPicture

将所选对象作为图片复制到剪贴板。
语法
表达式.CopyPicture(Appearance, Format)
表达式   一个代表 Shape 对象的变量。
参数
名称 必选/可选 数据类型 描述
Appearance
可选 Variant 用于指定图片复制方式的 XlPictureAppearance 常量。默认值为 xlScreen
Format
可选 Variant 用于指定图片格式的 XlCopyPictureFormat 常量。默认值为 xlPicture

CopyPicture

将所选对象作为图片复制到剪贴板。Variant

CopyPicture

将所选对象作为图片复制到剪贴板。

Corners

返回一个 Corners 对象,该对象代表三维图表的角。
本示例选定 Chart1 的角。本示例应在三维图表上运行(在其他类型的图表上 Select 方法无效)。
With Charts("Chart1")
    .Activate
    .Corners.Select
End With

CorrectCapsLock

如果 Microsoft Excel 自动更正无意中使用 Caps Lock 键,则该属性值为 TrueBoolean 类型,可读写。
语法
表达式.CorrectCapsLock
表达式   一个代表 AutoCorrect 对象的变量。

CorrectSentenceCap

如果 Microsoft Excel 自动更正句子(第一个单词)的大写,则该属性值为 TrueBoolean 类型,可读写。
语法
表达式.CorrectSentenceCap
表达式   一个代表 AutoCorrect 对象的变量。

Correl

返回单元格区域 Arg1 Arg2 的相关系数。

Cos

返回一个 Double,指定一个角的余弦值。
语法
Cos(number)
必要的 number 参数是一 Double 或任何有效的数值表达式,表示一个以弧度为单位的角。

Cosh

返回数字的双曲余弦值。

Count

返回一个 Long 值,它代表集合中对象的数量。
语法
表达式.Count
表达式   一个代表 Dialogs 对象的变量。

Count

返回指定集合中对象的数目
本示例显示Sheet1上选定区域中的列数。本示例还将检测选定区域中是否包含多重选定区域,如果包含,则对多重选定区域中每一子区域进行循环。
Sub DisplayColumnCount()
    Dim iAreaCount As Integer
    Dim i As Integer
    Worksheets("Sheet1").Activate
    iAreaCount = Selection.Areas.Count

    If iAreaCount <= 1 Then
        MsgBox "The selection contains " & Selection.Columns.Count & " columns."
    Else
        For i = 1 To iAreaCount
            MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
        Next i
    End If
End Sub

Count

返回指定集合中对象的数目
expression.Count
expression
必需。该表达式返回应用于列表中的对象之一。

Count

返回指定集合中对象的数目
本示例显示Sheet1上选定区域中的列数。本示例还将检测选定区域中是否包含多重选定区域,如果包含,则对多重选定区域中每一子区域进行循环。
Sub DisplayColumnCount()
    Dim iAreaCount As Integer
    Dim i As Integer
    Worksheets("Sheet1").Activate
    iAreaCount = Selection.Areas.Count
    If iAreaCount <= 1 Then
        MsgBox "The selection contains " & Selection.Columns.Count & " columns."
    Else
        For i = 1 To iAreaCount
            MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
        Next i
    End If
End Sub

Count

返回指定集合中对象的数目
本示例显示 Sheet1 上选定区域中的列数。本示例还将检测选定区域中是否包含多重选定区域,如果包含,则对多重选定区域中每一子区域进行循环
Sub DisplayColumnCount()
    Dim iAreaCount As Integer
    Dim i As Integer
    Worksheets("Sheet1").Activate
    iAreaCount = Selection.Areas.Count
    If iAreaCount <= 1 Then
        MsgBox "The selection contains " & Selection.Columns.Count & " columns."
    Else
        For i = 1 To iAreaCount
            MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
        Next i
    End If
End Sub

Count

返回指定集合中对象的数目。
expression.Count
expression
必需。该表达式返回应用于列表中的对象之一。

Count

获取宿主应用程序中 COM 加载项的数量。只读。

Count

获取宿主应用程序中的命令栏数量。只读。
语法
表达式.Count
表达式   一个返回 CommandBars 对象的表达式。

Count

计算包含数字的单元格的个数,以及参数列表中的数字的个数。

Count

返回一个 Long 值,它代表集合中对象的数量。

Count

返回一个 Long 值,它代表集合中对象的数量。
语法
表达式.Count
表达式   一个代表 Shapes 对象的变量。

Count

返回一个 Integer 值,它代表集合中对象的数量。

Count

返回一个 Long 值,它代表集合中对象的数量。
语法
表达式.Count
表达式   一个代表 Comments 对象的变量。

Count

返回集合中对象的数目。只读 Long 类型。

Count

返回一个 Long 值,它代表集合中对象的数量。
语法
表达式.Count
表达式   一个代表 Charts 对象的变量。

Count

获取一个 Long 类型的值,指示 DocumentProperties 集合中的项数。只读。

CountA

计算非空单元格及参数列表中值的个数。

CountBlank

计算指定单元格区域中空单元格的个数。

CountIf

计算区域中满足给定条件的单元格的个数。

CountIfs

计算区域中满足多个条件的单元格的个数。

CoupDayBs

返回从息票期开始到结算日的天数。

CoupDays

返回结算日所在的息票期的天数。

CoupDaysNc

返回从结算日到下一个息票日之间的天数。

CoupNcd

返回一个代表结算日之后下一个息票日的数字。

CoupNum

返回在结算日和到期日之间支付息票的次数,向上舍入到最接近的整数。

CoupPcd

 

Covar

返回协方差,即每对数据点的偏差乘积的平均数。

Create

创建新的 PivotCache

CreateBackup

如果保存文件时创建备份文件,则该值为 True
本示例检查在保存当前工作簿时是否创建备份文件。如果创建,则显示一条信息。
If ActiveWorkbook.CreateBackup = True Then
    MsgBox "Remember, there is a backup copy of this workbook"
End If

CreateCubeFile

创建数据透视表的多维数据集文件,该数据透视表与联机分析处理 (OLAP) 数据源相连接。

CreateNames

在指定区域中依据工作表中的文字标志创建名称
本示例用单元格区域 A1:A3 中的文字创建区域 B1:B3 的名称。注意,指定区域时必须包括那些含有名称文字的单元格,即便只是为单元格区域 B1:B3 创建名称。
Set rangeToName = Worksheets("Sheet1").Range("A1:B3")
rangeToName.CreateNames Left:=True

CreateNewDocument

新建一篇链接到指定超链接的文档。

CreateObject

创建并返回一个对 ActiveX 对象的引用。
语法
CreateObject(class,[servername])
class
必需的; Variant (String). 要创建的应用程序名称和类。
servername
可选的; Variant (String). 要在其上创建对象的网络服务器名称。如果servername 是一个空字符串(""),即使用本地机器。

CreatePivotFields

CreatePivotFields 方法是 1st_Excel12 中的新方法。使用该方法,通过创建相应的 PivotField 对象,用户可以对尚未添加到数据透视表的透视字段应用筛选。

CreatePivotTable

创建一个基于 PivotCache 对象的数据透视表。返回一个 PivotTable 对象。

CreatePublisher

您已经请求了仅用于 Macintosh 上的 Visual Basic 关键字的帮助信息。有关该关键字的详细信息,请参阅 Microsoft Office Macintosh 版本所附带的语言引用帮助。

CreateSummary

新建一个工作表,并在其中显示指定工作表中所有方案的摘要报表。Variant 类型。

Creator

返回一个32位的整数,此整数代表用于创建该对象的应用程序
本示例显示一条有关 Excel 工作簿的创建者的消息。
Sub FindCreator()
    Dim myObject As Excel.Workbook
    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
End Sub

Creator

返回一个 32 位的整数,此整数代表用于创建该对象的应用程序
本示例显示一条有关 Excel 工作簿的创建者的消息。
Sub FindCreator()
    Dim myObject As Excel.Workbook
    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
End Sub

Creator

获取一个 32 位整数,该整数指示在其中创建 Assistant 对象的应用程序。只读。

Creator

获取一个 32 位整数,指示创建 COMAddIns 对象时所使用的应用程序。只读。

Creator

获取一个 32 位整数,指示创建 COMAddIn 对象时所使用的应用程序。只读。

Creator

获取一个 32 位整数,指示创建 CommandBars 对象时所使用的应用程序。只读。
语法
表达式.Creator
表达式   一个代表 CommandBars 对象的变量。

Creator

获取一个 32 位整数,指示创建 CommandBar 对象时所使用的应用程序。只读。
语法
表达式.Creator
表达式   一个代表 CommandBar 对象的变量。
返回值
Long

Creator

获取一个 32 位整数,指示创建 LanguageSettings 对象时所使用的应用程序。只读。

Creator

返回一个 32 位整数,该整数指示在其中创建此对象的应用程序。只读 Long 类型。

Creator

获取一个 32 位整数,指示创建 DocumentProperties 对象时所使用的应用程序。只读。

Creator

获取一个 32 位整数,指示创建 DocumentProperty 对象时所使用的应用程序。只读。

CritBinom

返回使累积二项式分布大于或等于临界值的最小值。

Criteria1

返回筛选区域内指定列上的第一个筛选值。Variant 类型,只读。

Criteria2

返回已筛选区域中指定列的第二个筛选值。Variant 类型,只读。

CropBottom

返回或设置从指定图片或 OLE 对象的底部所裁剪下的磅数。Single 型,可读写。

CropLeft

返回或设置从指定图片或 OLE 对象的左边所裁剪下的磅数。Single 型,可读写。

CropRight

返回或设置从指定图片或 OLE 对象的右边所裁剪下的磅数。Single 型,可读写。

CropTop

返回或设置从指定图片或 OLE 对象的顶部所裁剪下的磅数。Single 型,可读写。

Crosses

返回或设置指定坐标轴与其他坐标轴相交的点。Long 类型,可读写。

CrossesAt

返回或设置数值轴中与分类坐标轴的交点。仅应用于数值轴。Double 类型,可读写。

CSng

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CSng(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

CStr

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CStr(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

CubeField

返回派生出指定数据透视表字段的 CubeField 对象。只读。

CubeFields

返回 CubeFields 集合。每个 CubeField 对象都包含多维数据集字段元素的属性。只读。

CubeFieldSubType

指定 CubeField 的类型。只读。

CubeFieldType

表明 OLAP 多维数据集字段是层次字段,还是度量值字段。可以是 XlCubeFieldType 常量之一。

CumIPmt

返回一笔贷款在 start_period end_period 期间累积支付的利息。

CumPrinc

返回一笔贷款在 start_period end_period 期间累积支付的本金。

CurDir

返回一个 Variant (String),用来代表当前的路径。
语法
CurDir[(drive)]
可选的 drive 参数是一个字符串表达式,它指定一个存在的驱动器。如果没有指定驱动器,或 drive 是零长度字符串 (""),则 CurDir 会返回当前驱动器的路径。 Macintosh上,CurDir 忽略任何指定的 drive ,并只简单地返回当前驱动器的路径。

CurrentArray

如果指定的单元格是某数组的一部分,那么本属性返回代表整个数组的 Range 对象
假定工作表 Sheet1 的活动单元格为 A1,且该单元格属于包含单元格区域 A1:A10 的数组,那么本示例将选定工作表 Sheet1 上的单元格区域 A1:A10
ActiveCell.CurrentArray.Select

CurrentPage

返回或设置页字段的当前页显示(仅对页字段有效)。PivotItem 类型,可读写。

CurrentPageList

返回或设置对应于项目列表的字符串数组,该项目列表包含于数据透视表的多项目页字段中。Variant 类型,可读写。

CurrentPageName

返回或设置 CubeField 的页面名称。可读/ String 类型。

CurrentPageName

返回或设置指定数据透视表上的当前显示页。该页名称将出现在页字段中。注意,只有当已存在当前显示页时,本属性才有效。String 类型,可读写。

CurrentRegion

返回 Range 对象,该对象代表当前的区域
本示例选定工作表 Sheet1 上的当前区域。
Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select

Cursor

返回或设置Microsoft Excel中鼠标指针的形状
本示例将鼠标指针形状更改为 I 形,稍停片刻,然后将其重新变为默认指针形状。
Sub ChangeCursor()
    Application.Cursor = xlIBeam
    For x = 1 To 1000
        For y = 1 to 1000
        Next y
    Next x
    Application.Cursor = xlDefault
End Sub

CursorMovement

返回或设置一个值,此值用于表明使用的是可见光标还是逻辑光标
本示例设置 Microsoft Excel 使用可见光标。
Application.CursorMovement = xlVisualCursor

CustomDocumentProperties

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

CustomListCount

返回已定义的自定义序列的数目
本示例显示当前已定义的自定义序列的数目。
MsgBox "There are currently " & Application.CustomListCount & _
    " defined custom lists."

CustomProperties

返回一个 CustomProperties 对象,该对象代表了与工作表相关的标识符信息
在本示例中,Microsoft Excel 向活动工作表中添加标识符信息,并将名称和值返回给用户。
Sub CheckCustomProperties()
    Dim wksSheet1 As Worksheet
    Set wksSheet1 = Application.ActiveSheet
    ' Add metadata to worksheet.
    wksSheet1.CustomProperties.Add _
        Name:="Market", Value:="Nasdaq"
    ' Display metadata.
    With wksSheet1.CustomProperties.Item(1)
        MsgBox .Name & vbTab & .Value
    End With
End Sub

CustomViews

返回一个 CustomViews 集合,该集合代表指定工作簿的所有自定义视图
本示例在活动工作簿中新建一个自定义视图,并命名为“Summary”
ActiveWorkbook.CustomViews.Add "Summary", True, True

CustomViews

自定义工作簿视图的集合

Cut

将对象剪切到剪贴板,或者将其粘贴到特定的目的地
本示例将工作表 Sheet1 上的 A1:G37 区域剪下,并放入剪贴板。
Worksheets("Sheet1").Range("A1:G37").Cut

Cut

将对象剪切到剪贴板。
语法
表达式.Cut
表达式   一个代表 Shape 对象的变量。
返回值
Nothing

Cut

将对象剪切到剪贴板。

Cut

将对象剪切到剪贴板,或者将其粘贴到指定的目的地。

CutCopyMode

返回或设置剪切或复制模式的状态
本示例在消息框中显示剪切或复制模式的状态
Select Case Application.CutCopyMode
    Case Is = False
        MsgBox "Not in Cut or Copy mode"
    Case Is = xlCopy
        MsgBox "In Copy mode"
    Case Is = xlCut
        MsgBox "In Cut mode"
End Select

Cvar

类型转换函数可以强制将一个表达式转换成某种特定数据类型。
语法
CVar(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

CVErr

返回 Error 子类型的 Variant,其中包含指定的错误号。
语法
CVErr(errornumber)
必要的 errornumber 参数可以是任何有效的错误号代码。
说明
可以在过程中,使用 CVErr 函数来创建用户自定义错误。例如,如果创建一个函数,它可以接受若干个参数,且正常返回一个字符串,则可以让函数来判断输入的参数,确认它们是在可接受的范围内。如果不是的话,此函数将不会返回所要的字符串。在这种情况下,CVErr 可以返回一个错误号,并告知应该采取的行动。


  • 0
    点赞
  • 0
    评论
  • 4
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 成长之路 设计师:Amelia_0503 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值