¿Cómo mantener el formato de la celda al hacer referencia a celdas de otra hoja?
Generalmente, la celda solo conserva el valor mientras se hace referencia a otra celda, pero en este artículo presento un código VBA para mantener los valores y el formato de la celda al referenciar otra celda, y los valores y el formato cambian según cambia la celda de referencia como se muestra en la siguiente captura de pantalla.
Mantener el formato de la celda al referenciar otra celda con VBA
Mantener el formato de la celda al referenciar otra celda con VBA
Para realizar esta tarea, solo necesita ejecutar el siguiente código.
1. Active el libro que está utilizando, presione Alt + F11 para activar Microsoft Visual Basic for Application ventana, y haga doble clic en el nombre de la hoja donde colocará la celda de referencia en Project-VBAProject panel para mostrar un script en blanco. En este caso, quiero referirme a la celda A1 en la Hoja1. Ver captura de pantalla:
2. Pegue el siguiente código en el script, y en el código VBA, especifique las referencias de celda según sea necesario.
VBA: Mantener formato y valores al referenciar otra celda
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End SubNota: A1 es la celda de referencia, B1 en Hoja 2 es la celda que desea vincular a la celda de referencia y mantener los valores y el formato con A1 en Hoja1.
Luego, cuando cambie los valores o el formato en la celda A1 en Hoja1, la celda B1 en Hoja2 cambiará al hacer doble clic en la celda de referencia.
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
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