[RESUELTO] Seleccionar columnas

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
elenitaex5
Mensajes: 56
Registrado: Sab Nov 28, 2009 2:49 pm
Ubicación: Madrid, España

[RESUELTO] Seleccionar columnas

Mensaje por elenitaex5 »

Buenas, estoy intentando aprender OOoBasic, ya que el Visual Basic de Microsoft se me da bastante bien, y desde hace tiempo trabajo con el Office de OOo por lo que me gustaría también a programar en OOoBasic. El caso es que ya hecho algunas cosas fáciles y estoy intentando pasar algunas macros que ya tengo en VB a OooB. El problema que tengo es que no sé muy bien como seleccionar varias columnas enteras. Me he leído el manual, pero no lo tengo nada claro. Tengo una hoja en la que tengo que eliminar varias columnas y hacer que las que quedan se peguen a la izquierda. En VB sería así:

Código: Seleccionar todo

Range("A:A,B:B,D:D,F:F,G:G,I:I,J:J,N:N,P:P,Q:Q,R:R,S:S,T:T,U:U,V:V").Select
    Selection.Delete Shift:=xlToLeft
quiero saber si hay alguna forma de seleccionar todas esas columnas sin tener que poner

Código: Seleccionar todo

...getCellRangeByName("A1:A65536")
Gracias
Última edición por elenitaex5 el Lun Jul 25, 2011 10:38 am, editado 1 vez en total.
Openoffice 3.3.0
Sistema operativo Windows
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Seleccionar columnas

Mensaje por mauricio »

Hola...

En mi libro tengo suficientes ejemplos para hacer lo que quieres: http://user.services.openoffice.org/es/ ... =50&t=1545

Borramos (y desplazamos) las columnas A y B, no es necesario seleccionarlas, de hecho, la seleccion es un mal habíto desde programación, casi no es necesario.

Código: Seleccionar todo

    oHojaActiva = ThisComponent.CurrentController.ActiveSheet
    oHojaActiva.getColumns.removeByIndex( 0, 2 )
Con un poco de ingenio borras todas las demas... pista: al desplazar las columnas están cambian de indice...

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], adicionalmente puedes marcar el icono de la tilde verde, de esta forma conseguiremos un foro más ordenado.

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Responder