Item プロパティ
| Microsoft Excel Visual Basic のリファレンス |
Item プロパティ
Adjustments オブジェクトの Item プロパティ
引数 Index で指定された調整値を設定します。有効な調整値の範囲は、0.0 ? 1.0 です。線型の調整では、通常、調整値 0.0 は図形の左端または上端に対応し、1.0 は図形の右端または下端に対応します。ただし、図形によっては、図形の境界を超えて調整することができます。放射状の調整では、調整値 1.0 は図形の幅に相当します。角度の調整では、調整値が角度 (°) で指定されます。Item プロパティは、調整値を持つ図形だけに使用できます。値の取得および設定が可能です。単精度浮動小数点型 (Single) の値を使用します。
expression.Item(Index)
expression 必ず指定します。対象となる Adjustments オブジェクトを返すオブジェクト式を指定します。
Index 必ず指定します。長整数型 (Long) の値を使用します。調整するオブジェクトのインデックス番号を指定します。
解説
オートシェイプ、コネクタ、およびワードアート オブジェクトは最大 8 つの調整値を持つことができます。
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 クラスの定数のいずれかです。 |
| xlDiagonalDown |
| xlDiagonalUp |
| xlEdgeBottom |
| xlEdgeLeft |
| xlEdgeRight |
| xlEdgeTop |
| xlInsideHorizontal |
| xlInsideVertical |
Dialogs オブジェクトの Item プロパティ
オブジェクトを返すプロパティです。単一の組み込みダイアログ ボックス (Dialog オブジェクト) を返します。
expression.Item(Index)
expression 必ず指定します。対象となる Dialogs オブジェクトを返すオブジェクト式を指定します。
Index 必ず指定します。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 の組み込みダイアログ ボックスを表示できます。各ダイアログ ボックスには、1 つの定数が割り当てられています。これらの定数の名前は、すべて xlDialog で始まります。
使用できる定数と、それに対応するダイアログ ボックス用の引数リストの一覧については、ここをクリックしてください。
不適切な状況でダイアログ ボックスを表示しようとすると、Dialogs コレクションの Item プロパティは失敗することがあります。たとえば、[データ ラベル] ダイアログ ボックスを表示しようとして Application.Dialogs(xlDialogDataLabel).Show を実行したとき、グラフ シートがアクティブではない場合、Item プロパティは失敗します。
Errors オブジェクトの Item プロパティ
Error オブジェクトの単一のメンバーを返します。
expression.Item(Index)
expression 必ず指定します。対象となる Errors オブジェクトを返すオブジェクト式を指定します。
Index 必ず指定します。バリアント型 (Variant) の値を使用します。Index には、次の 3 つの定数も使用できます。
| xlEvaluateToError セルはエラー値に評価されます。 |
| xlTextDate セルには、年が 2 桁のテキスト日付が入力されています。 |
| xlNumberAsText セルには、テキストとして格納された数値が入力されています。 |
| xlInconsistentFormula セルには、領域内の矛盾した数式が入力されています。 |
| xlOmittedCells セルには、領域内のセルを除いた数式が入力されています。 |
| xlUnlockedFormulaCells ロック解除されたセルには数式が入力されています。 |
| xlEmptyCellReferences セルには、空白セルを参照する数式が入力されています。 |
Item プロパティを ListColumns** コレクション オブジェクト、ListObjects コレクション オブジェクト、ListRows コレクション オブジェクトに指定した場合**
コレクションから単一のオブジェクトを返します。
expression.Item(Index)
expression 必ず指定します。このトピックの [対象] をクリックして表示されるオブジェクトのうちの 1 つを返すオブジェクト式を指定します。
Index 必ず指定します。バリアント型 (Variant) の値を使用します。オブジェクトの名前またはインデックス番号を指定します。
Range オブジェクトの Item プロパティ
オブジェクトを返すプロパティです。セル範囲 (Range オブジェクト) を返します。引数で対象となるセル範囲内でのオフセット値を指定します。
expression.Item(RowIndex, ColumnIndex)
expression 必ず指定します。対象となる Range オブジェクトを返すオブジェクト式を指定します。
RowIndex 必ず指定します。バリアント型 (Variant) の値を使用します。左から右に、次に上から下に数えて、アクセスするセルのインデックス番号を指定します。Range.Item(1) は範囲の左上端のセルを返します。Range.Item(2) は左上端のセルの右側のセルを返します。
ColumnIndex 省略可能です。バリアント型 (Variant) の値を使用します。範囲の最初の列を 1 または "A" として、アクセスするセルの列番号を示す数字または列文字を指定します。
解説
構文 1 の引数に、行番号と列番号または列文字を使用します。この構文の詳細については、ここをクリックしてください。引数 RowIndex および ColumnIndex は相対位置として指定します。引数 RowIndex に 1 を指定すると、ワークシートの先頭行ではなく範囲の先頭行にあるセルが返されます。たとえば、セル C3 を選択して Selection.Cells(2, 2) を実行すると、セル D4 が返されます。また、Item プロパティを使って選択範囲の外側のセルを指すインデックスを指定することもできます。
対象となる他のすべてのオブジェクトの Item プロパティ
コレクションから単一のオブジェクトを返します。
expression.Item(Index)
expression 必ず指定します。対象となるオブジェクトへの参照を返すオブジェクト式を指定します。
Index 必ず指定します。バリアント型 (Variant) の値を使用します。オブジェクトの名前またはインデックス番号を指定します。
解説
コレクションの一部を返す場合の詳細については、ここをクリックしてください。
使用例
AddIns オブジェクトの場合
次の使用例は、分析ツール アドインの状態を表示します。AddIns プロパティへのインデックスとして使用する文字列は AddIn オブジェクトの Title プロパティです。
If AddIns.Item("分析ツール").Installed = True Then
MsgBox "分析ツール アドインがインストールされています。"
Else
MsgBox "分析ツール アドインがインストールされていません。"
End If
AllowEditRanges オブジェクトの場合
次の使用例では、アクティブ ワークシートのセル範囲 A1:A4 を設定可能にして、通知します。次に、この範囲のパスワードを変更し、その変更を通知します。
Sub UseChangePassword()
Dim wksOne As Worksheet
Set wksOne = Application.ActiveSheet
' 保護したワークシート上に
' 編集可能な範囲を設定します。
wksOne.Protection.AllowEditRanges.Add _
Title:="機密文書", _
Range:=Range("A1:A4"), _
Password:="secret"
MsgBox "保護されたワークシート上のセル A1 から A4 は編集できます。"
' パスワードを変更します。
wksOne.Protection.AllowEditRanges.Item(1).ChangePassword _
Password:="moresecret"
MsgBox "これらのセルのパスワードが変更されました。"
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)
' 外部ソースが OLEDB データ ソースでない場合は、実行時エラーを処理します。
On Error GoTo Not_OLEDB
' 接続設定をチェックし、必要なら接続します。
If pvtCache.IsConnected = False Then
pvtCache.MakeConnection
End If
' 集計メンバーが有効かどうかチェックします。
If pvtTable.CalculatedMembers.Item(1).IsValid = True Then
MsgBox "集計メンバーは有効です。"
Else
MsgBox "集計メンバーは有効ではありません。"
End If
End Sub
Charts オブジェクトの場合
次の使用例はグラフ 1 の近似曲線を前後に延長する単位数を設定します。次の使用例は、近似曲線を持つ 1 つのデータ系列を含む 2-D 棒グラフで実行してください。
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 オブジェクトの場合
次の使用例は、この機能の紹介です。次の使用例は、アクティブ ワークシートに識別子情報を追加し、その名前と値をユーザーに返します。
Sub CheckCustomProperties()
Dim wksSheet1 As Worksheet
Set wksSheet1 = Application.ActiveSheet
' ワークシートにメタデータを追加します。
wksSheet1.CustomProperties.Add _
Name:="Market", Value:="Nasdaq"
' メタデータを表示します。
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 オブジェクトの場合
次の使用例は、水平改ページ 1 の位置を変更します。
Worksheets(1).HPageBreaks.Item(1).Location = .Range("e5")
Hyperlinks オブジェクトの場合
次の使用例は、セル E5 のハイパーリンク 1 をアクティブにします。
Worksheets(1).Range("E5").Hyperlinks.Item(1).Follow
ListObjects オブジェクトの場合
次の使用例は、作業中のブックの Sheet1 にある既定リスト オブジェクトの名前を表示します。
Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
Set oListObj = wrksht.ListObjects.Item(1).Name
Panes オブジェクトの場合
次の使用例は、ワークシート 1 が表示されているウィンドウを分割し、行 5 がペインの先頭になるまで、ウィンドウの左下のペインをスクロールします。
Worksheets(1).Activate
ActiveWindow.Split = True
ActiveWindow.Panes.Item(3).ScrollRow = 5
Phonetics オブジェクトの場合
次の使用例は、アクティブ セルにある最初のふりがなを表示します。
ActiveCell.Phonetics.Item(1).Visible = True
PublishObjects オブジェクトの場合
次の使用例は、<DIV> タグから識別子を取得し、ブックから保存した Web ページ (q198.htm) でこのタグが記述されている行を検索します。次に、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
Range オブジェクトの場合
次の使用例は、シート 1 のセル A1 の内容をセル範囲 A1:A10 に複写します。
Worksheets("Sheet1").Range.Item("A1:A10").FillDown
RecentFiles オブジェクトの場合
次の使用例は、最近使ったファイルの一覧の 2 番目のファイルを開きます。
Application.RecentFiles.Item(2).Open
Sheets オブジェクトの場合
次の使用例は、シート 1 を選択します。
Sheets.Item("sheet1").Activate
SmartTagRecognizer オブジェクトの場合
次の使用例は、最初のスマート タグ認識機能の完全な名前を表示します。
MsgBox Application.SmartTagRecognizers.Item(1).FullName
Styles オブジェクトの場合
次の使用例は、スタイルの Bold プロパティを設定することにより、作業中のブックの標準スタイルを変更します。
ActiveWorkbook.Styles.Item("Normal").Font.Bold = True
VPageBreaks オブジェクトの場合
次の使用例は、垂直改ページ 1 の位置を変更します。
Worksheets(1).VPageBreaks.Item(1).Location = .Range("e5")
Windows オブジェクトの場合
次の使用例は、アクティブ ウィンドウを最大化します。
Windows.Item(1).WindowState = xlMaximized
Workbooks オブジェクトの場合
次の使用例は、変数 wb に Myaddin.xla 用のブックを設定します。
Set wb = Workbooks.Item("myaddin.xla")
Worksheets オブジェクトの場合
Item プロパティおよび Item メソッドは既定のプロパティとメソッドで、コレクションを参照する方法の 1 つです。たとえば、次の 2 つのコードは同じ動作を行います。
ActiveWorkbook.Worksheets.Item(1)
ActiveWorkbook.Worksheets(1)