Excelでは、条件付き書式を使用して、データテーブルの1行おき（またはn行おき）に陰影を付けることができます。 Wordで同じタスクを実行したい場合は、プログラムがいくつかのアプローチを提供します。 1つのアプローチは、Wordが提供する事前定義されたテーブルスタイルのいくつかを使用することです。次の手順に従ってください：

。通常どおりにテーブルを作成します。

。テーブル内のどこかに挿入ポイントを配置します。

。リボンの[デザイン]タブが表示されていることを確認します。

。 [テーブルスタイル]グループのサムネイルを使用して、テーブルの行に網掛けを使用しているサムネイルをクリックします。

テーブル形式の多くは「スマート」です。つまり、テーブルに新しい行を追加した場合でも、行のシェーディングを調整できます。これはどのように行われますか？聞いてよかった。これは、テーブルの行をシェーディングする2番目の方法である独自のテーブルスタイルの作成につながります。

スタイルは何年もの間Wordで利用可能です。テーブルの偶数行または奇数行にシェーディングを自動的に適用するテーブルスタイルを定義できます。 （これがテーブルオートフォーマットの方法です。）次の手順に従います。

。テーブル内のどこかに挿入ポイントを配置します。

。リボンの[デザイン]タブが表示されていることを確認します。

。 [テーブルスタイル]グループのサムネイル画像の右側に、上下の矢印が表示されます。この下にドロップダウン矢印があります。クリックすると、Wordで定義されているすべての表スタイルが表示されます。

。 [新しいテーブルスタイル]オプションをクリックします。 Wordは、[書式設定から新しいスタイルを作成]ダイアログボックスを表示します。 （図1を参照）

。 [書式設定の適用]ドロップダウンリストを使用して、このスタイルを奇数行と偶数行のどちらに適用するかに応じて、[奇数バンド行]または[偶数バンド行]を選択します。

。ダイアログボックスのコントロールを使用して、行に適用するフォーマットを設定します。

。必要に応じて、スタイル名やその他のプロパティを設定します。

。 [OK]をクリックします。

これで、奇数行または偶数行のシェーディングスタイルが作成されました。必要に応じて、このスタイルをテーブルに適用できます。テーブルの行数を変更すると、フォーマットが自動的に調整されます。

これまでに説明したソリューションは、テーブル内の他のすべての行にフォーマットを適用する場合に最適です。 3行、4行、または5行ごとにフォーマットを適用する場合は、うまく機能しません。この場合、マクロを使用してフォーマットを行うのが最適な場合があります。以下は、テーブルの3行ごとにシェーディングを適用できるマクロの良い例です。

Sub ShadeRows()

Dim iRow As Integer     Dim iHeads As Integer     Dim iRowTtl As Integer

If Selection.Information(wdWithInTable) = True Then         iHeads = InputBox(prompt:="Number of heading rows?", _           Title:="Headings", Default:="1")



iRowTtl = Selection.Tables(1).Rows.Count - iHeads         For iRow = 1 To iRowTtl             If iRow Mod 3 = 0 Then                 Selection.Tables(1).Rows(iRow + iHeads).Shading.Texture _                   = wdTexture20Percent             Else                 Selection.Tables(1).Rows(iRow + iHeads).Shading.Texture _                   = wdTextureNone             End If         Next iRow     End If End Sub

マクロは、テーブル内のヘッダー行の数を尋ね、シェーディングを適用する行を調整します。マクロの実行時に挿入ポイントがテーブル内にない場合、何も起こりません。 Mod式を変更することで、シェーディングの頻度を変更することもできます（たとえば、3行ごとから4行ごとに）。次のように、1行を変更するだけです。

If iRow Mod 4 = 0 Then

wdTexture20Percent定数をwdTexture5Percent、wdTexture10Percent、wdTexture25Percentなどの別の定数に変更することで、シェーディングの量を変更することもできます。

また、セルが垂直方向に結合されているテーブルでマクロを実行すると、予期しない結果が発生する可能性があることも理解しておく必要があります。テーブルの行数を変更した場合は、マクロを再度実行してシェーディングを再適用する必要があります。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（6699）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Shading_Table_Rows [Shading TableRows]。