Hoe kleurverloop toepassen op meerdere cellen?
In Excel kunnen we eenvoudig de achtergrondkleur in een cel of meerdere cellen vullen, maar soms hebben we het kleurverloop nodig zoals in het onderstaande screenshot, hoe kan het kleurverloop in een cel of over meerdere cellen in Excel worden verkregen?
Kleurverloop naar één cel | Kleurverloop over meerdere cellen |
Pas een verloopkleur toe op één cel met de functie Cellen opmaken
Pas een verloopkleur toe op meerdere cellen met VBA-code
Pas een verloopkleur toe op één cel met de functie Cellen opmaken
In Excel kan de functie Cellen opmaken u helpen om het kleurverloop in één cel te vullen, doe dit als volgt:
1. Selecteer een cel of meerdere cellen die u in elke cel met kleurverloop wilt vullen en klik met de rechtermuisknop om te kiezen Cellen opmaken vanuit het contextmenu, in het Cellen opmaken dialoogvenster onder het Vulling tabblad, klik dan Opvuleffecten knop, zie screenshot:
2. In de Opvuleffecten dialoogvenster, selecteer twee kleuren die u wilt gebruiken uit de twee vervolgkeuzelijsten van kleuren sectie en selecteer vervolgens een arceringstijl zoals u wilt, zoals horizontaal, verticaal, enzovoort. Zie screenshot:
3. Dan klikken OK > OK om de dialoogvensters te sluiten, en de verloopkleur wordt voor elke cel gevuld zoals in de volgende schermafbeelding:
Pas een verloopkleur toe op meerdere cellen met VBA-code
De bovenstaande methode kan ons helpen om het kleurverloop binnen een afzonderlijke cel te kleuren, als u het kleurverloop over meerdere cellen wilt verduisteren, moet u een VBA-code toepassen om het op te lossen.
1. Vul eerst een specifieke achtergrondkleur in een reeks cellen.
2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verloopkleur toepassen op 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 F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de gekleurde cellen te selecteren die u de verloopkleur wilt vullen, zie screenshot:
5. En klik vervolgens op OK knop, is de kleur in meerdere cellen weergegeven als verloopkleur, zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!