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.