Como aplicar um gradiente de cor em várias células?

No Excel, podemos facilmente preencher a cor de fundo de uma célula ou várias células, mas, às vezes, precisamos que a cor seja preenchida em gradiente, como mostrado na captura de tela a seguir. Como obter o gradiente de cor em uma célula ou em várias células no Excel?

Gradiente de cor para uma célula

Gradiente de cor em várias células

Aplicar cor gradiente em uma célula com o recurso Formatar Células

Aplicar cor gradiente em várias células com código VBA

Aplicar cor gradiente em uma célula com o recurso Formatar Células

No Excel, o recurso Formatar Células pode ajudá-lo a preencher o gradiente de cor em uma célula; por favor, siga os passos abaixo:

1. Selecione uma célula ou várias células nas quais deseja preencher com gradiente de cor e clique com o botão direito do mouse para escolher Formatar Células no menu de contexto. Na caixa de diálogo Formatar Células, na aba Preenchimento, clique no botão Efeitos de Preenchimento, veja a captura de tela:

2. Na caixa de diálogo Efeitos de Preenchimento, selecione duas cores que deseja usar nos dois menus suspensos da seção Cores e, em seguida, escolha um estilo de sombreamento conforme preferir, como horizontal, vertical e assim por diante. Veja a captura de tela:

3. Em seguida, clique em OK > OK para fechar as caixas de diálogo e o gradiente de cor será preenchido em cada célula, como mostrado na seguinte captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Aplicar cor gradiente em várias células com código VBA

O método acima pode nos ajudar a criar um gradiente de cor dentro de uma célula individual. Se você precisar sombrear o gradiente de cor em várias células, será necessário aplicar um código VBA para resolvê-lo.

1. Primeiro, preencha uma cor de fundo específica em um intervalo de células.

2. Pressione e segure as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Aplicar cor gradiente em várias células:

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. Em seguida, pressione a tecla F5 para executar este código e uma caixa de aviso aparecerá para lembrá-lo de selecionar as células coloridas nas quais deseja preencher o gradiente de cor, veja a captura de tela:

5. Depois disso, clique no botão OK e a cor dentro das várias células será exibida como gradiente de cor, veja a captura de tela: