辽西中华鲟鱼化石价格:Excel VBA教程：Item属性

应用于 Adjustments对象的 Item属性。

返回或设置由 Index参数指定的调整值。对于线性调整，调整值 0.0 通常对应于图形的左边缘或上边缘，而值 1.0 通常对应于图形的右边缘或下边缘。但是，对于某些图形，调整可超过图形的边界。对于辐射调整，调整值 1.0对应于图形的宽度。对于角度调整，调整值是以度为单位指定的。Item属性仅应用于可调整的图形。Single 类型，可读写。

expression.Item(Index)

expression   必需。该表达式返回一个 Adjustments对象。

Index   Long 类型，必需。调整的索引号。

说明

自选图形、连接符和艺术字对象最多可进行八次调整。

应用于 Areas、Filters、HPageBreaks、Panes、Phonetics、RecentFiles 和 VPageBreaks对象的 Item属性。

返回一个集合的单个对象。

expression.Item(Index)

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

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

应用于 Borders对象的 Item属性。

返回一个Border对象，该对象代表单元格区域或样式的某一边框。

expression.Item(Index)

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

Index  XlBordersIndex 类型，必需。

XlBordersIndex 可为以下 XlBordersIndex 常量之一。 xlDiagonalDown xlDiagonalUp xlEdgeBottom xlEdgeLeft xlEdgeRight xlEdgeTop xlInsideHorizontal xlInsideVertical

应用于 Dialogs对象的 Item属性。

返回一个Dialog对象，该对象代表单个内置对话框。

expression.Item(Index)

expression   必需。该表达式返回一个 Dialogs对象。

Index  XlBuiltInDialog 类型，必需。

