Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe stel ik een celkleur in die gelijk is aan een andere celkleur in Excel?

Als u een celkleur aan een andere wilt koppelen, kan een methode in dit artikel u helpen.

Stel een celkleur in die gelijk is aan een andere celkleur met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Leesindeling (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik ...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde ... Voorkom dubbele cellen; Bereiken vergelijken ...
  • Selecteer Dubbele of Unieke rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkmappen; Willekeurig selecteren ...
  • Kopieer exact meerdere cellen zonder de formuleverwijzing te wijzigen; Automatisch verwijzingen maken naar meerdere bladen; Kogels invoegen, selectievakjes en meer ...
  • Favoriete en snel formules, reeksen, grafieken en afbeeldingen invoegen; Versleutel cellen met wachtwoord; Maak een mailinglijst en verzend e-mails ...
  • Tekst extraheren, tekst toevoegen, verwijderen op positie, spatie verwijderen; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen ...
  • Super Filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd Sorteren op maand / week / dag, frequentie en meer; Speciaal filter op vet, cursief ...
  • Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Convert xls, xlsx en PDF ...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.

Stel een celkleur in die gelijk is aan een andere celkleur met VBA-code


De onderstaande VBA-methode kan u helpen bij het instellen van een celkleur gelijk aan een andere in Excel. Doe het als volgt.

1. In het werkblad moet u de kleur van twee cellen overeenkomen, klik met de rechtermuisknop op het bladtabblad en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:

2. In de opening Microsoft Visual Basic voor toepassingen venster, moet u VBA-code kopiëren en plakken in het codevenster.

VBA-code: stel een celkleur in die gelijk is aan een andere celkleur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

Notes: In de code, A1 is de cel de opvulkleur die u wilt matchen met C1. Wijzig deze op basis van uw behoeften.

Dan is de cel C1 gevuld met dezelfde kleur van de cel A1 als onder screenshot getoond.

Vanaf nu, wanneer de vulkleur in A1 wordt gewijzigd, krijgt C1 automatisch dezelfde kleur.


Gerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tony · 7 months ago
    As Chris I am interested in copying the background color from another worksheet?
  • To post as a guest, your comment is unpublished.
    Chris · 7 months ago
    I found your code to 'set cell color to equal to another cell color" and it works when I am using it on the same worksheet ( ex from cell A1 to cell A2). I am wondering if there is a way to have this same functionality from another worksheet (ex to copy cell color from sheet1!A1 to sheet2!A1? Any help you could offer would be appreciated!
  • To post as a guest, your comment is unpublished.
    Zack · 9 months ago
    This is a good start to what I am looking to do. But I am looking for something a bit more complicated

    How could I adapt this to apply to multiple rows and a range. For instance I have a header column in Column B, I want cells from G to CS to match the colour of the header row but only is they have something in them ie the letter x. I know I can write an IF and THEN statement but how would I apply it to multiple Rows without writing a code for each row.
  • To post as a guest, your comment is unpublished.
    yesser · 1 years ago
    hi , how to apply the same VBA but on a range of cells for example :

    i want to have the same color of range (C8:X8) to be apply on the range (S16:AL16) one by one in the same order (S16 get the color of C16 , T16 get the color of D8 ....etc)
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,

      The below VBA code can help you solving the problem. Thanks for your comment.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim xSRg, xDRg, xISRg, xIDRg As Range
      Dim xFNum As Long
      On Error Resume Next
      Set xSRg = Range("C8:X8")
      Set xDRg = Range("S16:AL16")
      For xFNum = 1 To xSRg.count
      Set xISRg = xSRg.Item(xFNum)
      Set xIDRg = xDRg.Item(xFNum)
      xIDRg.Interior.Color = xISRg.Interior.Color
      Next xFNum
      End Sub
      • To post as a guest, your comment is unpublished.
        Shaun Symmonds · 6 months ago
        Hi

        I am trying to do similar, but I have two spreadsheets (files). Spreadsheet 1 is the Master where the data is manually updated and file (spreadsheet 2) is equalling the data in the same cell as spreadsheet 1. When I open spreadsheet 2, I get a prompt to refresh with spreadsheet 1 no promlems, but if the colour of the cell is changed in spreadsheet 1 it does not update in spreadsheet 2, neither does 'strike-trough' of fonts..help please?
  • To post as a guest, your comment is unpublished.
    JJ · 1 years ago
    Hi, the cell being referenced for colour changes colour based on conditional formatting. The above doesn't seem to work with that and the destination cells are staying blank. How can this be corrected? Thanks
    • To post as a guest, your comment is unpublished.
      LP · 10 months ago
      If you have Excel 2010 or later you can use the DisplayFormat function to return the color of a conditionally formatted cell. See below:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Me.Range("C1").Interior.Color = Me.Range("A1").DisplayFormat.Interior.Color
      End Sub
    • To post as a guest, your comment is unpublished.
      Marty · 1 years ago
      I have the same problem. Works on cells without conditional formatting but doesn't with those that do