5 būdai greitai pritaikyti lentelės langelio užpildymo spalvą visai eilutei, stulpeliui ar lentelei

Šiame straipsnyje mes jums pasiūlysime penkis būdus, kaip greitai pritaikyti lentelės langelio užpildymo spalvą visai eilutei, stulpeliui ar lentelei.

Galite pastebėti, kad kopijuodami į lentelės langelį programoje Word, gausite tik langelio turinį, bet ne užpildymo spalvą. Todėl norime jums parodyti penkis šios problemos sprendimo būdus.    

1 būdas: rankiniu būdu gaukite lentelės langelio RGB reikšmę

1. Pirmiausia pasirinkite langelį, kurio užpildymo spalvą norite gauti.
2. Tada spustelėkite skirtuką „Dizainas“.
3. Raskite komandą, esančią žemiau „Shading“, ir spustelėkite tos komandos išskleidžiamąjį mygtuką.
4. Meniu pasirinkite „Sienos ir šešėliai“, kad atidarytumėte to paties pavadinimo dialogo langą.
5. Tada atidarytame laukelyje spustelėkite skirtuką „Shading“.
6. Eikite į lauką „Užpildyti“ ir spustelėkite išskleidžiamąjį mygtuką.
7. Ir pasirinkite „Daugiau spalvų“, kad atidarytumėte langelį „Spalvos“.
8. Lauke „Spalvų modelis“ pasirinkite „RGB“. Gaukite RGB reikšmę žemiau.
9. Tada uždarykite visus langelius ir perkelkite žymeklį į tikslinį langelį. Arba galite pasirinkti kelis langelius, eilutes, stulpelius ar net visą lentelę.
10. Ir spustelėkite išskleidžiamąjį mygtuką „Shading“ komandoje, kad pasirinktumėte „Daugiau spalvų“.
11. Skirtuke „Custom“ įveskite RGB reikšmę ir spustelėkite „Gerai“.

2 būdas: atidarykite sritį „Atskleisti formatavimą“.

Idėja panaši – gauti RGB reikšmę ir pritaikyti ją tiksliniams langeliams, eilutėms, stulpeliams ar visai lentelei.

1. Pirma, įdėkite įterpimo žymeklį į užpildytą langelį.
2. Tada paspauskite „Shift + F1“, kad atidarytumėte sritį „Atskleisti formatavimą“. Skiltyje „Shading“ galėsite matyti langelio RGB reikšmę.
3. Atlikite 9 metodo 11–1 veiksmus.

3 būdas: per VBA užtepkite vienos langelio užpildymo spalvą visai lentelei

Kaip rodo paantraštė, čia yra būdas sujungti visą lentelę viena spalva.

1. Pirmiausia nustatykite įterpimo žymeklį spalvotame langelyje.
2. Paspauskite „Alt + F11“, kad paleistumėte VBA redaktorių.
3. Tada spustelėkite „Įprastas“ projektas ir spustelėkite skirtuką „Įterpti“.
4. Tada tame meniu pasirinkite „Modulis“.
5. Atidarykite jį dukart spustelėdami.
6. Ir įklijuokite šiuos 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. Galiausiai spustelėkite „Vykdyti“ arba paspauskite „F5“.

4 būdas: per VBA užtepkite vienos langelio užpildymo spalvą visai eilutei

1. Iš pradžių įveskite žymeklį langelio viduje.
2. Toliau įdiekite ir paleiskite makrokomandą atlikdami lygiai tuos pačius 3 metodo veiksmus.
3. Tada pakeiskite aukščiau esančius kodus šiais:

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 būdas: per VBA užtepkite vienos langelio užpildymo spalvą visai stulpeliui

1. Tikėtina, kad pirmiausia įdėkite žymeklį į langelį.
2. Tada tinkamai įdiekite ir paleiskite makrokomandą.
3. Pakeiskite makrokomandą šia:

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

Tvarkykite Word problemas

„Word“ naudojimo procese visada yra ir bus problemų. Taigi, norint išspręsti visas šias erzinančias problemas, būtina išmokti tinkamą gudrybę. Viena iš priemonių, kurių turite imtis, yra a Žodžių taisymas įrankis iš anksto. Tada nepulsite į paniką, kai dokumentas bus sugadintas.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant susigrąžinti Excel bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com