Quizas muchos trabajan en excel todo el día igual que yo, en plantillas llenas de datos, entre letras y numeros, y muchos se deben marear entre tantas celdas.
¿Les gustaría que al estar en una celda se destaque toda la columna y toda la celda?
Aquí unos ejemplos subidos por mí:
Instrucción de Instalación efecto de destacar celdas:
Veo que les gustó.... bueno es bien fácil, solo abran su Microsoft Exel.
Luego van al Menú Herramientas / Macro / Seguridad...
Colocan la seguridad en bajo:
Y en la pestaña de al lado dejan las 2 opciones de abajo tickeadas.
Luego pinchan "Aceptar"
Ahora le hacemos click derecho del mouse, sobre la hoja que queremos ese efecto:
Y cambiamos la vista de "General" a "Worksheet"
Y les aparecerá este texto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub
Lo deben reemplazar por este otro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim MiRango As Range
Application.ScreenUpdating = False
With Application.Cells
' Limpia Todo
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
' .Interior.ColorIndex = 0
End With
Set MiRango = Application.Union(Range(Cells(Target.Row, 1), Target), _
Range(Cells(1, Target.Column), Target))
' Color Cuadro
'MiRango.Interior.ColorIndex = 6
With MiRango.Borders(xlEdgeLeft)
' Izquierdo Arriba
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
With MiRango.Borders(xlEdgeTop)
'Superior izquierdo
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
With MiRango.Borders(xlEdgeBottom)
' Inferior izquierdo
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
With MiRango.Borders(xlEdgeRight)
' Arriba derecho
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
' Ahora para abajo y para el lado derecho
Set MiRango = Application.Union(Range(Cells(Target.Row, 50), Target), _
Range(Cells(5000, Target.Column), Target))
' Color Cuadro
'MiRango.Interior.ColorIndex = 6
With MiRango.Borders(xlEdgeLeft)
' Izquierdo Abajo
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
With MiRango.Borders(xlEdgeTop)
'Superior Derecho
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
With MiRango.Borders(xlEdgeBottom)
' Inferior Derecho
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
With MiRango.Borders(xlEdgeRight)
' Inferior derecho
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
Application.ScreenUpdating = True
Set MiRango = Nothing
End Sub
Ahora para que les funcione, guardan y cierran el archivo exel, lo vuelven a abrir y funcionará
Advertencia
Al usar este truco funciona sin problemas, pero su pc queda más vulnerable por si alguien les manda algún virus dentro de un archivo exel.
Aclaraciones
- El efecto se agrega solo en la hoja que se agregue el codigo, aunque hayan otras en un mismo archivo exel, solo se agregara a la que le agreguemos el codigo por separado.
- Si agregamos el efecto y lo enviamos por email, el otro receptor debera desabilitar la seguridad de los macros por si el tambien quiere ver funcionando el archivo.
Espero que les gustara, a mi me sirve un montón en el trabajo.