Saltar al contenido principal

¿Cómo restablecer todas las posiciones de comentarios en Excel?

En una hoja de trabajo que se llena con varios comentarios, a veces, necesitamos ajustar o mover la posición del cuadro de comentarios para ver el contenido de la celda detrás del cuadro de comentarios, en este caso, los cuadros de comentarios se moverán a diferentes posiciones. Después de finalizar la operación, debe devolver los cuadros de comentarios a su posición original, ¿cómo podría restablecer todas las posiciones de los comentarios a la vez en Excel?

Restablecer todas las posiciones del cuadro de comentarios con código VBA en Excel
Un clic para restablecer todas las posiciones del cuadro de comentarios con Kutools para Excel


Restablecer todas las posiciones del cuadro de comentarios con código VBA en Excel

Puede aplicar el siguiente código VBA para restaurar todos los cuadros de comentarios a sus posiciones originales a la vez.

1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.

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

Código de VBA: restablezca todas las posiciones de comentarios en la hoja de trabajo activa

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. Entonces presione F5 para ejecutar este código, y todas las posiciones de los comentarios en la hoja de trabajo activa se han restablecido a la vez. Ver capturas de pantalla:

doc-restablecer-comentario-1
-1
doc-restablecer-comentario-2

Restablezca todas las posiciones de los cuadros de comentarios con un solo clic

Aquí presentamos el Restablecer posición de comentario utilidad de Kutools for Excel. Con esta utilidad, puede restablecer rápidamente todas las posiciones de los comentarios en la hoja activa o en todas las hojas con un solo clic.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Si solo desea restablecer la posición de todos los cuadros de comentarios en la hoja activa, haga clic en Kutools > Más > Restablecer posición de comentario > Hoja activa.

Para restablecer la posición del cuadro de comentarios en todas las hojas del libro de trabajo actual, haga clic en Kutools > Más > Restablecer posición de comentario > Todas las hojas. Ver captura de pantalla:

Después de hacer clic en Hoja activa o Todas las hojas, todas las posiciones de los comentarios en la hoja activa o todas las hojas se restablecerán a sus posiciones originales inmediatamente.

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Un clic para restablecer todas las posiciones del cuadro de comentarios con Kutools para Excel


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It's not working with my computer. Ask to save as macro-enabled file type & after save missed out some data. 
This comment was minimized by the moderator on the site
Thank you. The code was helpful to adopt & reset many comments in my worksheet.
Earlier, I had many comment boxes with sizes so huge in height (which was caused accidentally by dragging or something). Even though these comment boxes were not visible always, this was causing one issue - The vertical scroll bar size became small as the comment boxes end position (say, it is big lying over thousands of cells) was also a factor to consider the "active range" in the worksheet.
This comment was minimized by the moderator on the site
Great article, but ... In Excel in my Office 365 (now Microsoft 365), what used to be Comments are now "Notes". Will your macros still work? Thanks.
This comment was minimized by the moderator on the site
After I press F5 and run the code, nothing happens and the comments boxes are still far away - May I ask if you know how to resolve this? Thank you very much.
This comment was minimized by the moderator on the site
Formatting is one of the boring things when it comes to data and reporting and here we have some of the time saver formatting tips for you which you can use in your daily work https://liteblue.me
This comment was minimized by the moderator on the site
Thank you so much for the script.. !!
This comment was minimized by the moderator on the site
A huge thank you, this was so easy and worked perfectly. I've never used a macro before, but I followed your instructions and it was so straight forward. Very much appreciated.
This comment was minimized by the moderator on the site
This is the best, thanks
This comment was minimized by the moderator on the site
Thank you so much for the VBA code!!! You saved me hours of work. Best, Andy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations