5 metoder til hurtig anvendelse af udfyldningsfarven på en tabelcelle på hele rækken, kolonnen eller tabellen

I denne artikel tilbyder vi dig fem metoder til hurtigt at anvende udfyldningsfarven på en tabelcelle til hele rækken, kolonnen eller tabellen.

Du bemærker muligvis, at når du kopierer i en tabelcelle i Word, får du kun celleindholdet, men aldrig udfyldningsfarven. Derfor vil vi vise dig fem løsninger til løsning af dette problem.    

Metode 1: Få manuelt RGB-værdien af ​​tabelcelle

1. Vælg først den celle, hvis udfyldningsfarve du har brug for.
2. Klik derefter på fanen "Design".
3. Find kommandoen under "Shading", og klik på rullemenuen på den kommando.
4. I menuen skal du vælge “Borders and Shading” for at åbne dialogboksen med samme navn.
5. Klik derefter på fanen "Skygge" i feltet åben.
6. Gå til "Udfyld" -feltet, og klik på rullemenuen.
7. Og vælg "Flere farver" for at åbne "Farver" -boksen.
8. Vælg “RGB” for feltet “Farvemodel”. Få RGB-værdien nedenfor.
9. Luk derefter alle felter, og placer markøren i målcellen. Eller du kan markere flere celler, rækker, kolonner eller endda hele tabellen.
10. Og klik på rullelisten på kommandoen "Shading" for at vælge "Flere farver".
11. Indtast RGB-værdien under fanen "Brugerdefineret", og klik på "OK".

Metode 2: Åbn "Reveal Formatting" -ruden

Ideen er den samme, nemlig at hente RGB-værdien og derefter anvende den på målceller, rækker, kolonner eller hele tabellen.

1. For det første skal du placere indsættelsesmarkøren inde i den udfyldte celle.
2. Tryk derefter på "Shift + F1" for at åbne "Reveal Formatting" -ruden. Og du skal være i stand til at se RGB-værdien for cellen under afsnittet "Skygge".
3. Følg trin 9 til 11 i metode 1.

Metode 3: Anvend fyldfarve på en celle til hele bordet via VBA

Som underteksten antyder, er her vejen til at forene hele bordet i en farve.

1. Først skal du placere indsættelsesmarkøren inde i en farvet celle.
2. Tryk på “Alt + F11” for at udløse VBA-editor.
3. Klik derefter på "Normal" -projektet, og klik på "Indsæt" -fanen.
4. Vælg derefter “Module” i den menu.
5. Åbn den ved at dobbeltklikke.
6. Og indsæt følgende koder der:

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. Til sidst skal du klikke på "Kør" eller trykke på "F5".

Metode 4: Anvend fyldfarve på en celle til hele rækken via VBA

1. Først skal du placere markøren inde i en celle.
2. Installer derefter og kør en makro ved at følge nøjagtigt de samme trin i metode 3.
3. Udskift derefter ovenstående koder med disse:

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

Metode 5: Anvend fyldfarve på en celle til hele søjlen via VBA

1. Sæt sandsynligvis først markøren inde i en celle.
2. Installer og kør derefter en makro korrekt.
3. Udskift makroen med denne:

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

Håndter ordproblemer

Der er og vil altid være problemer i processen med at bruge Word. Så det er helt nødvendigt at lære det rigtige trick til at håndtere alle disse irriterende problemer. Et af de tiltag, du skal tage, er at få fat i en Ordrettelse værktøj på forhånd. Så bliver du ikke i panik, når et dokument er ødelagt.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder genvinde excel og pdf produkter til reparation af software. For mere information besøg www.datanumen.com