I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come applicare il gradiente di colore su più celle?

In Excel, possiamo facilmente riempire il colore di sfondo con una cella o più celle, ma, a volte, abbiamo bisogno del gradiente di colore da riempire come mostrato nella seguente schermata, come ottenere il gradiente di colore in una cella o tra più celle in Excel?

Gradiente di colore a una cella Gradiente di colore su più celle
gradiente di colore doc 1 gradiente di colore doc 2

Applica il colore del gradiente a una cella con la funzione Formato celle

Applica il colore del gradiente su più celle con il codice VBA


Contare e sommare le celle in base al colore di sfondo / colore del carattere / formattazione condizionale:
Kutools for Excel'S Contare per colore può contare e sommare rapidamente le celle in base al colore di sfondo, al colore del carattere. Con esso, puoi contare e sommare anche per colore di formattazione condizionale. Maggiori informazioni su questa funzione ...
doc-filtro-color-12

freccia blu bolla destra Applica il colore del gradiente a una cella con la funzione Formato celle


In Excel, la funzione Formato celle può aiutarti a riempire la sfumatura di colore in una cella, per favore fai come segue:

1. Selezionare una cella o più celle che si desidera riempire con il gradiente di colore di ciascuna cella, quindi fare clic con il pulsante destro del mouse per scegliere formato celle dal menu di scelta rapida, in formato celle finestra di dialogo, sotto il Riempire scheda, fare clic Effetti di riempimento pulsante, vedi screenshot:

gradiente di colore doc 3

2. Nel Effetti di riempimento finestra di dialogo, selezionare due colori che si desidera utilizzare dai due elenchi a discesa di Colori sezione, quindi selezionare uno degli stili di ombreggiatura come desiderato, ad esempio orizzontale, Verticale e così via. Vedi screenshot:

gradiente di colore doc 4

3. Quindi fare clic OK > OK per chiudere le finestre di dialogo e il colore del gradiente viene riempito per ogni cella come mostrato nella seguente schermata:

gradiente di colore doc 5


freccia blu bolla destra Applica il colore del gradiente su più celle con il codice VBA

Il metodo sopra può aiutarci a sfumare il colore all'interno di una singola cella, se è necessario sfumare il gradiente di colore su più celle, è necessario applicare un codice VBA per risolverlo.

1. Innanzitutto, riempi un colore di sfondo specifico a un intervallo di celle.

2. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: applica il colore del gradiente su più celle:

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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di prompt per ricordarti di selezionare le celle colorate che vuoi riempire di colore sfumato, vedi screenshot:

gradiente di colore doc 6

5. E poi clicca OK pulsante, il colore all'interno di più celle è visualizzato come colore sfumato, vedi screenshot:

gradiente di colore doc 7



Strumenti di produttività consigliati

Office Tab

stella d'oro1 Porta pratiche schede ad Excel e ad altri software Office, proprio come Chrome, Firefox e il nuovo Internet Explorer.

Kutools for Excel

stella d'oro1 Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d'oro1 300 Nuove funzionalità per Excel, rendono Excel molto semplice e potente:

  • Unisci cella / righe / colonne senza perdere dati.
  • Combina e consolida più fogli e cartelle di lavoro.
  • Confronta intervalli, copia intervalli multipli, conversione testo in data, unità e conversione valuta.
  • Contare in base a colori, totali parziali cercapersone, ordinamento avanzato e filtro super,
  • Altro Seleziona / Inserisci / Elimina / Testo / Formato / Link / Commento / Cartelle di lavoro / Fogli di lavoro Strumenti ...

Schermata di Kutools per 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.
    Piyaphan · 2 months ago
    Why I got Black-White color replace my gradient
    • To post as a guest, your comment is unpublished.
      skyyang · 1 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 · 4 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 · 4 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 · 5 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?