Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com s'aplica el degradat del color a diverses cel·les?

En Excel, podem omplir fàcilment el color de fons a una cel·la o a diverses cel·les, però, de vegades, necessitem el degradat del color a la següent captura de pantalla, com es pot obtenir el degradat del color en una cel·la o a través de diverses cel·les d'Excel?

Gradient de color a una cel·la Gradient de color a diverses cel·les
gradient de color doc 1 gradient de color doc 2

Apliqueu color de degradat a una cel·la amb la funció Format de cel·les

Apliqueu color de degradat a diverses cel·les amb codi VBA


Càlculs de recompte i suma basats en color de fons / color de lletra / format condicional:
Kutools for Excel'S Compte per color Podeu comptar ràpidament i sumar cel·les en funció del color de fons, el color de la font. Amb ell, també podeu comptar i sumar-los per color de format condicional. Llegeix més sobre aquesta funció ...
doc-filter-color-12

fletxa blau dreta bombolla Apliqueu color de degradat a una cel·la amb la funció Format de cel·les


En Excel, la funció Format de cel·les us pot ajudar a omplir el degradat del color en una cel·la, feu el següent:

1. Seleccioneu una cel·la o diverses cel·les que vulgueu omplir amb el gradient de color de cada cel·la i, a continuació, feu clic amb el botó dret del ratolí per triar Format de cel·les des del menú contextual, al Format de cel·les quadre de diàleg, a sota del Omplir fitxa, feu clic a Efectes de farciment botó, veure captura de pantalla:

gradient de color doc 3

2. Al Efectes de farciment diàleg, seleccioneu dos colors que voleu utilitzar a partir de les dues llistes desplegables de Colors , i després seleccioneu els estils d'ombrejat que vulgueu, com ara horitzontal, vertical, etc. Mostra la captura de pantalla:

gradient de color doc 4

3. A continuació, feu clic a OK > OK per tancar els diàlegs i omplir el color del gradient per a cada cel·la, com es mostra a la següent captura de pantalla:

gradient de color doc 5


fletxa blau dreta bombolla Apliqueu color de degradat a diverses cel·les amb codi VBA

El mètode anterior ens pot ajudar a acolorir el degradat dins de la cel·la individual, si necessiteu ombrejar el degradat del color a través de diverses cel·les, haureu d'aplicar un codi VBA per resoldre-ho.

1. Primer, ompli un color de fons específic en un rang de cel·les.

2. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

3. Clic Insereix > Mòduls, i enganxeu el següent codi al Mòduls Finestra.

Codi VBA: Aplica el color del gradient a diverses cel·les:

Sub colorgradientmultiplecells()
'Updateby Extendoffcie 20160725
    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. A continuació, premeu F5 clau per executar aquest codi i apareix un quadre de comandament per recordar-vos que seleccioneu les cel·les de color que voleu omplir el color de degradat, vegeu la captura de pantalla:

gradient de color doc 6

5. A continuació, feu clic a OK , el color dins de diverses cel·les s'ha mostrat com a color de degradat, vegeu captura de pantalla:

gradient de color doc 7



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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.
    Jasmin · 4 days ago
    Hello, how can I go from yellow to red (for example)? It works only from White to an other color. I work with the code from left to right.
  • To post as a guest, your comment is unpublished.
    Piyaphan · 3 months ago
    Why I got Black-White color replace my gradient
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hello, Piyaphan,
      The above code works well in my worksheet, which Excel version do you use?
      Or you can give your problem more detailed.
      Thank you!
  • To post as a guest, your comment is unpublished.
    paul · 9 months ago
    hey, I'm not that used to VBA codes. How do I set another color in the code?
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, paul,
      If you want to set another color, you just need to fill your desired color to the cells, and then apply the above code in this article.
      Please try it.
  • To post as a guest, your comment is unpublished.
    Sean · 1 years ago
    How do I get this to have the gradient go left to right?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Sean,
      To apply the color gradient from left to right, please use the following VBA code:

      Sub colorgradientmultiplecells()
      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.Columns.Count
      For K = 1 To xRg.Rows.Count
      xColor = xRg.Cells(K, 1).Interior.Color
      For I = xCount To 1 Step -1
      xRg.Cells(K, I).Interior.Color = xColor
      xRg.Cells(K, I).Interior.TintAndShade = (xCount - (I - 1)) / xCount
      Next
      Next
      End Sub

      Hope it can help you, thank you!
      • To post as a guest, your comment is unpublished.
        Ashley · 5 months ago
        How can I make the code to go it from right to left, Thanks in advance
        • To post as a guest, your comment is unpublished.
          skyyang · 5 months ago
          Hello, Ashley,
          To make the color gradient from right to left, the following vba code can help you, please try it.

          Sub colorgradientmultiplecells()
          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.Columns.Count
          For K = 1 To xRg.Rows.Count
          xColor = xRg.Cells(K, 1).Interior.Color
          For I = xCount To 1 Step -1
          xRg.Cells(K, I).Interior.Color = xColor
          xRg.Cells(K, I).Interior.TintAndShade = I / xCount
          Next
          Next
          End Sub
      • To post as a guest, your comment is unpublished.
        Sean · 6 months ago
        Is it possible to post a code that does gradient from top to bottom? I would really appreciate it.
      • To post as a guest, your comment is unpublished.
        Daisy · 1 years ago
        How would I do this if I wanted it top left to bottom right gradient?