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 | 如果日期名称的第一个字母自动大写，则该属性值为 True。Boolean 类型，可读写。
语法
表达式.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 对象，可使用其 Borders、Font 或 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 | 如果在页面的水平居中位置打印指定工作表，则该属性值为 True。Boolean 类型，可读写。 |
CenterVertically | 如果在页面的垂直居中位置打印指定工作表，则该属性值为 True。Boolean 类型，可读写。 |
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。默认值为 True。Boolean 类型，可读写。 |
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 | 如果指定的形状是子形状，或者如果形状区域中的所有形状都是同一个父形状的子形状，则返回 msoTrue。MsoTriState 类型，只读。
语法
表达式.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 | 返回一个只读的唯一标识符，或识别对象的 CLSID。String 类型。
语法
表达式.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 | 如果数据透视表显示列总计，则该属性值为 True。Boolean 类型，可读写。 |
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 属性的值。默认值为 xlCmdSQL。XlCmdType 类型，可读写。 |
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 | 如果指定的形状是连接符，则此属性为 True。MsoTriState 类型，只读。
语法
表达式.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 、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String 或 Variant。所声明的每个变量都要使用一个单独的 As 类型子句。
expression 必需的。文字，其它常数，或由除 Is 之外的任意的算术操作符和逻辑操作符所构成的任意组合。 |
ConstrainNumeric | 如果手写识别程序只能识别数字和标点符号，则该值为 True。Boolean 类型
本示例监测是否运行在 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 键，则该属性值为 True。Boolean 类型，可读写。
语法
表达式.CorrectCapsLock
表达式 一个代表 AutoCorrect 对象的变量。 |
CorrectSentenceCap | 如果 Microsoft Excel 自动更正句子（第一个单词）的大写，则该属性值为 True。Boolean 类型，可读写。
语法
表达式.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 可以返回一个错误号，并告知应该采取的行动。 |
1891
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
