Excel VBA属性、方法、事件大全——Part12（Complete List of Excel VBA attribute/method and event）

对象/属性/方法/事件 （Object/Attribute/ Method/Event）	描述 （Description）
QBColor	返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。 语法 QBColor(color) 必要的 color 参数是一个界于 0 到 15 的整型。
Quartile	返回数据集的四分位数。四分位数通常用于在销售额和测量数据中对总体进行分组。例如，可以使用函数 QUARTILE 求得总体中前 25% 的收入值。
QueryTable	返回一个 QueryTable 对象，该对象代表与指定 Range 对象相交的查询表 本示例刷新与第一张工作表上的 A10 单元格相交的 QueryTable 对象。 Worksheets(1).Range("a10").QueryTable.Refresh
QueryTables	返回 QueryTables 集合，该集合代表指定工作表中的所有查询表 本示例刷新第一张工作表上的所有查询表。 For Each qt in Worksheets(1).QueryTables     qt.Refresh Next 本示例对查询表一进行设置，每当查询表刷新时就自动更新右侧的公式。 Sheets("sheet1").QueryTables(1).FillAdjacentFormulas = True
QueryType	可表示 Microsoft Excel 生成查询表时所使用的查询类型。XlQueryType 类型，只读。
QueryType	可表示 Microsoft Excel 在生成数据透视表缓存时所使用的查询类型。XlQueryType 类型，只读。
Quit	退出 Microsoft Excel 本示例保存所有打开的工作簿，然后退出 Microsoft Excel。 For Each w In Application.Workbooks     w.Save Next w Application.Quit
Quotient	返回商的整数部分，该函数可用于舍掉商的小数部分。
RadarAxisLabels	返回一个 TickLabels 对象，该对象表示指定图表组的雷达图坐标轴标签。只读。
RadarGroups	返回代表二维图表上单个雷达图图表组或雷达图图表组集合的对象 本示例设置 Chart1 中的第一个雷达图组，使其中的每一数据标志都使用不同的颜色。本示例应在二维图表上运行。 Charts("Chart1").RadarGroups(1).VaryByCategories = True
Radians	将度转换为弧度。
RadioGroupSelection	设置或返回一个 Long，代表在智能文档的一组单选按钮控件中选定的项目的索引号。可读写。
RaiseEvent	引发在一个类、窗体、或者文档中的模块级中声明的一个事件。 语法 RaiseEvent eventname [(argumentlist)] 必需的 eventname 是在模块 中声明的，并且符合 Basic 变量命名约定的一个事件的名称。 Eventname 必需的。所引发的事件的名称。 Argumentlist 可选的。用逗号分隔的变量、数组，或者表达式的列表。argumentlist 必须用圆括号括起来。如果没有参数，则圆括号必须被忽略。
RandBetween	返回介于指定的两个数字之间的一个随机整数。每次计算工作表时都将返回一个新的随机整数。
Randomize	初始化随机数生成器。 语法 Randomize [number] 可选的 number 参数是 Variant 或任何有效的数值表达式。
Range	返回一个Range对象，该对象代表一个单元格或单元格区域 本示例在 Sheet1 的 A1 单元格中创建一个公式。 Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()" 本示例在 Sheet1 的单元格区域 A1:D10 上进行循环。如果某个单元格的值小于 0.001，则此代码将用 0（零）来取代该值。 For Each c in Worksheets("Sheet1").Range("A1:D10")     If c.Value < .001 Then         c.Value = 0     End If Next c
Range	代表某一单元格、某一行、某一列、某一选定区域（该区域可包含一个或若干连续单元格区域），或者某一三维区域。
Range	返回一个 Range 对象，该对象代表一个单元格或单元格区域 本示例在 Sheet1 的单元格区域 A1:D10 上进行循环。如果某个单元格的值小于 0.001，则此代码将用 0（零）来取代该值。 For Each c in Worksheets("Sheet1").Range("A1:D10")     If c.Value < .001 Then         c.Value = 0     End If Next c
Range	代表某一单元格、某一行、某一列、某一选定区域（该区域可包含一个或若干连续单元格区域），或者某一三维区域 Range 集合用法 本部分将说明下列返回 Range 对象的属性和方法： Range 属性 Cells 属性 Range 和 Cells Offset 属性 Union 方法
Range	返回一个 Range 对象，该对象代表一个单元格或单元格区域 本示例将 Sheet1 上 A1 单元格的值设置为 3.14159。 Worksheets("Sheet1").Range("A1").Value = 3.14159 本示例在 Sheet1 的 A1 单元格中创建一个公式。 Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"
Range	返回一个 Range 对象，它代表附加的指定超链接的区域。
Range	返回一个 ShapeRange 对象，它代表 Shapes 集合中形状的子集。 语法 表达式.Range(Index) 表达式   一个代表 Shapes 对象的变量。 参数 名称 必选/可选 数据类型 描述 Index 必选 Variant 包含在该区域中的各单个形状。可以是指定形状索引号的整数、指定形状名称的字符串，也可以是包含整数或字符串的数组。
Range	返回一个 Range 对象，它代表指定智能标记的应用区域。
Range	返回一个 Range 代表，它代表在受保护工作表上可编辑的区域的子集。
Range	返回一个 Range 对象，它代表应用指定的“自动筛选”的区域。
RangeFromPoint	返回位于屏幕上指定坐标位置的 Shape 或 Range 对象 如果图形为图表、线条或图片，则本示例立即在鼠标指针下方返回该图形的可选文字。 Private Function AltText(ByVal intMouseX As Integer, _         ByVal intMouseY as Integer) As String     Set objShape = ActiveWindow.RangeFromPoint _         (x:=intMouseX, y:=intMouseY)     If Not objShape Is Nothing Then         With objShape             Select Case .Type                 Case msoChart, msoLine, msoPicture:                     AltText = .AlternativeText                 Case Else:                     AltText = ""             End Select         End With     Else         AltText = ""     End If End Function
RangeFromPoint	返回位于屏幕上指定坐标位置的 Shape 或 Range 对象。如果指定坐标位置上没有任何形状，则此方法将返回 Nothing。 语法 表达式.RangeFromPoint(x, y) 表达式   一个代表 Window 对象的变量。 参数 名称 必选/可选 数据类型 描述 x 必选 Long 表示从顶部开始到屏幕左边缘的水平距离的值（以像素为单位）。 y 必选 Long 表示从左侧开始到屏幕顶部的垂直距离的值（以像素为单位）。 返回值 Object
RangeSelection	返回一个 Range 对象，该对象代表指定窗口的工作表中的选定单元格（即使指定工作表中有图形对象处于活动状态，或者已选定图形对象）。 本示例显示在当前窗口的工作表中选定的单元格区域的地址。 MsgBox ActiveWindow.RangeSelection.Address
RangeSelection	返回一个 Range 对象，该对象表示指定窗口中工作表上的选定单元格，即使工作表上一个图形对象是活动或选定的。只读。 语法 表达式.RangeSelection 表达式   一个代表 Window 对象的变量。
Rank	返回一个数字在数字列表中的排位。数字的排位是其大小与列表中其他值的比值（如果列表已排过序，则数字的排位就是它当前的位置）。
Rate	返回一个 Double，指定每一期的年金利率。 语法 Rate(nper, pmt, pv[, fv[, type[, guess]]]) nper 必要。Double 指定一笔年金的付款总期数。例如，如果对一笔为期四年的汽车贷款选择按月付款，则贷款共有 4 * 12（或 48）个付款期。 pmt 必要。Double，指定每一期的付款金额。付款金额通常包含本金和利息，且此付款金额在年金的有效期间不变。 pv 必要。Double 指定未来一系列付款或收款的现值。例如，当贷款买一辆汽车时，向贷方所借贷的金额为将来每月偿付给贷方款项的现值。 fv 可选。Variant 指定在付清贷款后所希望的未来值或现金结存。例如，贷款的未来值在贷款付清后为 0 美元。但是，如果想要在 18 年间存下 50，000 美元作为子女教育基金，那么 50，000 美元为未来值。如果省略的话，缺省值为 0。 type 可选。Variant，指定贷款到期时间，如果贷款是在贷款周期结束时到期，则请使用 0。如果贷款是在周期开始时到期，则请使用 1。如果省略的话，缺省值为 0。 guess 可选。Variant 指定 Rate 返回的估算值。如果省略，则 guess 为 0.1 (10%)。
Rate	返回年金的各期利率。函数 RATE 通过迭代法计算得出，并且可能无解或有多个解。如果在进行 20 次迭代计算后，函数 RATE 的相邻两次结果没有收敛于 0.0000001，则函数 RATE 将返回错误值 #NUM!。
rea3DGroup	返回 ChartGroup 对象，该对象代表三维图表上的面积图组。 本示例打开三维面积图图表组的垂直线。 Charts(1).Area3DGroup.HasDropLines = True
ReadingOrder	返回或设置指定对象的阅读次序 本示例将 Chart1 的图表标题阅读顺序设置为从右到左。 Charts("Chart1").ChartTitle.ReadingOrder = xlRTL
ReadingOrder	返回或设置指定对象的阅读次序。可为以下常量之一：xlRTL（从右到左）、xlLTR（从左到右）或 xlContext。Long 类型，可读写。 语法 表达式.ReadingOrder 表达式   一个代表 Style 对象的变量。
ReadingOrder	返回或设置指定对象的阅读次序。可为以下常量之一：xlRTL（从右到左）、xlLTR（从左到右）或 xlContext。Long 类型，可读写。
ReadOnly	如果对象以只读方式打开，则返回 True 如果当前工作簿是只读的，则本示例将此工作簿另存为 Newfile.xls。 If ActiveWorkbook.ReadOnly Then     ActiveWorkbook.SaveAs fileName:="NEWFILE.XLS" End If
ReadOnlyRecommended	如果指定工作簿是以建议只读方式保存，则该值为 True 本示例检查当前工作簿是否含有建议只读信息，如果有，则显示一条信息。 If ActiveWorkbook.ReadOnlyRecommended = True Then     MsgBox "This workbook is saved as read-only recommended" End If
Ready	当 Microsoft Excel应用程序就绪时，返回 True，未就绪时，返回 False 在本示例中，Microsoft Excel 检查 Ready 属性是否设置为 True，如果是，就显示“应用程序就绪”的消息。否则，Excel 显示“应用程序未就绪”的消息。 Sub UseReady()     If Application.Ready = True Then         MsgBox "Application is ready."     Else         MsgBox "Application is not ready."     End If End Sub
Received	返回完全投资型债券到期收回的金额。
Received	您查询的是 Macintosh 专用的 Visual Basic 关键词。有关该关键词的帮助信息，请查阅 Microsoft Office Macintosh 版的语言参考帮助。
RecentFiles	返回一个 RecentFiles 集合，该集合代表最近使用的文件清单 本示例将最近使用的文件清单中的最多文件数设为 6。 Application.RecentFiles.Maximum = 6
RecentFiles	代表最近使用文件的列表 可用 RecentFiles 属性返回 RecentFiles 集合。下例设置了最近使用过的文件（位于列表中）的最大数目。 Application.RecentFiles.Maximum = 6
RecheckSmartTags	使得前景智能标记检查自动出现，对以前没有注释过的数据进行注释。 本示例重新检查前景中活动工作簿上的智能标记。 Sub UseRecheckSmartTags()     ActiveWorkbook.RecheckSmartTags End Sub
Recipients	返回或设置传送名单上的收件人。
Recognize	如果数据可识别为智能标记，则返回 True。Boolean 类型，可读写。
RecordCount	返回数据透视表缓存中的记录数目或包含指定内容的缓存记录数目。Long 型，只读。
RecordMacro	如果宏记录程序正在运行，则记录下相应代码 本示例录制 Visual Basic 代码。 Application.RecordMacro BasicCode:="Application.Run ""MySub"" "
RecordRelative	如果以相对引用录制宏，则该值为 True； 如果以绝对引用录制宏，则该值为 False 本示例检查 RecordRelative 的值，如果该值为 False，则以A1样式显示 Sheet1 的活动单元格地 址；如果该值为 True，则以 R1C1 样式显示。 Worksheets("Sheet1").Activate If Application.RecordRelative = False Then     MsgBox ActiveCell.Address(ReferenceStyle:=xlA1) Else     MsgBox ActiveCell.Address(ReferenceStyle:=xlR1C1) End If
Recordset	返回或设置一个 Recordset 对象，该对象用作指定查询表的数据源。
Recordset	返回或设置一个 Recordset 对象，该对象作为指定查询表的数据源。可读写。
ReDim	在过程级别中使用，用于为动态数组变量重新分配存储空间。 语法 ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . . Preserve 可选的。关键字，当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。 varname 必需的。变量的名称；遵循标准的变量命名约定。 subscripts 必需的。数组变量的维数；最多可以定义 60 维的多维数组。subscripts 参数使用下面的语法：   [lower To] upper [,[lower To] upper] . . . 如果不显式指定 lower，则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0。 type 可选的。变量的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（对变长的字符串）、String * length（对定长的字符串）、Object、Variant、用户定义类型或对象类型。所声明的每个变量都要有一个单独的 As type 子句。对于包含数组的 Variant 而言，type 描述的是该数组的每个元素的类型，不能将此 Variant 改为其它类型。
Reduced	如果“Office 助手”窗口以较小的大小出现，则为 True。可读/写。
ReferenceStyle	返回或设置 Microsoft Excel 是以 A1 引用样式还是以 R1C1 引用样式显示单元格引用和行、列标题 本示例显示当前引用样式。 If Application.ReferenceStyle = xlR1C1 Then     MsgBox ("Microsoft Excel is using R1C1 references") Else     MsgBox ("Microsoft Excel is using A1 references") End If
RefersTo	用宏语言以 A1 样式表示法返回或设置名称所引用的公式（以等号开头）。String 类型，可读写。 语法 表达式.RefersTo 表达式   一个代表 Name 对象的变量
RefersToLocal	返回或设置指定名称所引用的公式。公式以等号开头，由用户语言和 A1-样式引用组成。String 类型，可读写。 语法 表达式.RefersToLocal 表达式   一个代表 Name 对象的变量。
RefersToR1C1	返回或设置指定名称所引用的公式。公式以等号开头，由宏语言和 R1C1-样式引用组成。String 类型，可读写。 语法 表达式.RefersToR1C1 表达式   一个代表 Name 对象的变量。
RefersToR1C1Local	返回或设置指定名称所引用的公式。公式以等号开头，由用户语言和 R1C1-样式引用组成。可读/写 String 类型。 语法 表达式.RefersToR1C1Local 表达式   一个代表 Name 对象的变量。
RefersToRange	返回由 Name 对象引用的 Range 对象。只读。 语法 表达式.RefersToRange 表达式   一个代表 Name 对象的变量。
Reflection	返回指定形状的 ReflectionFormat 对象，该对象包含形状的映像格式属性。只读。 版本信息  已添加版本：  Excel 2007 语法 表达式.Reflection 表达式   一个代表 Shape 对象的变量。
Refresh	更新 Chart 对象的高速缓存 本示例刷新工作簿中第一个工作表上的第一个数据透视表的数据透视表高速缓存。 Worksheets(1).PivotTables(1).PivotCache.Refresh
Refresh	更新外部数据区域 (QueryTable)。
Refresh	立即重新绘制指定的图表。
RefreshAll	刷新指定工作簿中的所有外部数据区域和数据透视表 本示例刷新第三个工作簿中的所有外部数据区域和数据透视表。 Workbooks(3).RefreshAll
RefreshDate	返回数据透视表或缓存最近一次刷新的日期。Date 型，只读。
RefreshDate	返回缓存最近一次刷新的日期。Date 型，只读。
Refreshing	如果指定的查询表正在进行后台查询，则为 True。可读/写 Boolean 类型。
RefreshName	返回最近一次刷新数据透视表的人员的名字。String 型，只读。
RefreshName	返回最近一次刷新数据透视表缓存的人员的名字。String 型，只读。
RefreshOnChange	如果每次更改参数查询的参数值时都要刷新指定的查询表，则该属性值为 True。Boolean 类型，可读写。
RefreshOnFileOpen	如果每次打开工作簿时，数据透视表高速缓存或查询表自动更新，则为 True。默认值为 False。Boolean 类型，可读写。
RefreshOnFileOpen	如果每次打开工作簿时，数据透视表缓存都自动进行更新，则为 True。默认值为 False。Boolean 类型，可读写。
RefreshPeriod	返回或设置两次刷新之间的时间间隔。Long 型，可读写。
RefreshStyle	返回或设置在指定工作表中插入或删除行的方式，以适应查询返回的记录集的行数。XlCellInsertionMode 类型，可读写。
RefreshTable	用源数据刷新数据透视表。如果成功，则该值为 True。
RegisteredFunctions	返回在动态链接库或代码资源中的用 REGISTER 或 REGISTER.ID 宏函数登记的函数信息
RegisterXLL	载入XLL代码源，并自动注册该代码源中包含的函数和命令 本示例载入一个 XLL 文件并注册该文件中的函数和命令。 Application.RegisterXLL "XLMAPI.XLL"
RejectAllChanges	取消指定的共享工作簿中的所有更改。 本示例取消活动工作簿中的所有更改。 ActiveWorkbook.RejectAllChanges
ReleaseFocus	释放所有命令栏的用户界面焦点。 语法 表达式.ReleaseFocus 表达式   一个代表 CommandBars 对象的变量。
ReloadAs	使用指定的文档编码方式，重新装入一个基于 HTML 文档的工作簿 本示例使用 Western 文档编码方式重新装入第一个工作簿。 Workbooks(1).ReloadAs Encoding:=msoEncodingWestern
RelyOnCSS	如果在 Web 浏览器中查看保存的文档时，字体格式使用的是级联样式表 (CSS)，则为 True。Microsoft Excel 会创建一个级联样式表文件，然后依据 OrganizeInFolder 属性的值，将该文件保存到指定文件夹或与网页相同的文件夹中。如果使用了 HTML <FONT> 标记和级联样式表，则为 False。默认值是 True。Boolean 类型，可读写。
RelyOnVML	如果为 True，将文档保存为网页时，图形对象不能生成图像文件。如果为 False，则可生成图像文件。默认值是 False。Boolean 类型，可读写。
Rem	用来在程序中包含注释。 语法 Rem comment 也可以使用如下语法： ' comment comment 参数是可选的，指要包括的任何注释文本。在 Rem 关键字与 comment 之间要加一个空格。
RemoveAllItems	删除 Microsoft Excel 列表框或组合框中的所有数据项。
RemoveItem	从列表框或组合框中删除一个或多个数据项。
RemovePersonalInformation	如果能从指定的工作簿中删除个人信息，则该值为 True 在本示例中，Microsoft Excel 判断是否能从指定的工作簿中删除个人信息，并通知用户。 Sub UsePersonalInformation()     Dim wkbOne As Workbook     Set wkbOne = Application.ActiveWorkbook     ' Determine settings and notify user.     If wkbOne.RemovePersonalInformation = True Then         MsgBox "Personal information can be removed."     Else         MsgBox "Personal information cannot be removed."     End If End Sub
RemoveSubtotal	删除数据清单中的分类汇总 本示例删除工作表 Sheet1 上单元格区域 A1:G37 的分类汇总。本示例应在包含分类汇总的数据清单上运行。 Worksheets("Sheet1").Range("A1:G37").RemoveSubtotal
RemoveUser	断开指定用户与共享工作簿的连接 本示例断开第二个用户与共享工作簿的连接 Workbooks(2).RemoveUser 2
Repeat	重复最后一次用户界面操作 本示例重复最近用户界面命令。本示例必须放在宏的第一行。 Application.Repeat
RepeatItemsOnEachPrintedPage	当打印指定的数据透视表时，如果每页第一行上都显示行、列和项标志，则该值为 True。如果仅在第一页上打印这些标志，则该值为 False。默认值为 True。Boolean 类型，可读写。
Replace	返回 Boolean 类型，指示指定区域内单元格中的字符 本示例将每个“SIN”三角函数都替换为“COS”函数。替换所进行的区域为工作表 Sheet1 中的 A 列。 Worksheets("Sheet1").Columns("A").Replace _     What:="SIN", Replacement:="COS", _     SearchOrder:=xlByColumns, MatchCase:=True
Replace	返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。 语法 Replace(expression, find, replace[, start[, count[, compare]]]) expression 必需的。字符串表达式，包含要替换的子字符串。 find 必需的。要搜索到的子字符串。 replace 必需的。用来替换的子字符串。 start 可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。 count 可选的。子字符串进行替换的次数。如果忽略，缺省值是 –1，它表明进行所有可能的替换。 compare 可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置值”部分。
Replace	根据指定的字符数，将文本字符串的部分用其他文本字符串替换。
ReplaceB	REPLACEB 根据指定的字节数用一个文本字符串替换另一个文本字符串中的部分字符。
ReplaceFormat	设置替换条件以用于替换单元格格式 在下例中，设置了搜索条件以查找文字为 Arial、常规和 10 号字体的单元格，然后调用 Replace 方法，并将 SearchFormat 和 ReplaceFormat 的可选参数设置为 True 以便进行更改。 Sub MakeBold()     ' Establish search criteria.     With Application.FindFormat.Font         .Name = "Arial"         .FontStyle = "Regular"         .Size = 10     End With     ' Establish replacement criteria.     With Application.ReplaceFormat.Font         .Name = "Arial"         .FontStyle = "Bold"         .Size = 8     End With     ' Notify user.     With Application.ReplaceFormat.Font         MsgBox .Name & "-" & .FontStyle & "-" & .Size & _             " font is what the search criteria will replace cell formats with."     End With     ' Make the replacements in the worksheet.     Cells.Replace What:="", Replacement:="", _         SearchFormat:=True, ReplaceFormat:=True End Sub
ReplacementList	返回“自动更正”替换内容的数组。 语法 表达式.ReplacementList(Index) 表达式   一个代表 AutoCorrect 对象的变量。
ReplaceText	如果“自动更正”替换内容将被自动替换，则该属性值为 True。Boolean 类型，可读写。 语法 表达式.ReplaceText 表达式   一个代表 AutoCorrect 对象的变量。
Reply	您已经请求了仅用于 Macintosh 上的 Visual Basic 关键字的“帮助”信息。有关该关键字的详细信息，请参阅 Microsoft Office Macintosh 版本所附带的语言引用帮助。
ReplyAll	您已经请求了仅用于 Macintosh 上的 Visual Basic 关键字的“帮助”信息。有关该关键字的详细信息，请参阅 Microsoft Office Macintosh 版本所附带的语言引用帮助。
ReplyWithChanges	向已发送候审的工作簿的作者发送电子邮件消息，通知审阅者已经完成工作簿的审阅。 本示例自动向审阅工作簿的作者发送一个通知，告知审阅者已完成对该工作簿的审阅，而不是先显示给审阅者的电子邮件消息。本示例假定活动工作簿是协作审阅循环的一部分。 Sub ReplyMsg()     ActiveWorkbook.ReplyWithChanges ShowMessage:=False End Sub
Rept	按照给定的次数重复显示文本。可以通过函数 REPT 来不断地重复显示某一文本字符串，对单元格进行填充。
RerouteConnections	此方法将重排连接在指定形状上的所有连接符；如果指定的形状是连接符，就重排该连接符。 语法 表达式.RerouteConnections 表达式   一个代表 Shape 对象的变量。
Reset	关闭所有用 Open 语句打开的磁盘文件。 语法 Reset 说明 Reset 语句关闭 Open 语句打开的所有活动文件，并将文件缓冲区的所有内容写入磁盘。
Reset	将内置命令栏重置为其默认配置。 语法 表达式.Reset 表达式   一个代表 CommandBar 对象的变量。
Reset	重新设置传送名单，从而可用同一名单初始化一个新的传送过程（使用同一收件人列表和收件人地址信息）。使用本方法之前，该传送过程必须已完成。否则本方法将导致错误。
ResetAllPageBreaks	重新设置指定工作表上的所有分页符 本示例重新设置第一个工作表上的所有分页符。 Worksheets(1).ResetAllPageBreaks
ResetColors	将调色板重新设为默认颜色。 本示例将当前活动工作簿的调色板重新设为默认颜色。 ActiveWorkbook.ResetColors
ResetPositionsSideBySide	重置正在进行并排比较的两个工作表窗口的位置。 expression.ResetPositionsSideBySide() expression必需。该表达式返回“应用于”列表中的对象之一
ResetTimer	重新设置指定的查询表或数据透视表的刷新计时器，使其时间间隔等于上次使用 RefreshPeriod 属性设置的时间间隔。
ResetTips	重新设置将显示在“Office 助手”气球中的应用程序提示。
Resize	调整指定区域的大小 本示例调整 Sheet1 中选定区域的大小，使之增加一行和一列。 Worksheets("Sheet1").Activate numRows = Selection.Rows.Count numColumns = Selection.Columns.Count Selection.Resize(numRows + 1, numColumns + 1).Select
Resize	调整图表大小时，将产生本事件。 本示例使调整图表大小时，图表的左上角位置保持不变。 Private Sub myChartClass_Resize()     With ActiveChart.Parent         .Left = 100         .Top = 150     End With End Sub
ResultRange	返回一个 Range 对象，该对象代表指定查询表所覆盖的工作表区域。只读。
Resume	在错误处理程序结束后，恢复原有的运行。 语法 Resume [0] Resume Next Resume line Resume 如果错误和错误处理程序出现在同一个过程中，则从产生错误的语句恢复运行。如果错误出现在被调用的过程中，则从最近一次调用包含错误处理程序的过程的语句处恢复运行。 Resume Next 如果错误和错误处理程序出现在同一个程序中，则从紧随产生错误的语句的下个语句恢复运行。如果错误发生在被调用的过程中，则对最后一次调用包含错误处理程序的过程的语句（或 On Error Resume Next 语句），从紧随该语句之后的语句处恢复运行。 Resume line 在必要的 line 参数指定的 line 处恢复运行。line 参数是行标签或行号，必须和错误处理程序在同一个过程中。
ReturnWhenDone	如果传送过程结束后，工作簿返回给发件人，则该属性值为 True。Boolean 类型，可读写。
ReversePlotOrder	如果 Microsoft Excel 的绘图区数据点的顺序为从后往前，则该属性值为 True。Boolean 类型，可读写。
RevisionNumber	返回指定工作簿以共享清单方式打开后已保存的次数 本示例使用修订号判断活动工作簿是否以独占模式打开。如果是则本示例以共享清单方式保存该工作簿。 If ActiveWorkbook.RevisionNumber = 0 Then     ActiveWorkbook.SaveAs _         filename:=ActiveWorkbook.FullName, _         accessMode:=xlShared, _         conflictResolution:= _             xlOtherSessionChanges End If
RGB	返回一个 Long整数，用来表示一个 RGB 颜色值。 语法 RGB(red, green, blue) red 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的红色成份。 green 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的绿色成份。 blue 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的兰色成份。
Right	返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。 语法 Right(string, length) string 必要参数。字符串表达式，从中最右边的字符将被返回。如果 string 包含 Null，将返回 Null。 length 必要参数；为 Variant (Long)。为数值表达式，指出想返回多少字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。
RightAngleAxes	如果图表的坐标轴为直角，并与图表的转角或仰角无关，则该值为 True。 本示例设置 Chart1 中坐标轴夹角为直角。本示例应在三维图表上运行。 Charts("Chart1").RightAngleAxes = True
RightFooter	返回或设置页面右边缘与页脚右边界之间的距离（以磅为单位）。可读/写 String 类型。
RightFooterPicture	返回一个 Graphic 对象，该对象代表页脚右边的图片，用于设置图片的属性。
RightHeader	返回或设置页眉的右边部分内容。可读/写 String 类型。
RightHeaderPicture	指定右页眉中应显示的图形图像。只读。
RightMargin	以磅为单位返回或设置右边距的大小。Double 类型，可读写。
RmDir	删除一个存在的目录或文件夹。 语法 RmDir path 必要的 path 参数是一个字符串表达式，用来指定要删除的目录或文件夹。path 可以包含驱动器。如果没有指定驱动器，则 RmDir 会在当前驱动器上删除目录或文件夹。
Rnd	返回一个包含随机数值的 Single。 语法 Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式。
RobustConnect	返回或设置数据透视表缓存与其数据源连接的方式。XlRobustConnect 类型，可读写。
RollZoom	如果使用智能鼠标进行缩放而不是滚动，则该值为 True 本示例将智能鼠标的功能设置为缩放，不进行滚动。 Application.RollZoom = True
Roman	将阿拉伯数字转换为文本形式的罗马数字。
RootElementName	返回一个 String 类型的数值，该数值表示指定 XML 架构映射的根元素的名称。只读。
RootElementNamespace	返回一个 XmlNamespace 对象，该对象表示指定的 XML 架构映射的根元素。只读。
RotatedChars	如果指定艺术字对象中的字符相对于该对象旋转了 90 度，则该值为 True。如果指定艺术字对象中的字符相对于该对象保持原有方向，则该值为 False。MsoTriState 类型，可读/写。
RotateWithObject	返回或设置是否随对象旋转。可读/写 MsoTriState 类型。
RotateWithShape	返回或设置一个 MsoTriState 类型的值，该值表示是否在旋转形状时旋转阴影。可读/写。
Rotation	Chart 对象：以度为单位返回或设置三维图表视图的转角（图形区绕 Z 轴的转角）。 本示例将第一张图表的转角设置为 30 度。本示例应在三维图表中运行。 Charts("Chart1").Rotation = 30
Rotation	返回或设形状的旋转角度（以度为单位）。Single 型，可读写。 语法 表达式.Rotation 表达式   一个代表 Shape 对象的变量。
Round	返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。 语法 Round(expression [,numdecimalplaces]) expression 必需的。要进行四舍五入运算的数值表达式。 numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。
Round	将数字舍入到指定位数。
RoundDown	将数字向零的方向向下舍入。
RoundedCorners	如果嵌入式图表使用圆角，则为 True。Boolean 类型，可读写。
RoundUp	将数字向远离 0（零）的方向向上舍入。
Route	使用工作簿的当前传送名单传送工作簿 本示例为“Book1.xls”创建一个传送名单，然后将该工作簿逐个传送给三个收信人。 Workbooks("BOOK1.XLS").HasRoutingSlip = True With Workbooks("BOOK1.XLS").RoutingSlip     .Delivery = xlOneAfterAnother     .Recipients = Array("Adam Bendel", _         "Jean Selva", "Bernard Gabor")     .Subject = "Here is BOOK1.XLS"     .Message = "Here is the workbook. What do you think?" End With Workbooks("BOOK1.XLS").Route
Routed	如果指定工作簿已经传送给下一个收件人，则该值为 True 本示例将指定工作簿传送给下一个收件人。 If ActiveWorkbook.HasRoutingSlip And _     Not ActiveWorkbook.Routed Then         ActiveWorkbook.Route End If
RoutingSlip	返回一个 RoutingSlip 对象，该对象代表指定工作簿的传送名单 本示例为“Book1.xls”创建一个传递名单，然后将该工作簿逐个传送给三个收件人。 Workbooks("BOOK1.XLS").HasRoutingSlip = True With Workbooks("BOOK1.XLS").RoutingSlip     .Delivery = xlOneAfterAnother     .Recipients = Array("Adam Bendel", _         "Jean Selva", "Bernard Gabor")     .Subject = "Here is BOOK1.XLS"     .Message = "Here is the workbook. What do you think?" End With Workbooks("BOOK1.XLS").Route
RoutingSlip	代表工作簿的传送名单。传送名单用于在电子邮件系统中发送工作簿。
Row	返回区域中第一个子区域的第一行的行号 本示例将工作表 sheet1 中每隔一行的行高设置为 4 磅。 For Each rw In Worksheets("Sheet1").Rows     If rw.Row Mod 2 = 0 Then         rw.RowHeight = 4     End If Next rw
RowAxisLayout	此方法用于同时为所有现有的透视字段设置版式选项。
RowColSettings	如果自定义视图包括对隐藏行和隐藏列（包括筛选信息）的设置，则该属性值为 True。Boolean 类型，只读。
RowDifferences	返回Range对象，该对象代表每行中所有与比较单元格内容不同的单元格 本示例选定工作表 Sheet1 上第一行中与单元格 D1 内容不同的单元格。 Worksheets("Sheet1").Activate Set c1 = ActiveSheet.Rows(1).RowDifferences( _     comparison:=ActiveSheet.Range("D1")) c1.Select
RowFields	返回一个对象，该对象表示数据透视表中的单个字段（PivotField 对象），或者当前未显示为行字段的所有字段的一个集合（PivotFields 对象）。只读。
RowGrand	如果数据透视表显示行的总数，则该属性值为 True。Boolean 类型，可读写。
RowHeight	以磅为单位返回或设置指定区域中所有行的行宽 本示例使工作表 sheet1 上第一行的行高加倍。 With Worksheets("Sheet1").Rows(1)     .RowHeight = .RowHeight * 2 End With
RowIndex	获取或设置一个命令栏相对于同一停靠区域中其他命令栏的停靠顺序。该属性值可以是大于零的整数，也可以是以下 MsoBarRow 常量之一：msoBarRowFirst 或 msoBarRowLast。可读写。 语法 表达式.RowIndex 表达式   一个代表 CommandBar 对象的变量。
RowNumbers	如果行号作为第一列添加到指定查询表，则该属性值为 True。Boolean 类型，可读写。
RowRange	返回一个 Range 对象，该对象表示包括数据透视表上行区域的区域。只读。
Rows	对于Application对象，返回代表活动工作表所有行的 Range 对象 本示例删除 Sheet1 的第三行。 Worksheets("Sheet1").Rows(3).Delete
Rows	对于 Worksheet 对象，返回代表指定工作表所有行的 Range 对象 本示例删除 Sheet1 的第三行。 Worksheets("Sheet1").Rows(3).Delete
Rows	对于 Application 对象，返回代表活动工作表所有行的 Range 对象 本示例删除 Sheet1 的第三行。 Worksheets("Sheet1").Rows(3).Delete
Rset	在一字符串变量中将一字符串往右对齐。 语法 RSet stringvar = string stringvar 必要参数。为字符串变量名。 String 必要参数。在 stringvar 内想往右对齐的字符串表达式。
RSq	返回根据 known_y's 和 known_x's 中数据点计算得出的 Pearson 乘积矩相关系数的平方。有关详细信息，请参阅函数 PEARSON。R 平方值可以解释为 y 方差与 x 方差的比例。
RTD	返回一个 RTD 对象。 expression.RTD expression必需。该表达式返回一个 Application 对象。
RTD	本方法与源连接以接收实时数据。
Run	运行一个宏或者调用一个函数 本示例示范如何调用宏表“Mycustom.xlm”（必须先打开此宏表〕中定义的宏函数 My_Func_Sum。此函数带两个数值型参数（此例中为 1 和 5）。 mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5) MsgBox "Macro result: " & mySum
Run	在该处运行 Microsoft Excel 宏 本示例示范如何调用宏表“Mycustom.xlm”（必须先打开此宏表〕中定义的宏函数 My_Func_Sum。此函数带两个数值型参数（此例中为 1 和 5）。 mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5) MsgBox "Macro result: " & mySum
RunAutoMacros	运行附属于指定工作簿的 Auto_Open、Auto_Close、Auto_Activate 或 Auto_Deactivate 宏。保留本方法是为了保持向后兼容性 本示例打开 Analysis.xls 工作簿，然后运行 Auto_Open 宏。 Workbooks.Open "ANALYSIS.XLS" ActiveWorkbook.RunAutoMacros xlAutoOpen 本示例对活动工作簿运行 Auto_Close 宏，然后关闭该工作簿。 With ActiveWorkbook     .RunAutoMacros xlAutoClose     .Close End With