Hoe pas je een kleurverloop toe over meerdere cellen?
In Excel kunt u eenvoudig een achtergrondkleur toepassen op één cel of meerdere cellen, maar soms wilt u dat de kleur als een verloop wordt weergegeven, zoals te zien is op de volgende schermafbeelding. Hoe kunt u een kleurverloop in één cel of over meerdere cellen in Excel realiseren?
Pas een kleurverloop toe op één cel met de functie Celopmaak instellen
Pas een kleurverloop toe over meerdere cellen met VBA-code
Pas een kleurverloop toe op één cel met de functie Celopmaak instellen
In Excel helpt de functie Celopmaak instellen u bij het toepassen van een kleurverloop in één enkele cel. Volg deze stappen:
1. Selecteer één of meerdere cellen die u elk met een kleurverloop wilt vullen, klik er met de rechtermuisknop op en kies Celopmaak instellen in het contextmenu. In het dialoogvenster Celopmaak instellen, onder het tabblad Opvulling, klikt u op de knop Opvuleffecten. Zie de schermafbeelding:
2. In het dialoogvenster Opvuleffecten selecteert u twee gewenste kleuren uit de keuzelijsten onder de sectie Kleuren en kiest u daarna een arceringsstijl naar keuze, zoals horizontaal, verticaal, enzovoort. Zie de schermafbeelding:
3. Klik vervolgens op OK > OK om de dialoogvensters te sluiten. Het kleurverloop is nu toegepast op elke cel, zoals te zien is op de volgende schermafbeelding:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Pas een kleurverloop toe over meerdere cellen met VBA-code
Met de bovenstaande methode past u een kleurverloop toe binnen afzonderlijke cellen. Wilt u een kleurverloop over meerdere cellen aanbrengen? Dan heeft u hiervoor VBA-code nodig.
1. Vul eerst een specifieke achtergrondkleur in op een bereik van cellen.
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Pas een kleurverloop toe over meerdere cellen:
Sub colorgradientmultiplecells()
'Updateby Extendoffcie
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K As Long
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
xCount = xRg.Rows.Count
For K = 1 To xRg.Columns.Count
xColor = xRg.Cells(1, K).Interior.Color
For I = xCount To 1 Step -1
xRg.Cells(I, K).Interior.Color = xColor
xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
Next
Next
End Sub
4. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt een meldingsvenster waarin u wordt gevraagd de gekleurde cellen te selecteren waarop u het kleurverloop wilt toepassen. Zie de schermafbeelding:
5. Klik daarna op de knop OK. De kleur wordt nu over meerdere cellen weergegeven als een kleurverloop. Zie de schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins