5 metode pentru a aplica rapid culoarea de umplere a unei celule de tabel pe întregul rând, coloană sau tabel

În acest articol, vă vom oferi cinci metode pentru a aplica rapid culoarea de umplere a unei celule de tabel întregului rând, coloană sau tabel.

S-ar putea să observați că atunci când copiați într-o celulă de tabel în Word, obțineți doar conținutul celulei, dar niciodată culoarea de umplere. Prin urmare, dorim să vă arătăm cinci soluții pentru a rezolva această problemă.    

Metoda 1: Obțineți manual valoarea RGB a celulei tabelului

1. În primul rând, selectați celula a cărei culoare de umplere trebuie să obțineți.
2. Apoi faceți clic pe fila „Design”.
3. Găsiți comanda sub „Umbrire” și faceți clic pe butonul derulant de pe acea comandă.
4. În meniu, alegeți „Margini și umbrire” pentru a deschide caseta de dialog cu același nume.
5. Apoi, în caseta deschisă, faceți clic pe fila „Umbrire”.
6. Accesați câmpul „Umpleți” și faceți clic pe butonul drop-down.
7. Și selectați „Mai multe culori” pentru a deschide caseta „Culori”.
8. Alegeți „RGB” pentru câmpul „Model de culoare”. Obțineți valoarea RGB de mai jos.
9. Apoi închideți toate casetele și plasați cursorul în celula țintă. Sau puteți selecta mai multe celule, rânduri, coloane sau chiar întregul tabel.
10. Și faceți clic pe butonul drop-down de pe comanda „Umbrire” pentru a selecta „Mai multe culori”.
11. Introduceți valoarea RGB în fila „Personalizat” și faceți clic pe „OK”.

Metoda 2: Deschideți panoul „Revelare formatare”.

Ideea este similară, adică de a obține valoarea RGB și apoi de a o aplica celulelor, rândurilor, coloanelor sau întregului tabel țintă.

1. În primul rând, plasați indicatorul de inserție în interiorul celulei umplute.
2. Apoi apăsați „Shift+ F1” pentru a deschide panoul „Reveal Formatting” (Afișare formatare). Și veți putea vedea valoarea RGB a celulei în secțiunea „Umbrire”.
3. Urmați pașii de la 9 la 11 din metoda 1.

Metoda 3: Aplicați culoarea de umplere a unei celule întregului tabel prin VBA

După cum sugerează subtitrarea, iată modalitatea de a uni întreaga masă într-o singură culoare.

1. Pentru început, poziționați indicatorul de inserție în interiorul unei celule colorate.
2. Apăsați „Alt+ F11” pentru a declanșa editorul VBA.
3. Apoi faceți clic pe proiect „Normal” și faceți clic pe fila „Inserare”.
4. Apoi alegeți „Modul” din meniul respectiv.
5. Deschideți-l prin dublu clic.
6. Și inserați următoarele coduri acolo:

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. În cele din urmă, faceți clic pe „Run” sau apăsați pe „F5”.

Metoda 4: Aplicați culoarea de umplere a unei celule întregului rând prin VBA

1. La început, plasați cursorul în interiorul unei celule.
2. Apoi instalați și rulați o macrocomandă urmând exact aceiași pași din metoda 3.
3. În continuare, înlocuiți codurile de mai sus cu acestea:

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: Aplicați culoarea de umplere a unei celule pe întreaga coloană prin VBA

1. Probabil, plasați mai întâi cursorul într-o celulă.
2. Apoi instalați și rulați corect o macrocomandă.
3. Înlocuiți macrocomanda cu aceasta:

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

Gestionați problemele cu cuvintele

Există și vor exista întotdeauna probleme în procesul de utilizare a Word. Deci este destul de necesar să înveți trucul potrivit pentru a face față tuturor acestor probleme enervante. Una dintre măsurile pe care trebuie să le luați este să puneți mâna pe un Corect de cuvinte instrument în avans. Atunci nu veți intra în panică odată ce un document este corupt.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com