Il sito di Yahoo Answers verrà chiuso il 4 maggio 2021 (ora della costa est degli USA) e dal 20 aprile 2021 (ora della costa est degli USA) sarà in modalità di sola lettura. Non verranno apportate modifiche ad altre proprietà o servizi di Yahoo o al tuo account Yahoo. Puoi trovare maggiori informazioni sulla chiusura di Yahoo Answers e su come scaricare i tuoi dati in questa pagina di aiuto.

10 punti e 5 stelle, entrate per favore!!!!!!!!!!!!!!!!!!!!!!!!!?

Come posso creare una macro su OpenOffice che cancelli il contenuto di determinate celle?

La macro mi serve perchè poi la devo assegnare ad un pulsante in modo che quando lo premo il contenuto delle celle sia cancellato, per favore aiutatemi su internet non trovo nessuna spiegazione!

Grazie in anticipo a tutti

1 risposta

Classificazione
  • 9 anni fa
    Risposta preferita

    spero ti possa aiutare:

    ho provato a creare una macro di copia incolla... questo è il codice sorgente:

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

    Sub Main

    End Sub

    sub Prova

    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"

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

    rem ----------------------------------------------------------------------

    dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

    rem ----------------------------------------------------------------------

    dim args3(0) as new com.sun.star.beans.PropertyValue

    args3(0).Name = "ToPoint"

    args3(0).Value = "$C$1"

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

    rem ----------------------------------------------------------------------

    dim args4(0) as new com.sun.star.beans.PropertyValue

    args4(0).Name = "ToPoint"

    args4(0).Value = "$C$2"

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

    rem ----------------------------------------------------------------------

    dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

    end sub

    la macro copia il valore della cella A2 e lo incolla nella cella C2

    ho provato a creare una macro di copia incolla... questo è il codice sorgente:

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

    Sub Main

    End Sub

    sub Prova

    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"

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

    rem ----------------------------------------------------------------------

    dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

    rem ----------------------------------------------------------------------

    dim args3(0) as new com.sun.star.beans.PropertyValue

    args3(0).Name = "ToPoint"

    args3(0).Value = "$C$1"

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

    rem ----------------------------------------------------------------------

    dim args4(0) as new com.sun.star.beans.PropertyValue

    args4(0).Name = "ToPoint"

    args4(0).Value = "$C$2"

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

    rem ----------------------------------------------------------------------

    dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

    end sub

    la macro copia il valore della cella A2 e lo incolla nella cella C2

Altre domande? Fai una domanda e ottieni le risposte che cerchi.