5 metod szybkiego zastosowania koloru wypełnienia komórki tabeli do całego wiersza, kolumny lub tabeli

W tym artykule zaoferujemy pięć metod szybkiego zastosowania koloru wypełnienia komórki tabeli do całego wiersza, kolumny lub tabeli.

Możesz zauważyć, że podczas kopiowania w komórce tabeli w programie Word otrzymujesz tylko zawartość komórki, ale nigdy nie otrzymujesz koloru wypełnienia. Dlatego chcemy pokazać pięć sposobów obejścia tego problemu.    

Metoda 1: Ręcznie pobierz wartość RGB komórki tabeli

1. Przede wszystkim wybierz komórkę, której kolor wypełnienia chcesz uzyskać.
2. Następnie kliknij zakładkę „Projekt”.
3. Znajdź polecenie poniżej „Cieniowanie” i kliknij przycisk rozwijany przy tym poleceniu.
4. Z menu wybierz „Krawędzie i cieniowanie”, aby otworzyć okno dialogowe o tej samej nazwie.
5. Następnie w otwartym oknie kliknij zakładkę „Cieniowanie”.
6. Przejdź do pola „Wypełnij” i kliknij przycisk rozwijany.
7. I wybierz „Więcej kolorów”, aby otworzyć okno „Kolory”.
8. Wybierz „RGB” w polu „Model koloru”. Uzyskaj wartość RGB poniżej.
9. Następnie zamknij wszystkie pola i umieść kursor w komórce docelowej. Możesz też zaznaczyć wiele komórek, wierszy, kolumn, a nawet całą tabelę.
10. Następnie kliknij przycisk rozwijany przy poleceniu „Cieniowanie”, aby wybrać „Więcej kolorów”.
11. Wprowadź wartość RGB w zakładce „Niestandardowe” i kliknij „OK”.

Metoda 2: Otwórz okienko „Pokaż formatowanie”

Pomysł jest podobny, tzn. aby uzyskać wartość RGB, a następnie zastosować ją do docelowych komórek, wierszy, kolumn lub całej tabeli.

1. Najpierw umieść wskaźnik wstawiania wewnątrz wypełnionej komórki.
2. Następnie naciśnij „Shift + F1”, aby otworzyć panel „Pokaż formatowanie”. Będziesz mógł zobaczyć wartość RGB komórki w sekcji „Cieniowanie”.
3. Wykonaj kroki od 9 do 11 w metodzie 1.

Metoda 3: Zastosuj kolor wypełnienia jednej komórki do całej tabeli za pośrednictwem VBA

Jak sugeruje podtytuł, oto sposób na połączenie całego stołu w jednym kolorze.

1. Na początek umieść wskaźnik wstawiania wewnątrz kolorowej komórki.
2. Naciśnij „Alt + F11”, aby uruchomić edytor VBA.
3. Następnie kliknij projekt „Normalny” i kliknij zakładkę „Wstaw”.
4. Następnie wybierz „Moduł” w tym menu.
5. Otwórz go podwójnym kliknięciem.
6. I wklej tam następujące kody:

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. Na koniec kliknij „Uruchom” lub naciśnij „F5”.

Metoda 4: Zastosuj kolor wypełnienia jednej komórki do całego wiersza za pomocą VBA

1. Najpierw umieść kursor w komórce.
2. Następnie zainstaluj i uruchom makro, wykonując dokładnie te same kroki w metodzie 3.
3. Następnie zamień powyższe kody na te:

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: Zastosuj kolor wypełnienia jednej komórki do całej kolumny za pomocą VBA

1. Prawdopodobnie najpierw umieść kursor wewnątrz komórki.
2. Następnie zainstaluj i uruchom poprawnie makro.
3. Zastąp makro tym:

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

Obsługuj problemy z programem Word

Podczas korzystania z programu Word występują i zawsze będą problemy. Konieczne jest więc nauczenie się właściwej sztuczki, aby poradzić sobie z tymi irytującymi problemami. Jednym ze środków, które musisz podjąć, jest zdobycie domeny Poprawka słów narzędzie z wyprzedzeniem. Wtedy nie będziesz panikować, gdy dokument ulegnie uszkodzeniu.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskaj Excela i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com