行オブジェクト (発行元)

表の行を表す Row オブジェクトのコレクションです。

注釈

Table オブジェクトの Rows プロパティを使用して、Rows コレクションを返します。

単一の Row オブジェクトを返すには、Rows (index) を使用します。ここで index はインデックス番号です。 インデックス番号は、 Rows コレクションで左から右に数えた行の位置を表します。

例

次の例では、アクティブなドキュメント内の最初のテーブルの Rows コレクションの Row オブジェクトの数を表示します。

Sub CountRows() 
 MsgBox ActiveDocument.Pages(2).Shapes(1).Table.Rows.Count 
End Sub

この例では、指定されたテーブル内のすべての偶数行の塗りつぶしを設定し、すべての奇数行の塗りつぶしをクリアします。 この例では、指定された図形がテーブルであり、別の種類の図形ではないことを前提としています。

Sub FillCellsByRow() 
 Dim shpTable As Shape 
 Dim rowTable As Row 
 Dim celTable As Cell 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each rowTable In shpTable.Table.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Row Mod 2 = 0 Then 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=180, Green:=180, Blue:=180) 
 Else 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=255, Blue:=255) 
 End If 
 Next celTable 
 Next rowTable 
 
End Sub

次の例では、指定したテーブルの 3 番目の行を選択します。

Sub SelectRows() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Cells.Select 
End Sub

メソッド

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on