5 metod za hitro uporabo barve polnila celice tabele v celo vrstico, stolpec ali tabelo

V tem članku vam bomo ponudili pet načinov za hitro uporabo barve polnila celice tabele v celo vrstico, stolpec ali tabelo.

Morda boste opazili, da ko kopirate celico tabele v Wordu, dobite samo vsebino celice, nikoli pa barve polnila. Zato vam želimo pokazati pet rešitev za to težavo.    

1. način: Ročno pridobite vrednost RGB celice tabele

1. Najprej izberite celico, katere barvo polnila želite dobiti.
2. Nato kliknite zavihek »Oblikovanje«.
3. Poiščite ukaz pod »Senčenje« in kliknite spustni gumb na tem ukazu.
4. V meniju izberite »Meje in senčenje«, da odprete pogovorno okno z istim imenom.
5. Nato v odprtem polju kliknite zavihek »Senčenje«.
6. Pojdite na polje »Izpolni« in kliknite spustni gumb.
7. In izberite "Več barv", da odprete polje "Barve".
8. Za polje »Barvni model« izberite »RGB«. Spodaj dobite vrednost RGB.
9. Nato zaprite vsa polja in vstavite kurzor tardobi celico. Lahko pa izberete več celic, vrstic, stolpcev ali celo celotno tabelo.
10. Kliknite spustni gumb na ukazu »Senčenje«, da izberete »Več barv«.
11. V zavihek »Po meri« vnesite vrednost RGB in kliknite »V redu«.

2. način: odprite podokno »Razkrij oblikovanje«.

Ideja je podobna, to je pridobiti vrednost RGB in jo nato uporabiti tardobite celice, vrstice, stolpce ali celotno tabelo.

1. Najprej postavite kazalec za vstavljanje v zapolnjeno celico.
2. Nato pritisnite »Shift+ F1«, da odprete podokno »Razkrij oblikovanje«. V razdelku »Senčenje« boste lahko videli RGB vrednost celice.
3. Sledite korakom od 9 do 11 v 1. metodi.

3. način: uporabite barvo polnila ene celice za celotno tabelo prek VBA

Kot nakazuje podnaslov, je tukaj način za združitev celotne mize v eno barvo.

1. Za začetek postavite kazalec za vstavljanje znotraj barvne celice.
2. Pritisnite “Alt+ F11”, da sprožite urejevalnik VBA.
3. Nato kliknite »Normalni« projekt in kliknite zavihek »Vstavi«.
4. Nato v tem meniju izberite »Modul«.
5. Odprite ga z dvoklikom.
6. In tam prilepite naslednje kode:

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 koncu kliknite »Zaženi« ali pritisnite »F5«.

4. način: uporabite barvo polnila ene celice za celotno vrstico prek VBA

1. Najprej postavite kazalec znotraj celice.
2. Nato namestite in zaženite makro po popolnoma enakih korakih v 3. metodi.
3. Nato zamenjajte zgornje kode s temi:

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

5. način: Uporabite barvo polnila ene celice za celoten stolpec prek VBA

1. Verjetno najprej postavite kazalec v celico.
2. Nato pravilno namestite in zaženite makro.
3. Zamenjajte makro s tem:

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

Rešite težave z besedami

V procesu uporabe Worda vedno obstajajo in bodo težave. Zato se je nujno naučiti pravega trika za reševanje vseh teh nadležnih težav. Eden od ukrepov, ki jih morate sprejeti, je pridobiti a Beseda popraviti orodje vnaprej. Potem ne boste več prestrašeni, ko se dokument pokvari.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjati excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com