XlBuiltInDialog 可为以下 XlBuiltInDialog 常量之一。 _xlDialogChartSourceData _xlDialogPhonetic xlDialogActivate xlDialogActiveCellFont xlDialogAddChartAutoformat xlDialogAddinManager xlDialogAlignment xlDialogApplyNames xlDialogApplyStyle xlDialogAppMove xlDialogAppSize xlDialogArrangeAll xlDialogAssignToObject xlDialogAssignToTool xlDialogAttachText xlDialogAttachToolbars xlDialogAutoCorrect xlDialogAxes xlDialogBorder xlDialogCalculation xlDialogCellProtection xlDialogChangeLink xlDialogChartAddData xlDialogChartLocation xlDialogChartOptionsDataLabelMultiple xlDialogChartOptionsDataLabels xlDialogChartOptionsDataTable xlDialogChartSourceData xlDialogChartTrend xlDialogChartType xlDialogChartWizard xlDialogCheckboxProperties xlDialogClear xlDialogColorPalette xlDialogColumnWidth xlDialogCombination xlDialogConditionalFormatting xlDialogConsolidate xlDialogCopyChart xlDialogCopyPicture xlDialogCreateNames xlDialogCreatePublisher xlDialogCustomizeToolbar xlDialogCustomViews xlDialogDataDelete xlDialogDataLabel xlDialogDataLabelMultiple xlDialogDataSeries xlDialogDataValidation xlDialogDefineName xlDialogDefineStyle xlDialogDeleteFormat xlDialogDeleteName xlDialogDemote xlDialogDisplay xlDialogEditboxProperties xlDialogEditColor xlDialogEditDelete xlDialogEditionOptions xlDialogEditSeries xlDialogErrorbarX xlDialogErrorbarY xlDialogErrorChecking xlDialogEvaluateFormula xlDialogExternalDataProperties xlDialogExtract xlDialogFileDelete xlDialogFileSharing xlDialogFillGroup xlDialogFillWorkgroup xlDialogFilter xlDialogFilterAdvanced xlDialogFindFile xlDialogFont xlDialogFontProperties xlDialogFormatAuto xlDialogFormatChart xlDialogFormatCharttype xlDialogFormatFont xlDialogFormatLegend xlDialogFormatMain xlDialogFormatMove xlDialogFormatNumber xlDialogFormatOverlay xlDialogFormatSize xlDialogFormatText xlDialogFormulaFind xlDialogFormulaGoto xlDialogFormulaReplace xlDialogFunctionWizard xlDialogGallery3dArea xlDialogGallery3dBar xlDialogGallery3dColumn xlDialogGallery3dLine xlDialogGallery3dPie xlDialogGallery3dSurface xlDialogGalleryArea xlDialogGalleryBar xlDialogGalleryColumn xlDialogGalleryCustom xlDialogGalleryDoughnut xlDialogGalleryLine xlDialogGalleryPie xlDialogGalleryRadar xlDialogGalleryScatter xlDialogGoalSeek xlDialogGridlines xlDialogImportTextFile xlDialogInsert xlDialogInsertHyperlink xlDialogInsertNameLabel xlDialogInsertObject xlDialogInsertPicture xlDialogInsertTitle xlDialogItemProperties xlDialogLabelProperties xlDialogListboxProperties xlDialogMacroOptions xlDialogMailEditMailer xlDialogMailLogon xlDialogMailNextLetter xlDialogMainChart xlDialogMainChartType xlDialogMenuEditor xlDialogMove xlDialogNew xlDialogNewWebQuery xlDialogNote xlDialogObjectProperties xlDialogObjectProtection xlDialogOpen xlDialogOpenLinks xlDialogOpenMail xlDialogOpenText xlDialogOptionsCalculation xlDialogOptionsChart xlDialogOptionsEdit xlDialogOptionsGeneral xlDialogOptionsListsAdd xlDialogOptionsME xlDialogOptionsTransition xlDialogOptionsView xlDialogOutline xlDialogOverlay xlDialogOverlayChartType xlDialogPageSetup xlDialogParse xlDialogPasteNames xlDialogPasteSpecial xlDialogPatterns xlDialogPhonetic xlDialogPivotCalculatedField xlDialogPivotCalculatedItem xlDialogPivotClientServerSet xlDialogPivotFieldGroup xlDialogPivotFieldProperties xlDialogPivotFieldUngroup xlDialogPivotShowPages xlDialogPivotSolveOrder xlDialogPivotTableOptions xlDialogPivotTableWizard xlDialogPlacement xlDialogPrint xlDialogPrinterSetup xlDialogPrintPreview xlDialogPromote xlDialogProperties xlDialogProtectDocument xlDialogProtectSharing xlDialogPublishAsWebPage xlDialogPushbuttonProperties xlDialogReplaceFont xlDialogRoutingSlip xlDialogRowHeight xlDialogRun xlDialogSaveAs xlDialogSaveCopyAs xlDialogSaveNewObject xlDialogSaveWorkbook xlDialogSaveWorkspace xlDialogScale xlDialogScenarioAdd xlDialogScenarioCells xlDialogScenarioEdit xlDialogScenarioMerge xlDialogScenarioSummary xlDialogScrollbarProperties xlDialogSearch xlDialogSelectSpecial xlDialogSendMail xlDialogSeriesAxes xlDialogSeriesOptions xlDialogSeriesOrder xlDialogSeriesShape xlDialogSeriesX xlDialogSeriesY xlDialogSetBackgroundPicture xlDialogSetPrintTitles xlDialogSetUpdateStatus xlDialogShowDetail xlDialogShowToolbar xlDialogSize xlDialogSort xlDialogSortSpecial xlDialogSplit xlDialogStandardFont xlDialogStandardWidth xlDialogStyle xlDialogSubscribeTo xlDialogSubtotalCreate xlDialogSummaryInfo xlDialogTable xlDialogTabOrder xlDialogTextToColumns xlDialogUnhide xlDialogUpdateLink xlDialogVbaInsertFile xlDialogVbaMakeAddin xlDialogVbaProcedureDefinition xlDialogView3d xlDialogWebOptionsBrowsers xlDialogWebOptionsEncoding xlDialogWebOptionsFiles xlDialogWebOptionsFonts xlDialogWebOptionsGeneral xlDialogWebOptionsPictures xlDialogWindowMove xlDialogWindowSize xlDialogWorkbookAdd xlDialogWorkbookCopy xlDialogWorkbookInsert xlDialogWorkbookMove xlDialogWorkbookName xlDialogWorkbookNew xlDialogWorkbookOptions xlDialogWorkbookProtect xlDialogWorkbookTabSplit xlDialogWorkbookUnhide xlDialogWorkgroup xlDialogWorkspace xlDialogZoom

