¿Cómo resaltar las celdas vinculadas mediante hipervínculos en Excel?
Si hay varios hipervínculos que enlazan a la misma hoja de cálculo o libro, ahora necesito que la celda de destino del hipervínculo al que se hace clic se rellene con un color para destacarla. Cuando se haga clic en otro hipervínculo, la primera debe volver a su estado normal, tal como se muestra en la siguiente captura de pantalla. ¿Es posible resolver esto en Excel?
Resalte las celdas vinculadas mediante hipervínculos con código VBA
Resalte las celdas vinculadas mediante hipervínculos con código VBA
Normalmente, no existe una forma directa de resaltar las celdas de destino vinculadas mediante hipervínculos, pero el siguiente código VBA puede ayudarle. Siga estos pasos:
1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea resaltar las celdas de destino vinculadas mediante hipervínculos y, a continuación, elija Ver código en el menú contextual. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, copie y pegue el siguiente código en el módulo en blanco:
Código VBA: Resaltar celdas vinculadas mediante hipervínculos:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Dim i As Long
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).UsedRange.Interior.ColorIndex = -4142
Next
ActiveSheet.Cells.Interior.ColorIndex = red
Selection.Cells.Interior.ColorIndex = 6
End Sub
2. A continuación, guarde y cierre este código. Ahora, al hacer clic en una celda con hipervínculo, la celda de destino vinculada se resaltará inmediatamente; al hacer clic en otro hipervínculo, la primera volverá a su estado normal.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos