¿Cómo conservar las líneas de la cuadrícula mientras se rellena el color en Excel?
Como todos sabemos, cuando llenamos el color de fondo de las celdas, las líneas de cuadrícula también se cubrirán, en este caso, ¿cómo podríamos mantener las líneas de cuadrícula mientras llenamos el color de fondo en las celdas de Excel para obtener la siguiente captura de pantalla?
Conserve las líneas de cuadrícula mientras llena el color con el código VBA
Conserve las líneas de cuadrícula mientras llena el color con el código VBA
Normalmente, no hay una forma directa de que podamos resolver este trabajo, pero aquí puedo presentarle un código VBA. Haz lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En la izquierda Proyecto-VBAProject panel, haga doble clic ThisWorkbook bajo el expandido Proyecto VBA, luego copie y pegue el siguiente código VBA en el módulo en blanco:
Código VBA: preservar las líneas de cuadrícula mientras se rellena el color
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not xRgPre Is Nothing Then DrawBorders xRgPre
Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Rg
If xCell.Interior.ColorIndex = xlNone Then
With xCell.Borders
If .ColorIndex = 15 Then
.LineStyle = xlNone
End If
End With
Else
With xCell.Borders
If .LineStyle = xlNone Then
.Weight = xlThin
.ColorIndex = 15
End If
End With
End If
Next
Application.ScreenUpdating = True
End Sub
3. Y luego guarde y cierre la ventana de código, ahora, cuando complete un color para un rango de celdas, las líneas de cuadrícula se mostrarán automáticamente.
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!