表のセルの塗りつぶしの色を行、列、または表全体にすばやく適用する5つの方法

ワードソリューション 2025 年 9 月 28 日

この記事では、テーブルセルの塗りつぶしの色を行、列、またはテーブル全体にすばやく適用するためのXNUMXつの方法を紹介します。

Wordで表のセルにコピーすると、セルの内容のみが取得され、塗りつぶしの色は取得されないことに気付くかもしれません。したがって、この問題に対処するためのXNUMXつの回避策を示したいと思います。

方法 1: 表のセルの RGB 値を手動で取得する

まず、塗りつぶしの色を取得する必要があるセルを選択します。
次に「デザイン」タブをクリックします。
「シェーディング」の下にあるコマンドを見つけて、そのコマンドのドロップダウンボタンをクリックします。
メニューで[境界線と陰影]を選択して、同じ名前のダイアログボックスを開きます。
次に開いたボックスで、「シェーディング」タブをクリックします。
「Fill」フィールドに移動し、ドロップダウンボタンをクリックします。
「その他の色」を選択して「色」ボックスを開きます。
「カラーモデル」欄は「RGB」を選択。以下のRGB値を取得します。
次に、すべてのボックスを閉じて、カーソルを対象のセル内に置きます。または、複数のセル、行、列、あるいはテーブル全体を選択することもできます。
そして、「シェーディング」コマンドのドロップダウンボタンをクリックして、「その他の色」を選択します。
「カスタム」タブでRGB値を入力し、「OK」をクリックします。

方法 2: 「Reveal Formatting」ペインを開く

基本的な考え方は同様で、RGB値を取得し、それを対象のセル、行、列、またはテーブル全体に適用するというものです。

まず、塗りつぶされたセル内に挿入ポインタを置きます。
次に、「Shift + F1」を押して、「RevealFormatting」ペインを開きます。また、「シェーディング」セクションの下にセルの RGB 値が表示されます。
方法9のステップ11から1に従います。

方法 3: VBA を介して XNUMX つのセルの塗りつぶしの色をテーブル全体に適用する

サブタイトルが示すように、これがテーブル全体をXNUMXつの色に統合する方法です。

まず、色の付いたセル内に挿入ポインターを置きます。
「Alt + F11」を押して、VBA エディターを起動します。
次に「Normal」プロジェクトをクリックし、「Insert」タブをクリックします。
次に、そのメニューで「モジュール」を選択します。
ダブルクリックして開きます。
そして、そこに次のコードを貼り付けます。

Sub ApplyColorOfOneCellToEntireTable()
  Dim nRowIndex As Integer
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nColumnIndex = Selection.Cells(1).ColumnIndex
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1)
    nCellBackColor = .Cell(nRowIndex, nColumnIndex).Shading.BackgroundPatternColor
    nCellForeColor = .Cell(nRowIndex, nColumnIndex).Shading.ForegroundPatternColor
    .Shading.BackgroundPatternColor = nCellBackColor
    .Shading.ForegroundPatternColor = nCellForeColor
  End With
End Sub

最後に、「実行」をクリックするか、「F5」を押します。

方法4：VBAを介してXNUMXつのセルの塗りつぶし色を行全体に適用する

まず、セル内にカーソルを置きます。
次に、方法3とまったく同じ手順に従って、マクロをインストールして実行します。
次に、上記のコードを次のコードに置き換えます。

Sub ApplyColorOfOneCellToEntireRow()
  Dim nRowIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Rows(nRowIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

方法5：VBAを介してXNUMXつのセルの塗りつぶし色を列全体に適用する

おそらく、最初にセル内にカーソルを置きます。
次に、適切にマクロをインストールして実行します。
マクロを次のものに置き換えます。

Sub ApplyColorOfOneCellToEntireColumn()
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nColumnIndex = Selection.Cells(1).ColumnIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Columns(nColumnIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

単語の問題を処理する

Word を使用する過程では、常に問題が発生します。したがって、これらすべての厄介な問題に対処するための正しいトリックを学ぶことは非常に必要です。あなたが取らなければならない対策の一つは、単語の修正事前にツール。そうすれば、ドキュメントが破損してもパニックになることはありません。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。回復する (NAIST) と pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com