5 metód rýchleho použitia farby výplne bunky tabuľky na celý riadok, stĺpec alebo tabuľku

V tomto článku vám ponúkneme päť spôsobov, ako rýchlo použiť farbu výplne bunky tabuľky na celý riadok, stĺpec alebo tabuľku.

Môžete si všimnúť, že pri kopírovaní do bunky tabuľky v programe Word získate iba obsah bunky, ale nikdy nie farbu výplne. Preto vám chceme ukázať päť riešení, ako vyriešiť tento problém.    

Metóda 1: Ručné získanie hodnoty RGB bunky tabuľky

1. Najskôr vyberte bunku, ktorej farbu výplne musíte získať.
2. Ďalej kliknite na kartu „Dizajn“.
3. Nájdite príkaz pod položkou „Shading“ a kliknite na rozbaľovacie tlačidlo na danom príkaze.
4. V ponuke zvoľte „Okraje a tieňovanie“, čím sa otvorí dialógové okno s rovnakým názvom.
5. Ďalej v otvorenom poli kliknite na kartu „Tieňovanie“.
6. Prejdite do poľa „Vyplniť“ a kliknite na rozbaľovacie tlačidlo.
7. A výberom položky „Viac farieb“ otvorte pole „Farby“.
8. Pre pole „Farebný model“ vyberte možnosť „RGB“. Získajte hodnotu RGB nižšie.
9. Potom zatvorte všetky políčka a umiestnite kurzor do cieľovej bunky. Alebo môžete vybrať viacero buniek, riadkov, stĺpcov alebo dokonca celú tabuľku.
10. A kliknutím na rozbaľovacie tlačidlo na príkaze „Shading“ vyberte „More Colors“.
11. Zadajte hodnotu RGB na karte „Vlastné“ a kliknite na tlačidlo „OK“.

Metóda 2: Otvorte tablu „Odhaliť formátovanie“

Myšlienka je podobná, a to získať hodnotu RGB a potom ju použiť na cieľové bunky, riadky, stĺpce alebo celú tabuľku.

1. Najskôr umiestnite ukazovateľ vloženia do vyplnenej bunky.
2. Ďalej stlačte kombináciu klávesov „Shift + F1“, aby sa otvorila tabla „Odhaliť formátovanie“. A uvidíte hodnotu RGB bunky v sekcii „Tieňovanie“.
3. Postupujte podľa krokov 9 až 11 v metóde 1.

Metóda 3: Aplikujte farbu výplne jednej bunky na celý stôl pomocou VBA

Ako naznačujú podnadpisy, tu je spôsob, ako zjednotiť celú tabuľku v jednej farbe.

1. Na začiatok umiestnite ukazovateľ vloženia do farebnej bunky.
2. Stlačením kombinácie klávesov „Alt + F11“ spustíte editor VBA.
3. Ďalej kliknite na „Normálny“ projekt a potom na kartu „Vložiť“.
4. Potom v tejto ponuke zvoľte „Modul“.
5. Otvorte ho dvojitým kliknutím.
6. A vložte tam nasledujúce kódy:

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. Nakoniec kliknite na tlačidlo „Spustiť“ alebo stlačte kláves „F5“.

Metóda 4: Aplikujte farbu výplne jednej bunky na celý riadok pomocou VBA

1. Najskôr umiestnite kurzor do bunky.
2. Ďalej nainštalujte a spustite makro podľa rovnakých krokov ako v metóde 3.
3. Ďalej nahraďte vyššie uvedené kódy týmito:

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

Metóda 5: Aplikujte farbu výplne jednej bunky na celý stĺpec pomocou VBA

1. Pravdepodobne najskôr umiestnite kurzor do bunky.
2. Potom správne nainštalujte a spustite makro.
3. Nahraďte makro týmto:

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

Riešenie slovných problémov

V procese používania Wordu budú a vždy budú problémy. Je teda celkom nevyhnutné naučiť sa správny trik, ako zvládnuť všetky tieto nepríjemné problémy. Jedným z opatrení, ktoré musíte urobiť, je zmocniť sa a Oprava slova nástroj vopred. Potom už nebudete mať paniku, keď sa dokument pokazí.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotaviť excelovať a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S