Excel solun arvon kasvattaminen klikkaamalla

En tunne Exceliä, mutta jos joku LibreOffice Calc ohjelman käyttäjä painii saman suuntaisen ongelman kanssa, niin tästä saattaa olla apua:

https://s33.postimg.cc/ikmlv3jbx/Libre_Office-_Calc-painike.gif?dl=1

sub Macro1
dim document as Object
dim dispatcher as Object
dim st As String

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue

args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

my_cell = ThisComponent.Sheets(0).getCellByPosition(0,0)
st = my_cell.value 1

args1(0).Name = "StringName"
args1(0).Value = st
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())
end sub

En tunne Exceliä kovinkaan hyvin, mutta jos joku LibreOffice Calc ohjelman käyttäjä, painii saman suuntaisen ongelman kanssa, tästä saattaa olla apua:

https://s33.postimg.cc/ikmlv3jbx/Libre_Office-_Calc-painike.gif?dl=1
https://pastebin.com/Nbqd9ZCb