5 tapaa taulukon solun täyttövärin nopeaan levittämiseen koko riville, sarakkeelle tai taulukolle

Tässä artikkelissa tarjoamme sinulle viisi tapaa käyttää taulukon solun täyttöväri nopeasti koko rivillä, sarakkeessa tai taulukossa.

Saatat huomata, että kun kopioit taulukkosoluun Wordissa, saat vain solun sisällön, mutta et koskaan täyteväriä. Siksi haluamme näyttää sinulle viisi kiertotapaa tämän ongelman ratkaisemiseksi.    

Tapa 1: Hae taulukon solun RGB-arvo manuaalisesti

1. Ensinnäkin, valitse solu, jonka täytevärin sinun täytyy saada.
2. Napsauta seuraavaksi Suunnittelu-välilehteä.
3. Etsi komento varjostuksen alapuolelta ja napsauta kyseisen komennon avattavaa painiketta.
4. Valitse valikossa ”Rajat ja varjostus” avataksesi saman nimen valintaikkunan.
5. Napsauta seuraavaksi avoimessa ruudussa Varjostus-välilehteä.
6. Siirry Täytä-kenttään ja napsauta avattavaa painiketta.
7. Avaa Värit-ruutu valitsemalla Lisää värejä.
8. Valitse Värimalli-kentäksi RGB. Hanki RGB-arvo alla.
9. Sulje sitten kaikki ruudut ja vie kohdistin kohdesolun sisään. Voit myös valita useita soluja, rivejä, sarakkeita tai jopa koko taulukon.
10. Ja napsauta "Varjostus" -komennon avattavaa painiketta ja valitse "Lisää värejä".
11. Syötä RGB-arvo kohtaan ”Custom” -välilehti ja napsauta “OK”.

Tapa 2: Avaa Näytä muotoilu -ruutu

Idea on samanlainen, eli RGB-arvon hakeminen ja sen soveltaminen kohdesoluihin, riveihin, sarakkeisiin tai koko taulukkoon.

1. Aseta ensin lisäysosoitin täytetyn solun sisään.
2. Seuraavaksi paina "Vaihto + F1" avataksesi "Palauta muotoilu" -ruutu. Ja voit nähdä solun RGB-arvon "Varjostus" -osiossa.
3. Seuraa menetelmän 9 vaiheita 11-1.

Tapa 3: Levitä yhden solun täyttöväri koko pöydälle VBA: n kautta

Kuten alaotsikko ehdottaa, tässä on tapa yhdistää koko taulukko yhdeksi väriksi.

1. Aluksi sijoita lisäysosoitin värillisen solun sisään.
2. Käynnistä VBA-editori painamalla Alt + F11.
3. Napsauta seuraavaksi Normaali-projekti ja napsauta Lisää-välilehteä.
4. Valitse sitten valikosta ”Moduuli”.
5. Avaa se kaksoisnapsauttamalla.
6. Ja liitä seuraavat koodit sinne:

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. Napsauta lopuksi Suorita tai paina F5.

Tapa 4: Levitä yhden solun täyteväri koko riviin VBA: n kautta

1. Aseta ensin kohdistin solun sisään.
2. Seuraava asenna ja suorita makro noudattamalla täsmälleen samoja vaiheita menetelmässä 3.
3. Korvaa seuraavaksi yllä olevat koodit seuraavilla:

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

Menetelmä 5: Levitä yhden solun täyteväri koko sarakkeeseen VBA: n kautta

1. Aseta todennäköisesti kohdistin ensin solun sisään.
2. Asenna ja suorita sitten makro oikein.
3. Korvaa makro tällä:

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äsittele sanakysymyksiä

Wordin käytössä on ja tulee aina olemaan ongelmia. Joten on aivan välttämätöntä oppia oikea temppu kaikkien näiden ärsyttävien asioiden käsittelemiseksi. Yksi toimenpiteistä, jotka sinun on toteutettava, on saada a Sanakorjaus työkalu etukäteen. Sitten et ole paniikissa, kun asiakirja on turmeltunut.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa excel ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com