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

Question

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

Answer 1

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