Calc Cells with a calculated value

[adrian]

I want to put the focus over a cell. Then I wan a form to be displayed with three TextBox and a Button that when is pressed returns a calculated value [f(a,b,c)] to de original cell. The cell is anyone from a cell range. ¡Please Help!

[adrian]

I try this but dialog doesn't appear:
REM ***** BASIC *****
Dim oPromediator as Object
Sub Main

End Sub
Sub PromediatorShow
oPromediator = LoadDialog("Standard", "Promediator")
oPromediator.Execute()
End Sub

Function HasValue(theObject as Object) As Boolean
If HasUnoInterfaces(theObject, "com.sun.star.lang.XTypeProvider") Then
HasValue = CreateUnoService("com.sun.star.beans.Introspection").inspect(theObject).hasProperty("Value", 'METHODS
End If
End Function

Function GetCurrentCell as SheetCell
Dim sel
sel = ThisComponent.getCurrentController().getSelection()
If HasValue(sel) Then GetCurrentCell = sel
End Function

Function Promedia as decimal
Dim sel
GetCurrentCell.value= TextBox1.Text
End Function


I'n newbie. Please help!

[SergeM]

[adrian]

Thanks for your answer, but doesn't works

[SergeM]

OK; Is your dialog windows with the name promediator already created ?

There is no program in the main ? Then if you launch it in the OOoBasic editor it will be nothing executed (because it try to execute the main).

The function GetcurrentCell necessite to have e spreadsheet already open and active.

The function Promedia can't work because there is no instruction as