Como aplicar gradiente de cor em várias células?
No Excel, podemos preencher facilmente a cor de fundo de uma célula ou de várias células, mas, às vezes, precisamos que a cor seja preenchida com gradiente, conforme mostrado 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 gradiente de cor a uma célula com o recurso Formatar células
Aplicar gradiente de cor em várias células com código VBA
Aplicar gradiente de cor a 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, faça o seguinte:
1. Selecione uma célula ou várias células que deseja preencher com gradiente de cor em cada célula e clique com o botão direito para escolher formatar células a partir do menu de contexto, no formatar células caixa de diálogo, sob o Preencher guia, por favor clique Efeitos de preenchimento botão, veja a captura de tela:
2. No Efeitos de preenchimento diálogo, selecione duas cores que deseja usar nas duas listas suspensas de Cores e selecione um estilo de sombreamento de sua preferência, como horizontal, vertical e assim por diante. Veja a imagem:
3. Então clique OK > OK para fechar as caixas de diálogo, e a cor do gradiente é preenchida para cada célula, conforme mostrado a seguir:
Aplicar gradiente de cor em várias células com código VBA
O método acima pode nos ajudar a colorir o gradiente 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 para um intervalo de células.
2. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: aplique gradiente de cor 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. Então aperte F5 para executar este código, e uma caixa de prompt é exibida para lembrá-lo de selecionar as células coloridas que deseja preencher com a cor gradiente, consulte a captura de tela:
5. E, em seguida, clique em OK botão, a cor dentro de várias células foi exibida como cor gradiente, consulte a captura de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!