[RESUELTO] evaluar funcion dentro de macro

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO] evaluar funcion dentro de macro

Notapor arivas_2005 » Dom Oct 28, 2018 1:41 am

Saludos.
necesito pasar las coordenadas de celda de la forma (C,F) a la A1.
No logro dominar el uso de la sentencia CallFunction para evaluar una address
en la muestra siguiente

Código: Seleccionar todo   Expandir vistaContraer vista
vfila=ThisComponent.CurrentSelection.CellAddress.row
vcolumna=ThisComponent.CurrentSelection.CellAddress.column
nomHoja = ThisComponent.CurrentController.ActiveSheet.Name
''  celdaref=ADDRESS(vfila;vcolumna; 4;; "nomHoja")
oRange= vfila & ";" & vcolumna & "; 4;; &nomHoja  ' << --  mi problema...
Dim oFunctionAccess
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
fnAverage = oFunctionAccess.CallFunction( "ADDRESS", oRange) '
msgbox fnAverage

gracias
Última edición por fornelasa el Mar Oct 30, 2018 6:49 pm, editado 2 veces en total
Razón: Agregar icono resuelto.
Libreoffice 4.7
Puppy slacko 6 y windows 7
arivas_2005
 
Mensajes: 138
Registrado: Mié Nov 16, 2011 6:01 pm

Re: evaluar funcion dentro de macro

Notapor xiseme » Dom Oct 28, 2018 3:30 pm

Respecto al uso de las funciones de Calc desde Basic en el libro de Mauricio en su página 540 dice :
Código: Seleccionar todo   Expandir vistaContraer vista
'Función para llamar a función incorporada de Calc, es importante
'pasarle los argumentos correctamente en una matriz de datos y
'usar la función deseada con su nombre en ingles
Function FuncionCalc( Nombre As String, Datos() )
Dim oSFA As Object

   oSFA = createUnoService( "com.sun.star.sheet.FunctionAccess" )
   FuncionCalc = oSFA.callFunction( Nombre, Datos() )

End Function

A riesgo de que haya cambiado algo en LibO... subrayo lo de «pasarle los argumentos correctamente en una matriz de datos y usar la función deseada con su nombre en ingles»
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
xiseme
 
Mensajes: 1886
Registrado: Lun Nov 24, 2008 1:13 pm

Re: [RESUELTO] evaluar funcion dentro de macro

Notapor arivas_2005 » Dom Oct 28, 2018 4:37 pm

@xiseme. Saludos y gracias!
Efectivamente, en el libro del gran maestro Mauricio, esta la solución a mi problema, en la página 190.
tantas veces se me pasó por alto... y esta en Sub InfoRangos2().
Mis agradecimientos.
Libreoffice 4.7
Puppy slacko 6 y windows 7
arivas_2005
 
Mensajes: 138
Registrado: Mié Nov 16, 2011 6:01 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados