Hoe een kleurverloop toepassen over meerdere cellen?
In Excel kunnen we eenvoudig een achtergrondkleur invullen in een cel of meerdere cellen, maar soms willen we dat de kleur in een verloop wordt ingevuld, zoals in de volgende schermafbeelding te zien is. Hoe krijgen we een kleurverloop in een cel of over meerdere cellen in Excel?
Gradientkleur toepassen op één cel met de functie Celopmaak instellen
Gradientkleur toepassen over meerdere cellen met VBA-code
Gradientkleur toepassen op één cel met de functie Celopmaak instellen
In Excel kan de functie Celopmaak instellen u helpen om een kleurverloop in één cel in te vullen. Volg hiervoor de volgende stappen:
1. Selecteer een cel of meerdere cellen die u wilt vullen met een kleurverloop per cel, en klik vervolgens met de rechtermuisknop om Celopmaak instellen te kiezen uit het contextmenu. In het dialoogvenster Celopmaak instellen, onder het tabblad Opvullen, klikt u op de knop Vul-effecten. Zie screenshot:
2. Selecteer in het dialoogvenster Vul-effecten twee kleuren die u wilt gebruiken uit de twee vervolgkeuzelijsten in de sectie Kleuren, en selecteer vervolgens een arceringsstijl naar keuze, zoals horizontaal, verticaal, enzovoort. Zie screenshot:
3. Klik vervolgens op OK > OK om de dialoogvensters te sluiten, en het kleurverloop wordt ingevuld voor elke cel zoals in de volgende schermafbeelding te zien is:
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Gradientkleur toepassen over meerdere cellen met VBA-code
De bovenstaande methode helpt ons om een kleurverloop binnen een individuele cel te maken. Als u echter een kleurverloop over meerdere cellen wilt toepassen, moet u een VBA-code gebruiken om dit op te lossen.
1. Vul eerst een specifieke achtergrondkleur in voor 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 modulevenster.
VBA-code: Gradientkleur toepassen 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 vervolgens op de toets F5 om deze code uit te voeren, en er verschijnt een meldingsvenster dat u eraan herinnert de gekleurde cellen te selecteren waarin u een kleurverloop wilt invullen. Zie screenshot:
5. Klik vervolgens op de knop OK, en de kleur in de meerdere cellen wordt weergegeven als een gradientkleur. Zie screenshot:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen 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.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen