5 metod pro rychlé použití barvy výplně buňky tabulky na celý řádek, sloupec nebo tabulku

V tomto článku vám nabídneme pět metod, jak rychle aplikovat barvu výplně buňky tabulky na celý řádek, sloupec nebo tabulku.

Můžete si všimnout, že když zkopírujete buňku tabulky ve Wordu, získáte pouze obsah buňky, ale nikdy barvu výplně. Proto vám chceme ukázat pět řešení, jak tento problém vyřešit.    

Metoda 1: Ručně získat hodnotu RGB buňky tabulky

1. Nejprve vyberte buňku, jejíž barvu výplně potřebujete získat.
2. Dále klikněte na záložku „Design“.
3. Najděte příkaz pod „Stínování“ a klikněte na rozbalovací tlačítko u tohoto příkazu.
4. V nabídce vyberte „Ohraničení a stínování“ a otevřete dialogové okno se stejným názvem.
5. Dále v otevřeném poli klikněte na kartu „Stínování“.
6. Přejděte do pole „Vyplnit“ a klikněte na rozbalovací tlačítko.
7. A výběrem „Další barvy“ otevřete pole „Barvy“.
8. V poli „Barevný model“ vyberte „RGB“. Získejte hodnotu RGB níže.
9. Pak zavřete všechna políčka a umístěte kurzor do cílové buňky. Nebo můžete vybrat více buněk, řádků, sloupců nebo dokonce celou tabulku.
10. A kliknutím na rozbalovací tlačítko u příkazu „Stínování“ vyberte „Další barvy“.
11. Zadejte hodnotu RGB na kartě „Vlastní“ a klikněte na „OK“.

Metoda 2: Otevřete podokno „Odhalit formátování“.

Myšlenka je podobná, tedy získat hodnotu RGB a poté ji aplikovat na cílové buňky, řádky, sloupce nebo celou tabulku.

1. Nejprve umístěte kurzor do vyplněné buňky.
2. Poté stisknutím „Shift+ F1“ otevřete podokno „Odhalit formátování“. A v sekci „Stínování“ uvidíte hodnotu RGB buňky.
3. Postupujte podle kroků 9 až 11 v metodě 1.

Metoda 3: Použijte barvu výplně jedné buňky na celou tabulku prostřednictvím VBA

Jak napovídá podtitul, zde je způsob, jak sjednotit celý stůl do jedné barvy.

1. Nejprve umístěte kurzor do barevné buňky.
2. Stisknutím "Alt+ F11" spustíte editor VBA.
3. Dále klikněte na „Normální“ projekt a klikněte na kartu „Vložit“.
4. Poté v této nabídce vyberte „Modul“.
5. Otevřete jej dvojitým kliknutím.
6. A vložte tam následující 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. Nakonec klikněte na „Spustit“ nebo stiskněte „F5“.

Metoda 4: Použijte barvu výplně jedné buňky na celý řádek prostřednictvím VBA

1. Nejprve umístěte kurzor do buňky.
2. Dále nainstalujte a spusťte makro podle přesně stejných kroků v metodě 3.
3. Dále nahraďte výše 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

Metoda 5: Použijte barvu výplně jedné buňky na celý sloupec pomocí VBA

1. Pravděpodobně nejprve umístěte kurzor do buňky.
2. Poté nainstalujte a spusťte makro správně.
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

Řešit problémy se slovy

V procesu používání aplikace Word jsou a vždy budou problémy. Je tedy docela nutné naučit se správný trik, jak se vypořádat se všemi těmito nepříjemnými problémy. Jedním z opatření, která musíte učinit, je získat a Oprava aplikace Word nástroj předem. Jakmile se dokument poškodí, nebudete panikařit.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com