¿Cómo mantener el formato de celda mientras se hace referencia a otras celdas de hoja?
En general, la celda solo mantiene el valor de la celda mientras 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 hacer referencia a otra celda, y los valores de celda y el formato cambian a medida que la celda de referencia cambia como se muestra a continuación se muestra la captura de pantalla.
Mantenga el formato de celda mientras hace referencia a otra celda con VBA
Mantenga el formato de celda mientras hace referencia a otra celda con VBA
Para manejar este trabajo, solo necesita ejecutar el siguiente código.
1. Habilite el libro de trabajo que usa, presione Alt + F11 clave para habilitar Microsoft Visual Basic para aplicaciones ventana, y haga doble clic en el nombre de la hoja en la que colocará la celda de referencia Proyecto-VBAProject panel para mostrar una secuencia de comandos en blanco. En este caso, quiero referirme a la celda A1 existentes Sheet1. Ver captura de pantalla:
2. Pegue el código a continuación en la secuencia de comandos y, en el código VBA, especifique las referencias de celda que necesite.
VBA: mantenga el formato y los valores mientras hace referencia a 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 Sub
Note: A1 es la celda de referencia, B1 in Hoja 2 es la celda que desea vincular a la celda de referencia y mantener los valores y el formato con A1 en Shee1.
Luego, cuando cambie los valores o el formato en la celda A1 en Sheet1, la celda B1 en Sheet2 se cambiará mientras hace clic en la celda de referencia dos veces.
Contar por color
|
En algunos casos, puede tener un rango de colores con varios colores, y lo que desea es contar / sumar valores basados en el mismo color, ¿cómo puede calcular rápidamente? Con Kutools for Excel's Contar por color, puede hacer rápidamente muchos cálculos por color y también puede generar un informe del resultado calculado. |
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!