Mediante el uso de las teclas Mayús y/o CTRL, puede seleccionar rangos no contiguos. Sin embargo, si selecciona una celda o área por error, no hay ninguna forma incorporada para quitar eso de la selección sin perder la selección completa y tener que empezar de más. Describe los procedimientos de VBA, UnSelectActiveCell y UnSelectCurrentArea que quitará la celda activa o el área que contiene la celda activa de la selección actual. Todas las demás celdas de la selección seguirán seleccionadas. Su mejor opción sería agregarlos a su libro de macros personales para que estén disponibles para todos los libros abiertos en Excel. Este procedimiento eliminará la celda activa de la selección. Sub UnSelectActiveCell () Dim R as rango DIM RR como rango para cada R en selección. Búsqueda de rango: usa FALSO para asegurarte de. De esas acciones en menos de un minuto. De Excel está diseñada para minimizar el trabajo que. Celdas if StrComp (R. Address, ActiveCell. Address, vbBinaryCompare) 0 entonces si RR no es nada entonces fije RR = R else establecer RR = Application. Union (RR, R) End if End if Next R si no RR no es nada entonces RR. Seleccione End if End Sub este procedimiento eliminará el área que contiene la celda activa de la selección. Sub UnSelectCurrentArea () Dim área as rango DIM RR como rango para cada área en selección. Areas si Application. Intersect (área, ActiveCell) no es nada entonces si RR no es nada entonces fije RR = área else establecida RR = Application. Union (RR, área) End if End si Next Area si no RR is Nada entonces RR. Seleccione End if End Sub. Emulador de c64 mac. Una manera más robusta para anular la anulación de varias celdas se describe en este. Incluye un mensaje adicional, pero puede anular la selección de un número arbitrario de celdas/selecciones a la vez (en lugar de deseleccionar sólo la celda o área activa) I ' voy a publicar el script aquí, con una pequeña mejora de usabilidad (eliminado condicionalmente el primero redundante prompt desde el post original): sub DeselectCells () Dim RNG como rango DIM InputRng como rango DIM DeleteRng como rango DIM resultado as Range xTitleId = ' deseleccionar celdas ' Set InputRng = Application. Selection si InputRng.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |