OpenOffice Calc - Latest Comments on Utilizar una función de Calc desde una macro https://blog.open-office.es/calc/?disp=comments es-ES http://backend.userland.com/rss 60 Joey [Visitante] in response to: Utilizar una función de Calc desde una macro Mon, 08 Jun 2020 11:25:16 +0000 Joey [Visitante] c1115@https://blog.open-office.es/ <p>Hola<br /> Me ha parecido muy interesante poder insertar las funciones nativas de CALC dentro del macro de OOo basic. Alctualmente estoy intentando insertar otra funcion que no sea SUM y he utilizado el Modo 2 de su explicacion anterior y al tener varias variables, en mi función, las he separado con comas, pero luego el resultado sale siempre 0. No me sale error, y la hoja activa es la correcta. Alguien me puede ayudar. Gracias !!!</p> <p>Function FuncionCalc( Nombre As String, Datos() )<br /> ' Esta función permite llamar a una función de Calc por su nombre en Inglés <br /> Dim oSFA As Object<br /> oSFA = createUnoService( "com.sun.star.sheet.FunctionAccess" )<br /> FuncionCalc = oSFA.callFunction( Nombre, Datos() )<br /> End Function</p> <p>Sub testNativFunctions<br /> Dim dSuma As Double<br /> Dim oHoja As Object<br /> oHoja = ThisComponent.CurrentController.ActiveSheet <br /> dSuma = FuncionCalc( "MATCH", Array("Zona",oHoja.getCellRangeByName("A1:A12"),0) )<br /> Msgbox dSuma<br /> End sub</p> Hola
Me ha parecido muy interesante poder insertar las funciones nativas de CALC dentro del macro de OOo basic. Alctualmente estoy intentando insertar otra funcion que no sea SUM y he utilizado el Modo 2 de su explicacion anterior y al tener varias variables, en mi función, las he separado con comas, pero luego el resultado sale siempre 0. No me sale error, y la hoja activa es la correcta. Alguien me puede ayudar. Gracias !!!

Function FuncionCalc( Nombre As String, Datos() )
' Esta función permite llamar a una función de Calc por su nombre en Inglés
Dim oSFA As Object
oSFA = createUnoService( "com.sun.star.sheet.FunctionAccess" )
FuncionCalc = oSFA.callFunction( Nombre, Datos() )
End Function

Sub testNativFunctions
Dim dSuma As Double
Dim oHoja As Object
oHoja = ThisComponent.CurrentController.ActiveSheet
dSuma = FuncionCalc( "MATCH", Array("Zona",oHoja.getCellRangeByName("A1:A12"),0) )
Msgbox dSuma
End sub

]]> https://blog.open-office.es/calc/utilizar-una-funcion-de-calc-desde-una-macro#c1115