Code: Select all
function WorkCell()
Dim oDoc,oSheet,oCell As Object
oDoc = thisComponent
oSheet = thisComponent.getSheets.getByName( "Sheet1" )
oCell = oSheet.getCellByPosition( 0, 1 )
oCell.String = "This is A1 cell"
End function
Code: Select all
=IF(A1=1;WorkCell();"too small")
but, nothing happens,
when i run WorkCell() from macros menu, it works.
What i'm missing?
can i call ,(dont know how to name it)
Code: Select all
sub tst
something()
end sub
Thanks in advance.