说明

使用 Dialogs集合的 Item属性以及 Show方法可显示大约 200 个内置对话框。每个对话框都有一个常量与之对应，这些常量均以“xlDialog”开头。

有关可用常量及其相应参数的列表的详细信息，请参阅内置对话框参数表。

如果试图在不正确的上下文中显示对话框，则 Dialogs集合的 Item属性可能会失效。例如，若要显示“数据标签”对话框（使用 Visual Basic 表达式Application.Dialogs(xlDialogDataLabel).Show），那么活动工作表就必须是图表，否则该属性无效。

应用于 Error对象的 Item属性。

返回 Error对象的单个成员。

expression.Item(Index)

expression   必需。该表达式返回一个 Errors对象。

Index   Variant 类型，必需。Index 也可以是这些常量之一。

xlEvaluateToError  单元格计算为错误值。 xlTextDate  单元格包含用 2 位数表示年份的文本日期。 xlNumberAsText  单元格包含以文本形式存储的数字。 xlInconsistentFormula  单元格包含一个区域中不一致的公式。 xlOmittedCells  单元格包含一个省略了区域中某个单元格的公式。 xlUnlockedFormulaCells  取消锁定的单元格包含一个公式。 xlEmptyCellReferences  单元格包含一个引用空单元格的公式。

应用于 Range对象的 Item属性。

返回一个Range对象，该对象代表对指定区域某一偏移量处的区域。

expression.Item(RowIndex, ColumnIndex)

expression   必需。该表达式返回一个 Range对象。

RowIndex   Variant 类型，必需。要访问的单元格的索引号，顺序为从左到右，再往下。Range.Item(1) 返回区域左上角的单元格，Range.Item(2) 返回紧靠左上角单元格右边的单元格。

ColumnIndex   Variant 类型，可选。指明要访问的单元格所在列的列号的数字或字符串，1 或 “A”表示区域中的第一列。

说明

语法 1 使用行号和列号或列标作为索引参数。关于此语法的详细信息，请参阅Range对象。RowIndex 和 ColumnIndex参数为相对偏移量。也就是说，如果 RowIndex 指定为 1，将返回区域内第一行中的单元格，而非工作表的第一行。例如，如果选定区域为单元格 C3，则Selection.Cells(2, 2) 返回单元格 D4（可用 Item属性在原始区域之外进行索引）。

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

返回一个集合的单个对象。

expression.Item(Index)

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

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

说明

有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。

VBA示例

应用于 AddIns对象。

本示例显示“分析工具库”加载宏的状态。请注意，用作 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

应用于 AllowEditRanges对象。

本示例允许编辑活动的工作表上的区域 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

应用于 Areas对象。

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

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

应用于 Borders对象。

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

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

应用于 CalculatedMembers对象。

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

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

应用于 Charts对象。

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

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

应用于 CubeFields对象。

本示例查找第一个数据透视表（其中第一个多维数据集字段名中包含“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

应用于 CustomProperties对象。

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

应用于 Dialogs对象。

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

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

应用于 Filters对象。

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

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

应用于 HPageBreaks对象。

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

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

应用于 Hyperlinks对象。

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

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

应用于 Panes对象。

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

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

应用于 Phonetics对象。

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

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

应用于 PublishObjects对象。

本示例从某个