¿Cómo conservar las líneas de cuadrícula al rellenar color en Excel?
Como todos sabemos, cuando rellenamos el color de fondo de las celdas, las líneas de cuadrícula también se cubrirán. En este caso, ¿cómo podemos mantener las líneas de cuadrícula mientras rellenamos el color de fondo en las celdas de Excel para obtener la siguiente captura de pantalla mostrada?
Conservar líneas de cuadrícula al rellenar color con código VBA
Conservar líneas de cuadrícula al rellenar color con código VBA
Normalmente, no hay una manera directa de resolver esta tarea, pero aquí puedo presentar un código VBA para ti. Por favor, sigue los siguientes pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En el panel izquierdo Proyecto-VBAProject, haz doble clic en ThisWorkbook bajo el VBAProject expandido, luego copia y pega el siguiente código VBA en el Módulo en blanco:
Código VBA: conservar líneas de cuadrícula al rellenar 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. Luego guarda y cierra la ventana del código. Ahora, cuando rellenes un color para un rango de celdas, las líneas de cuadrícula se mostrarán automáticamente.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos