5 methoden om de opvulkleur van een tabelcel snel toe te passen op de hele rij, kolom of tabel

In dit artikel bieden we u vijf methoden om snel de vulkleur van een tabelcel toe te passen op de hele rij, kolom of tabel.

U merkt misschien dat wanneer u in een tabelcel in Word kopieert, u alleen de celinhoud krijgt, maar nooit de vulkleur. Daarom willen we u vijf oplossingen laten zien om dit probleem aan te pakken.    

Methode 1: Verkrijg handmatig de RGB-waarde van de tabelcel

1. Selecteer allereerst de cel waarvan u de vulkleur moet krijgen.
2. Klik vervolgens op het tabblad "Design".
3. Zoek het commando onder "Shading" en klik op de vervolgkeuzeknop op dat commando.
4. Kies in het menu "Randen en arcering" om het dialoogvenster met dezelfde naam te openen.
5. Klik vervolgens in het geopende vak op het tabblad "Shading".
6. Ga naar het veld "Vullen" en klik op de vervolgkeuzeknop.
7. En selecteer "Meer kleuren" om het vak "Kleuren" te openen.
8. Kies "RGB" voor het veld "Kleurmodel". Verkrijg de RGB-waarde hieronder.
9. Sluit vervolgens alle selectiekaders en plaats de cursor in de gewenste cel. U kunt ook meerdere cellen, rijen, kolommen of zelfs de hele tabel selecteren.
10. En klik op de vervolgkeuzeknop op de opdracht "Shading" om "More Colors" te selecteren.
11. Voer de RGB-waarde in onder het tabblad "Aangepast" en klik op "OK".

Methode 2: Open het deelvenster "Opmaak onthullen"

Het idee is vergelijkbaar: je verkrijgt de RGB-waarde en past deze vervolgens toe op specifieke cellen, rijen, kolommen of de hele tabel.

1. Plaats eerst de invoegwijzer in de gevulde cel.
2. Druk vervolgens op "Shift + F1" om het deelvenster "Reveal Formatting" te openen. En u zult de RGB-waarde van de cel kunnen zien onder het gedeelte "Shading".
3. Volg stap 9 t / m 11 in methode 1.

Methode 3: Pas de vulkleur van één cel toe op de hele tabel via VBA

Zoals de ondertitel suggereert, is hier de manier om de hele tafel in één kleur te verenigen.

1. Plaats om te beginnen de invoegwijzer in een gekleurde cel.
2. Druk op "Alt + F11" om de VBA-editor te activeren.
3. Klik vervolgens op "Normaal" project en klik op het tabblad "Invoegen".
4. Kies vervolgens "Module" in dat menu.
5. Open het door te dubbelklikken.
6. En plak daar de volgende codes:

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. Klik ten slotte op "Uitvoeren" of druk op "F5".

Methode 4: Pas de vulkleur van één cel toe op de hele rij via VBA

1. Plaats eerst de cursor in een cel.
2. Installeer en voer vervolgens een macro uit volgens exact dezelfde stappen in methode 3.
3. Vervang vervolgens bovenstaande codes door deze:

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: Pas de vulkleur van één cel toe op de hele kolom via VBA

1. Plaats de cursor waarschijnlijk eerst in een cel.
2. Installeer en voer vervolgens een macro correct uit.
3. Vervang de macro door deze:

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

Behandel Word-problemen

Er zijn en zullen altijd problemen zijn bij het gebruik van Word. Het is dus vrij nodig om de juiste truc te leren om met al deze vervelende problemen om te gaan. Een van de maatregelen die u moet nemen, is het verkrijgen van een Word-oplossing tool vooraf. Dan raak je niet in paniek als een document corrupt raakt.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel excel en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com