|
|
楼主 |
发表于 2010-5-23 11:14
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
关于add方法在应用于不同对象时的用法1
http://hi.baidu.com/%C6%BD%B7%B2 ... d15cf030add136.html
2008-01-22 16:06expression.Add(Before, After, Count, Type)
expression 必需。该表达式返回上面的对象之一。
Before Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。
After Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。
Count Variant 类型，可选。要新建的工作表的数目。默认值为 1。
Type Variant 类型，可选。指定工作表类型。可为以下 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。
说明
如果 Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。
应用于 SmartTags 对象的 Add 方法。
添加智能标记。返回 SmartTag 对象。
expression.Add(SmartTagType)
expression 必需。该表达式返回一个 SmartTags 对象。
SmartTagType String 类型，必需。智能标记的类型。
应用于 Styles 对象的 Add 方法。
新建样式并将其添加到当前工作簿的可用样式列表中。返回 Style 对象。
expression.Add(Name, BasedOn)
expression 必需。该表达式返回一个 Styles 对象。
Name String 类型，必需。新样式的名称。
BasedOn Variant 类型，可选。引用某单元格的 Range 对象，新样式即基于该单元格生成。如果省略本参数，就基于“常规” 样式建立新样式。
说明
如果指定名称的样式已经存在，该方法将基于 BasedOn 参数指定的单元格重新定义该存在的样式。下例基于活动单元格重新定义“常规”样式。
ActiveWorkbook.Styles.Add Name := "Normal", _
BasedOn := ActiveCell
应用于 Trendlines 对象的 Add 方法。
创建新的趋势线。返回 Trendline 对象。
expression.Add(Type, Order, Period, Forward, Backward, Intercept, DisplayEquation, DisplayRSquared, Name)
expression 必需。该表达式返回一个 Trendlines 对象。
Type XlTrendlineType 类型，可选。趋势线类型。
XlTrendlineType 可为以下 XlTrendlineType 常量之一。
xlExponential
xlLinear 默认值
xlLogarithmic
xlMovingAvg
xlPolynomial
xlPower
Order Variant 类型，可选。如果 Type 为 xlPolynomial，本参数为必需参数。趋势线顺序。必须为 2 到 6 之间的整数（包括 2 和 6）。
Period Variant 类型，可选。如果 Type 为 xlMovingAvg，本参数为必需参数。趋势线周期。必须为大于 1，而小于正添加趋势线的数据系列中数据点个数的整数。
Forward Variant 类型，可选。趋势线向前延伸的周期数目（或散点图中的单位个数）。
Backward Variant 类型，可选。趋势线向后延伸的周期数目（或散点图中的单位个数）。
Intercept Variant 类型，可选。趋势线的截距。如果省略该参数，则回归分析将自动设置截距。
DisplayEquation Variant 类型，可选。如果为 True，则在图表中显示趋势线的公式（与 R 平方值显示在同一数据标签中）。默认值为 False。
DisplayRSquared Variant 类型，可选。如果为 True，则在图表中显示趋势线的 R 平方值（与公式显示在同一数据标签中）。默认值为 False。
Name Variant 类型，可选。作为文本的趋势线的名称。如果省略该参数，由 Microsoft Excel 自动生成名称。
应用于 UserAccessList 对象的 Add 方法。
添加用户访问列表。返回一个 UserAccess 对象。
expression.Add(Name, AllowEdit)
expression 必需。该表达式返回一个 UserAccessList 对象。
Name String 类型，必需。用户访问列表的名称。
AllowEdit Boolean 类型，必需。如果为 True，则允许可访问列表中的用户编辑受保护工作表上的可编辑单元格区域。
应用于 Validation 对象的 Add 方法。
向指定区域内添加数据有效性检验。
expression.Add(Type, AlertStyle, Operator, Formula1, Formula2)
expression 必需。该表达式返回一个 Validation 对象。
Type XlDVType 类型，必需。数据有效性类型。
XlDVType 可为以下 XlDVType 常量之一。
xlValidateCustom
xlValidateDate
xlValidateDecimal
xlValidateInputOnly
xlValidateList
xlValidateTextLength
xlValidateTime
xlValidateWholeNumber
AlertStyle Variant 类型，可选。有效性检验警告样式。可为以下 XlDVAlertStyle 常量之一：xlValidAlertInformation、xlValidAlertStop 或 xlValidAlertWarning。
Operator Variant 类型，可选。数据有效性运算符。可为以下 XlFormatConditionOperator 常量之一：xlBetween、xlEqual、xlGreater、xlGreaterEqual、xlLess、xlLessEqual、xlNotBetween 或 xlNotEqual。
Formula1 Variant 类型，可选。数据有效性公式的第一部分。
Formula2 Variant 类型，可选。当 Operator 为 xlBetween 或 xlNotBetween 时，数据有效性公式的第二部分（其他情况下，此参数被忽略）。
说明
Add 方法所要求的参数依有效性检验的类型而定，如下表所示。
数据有效性类型 参数
xlValidateCustom Formula1 必需，忽略 Formula2。Formula1 必须包含一个表达式，数据项有效时该表达式取值为 True，而数据项无效时取值为 False。
xlInputOnly 能使用 AlertStyle、Formula1 或 Formula2 参数。
xlValidateList Formula1 必需，忽略 Formula2。Formula1 必须包含以逗号分隔的取值列表，或引用此列表的工作表。
xlValidateWholeNumber、xlValidateDate、xlValidateDecimal、xlValidateTextLength 或 xlValidateTime 必须指定 Formula1 或 Formula2 之一，或两者均指定。
应用于 VPageBreaks 对象的 Add 方法。
添加垂直分页符。返回 VPageBreak 对象。
expression.Add(Before)
expression 必需。该表达式返回一个 VPageBreaks 对象。
Before Object 类型，必需。Range 对象。新的分页符将添加到本参数所指定的区域左方。
应用于 Watches 对象的 Add 方法。
添加在重新计算工作表时要跟踪的区域。返回 Watch 对象。
expression.Add(Source)
expression 必需。该表达式返回一个 Watches 对象。
Source Variant 类型，必需。单元格区域的源。
应用于 Workbooks 对象的 Add 方法。
新建工作簿。新建的工作簿将成为活动工作簿。返回 Workbook 对象。
expression.Add(Template)
expression 必需。该表达式返回一个 Workbooks 对象。
Template Variant 类型，可选。确定如何创建工作簿。如果本参数为指定一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果本参数为常量，新工作簿将包含指定类型的单张工作表。可为以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。如果省略本参数，Microsoft Excel 将创建包含一定数目的空白工作表的工作簿（该数目由 SheetsInNewWorkbook 属性设置）。
说明
如果 Template 参数指定的是文件，则该文件名可包含路径。
示例
应用于 AddIns 对象。
本示例从 A 驱动器中添加加载宏 Myaddin.xla。运行本示例后，Microsoft Excel 将把文件 A:\Myaddin.xla 复制到硬盘上的 Library 文件夹中，并将该加载宏的标题添加到“加载宏”对话框的列表中。
UseAddIn()
Set myAddIn = AddIns.Add(Filename:="A:\MYADDIN.XLA", _
CopyFile:=True)
MsgBox myAddIn.Title & " has been added to the list"
End Sub
应用于 AllowEditRanges 对象。
本示例允许编辑活动工作表上的单元格区域 A1:A4，并通知用户，然后更改指定区域的密码并通知用户所做的更改。
Sub UseChangePassword()
Dim wksOne As Worksheet
Set wksOne = Application.ActiveSheet
' Protect the worksheet.
wksOne.Protect
' Establish a range that can allow edits
' on the protected worksheet.
wksOne.Protection.AllowEditRanges.Add _
Title:="Classified", _
Range:=Range("A1:A4"), _
Password:="secret"
MsgBox "Cells A1 to A4 can be edited on the protected worksheet."
' Change the password.
wksOne.Protection.AllowEditRanges(1).ChangePassword _
Password:="moresecret"
MsgBox "The password for these cells has been changed."
End Sub
应用于 CalculatedFields 对象。
本示例向第一张工作表上的第一张数据透视表添加计算字段。
Worksheets(1).PivotTables(1).CalculatedFields.Add "PxS", _
"= Product * Sales"
应用于 CalculatedMembers 对象。
下面的示例向数据透视表中添加集合，假定数据透视表已存在于活动工作表中。
Sub UseAddSet()
Dim pvtOne As PivotTable
Dim strAdd As String
Dim strFormula As String
Dim cbfOne As CubeField
Set pvtOne = ActiveSheet.PivotTables(1)
strAdd = "[MySet]"
strFormula = "'{[Product].[All Products].[Food].children}'"
' Establish connection with data source if necessary.
If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection
' Add a calculated member titled "[MySet]"
pvtOne.CalculatedMembers.Add Name:=strAdd, _
Formula:=strFormula, Type:=xlCalculatedSet
' Add a set to the CubeField object.
Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _
Caption:="My Set")
End Sub
应用于 ChartObjects 对象。
本示例创建新的嵌入图表。
Set co = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100)
co.Chart.ChartWizard Source:=Worksheets("Sheet1").Range("A1:B2"), _
Gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _
CategoryLabels:=1, SeriesLabels:=0, HasLegend:=1
应用于 Charts 对象。
本示例创建空白图表工作表，并将其插入到最后一张工作表之前。
ActiveWorkbook.Charts.Add Before:=Worksheets(Worksheets.Count)
应用于 CustomProperties 对象。
本示例向活动工作表添加标识符信息，并将其名称和值返回给用户。
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 对象。
本示例在活动工作簿中新建一个自定义视图，并命名为“Summary”。
ActiveWorkbook.CustomViews.Add "Summary", True, True
应用于 FormatConditions 对象。
本示例向单元格区域 E1:E10 中添加条件格式。
With Worksheets(1).Range("e1:e10").FormatConditions _
.Add(xlCellValue, xlGreater, "=$a$1")
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
应用于 HPageBreaks 对象。
本示例在单元格 F25 上方添加水平分页符，在其左方添加垂直分页符。
With Worksheets(1)
.HPageBreaks.Add .Range("F25")
.VPageBreaks.Add .Range("F25")
End With
应用于 Hyperlinks 对象。
本示例向单元格 A5 添加超链接。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="http://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With
本示例向单元格 A5 中添加一个电子邮件超链接。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="mailto:someone@microsoft.com?subject=hello", _
ScreenTip:="Write us today", _
TextToDisplay:="Support"
End With
[ 本帖最后由 lrlxxqxa 于 2010-5-23 11:16 编辑 ] |
|
楼主: lrlxxqxa
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
