Date: prev next · Thread: first prev next last
2022 Archives by date, by thread · List index


Salve a tutti. Ho il seguente problema:
un foglio calc con i seguenti dati:

    Col Col Col
    A    B    C
Row
2    1    1    b
3    2    1    a
4    3    3    d
5    4    7    h
6    5    7    g
7    6    4    j
8    7    4    f
9    8    8    k

Vorrei una macro per metterli in ordine secondo la colonna B e poi C.

Il risultato dovrebbe essere il seguente:

    Col Col Col
    A    B    C
Row
2    2    1    a
3    1    1    b
4    3    3    d
5    7    4    f
6    6    4    j
7    5    7    g
8    4    7    h
9    8    8    k

Ho utilizzato (come usualmente faccio a lavoro su Excel...) il comando Registra macro. Ho selezionato le 3 colonne dalla riga 2 alla 9, quindi ho fatto clic sul pulsante [AZ] che fa comparire l'apposita finestra di dialogo per l'ordinamento. Ho selezionato le due chiavi di ordinamento e fatto clic su OK. Poi ho terminato la registrazione. Inserito il nome della macro e del modulo (lasciando quello di default).
La macro registrata è questa:

REM  *****  BASIC  *****


sub Ordinamento
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2:$C$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, Array())


end sub

Noto qualcosa di strano rispetto al codice che normalmente ottengo facendo le stesse operazioni in Excel ed infatti dopo aver aggiunto un pulsante collegato alla suddetta macro l'operazione non funziona. Ho provato ad eliminare il rem dall'ultima riga di codice prima di end sub ed in questo modo eseguendo la macro compare la finestra di dialogo per l'ordinamento e cliccando su OK sembra funzionare l'operazione, ma io vorrei che la cosa avvenisse in modo trasparente semplicemente premendo il pulsante che ho aggiunto.
Cosa mi sfugge?

—
Distinti Saluti
Andrea NARDI


--
Come cancellarsi: E-mail users+unsubscribe@it.libreoffice.org
Problemi? https://it.libreoffice.org/supporto/mailing-lists/come-cancellarsi/
Linee guida per postare + altro: https://wiki.documentfoundation.org/Local_Mailing_Lists/it
Archivio della lista: https://listarchives.libreoffice.org/it/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.