Item 属性

本示例显示“分析工具库”加载宏的状态。请注意，用作 AddIns 方法索引的字符串就是 AddIn 对象的 Title 属性。

If AddIns.Item("Analysis ToolPak").Installed = True Then
    MsgBox "Analysis ToolPak add-in is installed"
Else
    MsgBox "Analysis ToolPak add-in is not installed"
End If

本示例允许编辑活动的工作表上的区域 A1:A4，并通知用户，然后更改该指定区域的密码并将更改通知用户。

Sub UseChangePassword()

    Dim wksOne As Worksheet

    Set wksOne = Application.ActiveSheet

    ' 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.Item(1).ChangePassword _
        Password:="moresecret"

    MsgBox "The password for these cells has been changed."

End Sub

本示例检查当前选定区域是否为多重选定区域，如果是，则清除其中的第一个子区域的内容。

If Selection.Areas.Count <> 1 Then
    Selection.Areas.Item(1).Clear
End If

下例设置单元格区域 A1:G1 的底部边界的颜色。

Worksheets("Sheet1").Range("a1:g1"). _
    Borders.Item(xlEdgeBottom).Color = RGB(255, 0, 0)

下例通知用户计算成员是否有效。本示例假定数据透视表位于活动的工作表上，该活动工作表包含有效或无效的计算成员。

Sub CheckValidity()

    Dim pvtTable As PivotTable
    Dim pvtCache As PivotCache

    Set pvtTable = ActiveSheet.PivotTables(1)
    Set pvtCache = Application.ActiveWorkbook.PivotCaches.Item(1)

    ' Handle run-time error if external source is not an OLEDB data source.
    On Error GoTo Not_OLEDB

    ' Check connection setting and make connection if necessary.
    If pvtCache.IsConnected = False Then
        pvtCache.MakeConnection
    End If

    ' Check if calculated member is valid.
    If pvtTable.CalculatedMembers.Item(1).IsValid = True Then
        MsgBox "The calculated member is valid."
    Else
        MsgBox "The calculated member is not valid."
    End If

End Sub

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

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

本示例查找第一个数据透视表（其中第一个多维数据集字段名中包含“Paris”字符串）。如果查找到该名称，则 Boolean 变量 blnFoundName 将设置为 True。

blnFoundName = False
For Each objPT in ActiveSheet.PivotTables
    Set objCubeField = _
        objPT.CubeFields.Item(1)
    If instr(1,objCubeField.Name, "Paris") <> 0 Then
        blnFoundName = True
        Exit For
    End If
Next objPT

下例演示该功能。在本示例中，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

本示例显示“打开”对话框，并选定“只读”选项。

Application.Dialogs.Item(xlDialogOpen).Show arg3:=True

下例将变量设为工作表 Crew 上筛选区域中第一列的筛选的 On 属性值。

Set w = Worksheets("Crew")
If w.AutoFilterMode Then
    filterIsOn = w.AutoFilter.Filters.Item(1).On
End If

本示例更改第一个水平分页符的位置。

Worksheets(1).HPageBreaks.Item(1).Location = .Range("e5")

下例激活 E5 单元格的第一个超链接。

Worksheets(1).Range("E5").Hyperlinks.Item(1).Follow

本示例拆分第一张工作表所在的窗口，然后滚动窗口左下角的窗格，直至第五行到达此窗格的顶部。

Worksheets(1).Activate
ActiveWindow.Split = True
ActiveWindow.Panes.Item(3).ScrollRow = 5

本示例使活动单元格中的第一个拼音文本字符串可见。

ActiveCell.Phonetics.Item(1).Visible = True

本示例从某个 <DIV> 标记中获取标识符，并在名为 q198.htm 的 Web 页（通过保存某个工作簿得到的）中查找该行。然后，本示例还创建该 Web 页的一个副本 (newq1.htm)，并在该副本的 <DIV> 标记前插入一个注释行。

strTargetDivID = ActiveWorkbook.PublishObjects.Item(1).DivID
Open "\\server1\reports\q198.htm" For Input As #1
Open "\\server1\reports\newq1.htm" For Output As #2
While Not EOF(1)
    Line Input #1, strFileLine
    If InStr(strFileLine, strTargetDivID) > 0 And _
        InStr(strFileLine, "<div") > 0 Then
            Print #2, "<!--Saved item-->"
    End If
    Print #2, strFileLine
Wend
Close #2
Close #1

本示例基于单元格 A1 的内容填写 Sheet1 的单元格区域 A1:A10。

Worksheets("Sheet1").Range.Item("A1:A10").FillDown

本示例打开最近使用过的文件列表中的第二个文件。

Application.RecentFiles.Item(2).Open

本示例激活工作表 Sheet1。

Sheets.Item("sheet1").Activate

本示例将第一个智能标记标识符的全称通知给用户。

MsgBox Application.SmartTagRecognizers.Item(1).FullName

本示例通过设置“常规”样式的 Bold 属性来更改活动工作簿中的该样式。

ActiveWorkbook.Styles.Item("Normal").Font.Bold = True

本示例更改第一个垂直分页符的位置。

Worksheets(1).VPageBreaks.Item(1).Location = .Range("e5")

本示例将活动窗口最大化。

Windows.Item(1).WindowState = xlMaximized

Item 是集合的默认成员。例如，下面两行代码等价。

ActiveWorkbook.Worksheets.Item(1)
ActiveWorkbook.Worksheets(1)