5 meetodit tabeli lahtri täitevärvi kiireks rakendamiseks tervele reale, veerule või tabelile

Selles artiklis pakume teile viit meetodit tabeli lahtri täitevärvi kiireks rakendamiseks tervele reale, veerule või tabelile.

Võite märgata, et kui kopeerite Wordis tabeli lahtrisse, näete ainult lahtri sisu, kuid mitte täitevärvi. Seetõttu tahame teile selle probleemi lahendamiseks näidata viit lahendust.    

1. meetod: hankige käsitsi tabelilahtri RGB väärtus

1. Kõigepealt valige lahter, mille täitevärvi soovite saada.
2. Järgmisena klõpsake vahekaarti "Disain".
3. Leidke käsk "Varjutus" alt ja klõpsake selle käsu rippmenüü nuppu.
4. Sama nimega dialoogiboksi avamiseks valige menüüst "Borders and Shading".
5. Järgmisena klõpsake avatud kastis vahekaarti "Varjutus".
6. Minge väljale "Täida" ja klõpsake rippmenüü nuppu.
7. Ja valige "Veel värve", et avada kast "Värvid".
8. Valige väljale "Värvimudel" "RGB". Hankige RGB väärtus allpool.
9. Seejärel sulgege kõik kastid ja viige kursor sihtlahtrisse. Või saate valida mitu lahtrit, rida, veergu või isegi terve tabeli.
10. Ja klõpsake käsul "Varjutus" rippmenüü nuppu, et valida "Veel värve".
11. Sisestage RGB väärtus vahekaardile "Kohandatud" ja klõpsake "OK".

2. meetod: avage paan „Vormindamise kuvamine”.

Idee on sarnane, see tähendab RGB-väärtuse saamist ja seejärel selle rakendamist sihtrakkudele, ridadele, veergudele või kogu tabelile.

1. Esiteks asetage sisestuskursor täidetud lahtri sisse.
2. Järgmisena vajutage klahvikombinatsiooni "Shift + F1", et avada paan "Vormindamine". Ja jaotises "Varjutus" näete lahtri RGB väärtust.
3. Järgige 9. meetodi samme 11–1.

3. meetod: kandke VBA kaudu kogu tabelile ühe lahtri täitevärv

Nagu alapealkiri viitab, on siin viis, kuidas kogu tabel ühte värvi ühendada.

1. Alustuseks asetage sisestuskursor värvilisse lahtrisse.
2. VBA redaktori käivitamiseks vajutage klahvikombinatsiooni Alt + F11.
3. Järgmisena klõpsake "Tavaline" projekt ja klõpsake vahekaarti "Lisa".
4. Seejärel valige selles menüüs "Moodul".
5. Avage see topeltklõpsuga.
6. Ja kleepige sinna järgmised koodid:

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. Lõpuks klõpsake nuppu "Käivita" või "F5".

4. meetod: kandke VBA kaudu tervele reale ühe lahtri täitevärvi

1. Kõigepealt asetage kursor lahtrisse.
2. Järgmisena installige ja käivitage makro, järgides täpselt samu samme 3. meetodis.
3. Järgmisena asendage ülaltoodud koodid järgmistega:

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. meetod: kandke VBA kaudu tervele veerule ühe lahtri täitevärv

1. Tõenäoliselt asetage kursor kõigepealt lahtrisse.
2. Seejärel installige ja käivitage makro korralikult.
3. Asendage makro selle makroga:

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

Käsitlege sõnaprobleeme

Wordi kasutamise protsessis on ja tekib alati probleeme. Seega on üsna vajalik õppida selgeks õige nipp, et kõigi nende tüütute probleemidega toime tulla. Üks meetmetest, mida peate võtma, on a Sõnaparandus tööriist ette. Siis ei satu te paanikasse, kui dokument on rikutud.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taasta excel ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom