Função "=AQUI()", Função "=FUNDO(CEL;COR)"

perguntadas 2020-08-28 18:47:26 +0200

imagem do gravatar de Olivier

Boa tarde

Estou procurando meios de escrever uma função de nome AQUI(), da seguinte forma:

Se insiro =AQUI() na célula B3, a função me retorna "B3".

Simples de formular, nem tão simples de obter com a API do LibreOffice....

A outra é

=FUNDO(CEL;COR), retorna 0 mas põe o fundo da célula "CEL" na cor "COR" expressa por =RGB(Vermelho, Verde, Azul)

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

A primeira função "=AQUI()", pode ser obtida de =CÉL("address")

imagem do gravatar de OlivierOlivier ( 2020-08-28 19:39:18 +0200 )editar

Ola @Olivier, a função chamada de macro funciona, só a função não !!!!!!!!!!!!

Sub teste
    FUNDO "C5", 14654653
End Sub

Function FUNDO ( xLocal$, xCor&)
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = xLocal
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1())
    dim args11(0) as new com.sun.star.beans.PropertyValue
    args11(0).Name = "BackgroundColor" :    args11(0).Value = xCor
    CreateUnoService("com.sun.star.frame.DispatchHelper") _
    .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:BackgroundColor", "", 0, args11())
End Function
imagem do gravatar de SchiavinattoSchiavinatto ( 2020-08-29 01:56:02 +0200 )editar

Obrigado Gilberto. Talvez seja por que para uma função funcionar (epa!), o código só pode estar em biblioteca dentro do arquivo. A conferir.

imagem do gravatar de OlivierOlivier ( 2020-08-29 02:38:05 +0200 )editar

@Olivier, esta no arquivo, dá este erro:

Descrição da imagem

E a planilha não esta protegida.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-08-29 17:22:17 +0200 )editar