¿Cómo aplicar degradado de color en varias celdas?
En Excel, podemos rellenar fácilmente el color de fondo en una celda o en varias celdas, pero, a veces, necesitamos que el color se llene con un degradado como se muestra en la siguiente captura de pantalla, ¿cómo podría obtener el degradado de color en una celda o en varias celdas en Excel?
Degradado de color a una celda | Gradiente de color en varias celdas |
Aplicar color degradado a una celda con la función Formato de celdas
Aplicar color degradado en varias celdas con código VBA
Aplicar color degradado a una celda con la función Formato de celdas
En Excel, la función Formato de celdas puede ayudarlo a completar el degradado de color en una celda, haga lo siguiente:
1. Seleccione una celda o varias celdas que desee que se llenen con un degradado de color en cada celda, y luego haga clic derecho para elegir Formato de celdas desde el menú contextual, en el Formato de celdas cuadro de diálogo, debajo del Llene pestaña, haga clic en Efectos de relleno botón, ver captura de pantalla:
2. En la Efectos de relleno cuadro de diálogo, seleccione dos colores que desee utilizar de las dos listas desplegables de Colores sección y, a continuación, seleccione uno de los estilos de sombreado que desee, como horizontal, vertical, etc. Ver captura de pantalla:
3. Luego haga clic OK > OK para cerrar los cuadros de diálogo, y el color del degradado se rellena para cada celda como se muestra en la siguiente captura de pantalla:
Aplicar color degradado en varias celdas con código VBA
El método anterior puede ayudarnos a colorear el degradado dentro de una celda individual, si necesita sombrear el degradado de color en varias celdas, debe aplicar un código VBA para resolverlo.
1. Primero, complete un color de fondo específico en un rango de celdas.
2. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: aplique color degradado en varias celdas:
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. Entonces presione F5 para ejecutar este código, y aparece un cuadro de aviso para recordarle que seleccione las celdas de color que desea rellenar con color degradado, vea la captura de pantalla:
5. Y luego haz clic OK botón, el color dentro de varias celdas se ha mostrado como color degradado, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!