Note: The other languages of the website are Google-translated. Back to English

¿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.
doc sigue formateando mientras se hace referencia a 1

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:
doc sigue formateando mientras se hace referencia a 2

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

Nota:: 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.
doc contar por color

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.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (8)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
hola, creo que esto puede ser justo lo que estoy buscando. Necesito que el texto al que se hace referencia tenga los mismos colores y características de la página a la que se hace referencia. Lo único diferente del mío es que estoy extrayendo de un rango más amplio. Nunca antes había usado VBA, así que quería confirmar antes de hacer cambios. Estoy tirando de un documento (hoja 2) a un documento (hoja 1). He usado fórmulas IF para hacer esto, por lo que devuelve un valor de 3 columnas diferentes y no están en una fila. Las columnas son F,H,J. ¿Podría ayudarme a averiguar cómo puedo hacer que esto funcione?
Este comentario fue minimizado por el moderador en el sitio
Lo siento, tu problema es un poco complejo, no lo entiendo claramente.
Este comentario fue minimizado por el moderador en el sitio
Estoy lidiando con un problema similar. Tengo una fórmula en la columna C, que toma valor de la misma fila, columna A. (Pero solo SI B3 no es x Y A3 no está vacío):

=SI(B3="x";"y";SI(A3="";"z";A3))

Las celdas de la columna A se ven así: OK 2019_12_03
Pero "OK" está en negrita. Me gustaría mantener este formato.
Quiero esto para cientos de celdas, por lo que no es deseable hacer clic o escribir un script para cada una de ellas. ¿Alguna idea si tal característica existe? Apreciaría algún tipo de función "WITHFORMAT ()" que pudiera poner en la fórmula, por lo que la siguiente fórmula mantendría el formato original:

=SI(B3="x";"y";SI(A3="";"z";CONFORMATO(A3)))
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias por el guión. ¿Puede decirme si hay alguna forma de que la celda vinculada se actualice sin tener que hacer doble clic en la celda de referencia? ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Gracias por compartir esto. ¿Existe una secuencia de comandos de VBA que permita hacer referencia a un rango de celdas en un libro de trabajo y luego mostrar el valor y el formato de las celdas a las que se hace referencia en un libro de trabajo diferente?
Este comentario fue minimizado por el moderador en el sitio
Gracias por compartir esto. Tengo un rango de celdas en WorksheetA, Sheet1, Range G3:G3000 al que quiero hacer referencia en WorksheetB, Sheet1, Range G3:G3000. Necesito WorksheetB, Sheet1, Range G3:G3000 para mostrar tanto el valor como el formato de las celdas a las que se hace referencia en WorksheetA, Sheet1, G3:G3000. ¿Hay un script de VBA que permita esto?
Este comentario fue minimizado por el moderador en el sitio
No tienes uno que sea dentro del mismo archivo
Este comentario fue minimizado por el moderador en el sitio
Hola, me gustaría mantener el formato de mi celda de referencia. Sin embargo, incluso con su VBA no funciona. ¿Puedes ayudarme por favor?
Me gustaría que mi celda B2 de mi hoja 1 sea mi celda de referencia para mis celdas C2 de las hojas 2,3,4,5,6,7.
Mi documento es una lista de personas, por lo tanto tendré varias celdas de referencias, no la continuación.
Gracias por adelantado
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL