Hvordan anvendes farvegradient på tværs af flere celler?
I Excel kan vi nemt udfylde baggrundsfarve til en celle eller flere celler, men nogle gange har vi brug for, at farven udfyldes gradient som vist nedenstående skærmbillede, hvordan kunne farvefarven i en celle eller på tværs af flere celler i Excel?
| Farvegradient til en celle | Farvegradient over til flere celler |
 |
 |
Anvend gradientfarve på en celle med Format Cells-funktionen
Anvend gradientfarve på tværs af flere celler med VBA-kode
Anvend gradientfarve på en celle med Format Cells-funktionen
I Excel kan funktionen Formatere celler hjælpe dig med at udfylde farvegradienten i en celle, gør som følger:
1. Vælg en celle eller flere celler, som du vil udfylde med farvegradient hver celle, og højreklik derefter for at vælge formater celler fra genvejsmenuen i formater celler under dialogboksen Fyld fanen skal du klikke Fyld effekter knap, se skærmbillede:
2. I Fyld effekter dialog, skal du vælge to farver, du vil bruge, fra de to rullelister over Farver sektion, og vælg derefter en skyggeform, som du vil, f.eks. vandret, lodret osv. Se skærmbillede:
3. Klik derefter på OK > OK for at lukke dialogerne, og gradientfarven udfyldes for hver celle som følgende skærmbillede vist:
Anvend gradientfarve på tværs af flere celler med VBA-kode
Ovenstående metode kan hjælpe os med at farvegradient inden for den enkelte celle. Hvis du har brug for at skygge farvegradienten på tværs af flere celler, skal du anvende en VBA-kode for at løse den.
1. Udfyld først en bestemt baggrundsfarve til en række celler.
2. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Anvend gradientfarve på tværs af flere celler:
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises en hurtigboks for at minde dig om at vælge de farvede celler, som du vil udfylde gradientfarve, se skærmbillede:
5. Og klik derefter på OK knap, farven i flere celler har vist sig som gradientfarve, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
