对象/属性/方法/事件
（Object/Attribute/
Method/Event） |
描述
（Description） |
Save |
保存指定工作簿所做的更改
本示例保存当前活动工作簿。
ActiveWorkbook.Save
本示例保存所有打开的工作簿，然后关闭 Microsoft Excel。
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit |
SaveAs |
保存对不同文件中的工作表的更改。
本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿。
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName |
SaveAs |
保存对不同的文件中的图表或工作表的更改
本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿。
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName |
SaveAs |
保存对不同的文件中的图表或工作表的更改。
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, Local)
expression必需。该表达式返回上述对象之一。 |
SaveAsODC |
将查询表缓存的源保存为“Microsoft Office 数据连接”文件。 |
SaveAsODC |
将数据透视表缓存的源保存为“Microsoft Office 数据连接”文件。 |
SaveAsXMLData |
将已映射到指定 XML 架构映射的数据导出到 XML 数据文件中
下例证实了 Excel 能够使用架构映射“Customer”导出数据，然后将映射到“Customer”架构映射的数据导出到名为“Customer Data.xml”的文件中。
Sub ExportAsXMLData()
Dim objMapToExport As XmlMap
Set objMapToExport = ActiveWorkbook.XmlMaps("Customer")
If objMapToExport.IsExportable Then
ActiveWorkbook.SaveAsXMLData "Customer Data.xml", objMapToExport
Else
MsgBox "Cannot use " & objMapToExport.Name & _
"to export the contents of the worksheet to XML data."
End If
End Sub |
SaveCopyAs |
将指定工作簿的副本保存到文件，但不更改内存中的打开工作簿。
本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS" |
Saved |
如果指定工作簿从上次保存至今未发生过更改，则该值为 True
本示例检查活动工作簿是否有未保存的更改，如果有，则显示一条信息。
If Not ActiveWorkbook.Saved Then
MsgBox "This workbook contains unsaved changes."
End If
本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改。
ThisWorkbook.Saved = True
ThisWorkbook.Close |
SaveData |
如果将数据透视表的数据随工作簿一起保存，则为 True。如果仅保存数据透视表的定义，则为 False。Boolean 类型，可读写。 |
SaveData |
如果数据透视表的数据随工作簿一起保存，则为 True。如果仅保存数据透视表的定义，则为 False。Boolean 类型，可读写。 |
SaveDataSourceDefinition |
如果要在保存工作簿的同时保存指定 XML 架构映射的数据源定义，则设为 True。默认值为 True。Boolean 类型，可读写。 |
SaveHiddenData |
当以网页保存文档时，如果也保存指定区域之外的数据，则该值为 True。此数据对于维护公式是很有必要的。如果指定区域之外的数据并不与网页一起保存，则该值为 False。默认值为 True。Boolean 类型，可读写。 |
SaveLinkValues |
如果 Microsoft Excel 保存指定工作簿的外部链接值，则该值为 True
本示例设置 Microsoft Excel 保存活动工作簿的外部链接值。
ActiveWorkbook.SaveLinkValues = True |
SaveNewWebPagesAsWebArchives |
如果新的网页能够保存为 Web 档案，则该属性值为 True。Boolean 类型，可读写。 |
SavePassword |
如果将 ODBC 连接字符串中的密码信息与指定查询一起保存，则为 True。如果不保存密码信息，则该值为 False。Boolean 类型，可读写。 |
SaveSetting |
在 Windows 注册表中 或 (Macintosh中)应用程序初始化文件中的信息保存或建立应用程序项目。
语法
SaveSetting appname, section, key, setting
appname 必要。字符串表达式，包含应用程序或工程的名称，对这些应用程序或工程使用设置 在Macintosh中，这是System文件夹中Preferences文件夹中初始化文件的文件名。
section 必要。字符串表达式，包含区域名称，在该区域保存注册表项设置。
key 必要。字符串表达式，包含将要保存的注册表项设置的名称。
setting 必要。表达式，包含 key 的设置值。 |
SaveWorkspace |
保存当前工作区。
本示例将当前工作区保存为“saved workspace.xlw”。
Application.SaveWorkspace "saved workspace" |
ScaleHeight |
按指定的比例调整形状的高度。对于图片和 OLE 对象，可以指定是相对于原有尺寸还是相对于当前尺寸来调整该形状。对于不是图片和 OLE 对象的形状，总是相对于其当前大小来调整高度。
语法
表达式.ScaleHeight(Factor, RelativeToOriginalSize, Scale)
表达式 一个代表 Shape 对象的变量。
参数
名称 必选/可选 数据类型 描述
Factor 必选 Single 指定形状调整后的高度与当前或原始高度的比例。例如，若要将一个矩形放大百分之五十，请将此参数设为 1.5。
RelativeToOriginalSize 必选 MsoTriState 如果为 msoTrue，则相对于形状的原有尺寸来调整高度。如果该值为 msoFalse，则相对于形状的当前尺寸来调整高度。仅当指定的形状是图片或 OLE 对象时，才能将此参数指定为 msoTrue。
Scale 可选 Variant MsoScaleFrom 的常量之一，它指定调整形状大小时，该形状哪一部分的位置将保持不变。 |
ScaleType |
返回或设置数值轴的刻度类型。XlScaleType 类型，可读写。 |
ScaleWidth |
按指定的比例调整形状的宽度。对于图片和 OLE 对象，可以指定是相对于原有尺寸还是相对于当前尺寸来调整该形状。对于不是图片和 OLE 对象的形状，总是相对于其当前大小来调整宽度。
语法
表达式.ScaleWidth(Factor, RelativeToOriginalSize, Scale)
表达式 一个代表 Shape 对象的变量。
参数
名称 必选/可选 数据类型 描述
Factor 必选 Single 指定形状调整后的宽度与当前或原始宽度的比例。例如，若要将一个矩形放大百分之五十，请将此参数设为 1.5。
RelativeToOriginalSize 必选 MsoTriState 如果为 False，则相对于形状的原有尺寸来调整宽度。仅当指定的形状是图片或 OLE 对象时，才能将此参数指定为 True。
Scale 可选 Variant MsoScaleFrom 的常量之一，它指定调整形状大小时，该形状哪一部分的位置将保持不变。 |
ScaleWithDocHeaderFooter |
返回或设置页眉和页脚是否在文档大小更改时随文档缩放。可读/写 Boolean 类型。 |
Scenarios |
返回一个对象，该对象既可代表工作表的单个方案（Scenario 对象）也可代表工作表的一个方案集合（Scenarios 对象）。
本示例设置工作表 Sheet1 的第一个方案的批注。
Worksheets("Sheet1").Scenarios(1).Comment = _
"Worst-case July 1993 sales" |
Schemas |
返回一个 XmlSchemas 集合，该集合表示指定的 XmlMap 对象所包含的架构。只读。 |
ScopeType |
返回或设置 XlPivotConditionScope 枚举的常量之一，该常量确定条件格式在应用于数据透视表图表时的范围。 |
ScreenSize |
返回或设置在 Web 浏览器中查看已保存文档时应使用的理想的最小屏幕大小（以像素为单位，宽度乘以高度）。可以是 MsoScreenSize 常量之一。默认常量是 msoScreenSize800x600。MsoScreenSize 类型，可读写。 |
ScreenTip |
返回或设置指定超链接的屏幕提示文字。String 类型，可读写。 |
ScreenUpdating |
如果屏幕更新功能是打开的，则该值为 True
本示例演示将屏幕更新关闭以后，系统如何加快代码的执行速度。本示例隔列隐藏 Sheet1 上的列，并保存其执行时间。第一次，示例隐藏列时，屏幕更新是打开的；第二次执行时，屏幕更新是关闭的。运行本示例时，可比较信息框中显示的两次执行时间
Dim elapsedTime(2)
Application.ScreenUpdating = True
For i = 1 To 2
If i = 2 Then Application.ScreenUpdating = False
startTime = Time
Worksheets("Sheet1").Activate
For Each c In ActiveSheet.Columns
If c.Column Mod 2 = 0 Then
c.Hidden = True
End If
Next c
stopTime = Time
elapsedTime(i) = (stopTime - startTime) * 24 * 60 * 60
Next i
Application.ScreenUpdating = True
MsgBox "Elapsed time, screen updating on: " & elapsedTime(1) & _
" sec." & Chr(13) & _
"Elapsed time, screen updating off: " & elapsedTime(2) & _
" sec." |
Script |
返回 Script 对象，该对象代表指定网页上的一段脚本或代码。如果该网页中不包含任何脚本，则没有返回内容。
语法
表达式.Script
表达式 一个代表 Shape 对象的变量。 |
Scripts |
返回 Scripts 集合，该集合中包含许多 Script 对象，这些对象代表保存为网页的指定文档中的脚本或代码段
本示例向活动工作表的 Scripts 集合中添加一个新的 VBScript 块。
Set objScrs = ActiveSheet.Scripts
Set objNewScr = objScrs.Add
objNewScr.Language = msoScriptLanguageVisualBasic |
Scripts |
返回 Scripts 集合，该集合中包含许多 Script 对象，这些对象代表保存为网页的指定文档中的脚本或代码段。
本示例向活动工作表的 Scripts 集合中添加一个新的 VBScript 块。
Set objScrs = ActiveSheet.Scripts
Set objNewScr = objScrs.Add
objNewScr.Language = msoScriptLanguageVisualBasic |
ScrollArea |
以 A1 样式的区域引用形式返回或设置允许滚动的区域
本示例设置第一张工作表的滚动区域。
Worksheets(1).ScrollArea = "a1:f10" |
ScrollColumn |
返回或设置指定窗格或窗口最左边的列号
本示例将第三列移到窗口的最左侧。
Worksheets("Sheet1").Activate
ActiveWindow.ScrollColumn = 3 |
ScrollColumn |
返回或设置指定窗格或窗口最左边的列号。Long 型，可读写。
语法
表达式.ScrollColumn
表达式 一个代表 Window 对象的变量。 |
ScrollColumn |
返回或设置指定窗格或窗口最左边的列号。Long 型，可读写。 |
ScrollIntoView |
滚动文档窗口，以使指定矩形区域中的内容显示在文档窗口或窗格的左上角或右下角（取决于参数 Start 的值）。
本示例在当前活动文档窗口中定义一个 100x200 像素的矩形，其位置为距窗口顶部 20 像素，距窗口左边缘 50 像素。然后将文档向左、向上滚动，以使矩形的左上角与窗口的左上角对齐。
ActiveWindow.ScrollIntoView _
Left:=50, Top:=20, _
Width:=100, Height:=200 |
ScrollIntoView |
滚动文档窗口，使指定矩形区域中的内容显示在文档窗口或窗格的左上角或右下角（取决于 Start 参数值）。
语法
表达式.ScrollIntoView(Left, Top, Width, Height, Start)
表达式 一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
Left 必选 Long 矩形距离文档窗口或窗格左边的水平位置（以磅为单位）。
Top 必选 Long 矩形距离文档窗口或窗格上边的垂直位置（以磅为单位）。
Width 必选 Long 矩形的宽度（以磅为单位）。
Height 必选 Long 矩形的高度（以磅为单位）。
Start 可选 Variant 如果为 True，则使矩形的左上角位于文档窗口或窗格的左上角。如果为 False，则使矩形的右下角位于文档窗口或窗格的右下角。默认值是 True。
说明
当矩形比文档窗口或窗格大时，Start 参数对调整屏幕显示很有用处。 |
ScrollIntoView |
滚动文档窗口，使指定矩形区域中的内容显示在文档窗口或窗格的左上角或右下角（取决于 Start 参数值）。 |
ScrollRow |
返回或设置指定窗格或窗口最上面的行号
本示例将第十行移到窗口的最上面。
Worksheets("Sheet1").Activate
ActiveWindow.ScrollRow = 10 |
ScrollRow |
返回或设置指定窗格或窗口最上面显示的行号。Long 型，可读写。
语法
表达式.ScrollRow
表达式 一个代表 Window 对象的变量。 |
ScrollRow |
返回或设置指定窗格或窗口最上面显示的行号。Long 型，可读写。 |
ScrollWorkbookTabs |
滚动工作簿窗口下方的工作表标签。
本示例将工作表标签滚动到工作簿的最后一张工作表。
ActiveWindow.ScrollWorkbookTabs position:=xlLast |
ScrollWorkbookTabs |
滚动工作簿窗口下方的工作表标签。本方法不改变该工作簿中的活动工作表。
语法
表达式.ScrollWorkbookTabs(Sheets, Position)
表达式 一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
Sheets 可选 Variant 要滚动的工作表的数目。如果为正数则向前滚动，为负数则向后滚动，为 0（零）则不滚动。如果未指定 Position 参数，则必须指定 Sheets。
Position 可选 Variant 使用 xlFirst 可滚动到第一张工作表，使用 xlLast 可滚动到最后一张工作表。如果未指定 Sheets，则必须指定 Position。
返回值
Variant |
Search |
SEARCH 和 SEARCHB 查找一个文本字符串内的另一个文本字符串，并返回一个数字，表示从文本字符串（从中查找另一个文本字符串）的第一个字符起开始查找的第一个文本字符串的起始位置。 |
SearchB |
SEARCH 和 SEARCHB 查找一个文本字符串内的另一个文本字符串，并返回一个数字，表示从文本字符串（从中查找另一个文本字符串）的第一个字符起开始查找的第一个文本字符串的起始位置。 |
SearchWhenProgramming |
如果在用户使用 Visual Basic 时，“Office 助手”窗口同时显示应用程序帮助和编程帮助，则为 True。可读/写。 |
Second |
返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒。
语法
Second(time)
必要的 time 参数，可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。 |
SecondaryPlot |
如果数据点位于复合饼图或复合条饼图中的第二个饼图或条形图上，则该值为 True。仅适用于复合饼图或复合条饼图中的数据点。Boolean 类型，可读写。 |
SecondPlotSize |
以主饼图大小的百分比形式返回或设置复合饼图或复合条饼图中第二部分的大小。可为 5 到 200 之间的值。Long 类型，可读写。 |
Seek |
在 Open 语句打开的文件中，设置下一个读/写操作的位置。
语法
Seek [#]filenumber, position
filenumber 必要。任何有效的文件号。
position 必要。介于 1 – 2，147，483，647 之间的数字，指出下一个读写操作将要发生的位置。 |
Seek |
返回一个 Long，在 Open 语句打开的文件中指定当前的读/写位置。
语法
Seek(filenumber)
必要的 filenumber 参数是一个包含有效文件号的 Integer。 |
Select |
选定对象
本示例选定 Sheet1 中的 A1:B3 单元格区域。
Worksheets("Sheet1").Activate
Range("A1:B3").Select |
Select |
选定图表元素时，将产生本事件。
如果用户选定了图表标题，本示例将显示消息框。
Private Sub Chart_Select(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementId = xlChartTitle Then
MsgBox "please don't change the chart title"
End If
End Sub |
Select |
选定对象。
expression.Select(Replace)
expression 必需。该表达式返回上面的对象之一。
Replace Variant类型，可选。要替换的对象。 |
Select |
选定对象。
本示例选定 Sheet1 中的 A1:B3 单元格区域。
Worksheets("Sheet1").Activate
Range("A1:B3").Select |
Select |
选择对象。 |
Select |
选择对象。
语法
表达式.Select(Replace)
表达式 一个代表 Shape 对象的变量。
参数
名称 必选/可选 数据类型 描述
Replace 可选 Variant （仅用于工作表）。如果为 True，则用指定的对象替换当前所选内容。如果为 False，则扩展当前所选内容以包括以前选择的对象和指定的对象。 |
Select |
选择对象。
语法
表达式.Select(Replace)
表达式 一个代表 Charts 对象的变量。
参数
名称 必选/可选 数据类型 描述
Replace 可选 Variant （仅用于工作表）。如果为 True，则用指定的对象替换当前所选内容。如果为 False，则扩展当前所选内容以包括以前选择的对象和指定的对象。 |
Select Case |
根据表达式的值，来决定执行几组语句中的其中之一。
语法
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select
testexpression 必要参数。任何数值表达式或字符串表达式。
expressionlist-n 如果有 Case 出现，则为必要参数。其形式为 expression，expression To expression，Is comparisonoperator expression的一个或多个组成的分界列表。To 关键字可用来指定一个数值范围。如果使用 To 关键字，则较小的数值要出现在 To 之前。使用 Is 关键字时，则可以配合比较运算符（除 Is 和 Like 之外）来指定一个数值范围。如果没有提供，则 Is 关键字会被自动插入。
statements-n 可选参数。一条或多条语句，当 testexpression 匹配expressionlist-n中的任何部分时执行。
elsestatements 可选参数。一条或多条语句，当 testexpression 不匹配 Case 子句的任何部分时执行。 |
SelectAll |
选择指定的 Shapes 集合中的所有形状。
版本信息
已添加版本： Excel 2007
语法
表达式.SelectAll
表达式 一个代表 Shapes 对象的变量。 |
SelectedSheets |
返回一个 Sheets 集合，该集合代表指定窗口中的所有选定工作表。
本示例当 Book1.xls 中的 Sheet1 被选取时，显示一则信息。
For Each sh In Workbooks("BOOK1.XLS").Windows(1).SelectedSheets
If sh.Name = "Sheet1" Then
MsgBox "Sheet1 is selected"
Exit For
End If
Next |
SelectedSheets |
返回一个 Sheets 集合，该集合表示指定窗口中所有选定工作表。只读。
语法
表达式.SelectedSheets
表达式 一个代表 Window 对象的变量。 |
Selection |
对于 Application 对象，在活动窗口中返回选 定对象，对于 Windows 对象，返回指定窗口。
本示例清空 Sheet1 的选定对象（假定选定对象为单元格区域）。
Worksheets("Sheet1").Activate
Selection.Clear
本示例显示选定对象的 Visual Basic 对象类型。
Worksheets("Sheet1").Activate
MsgBox "The selection object type is " & TypeName(Selection) |
Selection |
对于 Windows 对象，返回指定窗口
本示例清空 Sheet1 的选定对象（假定选定对象为单元格区域）。
Worksheets("Sheet1").Activate
Selection.Clear
本示例显示选定对象的 Visual Basic 对象类型。
Worksheets("Sheet1").Activate
MsgBox "The selection object type is " & TypeName(Selection) |
Selection |
对于 Windows 对象，返回一个指定的窗口。
语法
表达式.Selection
表达式 一个代表 Window 对象的变量。 |
SelectionChange |
当工作表上的选定区域发生改变时，将产生本事件
本示例滚动工作簿窗口，直至选定区域位于窗口的左上角。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
.ScrollRow = Target.Row
.ScrollColumn = Target.Column
End With
End Sub |
SelectionMode |
返回或设置数据透视表的结构化选择模式。XlPTSelectionMode 类型，可读写。 |
SendDateTime |
您查询的是 Macintosh 专用的 Visual Basic 关键词。有关该关键词的帮助信息，请查阅 Microsoft Office Macintosh 版的语言参考帮助。 |
Sender |
您查询的是 Macintosh 专用的 Visual Basic 关键词。有关该关键词的帮助信息，请查阅 Microsoft Office Macintosh 版的语言参考帮助。 |
SendFaxOverInternet |
将工作表作为传真发送给指定的收件人
下例首先将传真发送给传真服务提供商，然后再由提供商将邮件发送给收件人。
ActiveWorkbook.SendFaxOverInternet _
"[email protected]", _
"For your review", True |
SendForReview |
在电子邮件中将供审阅的工作簿发送到指定的收件人。
本示例自动将活动工作簿作为电子邮件的附件发送到指定的收件人。
Sub WebReview()
ActiveWorkbook.SendForReview _
Recipients:="[email protected]; amy jones; lewjudy", _
Subject:="Please review this document.", _
ShowMessage:=False, _
IncludeAttachment:=True
End Sub |
SendKeys |
将击键发送给活动应用程序
本示例使用 SendKeys 方法退出 Microsoft Excel。
Application.SendKeys("%fx") |
SendKeys |
将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。
语法
SendKeys string[, wait]
string 必需的。字符串表达式，指定要发送的按键消息。
Wait 可选的。指定等待方式的 [email protected] 值。如果为 False（缺省值），则控件在按键发送出去之后立刻返回到过程。如果为 True，则按键消息必须在控件返回到过程之前加以处理。 |
SendMail |
使用已安装的邮件系统发送工作簿。
本示例将当前活动工作簿传送给一个收件人。
ActiveWorkbook.SendMail recipients:="Jean Selva" |
SendMailer |
您已经请求了仅用于 Macintosh 上的 Visual Basic 关键字的“帮助”信息。有关该关键字的详细信息，请参阅 Microsoft Office Macintosh 版本所附带的语言引用帮助。 |
SendToBack |
将对象放到 z-次序的后面。 |
Separator |
设置或返回一个 Variant 值，它代表用于图表中数据标签的分隔符。可读/写。 |
SeriesChange |
当用户更改图表数据点的值时，产生此事件。
当用户更改绘制点的值时，本示例对绘制点边框的颜色进行设置。
Private Sub Chart_SeriesChange(ByVal SeriesIndex As Long, _
ByVal PointIndex As Long)
Set p = Me.SeriesCollection(SeriesIndex).Points(PointIndex)
p.Border.ColorIndex = 3
End Sub |
SeriesCollection |
返回代表图表或图表组中单个数据系列或所有数据系列的集合的对象。
本示例显示 Chart1 中第一个数据系列的数据标签。
Charts("Chart1").SeriesCollection(1).HasDataLabels = True |
SeriesCollection |
返回一个对象，它代表图表或图表组中的一个系列（Series 对象）或所有系列的集合（SeriesCollection 集合）。 |
SeriesLines |
返回一个 SeriesLines 对象，该对象表示二维堆积条形图、二维堆积柱形图、复合饼图、复合条饼图的系列线。只读。 |
SeriesSum |
返回基于以下公式的幂级数之和： |
ServerBased |
如果指定数据透视表的数据源为外部数据源，并且只检索与选定页字段相匹配的数据项，则该属性值为 True。Boolean 类型，可读写。 |
Set |
将对象引用赋给变量或属性。
语法
Set objectvar = {[New] objectexpression | Nothing}
objectvar 必需的。变量或属性的名称，遵循标准变量命名约定。
New 可选的。通常在声明时使用 New，以便可以隐式创建对象。如果 New 与 Set 一起使用，则将创建该类的一个新实例。如果 objectvar 包含了一个对象引用，则在赋新值时释放该引用。不能使用 New 关键字来创建任何内部数据类型的新实例，也不能创建从属对象。
objectexpression 必需的。由对象名，所声明的相同对象类型的其它变量，或者返回相同对象类型的函数或方法所组成的表达式。
Nothing 可选的。断绝 objectvar 与任何指定对象的关联。若没有其它变量指向 objectvar 原来所引用的对象，将其赋为 Nothing 会释放该对象所关联的所有系统及内存资源 |
SetAttr |
为一个文件设置属性信息。
语法
SetAttr pathname, attributes
pathname 必要参数。用来指定一个文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。
Attributes 必要参数。常数或数值表达式，其总和用来表示文件的属性。 |
SetBackgroundPicture |
为指定工作表或者图表设置背景图形
本示例为第一张工作表设置背景图形。
Worksheets(1).SetBackgroundPicture "c:\graphics\watermark.gif" |
SetBackgroundPicture |
为指定工作表或者图表设置背景图形。
本示例为第一张工作表设置背景图形。
Worksheets(1).SetBackgroundPicture "c:\graphics\watermark.gif" |
SetDefaultChart |
指定 Microsoft Excel 新建图表时使用的图表模板的名称
本示例将默认图表模板设置为自定义自动套用格式，并命名为“Monthly Sales”。
Application.SetDefaultChart FormatName:="Monthly Sales" |
SetFirstPriority |
将此条件格式规则的优先级值设置为“1”，以便在工作表上的所有其他规则之前计算此规则。 |
SetLastPriority |
为此条件格式规则设置求值顺序，以便在工作表上的所有其他规则之后计算此规则。 |
SetLinkOnData |
设置每当更新 DDE 链接时所运行过程的名称。
本示例设置每当更新 DDE 链接时所运行过程的名称。
ActiveWorkbook.SetLinkOnData _
"WinWord|'C:\MSGFILE.DOC'!DDE_LINK1", _
"my_Link_Update_Macro" |
SetParam |
定义指定查询表的参数。 |
SetPasswordEncryptionOptions |
使用密码来设置对工作簿进行加密的选项。
本示例设置活动工作簿的密码加密选项。
Sub SetPasswordOptions()
ActiveWorkbook.SetPasswordEncryptionOptions _
PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
PasswordEncryptionAlgorithm:="RC4", _
PasswordEncryptionKeyLength:=56, _
PasswordEncryptionFileProperties:=True
End Sub |
SetPhonetic |
为指定区域中的所有单元格创建一个 Phonetic 对象
本示例为当前活动工作表区域 A1:A10 中的每个单元格创建一个 Phonetic 对象。
ActiveSheet.Range("A1:A10").SetPhonetic |
SetShapesDefaultProperties |
将指定形状的格式设置为形状的默认格式。
语法
表达式.SetShapesDefaultProperties
表达式 一个代表 Shape 对象的变量。 |
SetSourceData |
为指定图表设置源数据区域
本示例为第一个图表设置源数据区域。
Charts(1).SetSourceData Source:=Sheets(1).Range("a1:a10"), _
PlotBy:=xlColumns |
Sgn |
返回一个 Variant (Integer)，指出参数的正负号。
语法
Sgn(number)
必要的 number 参数是任何有效的数值表达式。 |
Shadow |
如果字体为带阴影字体或者对象有阴影，则该值为 True
本示例为 myChart 的标题添加阴影。
Charts("Chart1").ChartTitle.Shadow = True |
Shadow |
返回一个只读的 ShadowFormat 对象，它包含指定形状的阴影格式属性。
语法
表达式.Shadow
表达式 一个代表 Shape 对象的变量。 |
Shadow |
返回或设置一个 Boolean 值，它确定对象是否有阴影。 |
Shadow |
返回或设置 Boolean 值，它确定字体是否是阴影字体或对象是否带有阴影。 |
Shape |
说明
Shape 对象是 Shapes 集合的成员。Shapes 集合包含某个工作簿中的所有形状。Shape代表绘图层中的对象，例如自选图形、任意多边形、OLE 对象或图片 |
Shape |
返回一个 Shape 对象，该对象代表附加在指定批注、图表节点或超链接上的图形
本示例选定活动工作表上的第二条批注。
ActiveSheet.Comments(2).Shape.Select |
Shape |
返回一个 Shape 对象，它代表附加到指定超链接的形状。 |
ShapeRange |
返回一个 ShapeRange 对象，它代表指定的一个或多个对象。只读。 |
Shapes |
返回 Shapes 对象，该对象代表工作表或图形工作表上的所有图形
本示例向第一张工作表中添加兰色的虚线。
With Worksheets(1).Shapes.AddLine(10, 10, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With |
Shapes |
指定的工作表上的所有 Shape 对象的集合。
说明
每个 Shape 对象都代表绘图层中的一个对象，如自选图形、任意多边形、OLE 对象或图片。 |
Shapes |
返回 Shapes 对象，该对象代表工作表或图形工作表上的所有图形。
本示例向第一张工作表中添加兰色的虚线。
With Worksheets(1).Shapes.AddLine(10, 10, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With |
ShapeStyle |
返回或设置 MsoShapeStyleIndex 类型的值，该值代表形状区域的形状样式。可读/写。
版本信息
已添加版本： Excel 2007
语法
表达式.ShapeStyle
表达式 一个代表 Shape 对象的变量。 |
SharedWorkspace |
返回一个 SharedWorkspace 对象，代表指定文档所在的“文档工作区”。只读。
expression.SharedWorkspace
expression必需。该表达式返回“应用于”列表中的对象之一。 |
Sheet |
返回指定的 PublishObject 对象的工作表名称。只读 String 类型。 |
SheetActivate |
当激活任何一张表时产生此事件
本示例显示每一张激活的表的名称。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub |
SheetActivate |
当激活任何一张表时产生此事件。
本示例显示每一张激活的表的名称。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub |
SheetBeforeDoubleClick |
当双击任何工作表时产生此事件，此事件先于默认的双击操作发生
本示例关闭默认的双击操作。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, ByVal Cancel As Boolean)
Cancel = True
End Sub |
SheetBeforeRightClick |
当用鼠标右键单击任一工作表时产生此事件
本示例关闭默认的右键单击操作。有关其他示例的详细信息。请参阅 BeforeRightClick 事件示例。
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, ByVal Cancel As Boolean)
Cancel = True
End Sub |
SheetBeforeRightClick |
当用鼠标右键单击任一工作表时产生此事件，此事件先于默认的右键单击操作
本示例关闭默认的右键单击操作。有关其他示例的详细信息。请参阅 BeforeRightClick 事件示例。
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, ByVal Cancel As Boolean)
Cancel = True
End Sub |
SheetCalculate |
当对工作表重新计算或者在图表上重新绘制发生更改的数据点时产生此事件。
当计算工作簿中的任何工作表时，本示例对第一张工作表的 A1:A100 区域进行排序。
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
With Worksheets(1)
.Range("a1:a100").Sort Key1:=.Range("a1")
End With
End Sub |
SheetChange |
当用户更改工作表中的单元格或者外部链接引起单元格的更改时，产生此事件。
当任一工作表发生更改时，运行本示例。
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
' runs when a sheet is changed
End Sub |
SheetDeactivate |
当任一工作表由活动状态转为非活动状态时产生此事件
本示例显示每一非活动工作表的名称。
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub |
SheetDeactivate |
当任一工作表由活动状态转为非活动状态时产生此事件。
本示例显示每一非活动工作表的名称。
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub |
SheetFollowHyperlink |
单击 Microsoft Excel 中的任意超链接时发生此事件
本示例对当前工作簿中所有已单击过的超链接保留一个列表或历史记录，其中也包括含有这些超链接的工作表名称。
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh as Object, _
ByVal Target As Hyperlink)
UserForm1.ListBox1.AddItem Sh.Name & ":" & Target.Address
UserForm1.Show
End Sub |
SheetPivotTableUpdate |
发生在数据透视表的工作表更新之后
本示例显示一则消息，说明数据透视表已经更新。本示例假定您已在类模块中声明了带有事件的 Application 类型或 Workbook 类型的对象。
Private Sub ConnectionApp_SheetPivotTableUpdate(ByVal shOne As Object, Target As PivotTable)
MsgBox "The SheetPivotTable connection has been updated."
End Sub |
SheetPivotTableUpdate |
发生在数据透视表的工作表更新之后。
本示例显示一则消息，说明数据透视表已经更新。本示例假定您已在类模块中声明了带有事件的 Application 类型或 Workbook 类型的对象。
Private Sub ConnectionApp_SheetPivotTableUpdate(ByVal shOne As Object, Target As PivotTable)
MsgBox "The SheetPivotTable connection has been updated."
End Sub |
Sheets |
对于 Application 对象，返回代表活动工作 簿中所有工作表的 Sheets 集合
本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作表的名称。
Set newSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newSheet.Cells(i, 1).Value = Sheets(i).Name
Next |
Sheets |
指定工作簿或当前活动工作簿中所有工作表的集合。Sheets 集合可包含 Chart 对象或 Worksheet 对象。 |
Sheets |
对于 Workbook 对象，返回代表指定工作簿中所有工作表的 Sheets 集合
本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作表的名称。
Set newSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newSheet.Cells(i, 1).Value = Sheets(i).Name
Next i |
SheetSelectionChange |
任一工作表上的选定区域发生更改时，将产生本事件
本示例在状态栏上显示选定区域所在的工作表名称及选定区域的地址。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Application.StatusBar = Sh.Name & ":" & Target.Address
End Sub |
SheetSelectionChange |
任一工作表上的选定区域发生更改时，将产生本事件。
本示例在状态栏上显示选定区域所在的工作表名称及选定区域的地址。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Application.StatusBar = Sh.Name & ":" & Target.Address
End Sub |
SheetsInNewWorkbook |
返回或设置 Microsoft Excel 自动插入到新工作簿中的工作表数目
本示例显示自动插入到新工作簿中的工作表数目。
MsgBox "Microsoft Excel inserts " & _
Application.SheetsInNewWorkbook & _
" sheet(s) in each new workbook" |
SheetViews |
返回指定窗口的 SheetViews 对象。只读。
版本信息
已添加版本： Excel 2007
语法
表达式.SheetViews
表达式 一个代表 Window 对象的变量。 |
Shell |
执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
语法
Shell(pathname[,windowstyle])
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。在Macintosh中，可以使用MacID函数来指定一个应用程序的署名而不是名称。下面的例子使用了Microsoft Word的署名:
Shell MacID("MSWD")
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。在Macintosh（系统7.0或更高）中，windowstyle仅决定当应用程序运行时是否获得焦点。 |
ShortcutKey |
返回或设置定义为自定义 Microsoft Excel 4.0 宏命令的名称的快捷键。String 类型，可读写。
语法
表达式.ShortcutKey
表达式 一个代表 Name 对象的变量。 |
Show |
显示内置的对话框，等待用户输入数据，然后返回一个代表用户响应的 Boolean 值。
语法
表达式.Show(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)
表达式 一个代表 Dialog 对象的变量。
参数
名称 必选/可选 数据类型 描述
Arg1-Arg30 可选 Variant 仅应用于内置对话框，是命令的初始参数。有关详细信息，请参阅“注解”部分。
例: Application.Dialogs(xlDialogOpen).Show |
Show |
对于 Range 对象，滚动当前活动窗口中的内容以将指定区域移到视图中
expression.Show
expression必需。该表达式返回上述对象之一。 |
Show |
通过在工作表中插入方案的值来显示方案。受影响的单元格为方案的更改单元格。 |
Show |
|
ShowAllData |
使当前筛选列表的所有行均可见
本示例使工作表 Sheet1 上所有的数据可见。本示例应在包含用“自动筛选”命令筛选出的列表的工作表上运行。
Worksheets("Sheet1").ShowAllData |
ShowAllData |
显示 AutoFilter 对象返回的所有数据。 |
ShowAllItems |
如果显示数据透视表中的所有项目（即使这些项目中不包含汇总数据），则该值为 True。默认值为 False。Boolean 类型，可读写。 |
ShowBubbleSize |
如果为 True，则在图表中显示数据标签的气泡的大小。如果为 False，则隐藏气泡的大小。Boolean 类型，可读写。 |
ShowCategoryName |
如果为 True，则在图表中显示数据标签的分类名称。如果为 False，则隐藏该分类的名称。Boolean 类型，可读写。 |
ShowChartTipNames |
如果图表显示图表提示名称，则该值为 True
本示例关闭图表提示的名称以及值。
With Application
.ShowChartTipNames = False
.ShowChartTipValue = False
End With |
ShowChartTipValues |
如果图表显示图表提示值，则该值为 True
本示例关闭图表提示的名称以及值。
With Application
.ShowChartTipNames = False
.ShowChartTipValue = False
End With |
ShowConflictHistory |
如果在以共享清单模式打开的工作簿中显示冲突日志工作表，则该值为 True
本示例检查活动工作簿是否以共享清单模式打开，如果是，则本示例显示冲突日志工作表。
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ShowConflictHistory = True
End If |
ShowDataForm |
显示与指定工作表相关联的数据表单
本示例显示工作表 Sheet1 的数据表单。
Worksheets(1).ShowDataForm |
ShowDependents |
绘制从指定区域指向直接从属单元格的追踪箭头
本示例绘制工作表Sheet1上从活动单元格指向其从属单元格的追踪箭头。
Worksheets("Sheet1").Activate
ActiveCell.ShowDependents
本示例去掉工作表Sheet1上活动单元格的一个级别的的追踪箭头。
Worksheets("Sheet1").Activate
ActiveCell.ShowDependents Remove:=True |
ShowDetail |
如果扩展了指定区域的分级显示，则该值为 True
本示例显示工作表 Sheet1 上分级显示的汇总行的明细数据。运行本示例之前，应先创建包含单个汇总行的简单分级显示，然后折叠该分级显示，使之仅显示汇总行。选定汇总行中的某一单元格，再运行本示例。
Worksheets("Sheet1").Activate
Set myRange = ActiveCell.CurrentRegion
lastRow = myRange.Rows.Count
myRange.Rows(lastRow).ShowDetail = True |
ShowDetail |
如果扩展了指定区域的分级显示（从而行或列的明细数据可见），则为 True。指定区域必须为分级显示中的单个汇总列或汇总行。Variant 型，可读写。对于 PivotItem 对象（如果该区域在数据透视表中，则为 Range 对象），当数据项显示明细数据时，此属性设为 True。 |
ShowDrillIndicators |
ShowDrillIndicators 属性用于切换数据透视表中深化指示符的显示。可读/写 Boolean 类型。 |
ShowError |
如果用户输入无效数据时显示数据有效性检查错误消息，则该属性值为 True。Boolean 类型，可读写。 |
ShowErrors |
绘制通过从属单元格树而指向错误源单元格的追踪箭头，并返回包含该单元格的区域
如果工作表 Sheet1 上的活动单元格中有错误，则本示例将显示红色追踪箭头。
Worksheets("Sheet1").Activate
If IsError(ActiveCell.Value) Then
ActiveCell.ShowErrors
End If |
ShowImportExportValidationErrors |
当数据通过指定的 XML 架构映射导入或导出时，返回或设置是否显示详细说明架构有效性验证错误的对话框。默认值为 False。Boolean 类型，可读写。 |
ShowInFieldList |
如果设置为 True（默认），则字段列表中将显示一个 CubeField 对象。Boolean 类型，可读写。 |
ShowingInAxis |
指明透视字段当前在数据透视表中是否可见。只读。 |
ShowInput |
如果用户在数据有效性检查区域内选定了某一单元格时，显示数据有效性检查输入消息，则该属性值为 True。Boolean 类型，可读写。 |
ShowLegendKey |
如果数据标签图例项标示可见，则为 True。Boolean 类型，可读写。 |
ShowLevels |
显示指定行号和/或列号在分级显示中的层次。 |
ShowNegativeBubbles |
如果在图表组中显示表示负值的气泡，则该值为 True。仅对气泡图有效。Boolean 类型，可读写。 |
ShowPageMultipleItemLabel |
如果为 True（默认），那么只要隐藏了项，并且在数据透视表视图中显示非隐藏项的总计，“( 多个项目 )”将显示在工作表的数据透视表单元格中。Boolean 类型，可读写。 |
ShowPages |
为页字段中的每个数据项创建新的数据透视表。每个新报表都创建在新的工作表上。 |
ShowPercentage |
如果为 True，则在图表中显示数据标签的百分比数值。如果为 False，则隐藏该百分比数值。Boolean 类型，可读写。 |
ShowPivotTableFieldList |
如果能显示数据透视表字段列表，则为 True（默认）。
在本示例中，Microsoft Excel 判断是否能显示数据透视表字段列表，并通知用户。
Sub UseShowPivotTableFieldList()
Dim wkbOne As Workbook
Set wkbOne = Application.ActiveWorkbook
'Determine PivotTable field list setting.
If wkbOne.ShowPivotTableFieldList = True Then
MsgBox "The PivotTable field list can be viewed."
Else
MsgBox "The PivotTable field list cannot be viewed."
End If
End Sub |
ShowPopup |
将指定的命令栏作为快捷菜单，在指定坐标或当前光标位置显示。
语法
表达式.ShowPopup(x, y)
表达式 一个代表 CommandBar 对象的变量。
参数
名称 必选/可选 数据类型 描述
x 可选 Variant 快捷菜单所在位置的 x 坐标。如果省略此参数，那么将取当前光标位置的 x 坐标。
y 可选 Variant 快捷菜单所在位置的 y 坐标。如果省略此参数，那么将取当前光标位置的 y 坐标。 |
ShowPrecedents |
绘制从指定区域指向直接引用单元格的追踪箭头
本示例绘制工作表Sheet1中从活动单元格指向其引用单元格的追踪箭头。
Worksheets("Sheet1").Activate
ActiveCell.ShowPrecedents
本示例去掉工作表Sheet1上活动单元格的一个级别的的追踪箭头。
Worksheets("Sheet1").Activate
ActiveCell.ShowPrecedents remove:=True |
ShowSeriesName |
返回或设置一个 Boolean 值，它指明图表上数据标签的系列名称显示方式。如果为 True，则显示系列名称。如果为 False，则隐藏系列名称。可读写。 |
ShowStartupDialog |
如果显示 Microsoft Excel 应用程序的“新建工 作簿”任务窗格，则返回 True（默认）。
在本示例中，Microsoft Excel 判断是否显示了“新建工作簿”任务窗格，并通知用户。
Sub CheckStartupDialog()
' Determine if the New Workbook task pane is enabled.
If Application.ShowStartupDialog = False Then
MsgBox "ShowStartupDialog is set to False."
Else
MsgBox "ShowStartupDialog is set to True."
End If
End Sub |
ShowTableStyleColumnHeaders |
如果列标题应显示在数据透视表中，则将 ShowTableStyleColumnHeaders 属性设置为 True。可读/写 Boolean 类型。 |
ShowTableStyleColumnStripes |
ShowTableStyleColumnStripes 属性显示镶边列，这些列中的偶数列和奇数列的格式互不相同。这样使数据透视表更易于阅读。可读/写 Boolean 类型。 |
ShowTableStyleRowHeaders |
如果行标题应显示在数据透视表中，则将 ShowTableStyleRowHeaders 属性设置为 True。可读/写 Boolean 类型。 |
ShowTableStyleRowStripes |
ShowTableStyleRowStripes 属性显示镶边行，这些行中的偶数行和奇数行的格式互不相同。这样使数据透视表更易于阅读。可读/写 Boolean 类型。 |
ShowToolTips |
如果打开工具提示，则该值为 True
本示例使 Microsoft Excel 显示工具提示。
Application.ShowToolTips = True |
ShowValue |
返回或设置一个 Boolean 值，该值对应所指定图表的数据标签值显示方式。如果为 True，则显示数据标签值。如果为 False，则隐藏数据标签值。可读写。 |
ShowWindow |
如果嵌入的图表显示在独立的窗口中，则该值为 True
本示例使嵌入的图表显示在独立的窗口中。
Worksheets(1).ChartObjects(1).Chart.ShowWindow = True |
ShowWindowsInTaskbar |
如果每个打开的工作簿都有一个单独的 Windows 任务栏按钮，则该值为 True
本示例指定每个打开的工作簿都不会有单独的 Windows 任务栏按钮。
Application.ShowWindowsInTaskbar = False |
ShrinkToFit |
如果文本自动收缩以适应可用列宽，则该值为 True
本示例使第一行中的文本自动收缩为适当尺寸以适应可用列宽。
Rows(1).ShrinkToFit = True |
ShrinkToFit |
返回或设置一个 Variant 值。
语法
表达式.ShrinkToFit
表达式 一个代表 CellFormat 对象的变量。 |
ShrinkToFit |
返回或设置一个 Boolean 值，它指明文本是否可以自动收缩为适当尺寸以适应可用列宽。
语法
表达式.ShrinkToFit
表达式 一个代表 Style 对象的变量。 |
ShrinkToFit |
返回或设置一个 Boolean 值，它指明文本是否可以自动收缩为适当尺寸以适应可用列宽。 |
Sin |
返回一 Double，指定参数的 sine（正弦）值。
语法
Sin(number)
必要的 number 参数是 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。 |
Sinh |
返回某一数字的双曲正弦值。 |
Size |
返回或设置字体的大小
本示例将 Sheet1 的 A1:D10 单元格的字体大小设为 12 磅。
With Worksheets("Sheet1").Range("A1:D10")
.Value = "Test"
.Font.Size = 12
End With |
Size |
返回或设置指定底纹的大小。可读/写 Single 类型。 |
SizeRepresents |
返回或设置气泡图中气泡的大小所表示的含义。可为以下 XlSizeRepresents 常量之一：xlSizeIsArea 或 xlSizeIsWidth。Long 类型，可读写。 |
SizeWithWindow |
如果 Microsoft Excel 调整图表大小以匹配图表工作表窗口的大小，则该值为 True
本示例使 Chart1 的大小随其窗口大小的改变而改变。
Charts("Chart1").SizeWithWindow = True |
Skew |
返回分布的不对称度。不对称度反映以其平均值为中心的分布的不对称程度。不对称度为正表示不对称部分的分布更趋向正值。不对称度为负表示不对称部分的分布更趋向负值。 |
SLN |
返回一个 Double，在一期里指定一项资产的直线折旧。
语法
SLN(cost, salvage, life)
cost 必要。Double 指定资产的初始成本。
salvage 必要。Double 指定资产在可用年限结束后的价值。
life 必要。Double 指定资产的可用年限。 |
Sln |
返回某项资产一个周期的直线折旧值。 |
Slope |
返回根据 known_y's 和 known_x's 中的数据点拟合的线性回归直线的斜率。斜率为直线上任意两点的垂直距离与水平距离的比值，也就是回归直线的变化率。 |
Small |
返回数据集中第 k 个最小值。使用此函数可以返回数据集中特定位置上的数值。 |
SmallChange |
返回或设置滚动条或微调框在滚动一行（当用户单击箭头）时的增量或减量。Long 类型，可读写。 |
SmallGrid |
如果 Microsoft Excel 为新建的数据透视表使用一个具有两个单元格宽度和两个单元格高度的网格，则该值为 True。如果 Excel 使用一个空白模板边框，则该值为 False。Boolean 类型，可读写。 |
SmallScroll |
按行或列滚动窗口内容。
本示例将工作表 Sheet1 的活动窗口内容向下滚动三行。
Worksheets("Sheet1").Activate
ActiveWindow.SmallScroll down:=3 |
SmallScroll |
按行或按列滚动窗口内容。
语法
表达式.SmallScroll(Down, Up, ToRight, ToLeft)
表达式 一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
Down 可选 Variant 将内容向下滚动的行数。
Up 可选 Variant 将内容向上滚动的行数。
ToRight 可选 Variant 将内容向右滚动的列数。
ToLeft 可选 Variant 将内容向左滚动的列数。
返回值
Variant |
SmallScroll |
按行或按列滚动窗口内容。 |
SmartDocument |
返回一个代表智能文档解决方案设置的 SmartDocument 对象
expression.SmartDocument
expression必需。该表达式返回一个 Workbook 对象。 |
SmartTagActions |
返回一个 SmartTagActions 对象，该对象表示选定的智能标记的操作类型。 |
SmartTagOptions |
返回一个 SmartTagOptions 对象，该对象代表能与智能标记一起进行操作的选项。
在本示例中，Microsoft Excel 将智能标记选项的显示设置通知给用户。
Sub CheckSmartTagOptions()
' Check the display options for smart tags.
Select Case ActiveWorkbook.SmartTagOptions.DisplaySmartTags
Case xlButtonOnly
MsgBox "The button for smart tags will only be displayed."
Case xlDisplayNone
MsgBox "Nothing will be displayed for smart tags."
Case xlIndicatorAndButton
MsgBox "The button and indicator will be displayed for smart tags."
End Select
End Sub |
SmartTagOptions |
代表用智能标记可执行的选项 |
SmartTagRecognizers |
返回一个应用程序的 SmartTagRecognizers 集合 |
SmartTagRecognizers |
该集合代表在 Microsoft Excel 中进行操作时，用信息类型标记数据的识别引擎
可用 Application 对象的 SmartTagRecognizers 属性返回一个 SmartTagRecognizers 集合 |
SmartTags |
返回一个 SmartTags 对象，该对象代表指定单元格的标识符
本示例将一个名为“MSFT”的智能标记放置在单元格A1中，然后将单元格A1的标识符的父标识符通知给用户。本示例假定主机系统与 Internet 相连。
Sub ReturnSmartTag()
Dim strLink As String
Dim strType As String
' Define SmartTag variables.
strLink = "urn:schemas-microsoft-com:smarttags#StockTickerSymbol"
strType = "stockview"
' Enable smart tags to be embedded and recognized.
ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True
Application.SmartTagRecognizers.Recognize = True
Range("A1").Formula = "MSFT"
MsgBox Range("A1").SmartTags.Parent
End Sub |
SmartTags |
返回一个 SmartTags 对象，该对象代表指定单元格的标识符
本示例将一个名为“MSFT”的智能标记放置在单元格A1中，然后将单元格 A1的标识符的父标识符通知给用户。本示例假定主机系统与 Internet 相连。
Sub ReturnSmartTag()
Dim strLink As String
Dim strType As String
' Define SmartTag variables.
strLink = "urn:schemas-microsoft-com:smarttags#StockTickerSymbol"
strType = "stockview"
' Enable smart tags to be embedded and recognized.
ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True
Application.SmartTagRecognizers.Recognize = True
Range("A1").Formula = "MSFT"
MsgBox Range("A1").SmartTags.Parent
End Sub |
SmartTags |
SmartTag 对象的集合，该集合代表分配给每个单元格的标识符 |
Smooth |
如果折线图或散点图有平滑线，则为 True。仅适用于折线图和散点图。可读写。 |
Smooth |
如果图例项标示有平滑线，则为 True。可读写。 |
SoftEdge |
返回指定形状的 SoftEdgeFormat 对象，该对象包含形状的柔化边缘格式属性。只读。
版本信息
已添加版本： Excel 2007
语法
表达式.SoftEdge
表达式 一个代表 Shape 对象的变量。 |
Solid |
将指定填充设为统一的颜色。使用此方法可将渐变、纹理、图案或背景填充转换为纯色填充。 |
SolveOrder |
返回一个 Long 类型的值，该值计算成员求解次序的 MDX（多维表达式）参数的值。默认值为零。只读。 |
Sort |
对数据透视表、单元格区域或活动区域进行排序
本示例对工作表 Sheet1 上的单元格区域 A1:C20 进行排序，用单元格 A1 作为第一排序关键字，用单元格 B1 作为第二排序关键字。排序是按行以升序进行的，没有标题。本示例假定单元格区域 A1:C20 有数据存在。
Sub SortRange1()
Worksheets("Sheet1").Range("A1:C20").Sort _
Key1:=Worksheets("Sheet1").Range("A1"), _
Key2:=Worksheets("Sheet1").Range("B1")
End Sub |
Sort |
返回查询表范围的排序条件。只读。 |
Sort |
获取 AutoFilter 集合的排序列和排序次序。 |
SortSpecial |
使用东亚排序方法对区域或数据透视表进行排序；或者如果区域中只包含一个单元格，则对活动区域使用本方法
本示例对单元格区域 A1:A5 按拼音（字符的汉语拼音排序顺序）顺序进行排序。为对中文字符进行排序，本示例假定用户有对 Microsoft Excel 的汉语支持。即使没有汉语支持，Excel 会对该示例位于指定区域中的任意数字以默认方式进行排序。本示例假定单元格区域 A1:A5 中有数据存在。
Sub SpecialSort()
Application.Range("A1:A5").SortSpecial SortMethod:=xlPinYin
End Sub |
SortUsingCustomLists |
SortUsingCustomLists 属性控制最初在初始化透视字段并按 PivotItems 标题对 PivotItems 进行排列时，以及稍后在用户应用排序时，是否将自定义列表用于对字段项进行排序。可读/写 Boolean 类型。 |
SoundNote |
本属性不应再被使用。声音注释已从 Microsoft Excel 中删除 |
Sounds |
如果“Office 助手”发出对应于与动画的声音，则为 True。可读/写。 |
Source |
返回一个代表唯一名称的 Variant 值，该名称用于标识其 SourceType 属性值为 xlSourceRange、xlSourceChart、xlSourcePrintArea、xlSourceAutoFilter、xlSourcePivotTable 或 xlSourceQuery 的项。 |
SourceCaption |
SourceCaption 属性只适用于 OLAP 数据透视表，并从 OLAP 服务器中返回透视字段的原始标题。只读。 |
SourceConnectionFile |
返回或设置一个 String，它指明用于创建数据透视表的 Microsoft Office 数据连接文件或类似的文件。可读写。 |
SourceData |
返回数据透视表的数据源，如下表所示。Variant 型，可读写。 |
SourceDataFile |
返回或设置一个 String 值，它指明查询表的源数据文件。型。 |
SourceDataFile |
返回一个 String 值，它指明数据透视表缓存的源数据文件。 |
SourceName |
返回或设置一个 String 值，它代表指定对象的链接源名称。 |
SourceName |
返回一个 String 值，它代表指定的对象出现在指定的数据透视表的原始源数据中时的名称。 |
SourceName |
返回一个 Variant 值，它代表指定的对象出现在指定的数据透视表的原始源数据中时的名称。 |
SourceNameStandard |
返回一个 String 类型的数值，该数值表示以标准英文（美国）格式设置的数据透视表项目的源名称。只读。 |
SourceRange |
返回一个 Range 对象，该对象表示包含指定查询参数值的单元格。只读。 |
SourceType |
返回 XlPivotTableSourceType 值，它代表所发布项目的类型。 |
SourceType |
返回 XlSourceType 值，它代表所发布项目的类型。 |
Space |
返回特定数目空格的 Variant (String)。
语法
Space(number)
必要的 number 参数为字符串中想要的空格数。 |
Spc |
与 Print # 语句或 Print 方法一起使用，对输出进行定位。
语法
Spc(n)
必要的 n 参数是在显示或打印列表中的下一个表达式之前插入的空白数。 |
Speak |
按行或列的顺序朗读单元格区域
本示例中，Microsoft Excel 将朗读“Hello”。
Sub UseSpeech()
Application.Speech.Speak "Hello"
End Sub |
Speak |
Microsoft Excel 回放作为参数传递的文本字符串。 |
SpeakCellOnEnter |
当按下 Enter 或完成了对活动单元格的编辑时，Microsoft Excel 支持朗读活动单元格的模式。如果 SpeakCellOnEnter 属性为 True，则打开此模式。如果为 False，则关闭此模式。Boolean 类型，可读写。 |
SpecialCells |
返回一个 Range 对象，该对象代表与指定类型及值相匹配的所有单元格
本示例选定工作表 Sheet1 中已用区域的最后一个单元格。
Worksheets("Sheet1").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate |
Speech |
返回一个 Speech 对象
在本示例中，Microsoft Excel 播放“Hello”。本示例假定已在主机系统上安装了语音功能。
Sub UseSpeech()
Application.Speech.Speak "Hello"
End Sub |
SpellingOptions |
返回一个 SpellingOptions 对象，该对象代表应用程序的拼写选项。 |
Split |
如果指定窗口被拆分，则该值为 True
本示例取消指定的窗口拆分。在取消窗口拆分之前，需先将 FreezePanes 属性设为 False，以便取消冻结窗格。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
With ActiveWindow
.FreezePanes = False
.Split = False
End With |
Split |
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
语法
Split(expression[, delimiter[, limit[, compare]]])
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
limit 可选的。要返回的子字符串数，–1表示返回所有的子字符串。
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 |
Split |
如果指定窗口被拆分，则该属性值为 True。Boolean 类型，可读写。
语法
表达式.Split
表达式 一个代表 Window 对象的变量。 |
SplitColumn |
返回或设置将指定窗口拆分成窗格处的列号（拆分线左侧的列数）。
本示例对指定窗口进行拆分，拆分线左侧留有 1.5 个列宽。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.SplitColumn = 1.5 |
SplitColumn |
返回或设置将指定窗口拆分成窗格处的列号（拆分线左侧的列数）。Long 类型，可读写。
语法
表达式.SplitColumn
表达式 一个代表 Window 对象的变量。 |
SplitHorizontal |
以磅为单位返回或设置窗口水平拆分线的位置
本示例设置活动窗口的水平拆分线位置为 216 磅（3 英寸）。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.SplitHorizontal = 216 |
SplitHorizontal |
以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位返回或设置窗口水平拆分线的位置。Double 类型，可读写。
语法
表达式.SplitHorizontal
表达式 一个代表 Window 对象的变量。 |
SplitRow |
返回或设置将指定窗口拆分成窗格处的行号（拆分线以上的行数）。
本示例拆分活动窗口，并使拆分线以上有 10 行。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.SplitRow = 10 |
SplitRow |
返回或设置将指定窗口拆分成窗格处的行号（拆分线以上的行数）。Long 类型，可读写。
语法
表达式.SplitRow
表达式 一个代表 Window 对象的变量。 |
SplitType |
返回或设置在复合饼图或复合条饼图中拆分两部分的方式。XlChartSplitType 类型，可读写。 |
SplitValue |
返回或设置复合饼图或复合条饼图中分隔两部分的阈值。可读/写 Variant 类型。 |
SplitVertical |
以磅为单位返回或设置窗口垂直拆分线的位置
本示例设置活动窗口的垂直拆分线位置为 216 磅（3 英寸）。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.SplitVertical = 216 |
SplitVertical |
以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位返回或设置窗口垂直拆分线的位置。Double 类型，可读写。
语法
表达式.SplitVertical
表达式 一个代表 Window 对象的变量。 |
SqlState |
返回 SQL 状态错误。String 型，只读。 |
Sqr |
返回一个 Double，指定参数的平方根。
语法
Sqr(number)
必要的 number 参数 number 是 Double 或任何有效的大于或等于 0 的数值表达式。 |
SqrtPi |
返回某数与 pi 的乘积的平方根。 |
Stage |
返回一个数字值，此值指定最近一次 OLE DB 查询所产生的错误的阶段。Long 类型，只读。 |
StandardFont |
返回或设置标准字体的名称
本示例检查操作系统的类型，如果为 Macintosh，则将标准字体设为 Geneva，如果为 Windows，则将标准字体设为 Arial。
If Application.OperatingSystem Like "*Macintosh*" Then
Application.StandardFont = "Geneva"
Else
Application.StandardFont = "Arial"
End If |
StandardFontSize |
以磅为单位返回或设置标准字体大小
本示例将标准字体大小设为 12 磅。
Application.StandardFontSize = 12 |
StandardFormula |
返回或设置一个 String 值，该值指定使用标准英语（美国）格式的公式。可读写。 |
StandardHeight |
以磅为单位返回工作表中所有行的标准高度（默认值）。
本示例将工作表 sheet1 中的行一的行高设置为标准行高。
Worksheets("Sheet1").Rows(1).RowHeight = _
Worksheets("Sheet1").StandardHeight |
Standardize |
返回以 mean 和 standard_dev 表示的分布的正态化数值。 |
StandardWidth |
返回或设置工作表中所有列的标准列宽（默认值）。
本示例将以标准列宽设置 Sheet1 中首列的列宽。
Worksheets("Sheet1").Columns(1).ColumnWidth = _
Worksheets("Sheet1").StandardWidth |
Start |
返回一个位置，此位置表示指定单元格中拼音形式的文本字符串的第一个字符。Long 类型，只读。 |
StartupPath |
返回启动文件夹的完整路径，不包括尾部分隔符
本示例显示 Microsoft Excel 启动文件夹的完整路径。
MsgBox Application.StartupPath |
StartWizard |
启动“Office 助手”，并返回一个标识该会话的 Long 值。 |
Static |
在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用 Static 语句声明的变量的值。
语法
Static varname[([subscripts])] [As [New] type] [, varname[([subscripts])] [As [New] type]] . . .
varname 必需的。变量的名称；遵循标准变量命名约定。
subscripts 可选的。数组变量的维数；最多可以定义 60 维的多维数组。subscripts 参数使用下面的语法：
[lower To] upper [,[lower To] upper] . . .
如果不显式指定 lower，则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0。
New 可选的。用它可以隐式地创建对象的关键字。如果使用 New 声明对象变量，则在第一次引用该变量时将新建该对象的实例，因此不必使用 Set 语句来对该对象引用赋值。New 关键字不能用来声明任何内部数据类型的变量，也不能用来声明从属对象的实例。
type 可选的。变量的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（对变长的字符串）、String * length（对定长的字符串）、Object、Variant、用户定义类型或对象类型。所声明的每个变量都要有一个单独的 As type 子句。 |
Status |
指示传送名单的状态。XlRoutingSlipStatus 类型，只读。 |
StatusBar |
返回或设置状态栏中的文字
本示例在打开 Large.xls 工作簿之前将状态栏文 字设为“Please be patient...”，然后将状态栏 恢复为默认文字。
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar |
StDev |
基于样本估算标准偏差。标准偏差反映数值相对于平均值 (mean) 的离散程度。 |
StDevP |
基于以参数形式给出的整个样本总体计算标准偏差。标准偏差反映数值相对于平均值 (mean) 的离散程度。 |
StEyx |
返回通过线性回归法计算每个 x 的 y 预测值时所产生的标准误差。标准误差用来度量根据单个 x 变量计算出的 y 预测值的误差量。 |
Stop |
暂停执行。
语法
Stop
说明
可以在过程中的任何地方放置 Stop 语句，使用 Stop 语句，就相当于在程序代码中设置断点。 |
StopIfTrue |
返回或设置一个 Boolean 值，该值确定在当前规则的计算结果为 True 时是否应计算单元格上的其他格式规则。 |
Str |
返回代表一数值的 Variant (String)。
语法
Str(number)
必要的 number 参数为一 Long，其中可包含任何有效的数值表达式。 |
StrComp |
返回 Variant (Integer)，为字符串比较的结果。
语法
StrComp(string1, string2[, compare])
string1 必要参数。任何有效的字符串表达式。
string2 必要参数。任何有效的字符串表达式。
Compare 可选参数。指定字符串比较的类型。如果 compare 参数是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。 |
StrConv |
返回按指定类型转换的 Variant (String)。
语法
StrConv(string, conversion, LCID)
string 必要参数。要转换的字符串表达式。
conversion 必要参数。Integer。其值的和决定转换的类型。
LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。） |
Strikethrough |
如果文字中间有一条水平删除线，则该值为 True
本示例将 Sheet1 中活动单元格的字体设置为加删除线。
Worksheets("Sheet1").Activate
ActiveCell.Font.Strikethrough = True |
String |
返回 Variant (String)，其中包含指定长度重复字符的字符串。
语法
String(number, character)
number 必要参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。
character 必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。 |
StrReverse |
返回一个字符串，其中一个指定子字符串的字符顺序是反向的。
语法
StrReverse(expression)
参数expression 是一个字符串，它的字符顺序要被反向。如果expression 是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果expression为Null，则产生一个错误。 |
Style |
返回 Style 对象，该对象代表指定区域的样式
本示例对工作表 sheet1 中的单元格 A1 应用“常规”样式。
Worksheets("Sheet1").Range("A1").Style.Name = "Normal" |
Style |
代表区域的样式说明。
说明
Style 对象包含样式的所有属性（字体、数字格式、对齐方式，等等）。有几种内置样式，包括“常规”、“货币”和“百分比”。同时对多个单元格修改单元格格式属性时，使用 Style 对象是快捷高效的方法。 |
Style |
返回或设置一个 MsoLineStyle 值，它代表线条的样式。 |
Style |
返回或设置指定底纹的样式。可读/写 MsoShadowStyle 类型。 |
Styles |
返回一个 Styles 集合，此集合代表指定工作簿中的所有样式
本示例从活动工作簿中删除用户自定义的“Stock Quote Style”样式。
ActiveWorkbook.Styles("Stock Quote Style").Delete |
Styles |
指定工作簿或活动工作簿上所有 Style 对象的集合。每个 Style 对象代表某一区域的样式说明 |
Sub |
声明子过程的名称，参数，以及构成其主体的代码。
语法
[Private | Public | Friend] [Static] Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]
End Sub
Public 可选的。表示所有模块的所有其它过程都可访问这个 Sub 过程。 如果在包含 Option Private 的模块中使用，则这个过程在该工程外是不可使用的。
Private 可选的。表示只有在包含其声明的模块中的其它过程可以访问该 Sub 过程。
Friend 可选的。只能在类模块中使用。表示该 Sub 过程在整个工程中都是可见的，但对对象实例的控制者是不可见的。
Static 可选的。表示在调用之间保留 Sub 过程的局部变量的值。Static 属性对在 Sub 外声明的变量不会产生影响，即使过程中也使用了这些变量。
name 必需的。Sub 的名称；遵循标准的变量命名约定。
arglist 可选的。代表在调用时要传递给 Sub 过程的参数的变量列表。多个变量则用逗号隔开。
statements 可选的。Sub 过程中所执行的任何语句组。 |
SubAddress |
返回或设置文档中与指定超链接相关联的位置。String 类型，可读写。 |
Subject |
返回或设置邮件或传送名单的主题。String 型，可读写。 |
SubscribeTo |
您已经请求了仅用于 Macintosh 上的 Visual Basic 关键字的“帮助”信息。有关该关键字的详细信息，请参阅 Microsoft Office Macintosh 版本所附带的语言引用帮助。 |
Subscript |
如果字体格式设为加下标，则该值为 True，默认值为 False
本示例将 A1 单元格的第二个字符设为下标字符。
Worksheets("Sheet1").Range("A1") _
.Characters(2, 1).Font.Subscript = True |
Substitute |
在文本字符串中用 new_text 替代 old_text。如果需要在某一文本字符串中替换指定的文本，请使用函数 SUBSTITUTE；如果需要在某一文本字符串中替换指定位置处的任意文本，请使用函数 REPLACE。 |
Subtotal |
创建指定区域或当前区域（如果该区域为单个单元格时）的分类汇总
本示例创建工作表 Sheet1 中选定区域的分类汇总。该分类汇总是以第一个字段进行分组的求和，汇总对象为第二和第三个字段。
Worksheets("Sheet1").Activate
Selection.Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(2, 3) |
Subtotal |
创建分类汇总。 |
SubtotalHiddenPageItems |
如果在行或列的分类汇总、块汇总和总计中包括数据透视表中的隐藏页字段项，则该值为 True。默认值为 False。Boolean 类型，可读写。 |
SubtotalLocation |
此方法可更改所有现有透视字段的分类汇总位置。更改分类汇总位置仅对大纲形式的字段产生直接的视觉效果，但是也会对表格形式的字段设置该方法。 |
SubtotalName |
返回或设置显示在指定数据透视表的分类汇总列或行标题中的文本字符串标志。默认值为“Subtotal”。String 类型，可读写。 |
Subtotals |
返回或设置与指定字段同时显示的分类汇总。仅对非数据字段有效。Variant 类型，可读写。 |
SuggestMainOnly |
如果该值为 True，则命令 Microsoft Excel 只从主要词典中选取备选单词，以便使用拼写检查。如果该值为 False，则只取消主要词典中备选单词的限制，以便使用拼写检查。Boolean 类型，可读写。 |
Sum |
对某单元格区域中的所有数字求和。 |
SumIf |
根据给定条件对指定单元格求和。 |
SumIfs |
对区域中满足多个条件的单元格求和。 |
Summary |
如果指定区域为分级显示的汇总行或汇总列，则该值为 True
如果工作表Sheet1上第四行为分级显示的汇总行，则本示例将其字体设置为加粗和倾斜。
With Worksheets("Sheet1").Rows(4)
If .Summary = True Then
.Font.Bold = True
.Font.Italic = True
End If
End With |
SummaryColumn |
返回或设置分级显示中的汇总列的位置。XlSummaryColumn 类型，可读写。 |
SummaryRow |
返回或设置分级显示中汇总行的位置。XlSummaryRow 类型，可读写。 |
SumProduct |
在给定的数组中，将数组中对应的元素相乘，并返回乘积之和。 |
SumSq |
返回参数的平方之和。 |
SumX2MY2 |
返回两个数组中对应值的平方差之和。 |
SumX2PY2 |
返回两数组中对应数值的平方和之和，平方和之和在统计计算中经常使用。 |
SumXMY2 |
返回两个数组中对应值之差的平方和。 |
Superscript |
如果字体格式设为上标字符，则该值为 True，默认值为 False
本示例将 A1 单元格的最后一个字符设为上标字符。
n = Worksheets("Sheet1").Range("A1").Characters.Count
Worksheets("Sheet1").Range("A1") _
.Characters(n, 1).Font.Superscript = True |
SurfaceGroup |
返回 ChartGroup 对象，该对象代表三维图表中的曲面图组。
本示例设置 Chart1 中的三维曲面图组，使其中的每一数据标志都使用不同的颜色。本示例应在三维图表上运行。
Charts("Chart1").SurfaceGroup.VaryByCategories = True |
Switch |
计算一组表达式列表的值，然后返回与表达式列表中最先为 True 的表达式所相关的 Variant 数值或表达式。
语法
Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]])
expr 必要参数。要加以计算的 Variant 表达式。
value 必要参数。如果相关的表达式为 True，则返回此部分的数值或表达式。 |
SYD |
返回一个 Double，指定某项资产在一指定期间用年数总计法计算的折旧。
语法
SYD(cost, salvage, life, period)
cost 必要。Double 指定资产的初始成本。
salvage 必要。Double 指定资产在可用年限结束后的价值。
life 必要。Double 指定资产的可用年限。
period 必要。Double 指定计算资产折旧所用的那一期间。 |
Syd |
返回某项资产按年限总和折旧法计算的指定期间的折旧值。 |
Sync |
当作为“文档工作区”一部分的工作表的本地副本与服务器上的副本进行同步时，发生此事件
如果“文档工作区”中的工作表同步失败，则下例显示一条消息。
Private Sub Worksheet_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
If SyncEventType = msoSyncEventDownloadFailed Or _
SyncEventType = msoSyncEventUploadFailed Then
MsgBox "Document synchronization failed. " & _
"Please contact your administrator " & vbCrLf & _
"or try again later."
End If
End Sub |
Sync |
返回一个 Sync 对象，使用该对象可访问作为“文档工作区”一部分的文档的方法和属性。
下例显示了当活动工作簿是“文档工作区”的共享文档时，最后修改此活动工作簿的人员的名称。
Dim eStatus As MsoSyncStatusType
Dim strLastUser As String
eStatus = ActiveDocument.Sync.Status
If eStatus = msoSyncStatusLatest Then
strLastUser = ActiveWorkbook.Sync.WorkspaceLastChangedBy
MsgBox "You have the most up-to-date copy." & _
"This file was last modified by " & strLastUser
End If |
SyncScrollingSideBySide |
如果为 True，在对文档进行并排比较的同时启用窗口内容的滚动功能。若为 False，则在对文档进行并排比较的同时禁用窗口内容的滚动功能。
expression.SyncScrollingSideBySide
expression必需。该表达式返回一个 Windows 集合。 |