5 metoda za brzu primjenu boje ispune ćelije tabele na cijeli red, kolonu ili tablicu

U ovom članku ćemo vam ponuditi pet metoda za brzu primjenu boje popunjavanja ćelije tablice na cijeli red, stupac ili tablicu.

Možda ćete primijetiti da kada kopirate u ćeliju tabele u Wordu, dobijate samo sadržaj ćelije, ali ne i boju ispune. Stoga želimo da vam pokažemo pet rješenja za rješavanje ovog problema.    

Metoda 1: Ručno dohvatite RGB vrijednost ćelije tabele

1. Prije svega, odaberite ćeliju čiju boju ispune trebate dobiti.
2. Zatim kliknite karticu "Dizajn".
3. Pronađite naredbu ispod “Shading” i kliknite na dugme padajućeg menija na toj komandi.
4. U meniju izaberite „Granice i senčenje“ da biste otvorili dijalog sa istim imenom.
5. Zatim u otvorenom polju kliknite karticu "Sjenčanje".
6. Idite na polje „Popuni“ i kliknite na dugme padajućeg menija.
7. I odaberite “Više boja” da otvorite okvir “Boje”.
8. Odaberite “RGB” za polje “Model boje”. Dobijte RGB vrijednost ispod.
9. Zatim zatvorite sve okvire i postavite kursor unutar ciljne ćelije. Ili možete odabrati više ćelija, redova, kolona ili čak cijelu tabelu.
10. I kliknite na dugme padajućeg menija na komandi „Sjenčanje“ da odaberete „Više boja“.
11. Unesite RGB vrijednost na kartici "Custom" i kliknite na "OK".

Metod 2: Otvorite okno „Otkrij formatiranje“.

Ideja je slična, odnosno dobiti RGB vrijednost, a zatim je primijeniti na ciljne ćelije, redove, kolone ili cijelu tabelu.

1. Prvo postavite pokazivač umetanja unutar popunjene ćelije.
2. Zatim pritisnite “Shift+ F1” da otvorite okno “Otkrij formatiranje”. I moći ćete vidjeti RGB vrijednost ćelije u odjeljku “Sjenčanje”.
3. Slijedite korake od 9 do 11 u metodi 1.

Metoda 3: Primijenite boju ispune jedne ćelije na cijelu tabelu putem VBA

Kao što sugeriše podnaslov, evo načina da ujedinite celu tabelu u jednoj boji.

1. Za početak, postavite pokazivač umetanja unutar obojene ćelije.
2. Pritisnite “Alt+ F11” da pokrenete VBA editor.
3. Zatim kliknite na “Normal” projekat i kliknite na karticu “Insert”.
4. Zatim odaberite “Module” na tom meniju.
5. Otvorite ga dvostrukim klikom.
6. I tamo zalijepite sljedeće kodove:

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 kraju, kliknite na “Run” ili pritisnite “F5”.

Metoda 4: Primijenite boju ispune jedne ćelije na cijeli red putem VBA

1. Prvo postavite kursor unutar ćelije.
2. Zatim instalirajte i pokrenite makro slijedeći potpuno iste korake u metodi 3.
3. Sljedeće zamijenite gornje kodove s ovim:

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

Metod 5: Primijenite boju ispune jedne ćelije na cijelu kolonu putem VBA

1. Vjerovatno prvo stavite kursor unutar ćelije.
2. Zatim instalirajte i pokrenite makro ispravno.
3. Zamijenite makro sa ovim:

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

Riješite probleme sa riječima

Problemi u procesu korištenja Worda postoje i uvijek će postojati. Stoga je sasvim potrebno naučiti pravi trik za rješavanje svih ovih dosadnih problema. Jedna od mjera koje morate poduzeti je da se dočepate a Word fix alat unapred. Tada nećete paničariti kada se dokument ošteti.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti excel i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com