5 metodes, kā ātri uzklāt tabulas šūnas aizpildījuma krāsu visā rindā, kolonnā vai tabulā

Šajā rakstā mēs piedāvāsim piecas metodes, kā ātri piemērot tabulas šūnas aizpildījuma krāsu visai rindai, kolonnai vai tabulai.

Jūs varētu pamanīt, ka, kopējot tabulas šūnā programmā Word, tiek iegūts tikai šūnas saturs, bet nekad netiek aizpildīta krāsa. Tāpēc mēs vēlamies parādīt piecus risinājumus šīs problēmas risināšanai.    

1. metode: manuāli iegūstiet tabulas šūnas RGB vērtību

1. Vispirms atlasiet šūnu, kuras aizpildījuma krāsa jums ir jāiegūst.
2. Tālāk noklikšķiniet uz cilnes "Dizains".
3. Atrodiet komandu zem “Ēnojums” un noklikšķiniet uz šīs komandas nolaižamās pogas.
4. Izvēlnē izvēlieties “Robežas un ēnojums”, lai atvērtu tā paša nosaukuma dialoglodziņu.
5. Pēc tam atvērtajā lodziņā noklikšķiniet uz cilnes "Ēnojums".
6. Dodieties uz lauku “Aizpildīt” un noklikšķiniet uz nolaižamās pogas.
7. Un atlasiet “Vairāk krāsu”, lai atvērtu lodziņu “Krāsas”.
8. Laukam “Krāsu modelis” izvēlieties “RGB”. Iegūstiet RGB vērtību zemāk.
9. Pēc tam aizveriet visas rūtiņas un novietojiet kursoru mērķa šūnā. Vai arī varat atlasīt vairākas šūnas, rindas, kolonnas vai pat visu tabulu.
10. Un noklikšķiniet uz nolaižamās pogas komandā “Ēnojums”, lai atlasītu “Vairāk krāsu”.
11. Cilnē “Pielāgots” ievadiet RGB vērtību un noklikšķiniet uz “Labi”.

2. metode: atveriet rūti “Atklāt formatējumu”

Ideja ir līdzīga – iegūt RGB vērtību un pēc tam to pielietot mērķa šūnām, rindām, kolonnām vai visai tabulai.

1. Vispirms ievietojiet ievietošanas rādītāju aizpildītās šūnas iekšpusē.
2. Pēc tam nospiediet “Shift+ F1”, lai atvērtu rūti “Atklāt formatējumu”. Un jūs varat redzēt šūnas RGB vērtību sadaļā “Ēnojums”.
3. Izpildiet 9. metodes 11. līdz 1. darbību.

3. metode: uzklājiet vienas šūnas aizpildījuma krāsu visai tabulai, izmantojot VBA

Kā liecina apakšvirsraksts, šeit ir veids, kā apvienot visu tabulu vienā krāsā.

1. Vispirms novietojiet ievietošanas rādītāju krāsainas šūnas iekšpusē.
2. Nospiediet “Alt + F11”, lai aktivizētu VBA redaktoru.
3. Tālāk noklikšķiniet uz “Normāls” projekts un noklikšķiniet uz cilnes “Ievietot”.
4. Pēc tam izvēlnē atlasiet “Modulis”.
5. Atveriet to, veicot dubultklikšķi.
6. Tur ielīmējiet šādus kodus:

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. Visbeidzot, noklikšķiniet uz “Palaist” vai nospiediet “F5”.

4. metode: uzklājiet vienas šūnas aizpildījuma krāsu visai rindai, izmantojot VBA

1. Sākumā ievietojiet kursoru šūnā.
2. Pēc tam instalējiet un palaidiet makro, veicot tieši tādas pašas darbības 3. metodē.
3. Tālāk aizstājiet iepriekš minētos kodus ar šādiem:

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. metode: uzklājiet vienas šūnas aizpildījuma krāsu visai kolonnai, izmantojot VBA

1. Iespējams, vispirms ievietojiet kursoru šūnā.
2. Pēc tam pareizi instalējiet un palaidiet makro.
3. Aizstājiet makro ar šo:

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

Risiniet vārdu problēmas

Word lietošanas procesā vienmēr ir un būs problēmas. Tāpēc ir diezgan nepieciešams iemācīties pareizo triku, lai tiktu galā ar visiem šiem kaitinošajiem jautājumiem. Viens no pasākumiem, kas jums jāveic, ir iegūt a Vārdu labojums rīks iepriekš. Tad jūs nekrītat panikā, kad dokuments tiek sabojāts.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt excel un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar