¿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 en el capítulo respecto a la 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 SubNota:: 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
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
