Excel VBA教程:Item方法

应用于 Axes对象的 Item方法。

返回 Axes集合中的单个Axis对象。

expression.Item(Type, AxisGroup)

expression   必需。该表达式返回一个 Axes集合。

Type  XlAxisType 类型,必需。坐标轴类型。

XlAxisType 可为以下 XlAxisType 常量之一。
xlCategory
xlSeriesAxis 仅对三维图表有效。
xlValue

AxisGroup  XlAxisGroup 类型,可选。坐标轴。

XlAxisGroup 可为以下 XlAxisGroup 常量之一。
xlPrimary 默认值
xlSecondary

应用于 Names对象的 Item方法。

返回 Names集合中的单个Name对象。

expression.Item(Index, IndexLocal, RefersTo)

expression   必需。该表达式返回一个 Names集合。

Index   Variant 类型,可选。要返回的定义名的名称或编号。

IndexLocal   Variant 类型,可选。用户语言形式的定义名的名称。如果使用本参数,则不翻译任何名称。

RefersTo   Variant 类型,可选。引用的名称。使用本参数可通过其引用的内容识别名称。

说明

必须指定以上三个参数之一,且只能指定一个。

应用于 Comments、ODBCErrors、OLEDBErrors 和 Points对象的 Item方法。

返回集合中的单个对象。

expression.Item(Index)

expression   必需。该表达式返回上面的对象之一。

Index  Long 类型,必需。对象的索引号。

应用于“应用于”列表中其他所有对象的 Item方法。

返回集合中的单个对象。

expression.Item(Index)

expression   必需。该表达式返回“应用于”列表中的其他所有对象。

Index   Variant 类型,必需。对象的名称或索引号。

说明

对象的文本名称就是NameValue属性的值。对于联机分析处理 (OLAP) 数据源,该值和SourceName属性的值相同,而对于其他的数据源,该值与Caption属性值相同。

Excel VBA教程:Item方法·示例

应用于 Axes对象。

本示例对 Chart1 中分类轴的标题文本进行设置。


With Charts("chart1").Axes.Item(xlCategory)
    .HasTitle = True
    .AxisTitle.Caption = "1994"
End With

应用于 CalculatedFields对象。

本示例为第一个已计算字段设置公式。


Worksheets(1).PivotTables(1).CalculatedFields.Item(1) _
    .Formula = "=Revenue - Cost"

应用于 CalculatedItems 和 PivotItemList对象。

本示例隐藏第一个已计算数据项。


Worksheets(1).PivotTables(1).PivotFields("year") _
    .CalculatedItems.Item(1).Visible = False

应用于 CanvasShapes、GroupShapes 和 ShapeRange对象。

本示例对某个图形区域中第二个图形的属性 OnAction 进行设置。如果变量 sr 不代表 ShapeRange对象,则本示例失效。


Dim sr As Shape
sr.Item(2).OnAction = "ShapeAction"

应用于 ChartGroups对象。

本示例为第一个图表中的第一个图表组添加垂直线。


Charts(1).ChartGroups.Item(1).HasDropLines = True

应用于 ChartObjects对象。

本示例激活第一张嵌入图表。


Worksheets("sheet1").ChartObjects.Item(1).Activate

应用于 Comments对象。

本示例隐藏第二条批注。


Worksheets(1).Comments.Item(2).Visible = False

应用于 CustomViews对象。

本示例在名为“Current Inventory”的自定义视图中包含打印设置。


ThisWorkbook.CustomViews.Item("Current Inventory") _
    .PrintSettings = True

应用于 DataLabels对象。

本示例对数据标签的数字格式进行设置。该数据标签是第一张工作表中第一张嵌入图表的第一个数据系列的第五个数据标签。


Worksheets(1).ChartObjects(1).Chart _
    .SeriesCollection(1).DataLabels.Item(5).NumberFormat = "0.000"

应用于 FormatConditions对象。

本示例对 E1:E10 单元格的现有条件格式的格式属性进行设置。


With Worksheets(1).Range("e1:e10").FormatConditions.Item(1)
    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 6
    End With
End With

应用于 LegendEntries对象。

本示例对 Sheet1 中第一张嵌入图表的图例(通常是第一个数据系列的图例)顶部的图例项的文本字体进行更改。


Worksheets("sheet1").ChartObjects(1).Chart _
    .Legend.LegendEntries.Item(1).Font.Italic = True

应用于 Names对象。

本示例将活动工作簿中的“mySortRange”名称删除。


ActiveWorkbook.Names.Item("mySortRange").Delete

应用于 ODBCErrors对象。

