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

¿Cómo aplicar paneles de congelación / descongelación a varias hojas de trabajo a la vez?

Supongamos que tiene un libro de trabajo grande que contiene cientos de hojas de trabajo, y ahora necesita aplicar Freeze Panes para congelar todas las hojas de trabajo a la vez. Con la función Freeze Panes de Excel, puede congelar solo una hoja de trabajo a la vez, ¿hay alguna manera de congelar o descongelar todas las hojas de trabajo inmediatamente a la vez en Excel?

Aplique Freeze Panes a todas las hojas de trabajo a la vez con código VBA

Aplique Unfreeze Panes a todas las hojas de trabajo a la vez con código VBA

Aplique Congelar / Descongelar Paneles a todas las hojas de trabajo a la vez con un clic con Kutools para Excel


Puede usar el siguiente código para aplicar Freeze Panes a todas las hojas de trabajo, siga los siguientes pasos:

1. Si desea congelar todas las hojas de trabajo en la misma posición, seleccione una celda que desea congelar en la hoja de trabajo y luego mantenga presionada cambio para seleccionar todas las pestañas de la hoja.

2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código VBA: congele todas las hojas de trabajo a la vez en Excel

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Y luego presione F5 para ejecutar este código, y todas las hojas de trabajo se han aplicado con los paneles congelados en la misma posición.

Nota: Si no se seleccionan todas las hojas de trabajo y las celdas activas de cada hoja de trabajo están ubicadas en diferentes posiciones, los paneles congelados estarán en los diferentes lugares como las celdas activas.


Si se aplican varias hojas de trabajo con los paneles de congelación en su Excel, ¿cómo podría descongelarlas a la vez, excepto descongelarlas una por una?

1. Inicie su libro de trabajo cuyas hojas de trabajo se han aplicado con los paneles de congelación.

2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código VBA: descongele todas las hojas de trabajo a la vez en Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Y luego presione F5 para ejecutar este código, y todas las hojas de trabajo que se aplicaron con los paneles de congelación se han descongelado a la vez.


Si no está familiarizado con los códigos VBA, aquí hay una herramienta poderosa: Kutools for Excel, su Congelar paneles de varias hojas de trabajo y Descongelar paneles de varias hojas de trabajo Las utilidades pueden ayudarlo a congelar o descongelar todas las hojas de trabajo del libro actual a la vez.

Nota:Para aplicar esto Congelar paneles de varias hojas de trabajo, en primer lugar, debe descargar el Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione una celda donde desea aplicar el panel de congelación para todas las hojas de trabajo, en este caso, hago clic en la celda B2, mira la captura de pantalla:

doc congelar todas las hojas 1-1

2. Luego haga clic Kutools Más > Hoja de trabajo > Congelar paneles de varias hojas de trabajo, ver captura de pantalla:

3. Y luego a todas sus hojas de trabajo se les han aplicado los paneles de congelación en la misma posición de la celda B2.

Nota:: Si desea descongelarlos inmediatamente, solo necesita aplicar la función Descongelar paneles de múltiples hojas de trabajo haciendo clic en Kutools Más> Hoja de trabajo > Descongelar paneles de varias hojas de trabajo.

¡Descargue y pruebe Kutools para Excel ahora!


Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

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 (6)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
queridos todos, tengo una prueba en mi libro de trabajo, tenga en cuenta que antes de aplicar esta macro, mueva el mouse a la celda que necesita para aplicar el panel congelado en la hoja. es realmente útil esta información es lo que estoy buscando. muchas gracias lan
Este comentario fue minimizado por el moderador en el sitio
Intenté esto en mi libro de trabajo y funcionó muy bien. Gracias
Este comentario fue minimizado por el moderador en el sitio
quiero poder congelar la fila superior en varias hojas de trabajo
Este comentario fue minimizado por el moderador en el sitio
¿Es posible hacerlo solo en hojas de trabajo seleccionadas?

¿Qué necesitaría cambiar en el código?
Este comentario fue minimizado por el moderador en el sitio
hola fernando

Para aplicar el panel congelado a las hojas seleccionadas, utilice el siguiente código:



Congelación secundaria ()

'Actualizar por Extendoffice

Dim Ws como hoja de trabajo

Dim xArrName como variante

tenue xS

xArrName = Array("Hoja2", "Hoja3") 'Cambie los nombres de las hojas según sus necesidades

Application.ScreenUpdating = False

Para cada xS en xArrName

Establecer Ws = Hojas de trabajo (xS)

Si no Ws no es nada entonces

Ws.Activar

Con Aplicación.ActiveWindow

.FreezePanes = Verdadero

End With

Si terminar

Siguiente

Application.ScreenUpdating = True

End Sub



Por favor, inténtalo, ¡gracias!
Este comentario fue minimizado por el moderador en el sitio
Esto funcionaría, pero necesitaría cambiar cada vez que intento ejecutarlo en un libro de trabajo diferente.

¿Es posible que la macro se modifique a las hojas que selecciono en el panel principal haciendo clic en una y presionando shift y seleccionando las otras?
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