5 metoder för att snabbt applicera fyllningsfärgen på en tabellcell på hela raden, kolumnen eller tabellen

I den här artikeln kommer vi att erbjuda dig fem metoder för att snabbt tillämpa fyllningsfärgen för en tabellcell på hela raden, kolumnen eller tabellen.

Du kanske märker att när du kopierar i en tabellcell i Word får du bara cellinnehållet men aldrig fyllningsfärgen. Därför vill vi visa dig fem lösningar för att lösa problemet.    

Metod 1: Hämta RGB-värdet för bordsceller manuellt

1. Välj först cellen vars fyllningsfärg du behöver få.
2. Klicka sedan på fliken "Design".
3. Hitta kommandot nedan "Skuggning" och klicka på rullgardinsmenyn på det kommandot.
4. Välj "Borders and Shading" på menyn för att öppna dialogrutan med samma namn.
5. Klicka sedan på fliken "Skuggning" i rutan öppen.
6. Gå till fältet "Fyll" och klicka på rullgardinsmenyn.
7. Och välj "Fler färger" för att öppna rutan "Färger".
8. Välj “RGB” för fältet “Färgmodell”. Få RGB-värdet nedan.
9. Stäng sedan alla rutor och placera markören i målcellen. Eller så kan du markera flera celler, rader, kolumner eller till och med hela tabellen.
10. Och klicka på rullgardinsmenyn på kommandot "Skuggning" för att välja "Fler färger".
11. Ange RGB-värdet under fliken "Anpassad" och klicka på "OK".

Metod 2: Öppna rutan "Visa formatering"

Idén är liknande, det vill säga att hämta RGB-värde och sedan tillämpa det på målceller, rader, kolumner eller hela tabellen.

1. Först placerar du insättningspekaren i den fyllda cellen.
2. Tryck sedan på "Skift + F1" för att öppna rutan "Visa formatering". Och du kommer att kunna se RGB-värdet för cellen under avsnittet "Skuggning".
3. Följ steg 9 till 11 i metod 1.

Metod 3: Applicera fyllningsfärg för en cell på hela tabellen via VBA

Som undertexten antyder är här vägen att förena hela bordet i en färg.

1. Till att börja med placerar du insättningspekaren i en färgad cell.
2. Tryck på “Alt + F11” för att utlösa VBA-redigeraren.
3. Klicka sedan på “Normal” -projekt och klicka på fliken ”Infoga”.
4. Välj sedan ”Modul” på den menyn.
5. Öppna den genom att dubbelklicka.
6. Och klistra in följande koder där:

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. Slutligen, klicka på "Kör" eller tryck på "F5".

Metod 4: Applicera fyllningsfärg för en cell på hela raden via VBA

1. Först sätter du markören i en cell.
2. Installera sedan och kör ett makro enligt exakt samma steg i metod 3.
3. Nästa ersätt ovanstående koder med dessa:

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

Metod 5: Applicera fyllningsfärg på en cell i hela kolumnen via VBA

1. Troligen placerar du markören i en cell först.
2. Installera och kör sedan ett makro ordentligt.
3. Byt ut makrot med det här:

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

Hantera ordfrågor

Det finns och kommer alltid att vara problem i att använda Word. Så det är helt nödvändigt att lära sig rätt trick för att hantera alla dessa irriterande problem. En av åtgärderna du måste vidta är att få tag på en Ordfix verktyg i förväg. Då kommer du inte att få panik när ett dokument förstörs.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återhämta sig excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com