本示例显示一个 ODBC 错误。


Set er = Application.ODBCErrors.Item(1)
MsgBox "The following error occurred:" &
    er.ErrorString & " : " & er.SqlState

应用于 OLEDBErrors对象。

本示例显示一个 OLE DB 错误。


Set objEr = Application.OLEDBErrors.Item(1)
MsgBox "The following error occurred:" & _
    objEr.ErrorString & " : " & objEr.SqlState

应用于 OLEObjects对象。

本示例将 Sheet1 中的第一个 OLE对象删除。


Worksheets("sheet1").OLEObjects.Item(1).Delete

应用于 Parameters对象。

本示例更改参数提示字符串。


With Worksheets(1).QueryTables(1).Parameters.Item(1)
    .SetParam xlPrompt, "Please " & .PromptString
End With

应用于 PivotCaches对象。

本示例刷新第一个缓冲区。


ActiveWorkbook.PivotCaches.Item(1).Refresh

应用于 PivotFields对象。

本示例将“Year”字段设置成 Sheet3 中第一个数据透视表上的一个行字段。


Worksheets("sheet3").PivotTables(1) _
    .PivotFields.Item("year").Orientation = xlRowField

应用于 PivotFormulas对象。

本示例显示第一张工作表中第一个数据透视表的第一个公式。


MsgBox Worksheets(1).PivotTables(1).PivotFormulas.Item(1).Formula

应用于 PivotItems对象。

本示例隐藏 Sheet3 中第一个数据透视表的“1998”数据项。


Worksheets("sheet3").PivotTables(1) _
    .PivotFields("year").PivotItems.Item("1998").Visible = False

应用于 PivotTables对象。

本示例将“Year”字段设置成 Sheet3 中第一个数据透视表上的一个行字段。


Worksheets("sheet3").PivotTables.Item(1) _
    .PivotFields("year").Orientation = xlRowField

应用于 Points对象。

本示例对标志样式进行设置。该标志是第一张工作表中第一张嵌入图表的第一个数据系列的第三个绘图点的标志。指定系列必须为二维折线图、散点图或雷达图系列。


Worksheets(1).ChartObjects(1).Chart. _
    SeriesCollection(1).Points.Item(3).MarkerStyle = xlDiamond

应用于 QueryTables对象。

本示例对查询表进行设置,以便查询表右侧的公式在每次刷新时都可以进行自动更新。


Sheets("sheet1").QueryTables.Item(1).FillAdjacentFormulas = True

应用于 Scenarios对象。

本示例显示名为“Options”的工作表上的“Typical”方案。


Worksheets("options").Scenarios.Item("typical").Show

应用于 SeriesCollection对象。

本示例对 Chart1 中的趋势线向前和向后延伸的单位数进行设置。本示例应在包含单个带趋势线系列的二维柱形图上运行。


With Charts("Chart1").SeriesCollection.Item(1).Trendlines.Item(1)
    .Forward = 5
    .Backward = .5
End With

应用于 Shapes对象。

本示例对一个 Shapes集合中第二个图形的 OnAction属性进行设置。如果变量 ss 代表的不是 Shapes对象,则本示例失效。


Dim ss As Shape
ss.Item(2).OnAction = "ShapeAction"

应用于 Trendlines对象。

本示例对 Chart1 中的趋势线向前和向后延伸的单位数进行设置。本示例应在包含单个带趋势线系列的二维柱形图上运行。


With Charts("Chart1").SeriesCollection(1).Trendlines.Item(1)
    .Forward = 5
    .Backward = .5
End With

上页:Excel VBA教程:Intersect方法 下页:Excel VBA教程:Justify方法

Excel VBA教程:Item方法

Excel VBA教程:Justify方法 Excel VBA教程:LargeScroll方法
Excel VBA教程:LegendEntries方法 Excel VBA教程:LineGroups方法
Excel VBA教程:LinkInfo方法 Excel VBA教程:LinkSources方法
Excel VBA教程:List方法 Excel VBA教程:ListFormulas方法
Excel VBA教程:ListNames方法 Excel VBA教程:Location方法
Excel VBA教程:MacroOptions方法 Excel VBA教程:MailLogoff方法
Excel VBA教程:MailLogon方法 Excel VBA教程:MakeConnection方法
Excel VBA教程:Merge方法 Excel VBA教程:MergeWorkbook方法
Excel VBA教程:Modify方法 Excel VBA教程:Modify方法 (FormatCondition对象)
Excel VBA教程:Modify方法 (Validation对象) Excel VBA教程:Move方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号