5 Methoden zum schnellen Anwenden der Füllfarbe einer Tabellenzelle auf die gesamte Zeile, Spalte oder Tabelle

In diesem Artikel bieten wir Ihnen fünf Methoden an, um die Füllfarbe einer Tabellenzelle schnell auf die gesamte Zeile, Spalte oder Tabelle anzuwenden.

Möglicherweise stellen Sie fest, dass beim Kopieren in eine Tabellenzelle in Word nur der Zelleninhalt, jedoch nie die Füllfarbe angezeigt wird. Daher möchten wir Ihnen fünf Problemumgehungen zeigen, um dieses Problem zu beheben.    

Methode 1: Manuelles Abrufen des RGB-Werts der Tabellenzelle

1. Wählen Sie zunächst die Zelle aus, deren Füllfarbe Sie erhalten möchten.
2. Klicken Sie anschließend auf die Registerkarte „Design“.
3. Suchen Sie den Befehl unter "Schattierung" und klicken Sie auf die Dropdown-Schaltfläche dieses Befehls.
4. Wählen Sie im Menü „Ränder und Schattierung“, um das gleichnamige Dialogfeld zu öffnen.
5. Klicken Sie im geöffneten Feld als nächstes auf die Registerkarte "Schattierung".
6. Gehen Sie zum Feld "Ausfüllen" und klicken Sie auf die Dropdown-Schaltfläche.
7. Wählen Sie "Weitere Farben", um das Feld "Farben" zu öffnen.
8. Wählen Sie "RGB" für das Feld "Farbmodell". Holen Sie sich den RGB-Wert unten.
9. Schließen Sie dann alle Kästchen und setzen Sie den Cursor hinein tarZelle bekommen. Oder Sie können mehrere Zellen, Zeilen, Spalten oder sogar die gesamte Tabelle auswählen.
10. Und klicken Sie auf die Dropdown-Schaltfläche im Befehl "Schattierung", um "Weitere Farben" auszuwählen.
11. Geben Sie den RGB-Wert auf der Registerkarte "Benutzerdefiniert" ein und klicken Sie auf "OK".

Methode 2: Öffnen Sie den Bereich "Formatierung anzeigen".

Die Idee ist ähnlich, den RGB-Wert zu erhalten und dann anzuwenden auf tarZellen, Zeilen, Spalten oder die gesamte Tabelle abrufen.

1. Platzieren Sie zunächst den Einfügezeiger in der gefüllten Zelle.
2. Drücken Sie anschließend "Umschalt + F1", um den Bereich "Formatierung anzeigen" zu öffnen. Und Sie müssen den RGB-Wert der Zelle im Abschnitt „Schattierung“ sehen können.
3. Befolgen Sie die Schritte 9 bis 11 in Methode 1.

Methode 3: Über VBA die Füllfarbe einer Zelle auf die gesamte Tabelle auftragen

Wie der Untertitel vermuten lässt, ist hier der Weg, den gesamten Tisch in einer Farbe zu vereinen.

1. Positionieren Sie zunächst den Einfügezeiger in einer farbigen Zelle.
2. Drücken Sie „Alt + F11“, um den VBA-Editor auszulösen.
3. Klicken Sie anschließend auf das Projekt „Normal“ und dann auf die Registerkarte „Einfügen“.
4. Wählen Sie dann in diesem Menü "Modul".
5. Öffnen Sie es per Doppelklick.
6. Und fügen Sie dort folgende Codes ein:

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

7. Zuletzt klicken Sie auf "Ausführen" oder drücken Sie "F5".

Methode 4: Über VBA die Füllfarbe einer Zelle auf die gesamte Zeile anwenden

1. Setzen Sie zuerst den Cursor in eine Zelle.
2. Als nächstes installieren und führen Sie ein Makro aus, indem Sie genau die gleichen Schritte wie in Methode 3 ausführen.
3. Als nächstes ersetzen Sie die obigen Codes durch diese:

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

Methode 5: Über VBA die Füllfarbe einer Zelle auf die gesamte Säule auftragen

1. Setzen Sie den Cursor wahrscheinlich zuerst in eine Zelle.
2. Installieren Sie dann ein Makro und führen Sie es ordnungsgemäß aus.
3. Ersetzen Sie das Makro durch dieses:

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

Behandeln Sie Word-Probleme

Es gibt und wird immer Probleme bei der Verwendung von Word geben. Es ist also ziemlich notwendig, den richtigen Trick zu lernen, um mit all diesen nervigen Problemen umzugehen. Eine der Maßnahmen, die Sie ergreifen müssen, ist, a zu erreichen Wordfix Werkzeug voraus. Dann werden Sie nicht in Panik geraten, wenn ein Dokument beschädigt ist.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel wiederherstellen , pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX